Change date format in an easier way in objectscript

Question

Question

ED Coder · Nov 24, 2020

I am getting the date 20201121090000 in the HL7 message, How do I convert it to 2020-11-21 09:00:00 in a easy way?

I am currently doing it by extracting the first 7 values and splitting as date and time and then adding a hyphen using substring.

Is there an easier way by using $ZDATE? or something like that?

Discussion (20)1

Log in or sign up to continue

Dmitry Maslennikov · Nov 24, 2020

set dd = $system.SQL.TOTIMESTAMP(20201121090000, "YYYYMMDDHHMISS")

Most of the SQL functions available with $SYSTEM.SQL

2 0

score 5 · Answer 1 · 2020-11-24T12:51:15-05:00

Use $tr() in backward mode

set date=" 20201121090000"
write $tr("abcd-ef-gh ij:kl:mn","abcdefghijklmn",date)  --> 2020-11-21 09:00:00

score 0 · Answer 2 · 2020-11-24T14:06:30-05:00

Flávio Lúcio Na... · Nov 24, 2020

I liked this idea

0 0

score 0 · Answer 3 · 2020-11-25T04:11:54-05:00

ED Coder · Nov 25, 2020

Amazing idea. Thank you Julius.

0 0

score 1 · Answer 4 · 2020-11-30T10:16:39-05:00

Rob Tweed · Nov 30, 2020

Wow, how have I not known this trick after all these years? :-)

1 0

score 0 · Answer 5 · 2020-11-30T12:30:58-05:00

A internet search engine can be of great help and, of course, some luck,

Carefully reading the DC is also a good source of information,

See this articles

https://community.intersystems.com/post/yet-another-use-case-translate-d...

https://community.intersystems.com/post/convert-numeric-expression202010... (last reply)

score 0 · Answer 6 · 2020-11-30T12:59:47-05:00

Rob Tweed · Nov 30, 2020

Wot, read documentation?? ;-)

0 0

score 0 · Answer 7 · 2020-11-30T13:20:00-05:00

Robert Cemper · Nov 30, 2020

docs sounds boring

0 0

score 0 · Answer 8 · 2020-11-30T14:29:04-05:00

I said nothing about a documentation. I don't do it even

By the way, what's the definition of an empty set?

Answer:

4(%@3%4@')6%.@"9@).4%23%#4)/.@/&@-5-03@02/'2!-%23@!.$@4(%)2@$/#5-%.4!4)/.

score 0 · Answer 9 · 2020-11-30T13:49:29-05:00

@Julius Kavay - a DC hack: click on a link button at the bottom of reply to copy the link in a clipboard:

and here it is : the Last reply link

score 0 · Answer 10 · 2020-11-30T14:02:51-05:00

Julius Kavay · Nov 30, 2020

@Evgeny Shvarov
Thank you, I've made a note.

0 0

score 0 · Answer 11 · 2020-11-24T12:54:13-05:00

don't know if this is faster but it may help Pass in your date ClassMethod testD(inDate As %String = "") As %String { s dd="" &SQL(SELECT TO_TIMESTAMP(:inDate,'YYYYMMDDHHMISS') INTO :dd) q dd }

score 0 · Answer 12 · 2020-11-24T12:58:15-05:00

I think this can solve your problem

SET DATE="20201121090000"

WRITE $ZD($ZDH($E(DATE,1,8),8),3) // DAY
WRITE $E(DATE,9,10)_":"_$E(DATE,11,12)_":"_$E(DATE,13,14) // HOUR

score 1 · Answer 13 · 2020-11-24T13:48:28-05:00

Hey ED Coder.

There are built in classes to manage this in a nicer way.

##class(Ens.Util.Time).ConvertDateTime() is a good starting point. For example:

Here is the filled in classmethod call for easy copy/pasting:

Set NewDate = ##class(Ens.Util.Time).ConvertDateTime(HL7Date,"%Y%m%d%H%M%S","%Y-%m-%d %H:%M:%S")

The values for each section of the date are defined by the following: https://docs.intersystems.com/irislatest/csp/docbook/DocBook.UI.Page.cls...

score 2 · Answer 14 · 2020-11-24T16:40:21-05:00

After seeing several solutions I got the idea to make a comparison.
The bottom line is, it's advisable to check how an algorithm (or function or method etc.) performs over another.
So try the below program snippet... you will be surprised!

Test //
   s date="20201121090000"
   s new=""
   s t0=$zh

   f i=1:1:1E6 s new=$e(date,1,4)_"-"_$e(date,5,6)_"-"_$e(date,7,8)_" "_$e(date,9,10)_":"_$e(date,11,12)_":"_$e(date,13,14)
   s t1=$zh
   f i=1:1:1E6 s new=$tr("abcd-ef-gh ij:kl:mn","abcdefghijklmn",date)
   s t2=$zh
   f i=1:1:1E6 s new=$zd($zdh($e(date,1,8),8),3)_" "_$e(date,9,10)_":"_$e(date,11,12)_":"_$e(date,13,14)
   s t3=$zh
   f i=1:1:1E6 s new=$system.SQL.TOTIMESTAMP(date, "YYYYMMDDHHMISS") 
   s t4=$zh
   f i=1:1:1E6 &SQL(SELECT TO_TIMESTAMP(:date,'YYYYMMDDHHMISS') INTO :new)
   s t5=$zh

   w "$e() only",?12,t1-t0,!
   w "$tr()",?12,t2-t1,!
   w "$e()+$zd()",?12,t3-t2,!
   w "SQL/class",?12,t4-t3,!
   w "SQL/static",?12,t5-t4,!
   q

Of course, the results will depend on hardware, on Cache/IRIS version and on utilisation of your system

score 0 · Answer 15 · 2020-11-24T20:25:00-05:00

Very cool. Certainly some cost as you work your way down the list, but for the balance of readability and performance, I prefer #2 - the $tr one.

score 0 · Answer 16 · 2020-11-25T04:16:44-05:00

Thank You Julius, very informative for me. Gives me an idea of the different ways I can implement the solution

score 0 · Answer 17 · 2020-11-30T10:48:08-05:00

Results running IRIS Container on Raspberry Pi 4 (4Gb RAM):

$e() only 1.279893

$tr() 1.281999

$e()+$zd() 1.470656

SQL/class 66.405927

I didn't include the SQL/static in my test on the RPi.

Comparison with IRIS on a Windows 10 i7 based Intel NUC machine:

$e() only .14742
$tr() .185998
$e()+$zd() .182579
SQL/class 11.305143

Mind you, the NUC cost about 15 times that of the RPi :-)

Anyway, based on a combination of the performance and coolness of technique, the $tr() one gets my vote!

score 0 · Answer 18 · 2020-12-01T07:00:15-05:00

Notice, by the way, the hefty performance penalty incurred by the SQL/Class option compared with the low-level ObjectScript functions ($extract and $translate).

score 0 · Answer 19 · 2020-11-30T05:40:33-05:00

Using $Extract will be 17 % faster (!)
Set date=20201121090000
Set newDate=$E(date,1,4)_"-"_$E(date,5,6)_"-"_$E(date,7,8)_" "_$E(date,9,10)_":"_$E(date,11,12)_":"_$E(date,13,14)