Changeset 31 for ccr/trunk/p

Timestamp:

Jul 1, 2008, 5:20:10 PM (16 years ago)

Author:

George Lilly

Message:

Created actor records P1=OBJID P2=TYPE P3=IEN

File:

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

ccr/trunk/p/GPLCCR.m

@@ -10 +10 @@
         S DFN=$P(Y,U,1) ; SET THE PATIENT
         N CCRGLO
-        D CCRRPC(.CCRGLO,DFN,"CCR")
+        D CCRRPC(.CCRGLO,DFN,"CCR","","","")
         S OARY=$NA(^TMP($J,DFN,"CCR",1))
         S ONAM="PAT_"_DFN_"_CCR_V1.xml"
@@ -17 +17 @@
         Q
         ;
-CCRRPC(CCRGRTN,DFN,CCRPART) ; RPC ENTRY POINT FOR CCR OUTPUT
+CCRRPC(CCRGRTN,DFN,CCRPART,TIME1,TIME2,HDRARY) ; RPC ENTRY POINT FOR CCR OUTPUT
+        ; CCRGRTN IS RETURN ARRAY PASSED BY NAME
+        ; DFN IS PATIENT IEN
+        ; CCRPART IS "CCR" FOR ENTIRE CCR, OR SECTION NAME FOR A PART OF THE
+        ;        CCR BODY.. PARTS INCLUDE "PROBLEMS" "VITALS" ETC
+        ; TIME1 IS STARTING TIME TO INCLUDE - NULL MEANS ALL
+        ; TIME2 IS ENDING TIME TO INCLUDE TIME IS FILEMAN TIME - NULL MEANS NOW
+        ; HDRARY IS THE HEADER ARRAY DEFINING THE "FROM" AND "TO" VARIABLES
+        ;    IF NULL WILL DEFAULT TO "FROM" DUZ AND "TO" DFN
         S DEBUG=0
         S TGLOBAL=$NA(^TMP($J,"TEMPLATE")) ; GLOBAL FOR STORING TEMPLATE
@@ -34 +42 @@
         I DEBUG F I=1:1:@CCRGLO@(0) W @CCRGLO@(I),!
         ;
-        D CCRHDR(CCRGLO,DFN) ; MAP HEADER VARIABLES
+        D HDRMAP(CCRGLO,DFN,HDRARY) ; MAP HEADER VARIABLES
+        ;
         S CCRXTAB="^TMP($J,""CCRSTEP"")" ; GLOBAL TO STORE CCR PROCESSING STEPS
         D INITSTPS(CCRXTAB) ; INITIALIZED CCR PROCESSING STEPS
@@ -63 +72 @@
         Q
          ;
-CCRHDR(CXML,DFN) ; MAP HEADER VARIABLES: FROM, TO ECT
+HDRMAP(CXML,DFN,IHDR) ; 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
+        I IHDR="" D  ; HEADER ARRAY IS NOT PROVIDED, USE DEFAULTS
+        . 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
+        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")
@@ -78 +90 @@
 ACTLST(AXML,ACTRTN) ; RETURN THE ACTOR LIST FOR THE XML IN AXML
         ; AXML AND ACTRTN ARE PASSED BY NAME
-        N I,J,K
+        ; EACH ACTOR RECORD HAS 3 PARTS - IE IF OBJECTID=ACTORPATIENT_2
+        ; P1= OBJECTID - ACTORPATIENT_2
+        ; P2= OBJECT TYPE - PATIENT OR PROVIDER
+        ; P3= IEN RECORD NUMBER FOR ACTOR - 2
+        N I,J,K,L
         K @ACTRTN ; CLEAR RETURN ARRAY
         F I=1:1:@AXML@(0) D  ; SCAN ALL LINES
@@ -84 +100 @@
         . . S J=$P($P(@AXML@(I),"<ActorID>",2),"</ActorID>",1)
         . . W "<ActorID>=>",J,!
-        . . S K(J)="" ; HASHING ACTOR TO GET RID OF MULTIPLES
+        . . S K(J)="" ; HASHING ACTOR TO GET RID OF DUPLICATES
         S I="" ; GOING TO $O THROUGH THE HASH
         F J=0:0 D  Q:$O(K(I))=""
         . S I=$O(K(I)) ; WALK THROUGH THE HASH OF ACTORS
-        . D PUSH^GPLXPATH(ACTRTN,I) ; ADD THE ACTOR TO THE RETURN ARRAY
+        . S $P(L,U,1)=I ; FIRST PIECE IS THE OBJECT ID
+        . S $P(L,U,2)=$P($P(I,"ACTOR",2),"_",1) ; ACTOR TYPE: PATIENT/PROVIDER
+        . S $P(L,U,3)=$P(I,"_",2) ; IEN RECORD NUMBER FOR ACTOR
+        . D PUSH^GPLXPATH(ACTRTN,L) ; ADD THE ACTOR TO THE RETURN ARRAY
         Q
         ;