How to update the Sheet text . Use lisp program

[aris63]

(defun my-tr-get-date ()
(multiple-value-bind
(sec min hour day month year)
(decode-universal-time (get-universal-time))
(declare (ignore sec) (ignore min) (ignore hour))
(format nil "~A~A~A"

year

(case
month
( 1 "01") ( 2 "02") ( 3 "03")
( 4 "04") ( 5 "05") ( 6 "06")
( 7 "07") ( 8 "08") ( 9 "09")
(10 "10") (11 "11") (12 "12")
(otherwise "???"))


(case
day
( 1 "01") ( 2 "02") ( 3 "03")
( 4 "04") ( 5 "05") ( 6 "06")
( 7 "07") ( 8 "08") ( 9 "09")
(10 "10") (11 "11") (12 "12")
( 13 "13") ( 14 "14") ( 15 "15")
( 16 "16") ( 17 "17") ( 18 "18")
( 19 "19") ( 20 "20") ( 21 "21")
(22 "22") (23 "23") (24 "24")
( 25 "25") ( 26 "26") ( 27 "27")
( 28 "28") ( 29 "29") ( 30 "30")
( 31 "31") (otherwise "???"))

)
)
)


(docu-register-tr-type "Sheet_local" "CREATE_TIME" "???" 'my-tr-get-date)

the abovementioned is about sheet create_time to bring

If I want one step to update my shett field
( the rectangle figure)
I had finish my dialog but How to update at one step

If anyone understand what I mean please help me