TCL scrip for changing date from MM/DD/YYYY to YYYYMMDD

[stephen fouche]

# format into hl7 date format

lassign $xlateInVals date

set date [split $date /]

lassign $date m d y

set xlateOutVals

#set xlateOutVals

Topic

[Jim Kosloskey]

If one is at Cloverleaf release 6.1.1 or later, one can use thee Xlate STRING Action (range function) to pull out the pieces of the date (after all the pieces are always in the same place).

Then using the CONCAT Action combine the pieces back together as needed.

Could be used if the reverse is true (CCYYMMDD to MM/DD/CCYY).

email: jim.kosloskey@jim-kosloskey.com 29+ years Cloverleaf, 59 years IT - old fart.

[Sean Farley]

You have already broken the date into a list.  Each element in the list is part of the new date format that you need.  I think you can just change your last line to:

set xlateOutVals “[lindex $date 2][lindex $date 0][lindex $date 1]”

That should put it in YYYYMMDD format.  I hope that helps.

[Charlie Bursell]

why not simply?

set dt 06/10/2017

set newdt [clock format [clock scan $dt] -format %Y%m%d]

[Sean Farley]

Charlie’s answer is best!  I wasn’t sure if “clock scan” liked the MM/DD/YYYY” format, but I verified that it does in fact work.

set xlateOutVals [clock format [clock scan $date] -format “%Y%m%d”]

[Mark Thompson]

Not sure how Charlie let this slip through – xlateOutVals should always be a list.  In this particular case it doesn’t matter, but best practice would be:

set xlateOutVals

-format “%Y%m%d”]]

- Mark Thompson
HealthPartners

[Author]

Replies