Changeset 396 for ccr/trunk/p/C0CLABS.m

Timestamp:

Mar 15, 2009, 8:14:48 PM (15 years ago)

Author:

Sam Habiel

Message:

Changed CCRUTIL to C0CUTIL

File:

• ccr/trunk/p/C0CLABS.m (modified) (2 diffs)

ccr/trunk/p/C0CLABS.m

@@ -183 +183 @@
  . . S C0CX1=XV("RESULTASSESSMENTDATETIME") ;DATE TIME IN HL7 FORMAT
  . . S C0CX2=$$HL7TFM^XLFDT(C0CX1,"L") ;FM DT LOCAL
- . . S XV("RESULTASSESSMENTDATETIME")=$$FMDTOUTC^CCRUTIL(C0CX2,"DT") ;UTC TIME
+ . . S XV("RESULTASSESSMENTDATETIME")=$$FMDTOUTC^C0CUTIL(C0CX2,"DT") ;UTC TIME
  . . M @C0CLB@(C0CLI)=XV ; PERSIST THE OBR VARS
  . . S C0CLOBX=0 ; MARK THE BEGINNING OF A NEW SECTION
@@ -221 +221 @@
  . . S C0CX1=XV("RESULTTESTDATETIME") ;DATE TIME IN HL7 FORMAT
  . . S C0CX2=$$HL7TFM^XLFDT(C0CX1,"L") ;FM DT LOCAL
- . . S XV("RESULTTESTDATETIME")=$$FMDTOUTC^CCRUTIL(C0CX2,"DT") ;UTC TIME
+ . . S XV("RESULTTESTDATETIME")=$$FMDTOUTC^C0CUTIL(C0CX2,"DT") ;UTC TIME
  . . ; I 'C0CQT ZWR XV
  . . M @C0CLB2@(C0CLOBX)=XV ; PERSIST THE TEST RESULT VARIABLES