TCLCaller UTC to EST Conversion

All:

Can someone give me a slight push. I modified the code provided in the TCLCaller sample (provided in the Safe knowledge base - https://knowledge.safe.com/articles/769/converting-time-and-date-fields-to-local-timezones.html) to convert UTC date to EST. I have 5 dates I need to convert to EST and wanted to store them in separate attributes. I've attempted to create an array to return the 5 dates but no luck. I feel like I'm almost there. You will see some of the lines commented because I've been doing a variety of test scenarios trying to get my results.

Thanks in advance,

proc formatDate {} {

 

# this attribute matches the FME feature attribute

 

set QueryDate [FME_GetAttribute QueryDate]

 

set MROutageDate [FME_GetAttribute MostRecentOutage.OutageDate]

 

#set EventRepairDate [FME_GetAttribute EventOutage.RepairDate]

 

#set MRRepairDate [FME_GetAttribute MostRecentOutage.RepairDate]

 

#set EventOutageDate [FME_GetAttribute EventOutage.OutageDate]

 

 

#puts "date GMT $date"

 

# convert to clock seconds

 

set t_QueryDate [clock scan $QueryDate -format {%Y-%m-%dT%H:%M:%S%Z} -timezone :UTC ]

 

set t_MROutageDate [clock scan $MROutageDate -format {%Y-%m-%dT%H:%M:%S%Z} -timezone :UTC ]

 

#set t_EventRepairDate [clock scan $EventRepairDate -format {%Y-%m-%dT%H:%M:%S%Z} -timezone :UTC ]

 

#set t_MRRepairDate [clock scan $MRRepairDate -format {%Y-%m-%dT%H:%M:%S%Z} -timezone :UTC ]

 

#set t_EventOutageDate [clock scan $EventOutageDate -format {%Y-%m-%dT%H:%M:%S%Z} -timezone :UTC ]

 

 

#puts "t $t"

 

# switch to the new timezone and format the date

 

set dt_QueryDate [clock format $t_QueryDate -format {%Y%m%d%H%M%S} -timezone :EST ]

 

set dt_MROutageDate [clock format $t_MROutageDate -format {%Y%m%d%H%M%S} -timezone :EST ]

 

#set dt_EventRepairDate [clock format $t_EventRepairDate -format {%Y%m%d%H%M%S} -timezone :EST ]

 

#set dt_MRRepairDate [clock format $t_MRRepairDate -format {%Y%m%d%H%M%S} -timezone :EST ]

 

#set dt_EventOutageDate [clock format $t_EventOutageDate -format {%Y%m%d%H%M%S} -timezone :EST ]

 

 

#puts "date EST $datetime"

 

 

return $dt_QueryDate

 

return $dt_MROutageDate

 

#return $dt_EventRepairDate

 

#return $dt_MRRepairDate

 

#return $dt_EventOutageDate

 

}