Index: ccr/trunk/p/GPLCCR.m
===================================================================
--- ccr/trunk/p/GPLCCR.m	(revision 31)
+++ ccr/trunk/p/GPLCCR.m	(revision 32)
@@ -5,5 +5,5 @@
  ;
 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
@@ -26,5 +26,5 @@
         ; 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
@@ -62,5 +62,5 @@
         . 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
         ;
@@ -132,13 +132,13 @@
 ;;><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>