Changeset 75 for ccr/trunk/p/GPLCCD.m

Timestamp:

Jul 26, 2008, 3:16:58 PM (16 years ago)

Author:

George Lilly

Message:

second CCD commit

File:

• ccr/trunk/p/GPLCCD.m (modified) (6 diffs)

ccr/trunk/p/GPLCCD.m

@@ -26 +26 @@
        S DFN=$P(Y,U,1) ; SET THE PATIENT
        ; N CCRGLO
-       D CCRRPC(.CCRGLO,DFN,"CCD","","","")
+       D CCDRPC(.CCRGLO,DFN,"CCD","","","")
        S OARY=$NA(^TMP("GPLCCR",$J,DFN,"CCD",1))
        S ONAM="PAT_"_DFN_"_CCD_V1.xml"
@@ -38 +38 @@
        Q
        ;
-CCRRPC(CCRGRTN,DFN,CCRPART,TIME1,TIME2,HDRARY)  ;RPC ENTRY POINT FOR CCR OUTPUT
+CCDRPC(CCRGRTN,DFN,CCRPART,TIME1,TIME2,HDRARY)  ;RPC ENTRY POINT FOR CCR OUTPUT
     ; CCRGRTN IS RETURN ARRAY PASSED BY NAME
     ; DFN IS PATIENT IEN
@@ -48 +48 @@
     ; HDRARY IS THE HEADER ARRAY DEFINING THE "FROM" AND
     ;    "TO" VARIABLES
-    ;    IF NULL WILL DEFAULT TO "FROM" DUZ AND "TO" DFN
+    ;    IF NULL WILL DEFAULT TO "FROM" ORGANIZATION AND "TO" DFN
     S DEBUG=0
     N CCD S CCD=0 ; FLAG FOR PROCESSING A CCD
@@ -61 +61 @@
     E  D LOAD^GPLCCR0(TGLOBAL)  ; LOAD THE CCR TEMPLATE
     D CP^GPLXPATH(TGLOBAL,CCRGLO) ; COPY THE TEMPLATE TO CCR GLOBAL
+    N CAPSAVE,CAPSAVE2 ; FOR HOLDING THE CCD ROOT LINES
     S CAPSAVE=@TGLOBAL@(3) ; SAVE THE CCD ROOT
     S CAPSAVE2=@TGLOBAL@(@TGLOBAL@(0)) ; SAVE LAST LINE OF CCD
@@ -75 +76 @@
     I DEBUG F I=1:1:@CCRGLO@(0) W @CCRGLO@(I),!
     ;
-    D HDRMAP(CCRGLO,DFN,HDRARY) ; MAP HEADER VARIABLES
+    I 'CCD D HDRMAP(CCRGLO,DFN,HDRARY) ; MAP HEADER VARIABLES
+    ; MAPPING THE PATIENT PORTION OF THE CDA HEADER
+    S ZX="//ContinuityOfCareRecord/recordTarget/patientRole/patient"
+    D QUERY^GPLXPATH(CCRGLO,ZX,"ACTT1")
+    D PATIENT^GPLACTORS("ACTT1",DFN,"ACTORPATIENT_"_DFN,"ACTT2") ; MAP PATIENT
+    D PARY^GPLXPATH("ACTT2")
+    D REPLACE^GPLXPATH(CCRGLO,"ACTT2",ZX)
+    D PARY^GPLXPATH(CCRGLO)
+    K ACTT1 K ACCT2
+    ; MAPPING THE PROVIDER ORGANIZATION,AUTHOR,INFORMANT,CUSTODIAN CDA HEADER
+    ; FOR NOW, THEY ARE ALL THE SAME AND RESOLVE TO ORGANIZATION
+    D ORG^GPLACTORS(CCRGLO,DFN,"ACTORPATIENTORGANIZATION","ACTT2") ; MAP ORG
+    D CP^GPLXPATH("ACTT2",CCRGLO)
     ;
     K ^TMP("GPLCCR",$J,"CCRSTEP") ; KILL GLOBAL PRIOR TO ADDING TO IT
@@ -99 +112 @@
     . D INSERT^GPLXPATH(CCRGLO,OXML,"//ContinuityOfCareRecord/Body")
     . I DEBUG F GPLI=1:1:@OXML@(0) W @OXML@(GPLI),!
-    D ACTLST^GPLCCR(CCRGLO,ACTGLO) ; GEN THE ACTOR LIST
-    D QUERY^GPLXPATH(TGLOBAL,"//ContinuityOfCareRecord/Actors","ACTT")
-    D EXTRACT^GPLACTORS("ACTT",ACTGLO,"ACTT2")
-    D INSINNER^GPLXPATH(CCRGLO,"ACTT2","//ContinuityOfCareRecord/Actors")
+    ; NEED TO ADD BACK IN ACTOR PROCESSING AFTER WE FIGURE OUT LINKAGE
+    ; D ACTLST^GPLCCR(CCRGLO,ACTGLO) ; GEN THE ACTOR LIST
+    ; D QUERY^GPLXPATH(TGLOBAL,"//ContinuityOfCareRecord/Actors","ACTT")
+    ; D EXTRACT^GPLACTORS("ACTT",ACTGLO,"ACTT2")
+    ; D INSINNER^GPLXPATH(CCRGLO,"ACTT2","//ContinuityOfCareRecord/Actors")
     N I,J,DONE S DONE=0
     F I=0:0 D  Q:DONE ; DELETE UNTIL ALL EMPTY ELEMENTS ARE GONE