Changeset 51 for ccr/trunk/p/GPLCCR.m

Timestamp:

Jul 7, 2008, 9:51:27 AM (16 years ago)

Author:

Christopher Edwards

Message:

Added Providers to Vitals section
Fixed hanging : in CCRUTIL (thanks to Skip for more optimized code)
Fixed GPLCCR to write correct time

File:

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

ccr/trunk/p/GPLCCR.m

@@ -13 +13 @@
        S OARY=$NA(^TMP("GPLCCR",$J,DFN,"CCR",1))
        S ONAM="PAT_"_DFN_"_CCR_V1.xml"
-       S ODIR="/home/glilly/CCROUT"
-       ;S ODIR="/home/cedwards/"
+       ;S ODIR="/home/glilly/CCROUT"
+       S ODIR="/home/cedwards/"
            ;S ODIR="/opt/wv/p/"
        D OUTPUT^GPLXPATH(OARY,ONAM,ODIR)
@@ -83 +83 @@
     N VMAP S VMAP=$NA(^TMP("GPLCCR",$J,DFN,"HEADER"))
     ; K @VMAP
-    S @VMAP@("DATETIME")=$$FMDTOUTC^CCRUTIL($$FMTHL7^XLFDT($$NOW^XLFDT),"DT")
+    S @VMAP@("DATETIME")=$$FMDTOUTC^CCRUTIL($$NOW^XLFDT,"DT")
     I IHDR="" D  ; HEADER ARRAY IS NOT PROVIDED, USE DEFAULTS
     . S @VMAP@("ACTORPATIENT")="ACTORPATIENT_"_DFN