Added comments for actor routines

p/GPLCCR.m

@@ -4,7 +4,7 @@ GPLCCR ; CCDCCR/GPL - CCR MAIN PROCESSING; 6/6/08
  ; EXPORT A CCR
  ;
 EXPORT ; EXPORT ENTRY POINT FOR CCR
-        ; Select a patient for real.
+        ; Select a patient.
         S DIC=2,DIC(0)="AEMQ" D ^DIC
         I Y<1 Q ; EXIT
         S DFN=$P(Y,U,1) ; SET THE PATIENT
@@ -25,7 +25,7 @@ CCRRPC(CCRGRTN,DFN,CCRPART,TIME1,TIME2,HDRARY) ; RPC ENTRY POINT FOR CCR OUTPUT
         ; 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 DEBUG=1
         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
@@ -61,7 +61,7 @@ CCRRPC(CCRGRTN,DFN,CCRPART,TIME1,TIME2,HDRARY) ; RPC ENTRY POINT FOR CCR OUTPUT
         . ; NOW INSERT THE RESULTS IN THE CCR BUFFER
         . D INSERT^GPLXPATH(CCRGLO,OXML,"//ContinuityOfCareRecord/Body")
         . I DEBUG F GPLI=1:1:@OXML@(0) W @OXML@(GPLI),!
-        . D ACTLST^GPLCCR(CCRGLO,ACTGLO)
+        . D ACTLST^GPLCCR(CCRGLO,ACTGLO) ; GEN THE ACTOR LIST
         Q
         ;
 INITSTPS(TAB)   ; INITIALIZE CCR PROCESSING STEPS
@@ -131,14 +131,14 @@ TLIST ; LIST THE TESTS
 ;;><TEST>
 ;;><PROBLEMS>
 ;;>>>K GPL S GPL=""
-;;>>>D CCRRPC^GPLCCR(.GPL,"2","PROBLEMS")
+;;>>>D CCRRPC^GPLCCR(.GPL,"2","PROBLEMS","","","")
 ;;>>?@GPL@(@GPL@(0))="</Problems>"
 ;;><CCR>
 ;;>>>K GPL S GPL=""
-;;>>>D CCRRPC^GPLCCR(.GPL,"2","CCR")
+;;>>>D CCRRPC^GPLCCR(.GPL,"2","CCR","","","")
 ;;>>?@GPL@(@GPL@(0))="</ContinutiyOfCareRecord>"
 ;;><ACTLST>
 ;;>>>N TCCR
-;;>>>D CCRRPC^GPLCCR(.TCCR,"2","CCR")
+;;>>>D CCRRPC^GPLCCR(.TCCR,"2","CCR","","","")
 ;;>>>D ACTLST^GPLCCR("TCCR","ACTTEST")
 ;;></TEST>