Changeset 32 for ccr/trunk/p

Timestamp:

Jul 1, 2008, 7:01:27 PM (16 years ago)

Author:

George Lilly

Message:

Added comments for actor routines

File:

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

ccr/trunk/p/GPLCCR.m

@@ -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 +26 @@
         ; 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 +62 @@
         . 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 +132 @@
 ;;><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>