M CODE: N %DT S %DT="EXSTR" D ^%DT K:Y<0 X I $D(X) S X=$$UTC^DIUTC(X) K:+X=-1 X
M CODE: N %Y S %Y=$E(Y_"00000000000",15,17) X ^DD("DD") I %Y S Y=Y_" (UTC"_(%Y-500/12)_":00)"
M CODE: N ARR,DDH,I,ZZDDS,ZZDT M ZZDDS=DDS,ZZDT=%DT S DDS=1,%DT=$G(%DT)_"ETRX" D HELP^%DTC F I=1:1:DDH S ARR(I)=DDH(I,"T") I I=DDH K DDS,%DT M DDS=ZZDDS,%DT=ZZDT D EN^DDIOL(.ARR)
