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

Timestamp:

Dec 16, 2008, 2:10:26 PM (15 years ago)

Author:

George Lilly

Message:

new RIM2CSV^{GPLRIMA to output a spreadsheet of CCR/CCD/RIM variables}

File:

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

ccr/trunk/p/GPLCCR.m

@@ -39 +39 @@
        S OARY=$NA(^TMP("GPLCCR",$J,DFN,"CCR",1))
        S ONAM=UFN
-       I UFN="" S ONAM="PAT_"_DFN_"_CCR_V1_0_7.xml"
+       I UFN="" S ONAM="PAT_"_DFN_"_CCR_V1_0_10.xml"
        S ODIRGLB=$NA(^TMP("GPLCCR","ODIR"))
        I '$D(@ODIRGLB) D  ; IF NOT ODIR HAS BEEN SET
@@ -142 +142 @@
     ; K @VMAP
     S @VMAP@("DATETIME")=$$FMDTOUTC^CCRUTIL($$NOW^XLFDT,"DT")
-    I IHDR="" D  ; HEADER ARRAY IS NOT PROVIDED, USE DEFAULTS
+    ; I IHDR="" D  ; HEADER ARRAY IS NOT PROVIDED, USE DEFAULTS
+    D  ; ALWAYS MAP THESE VARIABLES
     . S @VMAP@("ACTORPATIENT")="ACTORPATIENT_"_DFN
     . S @VMAP@("ACTORFROM")="ACTORORGANIZATION_"_DUZ ; FROM DUZ - ???
@@ -150 +151 @@
     . S @VMAP@("ACTORTOTEXT")="Patient"  ; FOR TEST PURPOSES
     . ; THIS IS THE USE CASE FOR THE PHR WHERE "TO" IS THE PATIENT
-    I IHDR'="" D  ; HEADER VALUES ARE PROVIDED
-    . D CP^GPLXPATH(IHDR,VMAP) ; COPY HEADER VARIABLES TO MAP ARRAY
+    ;I IHDR'="" D  ; HEADER VALUES ARE PROVIDED
+    ;. D CP^GPLXPATH(IHDR,VMAP) ; COPY HEADER VARIABLES TO MAP ARRAY
     N CTMP
     D MAP^GPLXPATH(CXML,VMAP,"CTMP")
     D CP^GPLXPATH("CTMP",CXML)
+    N HRIMVARS ;
+    S HRIMVARS=$NA(^TMP("GPLRIM","VARS",DFN,"HEADER")) ; TO PERSIST VARS
+    M @HRIMVARS@(1)=@VMAP ; PERSIST THE HEADER VARIABLES IN RIM TABLE
+    S @HRIMVARS@(0)=1 ; ONLY ONE SET OF HEADERS PER PATIENT
     Q
     ;