unable to convert date-time string question

set fldSep “” ;# Field Seperator – get from MSH

set subSep “” ;# SubField Seperator – get from MSH

set repSep “” ;# Repeating Field Seperator – get from MSH

set OBRpos -1 ;# Position of OBR Segment in msg

set OBRList

set OBXpos -1 ;# Position of OBX Segment in msg

set OBXList

 set OBXPDF 5 ;# Field in the OBX that the PDF encoding is in

 set OBRDateTime 6  ;# Field in the OBR that the date/time is in

 set OBRTestCode 4 ;# Field in the OBR that the test code is in

#########################################################################################

# Switch based on what mode the engine was in when it called the procedure

#########################################################################################

keylget args MODE mode             ;# The mode the engine called from

 switch -exact — $mode {

  start { }

   run {

    set mh [keylget args MSGID] ;# Get message handle from args

   set dispList

;# Initialize to good message

     set msg [msgget $mh] ;# Get a copy of the message

     set fldSep [string index $msg 3] ;# Field Seperator

     set subSep [string index $msg 4] ;# Sub-Field Seperator

     set repSep [string index $msg 5] ;# Repeating Field Seperator

set segList [split $msg r] ;# Split message into segList

#########################################################################################

# Find Position of Segements – If missing -> Error out Message and Return

#########################################################################################

set OBRpos [lsearch -regexp $segList {^OBR}]

set OBXpos [lsearch -regexp $segList {^OBX}]

if {$OBXpos < 0} {      msgmetaset $mh USERDATA “Required Segment OBX Missing!”  echo n n n  echo “:WARN – $OBXpos Segment Missing !”  echo “:WARN – Sending Message to error db.”  echo “:WARN – Here Is: $myname”  echo “:WARN – Now Is: $nowis”  echo $msg  echo n n n            set dispList

       return $dispList

}

   

#########################################################################################

# Split out the OBR and get the OBR-7 date/time so that it can be reformatted

#########################################################################################

set OBRList [split [lindex $segList $OBRpos] $fldSep]

#echo OBRList: $OBRList

     set datetime [lindex $OBRList $OBRDateTime]

   #The below regsub formats the date so that the following clock scan can be performed.

    regsub — {(d{8})(d+)} $datetime {1 2} datetime

    set datetime [clock format [clock scan $datetime] -format “%m/%d/%Y %H:%M”]

#echo datetime: $datetime

 

#  set newdatetime [string map {{ {}} $datetime]

#echo newdatetime: $newdatetime  

#########################################################################################

# Get the OBR-4 so that we can append that date and time to it.

#########################################################################################

  set testcode [lindex [split [lindex $OBRList $OBRTestCode] $subSep] 0]

#echo testcode: $testcode

   lappend newtestcode $testcode $datetime

#echo newtestcode: $newtestcode

     set newtestcode [string map {{ {} } {}} $newtestcode]

set OBRList [lreplace $OBRList 4 4 $newtestcode]

 

   

   

#########################################################################################

# Split out the OBX and get the OBX-5 and fill in the field with the .

#########################################################################################

 

   set OBXList [split [lindex $segList $OBXpos] $fldSep]

 

   set pdfcode [lindex [split [lindex $OBXList $OBXPDF] $subSep] 4]

#########################################################################################

# Replacing the OBR DXCode code in the OBR-19

#########################################################################################

set OBXList [lreplace $OBXList 5 5 $pdfcode]

#########################################################################################

# Putting the OBR segment back together with the DXCode code in the OBR-19

#########################################################################################

   lset segList $OBRpos [join $OBRList $fldSep]

     lset segList $OBXpos [join $OBXList $fldSep]

     msgset $mh [join $segList r]

   

#########################################################################################

# Rebuild msg and store at mh for engine

#########################################################################################

}

   time { }

   shutdown { }

} ;# End Switch

return $dispList

} ;# End Proc