Changeset 278 for ccr/trunk/p/CCRUTIL.m

Timestamp:

Nov 14, 2008, 9:43:58 AM (15 years ago)

Author:

George Lilly

Message:

fixes for Labs not found and some Meds template fixes

File:

• ccr/trunk/p/CCRUTIL.m (modified) (1 diff)

ccr/trunk/p/CCRUTIL.m

@@ -38 +38 @@
  I $L(S)=1 S S="0"_S
  S OFF=$$TZ^XLFDT ; See Kernel Manual for documentation.
+ S OFFS=$E(OFF,1,1)
+ S OFF0=$TR(OFF,"+-")
+ S OFF1=$E(OFF0+10000,2,3)
+ S OFF2=$E(OFF0+10000,4,5)
+ S OFF=OFFS_OFF1_":"_OFF2
+ ;S OFF2=$E(OFF,1,2) ;
+ ;S OFF2=$E(100+OFF2,2,3) ; GPL 11/08 CHANGED TO -05:00 FORMAT
+ ;S OFF3=$E(OFF,3,4) ;MINUTES
+ ;S OFF=$S(OFF2="":"00",0:"00",1:OFF2)_"."_$S(OFF3="":"00",1:OFF3)
  ; If H, MM and S are empty, it means that the FM date didn't supply the time.
  ; In this case, set H, MM and S to "00"