Changeset 29

Timestamp:

Jul 1, 2008, 1:12:30 PM (16 years ago)

Author:

George Lilly

Message:

Derive Actor list ^{TMP($J,DFN,"ACTORS",*)}

File:

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

ccr/trunk/p/GPLCCR.m

@@ -21 +21 @@
         S TGLOBAL=$NA(^TMP($J,"TEMPLATE")) ; GLOBAL FOR STORING TEMPLATE
         S CCRGLO=$NA(^TMP($J,DFN,"CCR")) ; GLOBAL FOR BUILDING THE CCR
+        S ACTGLO=$NA(^TMP($J,DFN,"ACTORS")); GLOBAL FOR ALL ACTORS IN CCR
         ; TO GET PART OF THE CCR RETURNED, PASS CCRPART="PROBLEMS" ETC
         S CCRGRTN=$NA(^TMP($J,DFN,CCRPART)) ; RTN GLO NM OF PART OR ALL OF CCR
@@ -31 +32 @@
         D REPLACE^GPLXPATH(CCRGLO,"","//ContinuityOfCareRecord/Actors")
         D REPLACE^GPLXPATH(CCRGLO,"","//ContinuityOfCareRecord/Signatures")
-        F I=1:1:@CCRGLO@(0) W @CCRGLO@(I),!
+        I DEBUG F I=1:1:@CCRGLO@(0) W @CCRGLO@(I),!
         ;
+        D CCRHDR(CCRGLO,DFN) ; MAP HEADER VARIABLES
         S CCRXTAB="^TMP($J,""CCRSTEP"")" ; GLOBAL TO STORE CCR PROCESSING STEPS
         D INITSTPS(CCRXTAB) ; INITIALIZED CCR PROCESSING STEPS
@@ -51 +53 @@
         . D INSERT^GPLXPATH(CCRGLO,OXML,"//ContinuityOfCareRecord/Body")
         . I DEBUG F GPLI=1:1:@OXML@(0) W @OXML@(GPLI),!
+        . D ACTLST^GPLCCR(CCRGLO,ACTGLO)
         Q
         ;
@@ -60 +63 @@
         Q
          ;
+CCRHDR(CXML,DFN) ; MAP HEADER VARIABLES: FROM, TO ECT
+        N VMAP S VMAP=$NA(^TMP($J,DFN,"HEADER"))
+        ; K @VMAP
+        S @VMAP@("ACTORPATIENT")="ACTORPATIENT_"_DFN
+        S @VMAP@("ACTORFROM")="ACTORPROVIDER_"_DUZ ; FROM DUZ - ???
+        S @VMAP@("ACTORFROM2")="ACTORPROVIDER_"_DUZ ; NEED A BETTER WAY
+        S @VMAP@("ACTORTO")="ACTORPATIENT_"_DFN  ; FOR TEST PURPOSES,
+        ; THIS IS THE USE CASE FOR THE PHR WHERE "TO" IS THE PATIENT
+        N CTMP
+        D MAP^GPLXPATH(CXML,VMAP,"CTMP")
+        D CP^GPLXPATH("CTMP",CXML)
+        Q
+        ;
+ACTLST(AXML,ACTRTN) ; RETURN THE ACTOR LIST FOR THE XML IN AXML
+        ; AXML AND ACTRTN ARE PASSED BY NAME
+        N I,J,K
+        K @ACTRTN ; CLEAR RETURN ARRAY
+        F I=1:1:@AXML@(0) D  ; SCAN ALL LINES
+        . I @AXML@(I)?.E1"<ActorID>".E D  ; THERE IS AN ACTOR ON THIS LINE
+        . . S J=$P($P(@AXML@(I),"<ActorID>",2),"</ActorID>",1)
+        . . W "<ActorID>=>",J,!
+        . . D PUSH^GPLXPATH(ACTRTN,J)
+        Q
+        ;
 TEST   ; RUN ALL THE TEST CASES
       ;D TESTALL^GPLUNIT("GPLCCR")
       D ZTEST^GPLCCR("PROBLEMS")
-      W "TESTING TESTING 123",!
+      W "TESTING RETURNED FROM PROBLMES",!
       D ZTEST^GPLCCR("CCR")
       Q
@@ -88 +115 @@
 ;;>>>D CCRRPC^GPLCCR(.GPL,"2","CCR")
 ;;>>?@GPL@(@GPL@(0))="</ContinutiyOfCareRecord>"
+;;><ACTLST>
+;;>>>N TCCR
+;;>>>D CCRRPC^GPLCCR(.TCCR,"2","CCR")
+;;>>>D ACTLST^GPLCCR("TCCR","ACTTEST")
 ;;></TEST>