Changeset 33

Timestamp:

Jul 2, 2008, 11:19:41 AM (16 years ago)

Author:

George Lilly

Message:

Took the call for actor processing out of the body loop

File:

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

ccr/trunk/p/GPLCCR.m

@@ -62 +62 @@
         . 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 ACTLST^GPLCCR(CCRGLO,ACTGLO) ; GEN THE ACTOR LIST
         Q
         ;
@@ -92 +92 @@
         ; EACH ACTOR RECORD HAS 3 PARTS - IE IF OBJECTID=ACTORPATIENT_2
         ; P1= OBJECTID - ACTORPATIENT_2
-        ; P2= OBJECT TYPE - PATIENT OR PROVIDER
+        ; P2= OBJECT TYPE - PATIENT OR PROVIDER OR SOFTWARE OR INSTITUTION
+        ;     OR PERSON(IN PATIENT FILE IE NOK)
         ; P3= IEN RECORD NUMBER FOR ACTOR - 2
         N I,J,K,L
@@ -135 +136 @@
 ;;>>?@GPL@(@GPL@(0))="</Problems>"
 ;;><CCR>
+;;>>>D ^%ZTER
 ;;>>>K GPL S GPL=""
 ;;>>>D CCRRPC^GPLCCR(.GPL,"2","CCR","","","")