Changeset 43 for ccr/trunk/p/GPLCCR.m

Timestamp:

Jul 5, 2008, 11:49:50 AM (17 years ago)

Author:

George Lilly

Message:

Format changes for SAC compliance

File:

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

ccr/trunk/p/GPLCCR.m

@@ -1 +1 @@
 GPLCCR   ; CCDCCR/GPL - CCR MAIN PROCESSING; 6/6/08
-;;0.1;CCDCCR;nopatch;noreleasedate
+ ;;0.1;CCDCCR;nopatch;noreleasedate
      ;
      ; EXPORT A CCR
@@ -118 +118 @@
     Q
     ;
-TEST    ; RUN ALL THE TEST CASES
+TEST ; RUN ALL THE TEST CASES
   D TESTALL^GPLUNIT("GPLCCR")
   Q
@@ -128 +128 @@
   Q
   ;
-TLIST     ; LIST THE TESTS
-  N ZTMP
+TLIST  ; LIST THE TESTS
+  N ZTMP,GNEW
   D ZLOAD^GPLUNIT("ZTMP","GPLCCR")
   D TLIST^GPLUNIT(.ZTMP)
   Q
-  ;
-;;><TEST>
-;;><PROBLEMS>
-;;>>>K GPL S GPL=""
-;;>>>D CCRRPC^GPLCCR(.GPL,"2","PROBLEMS","","","")
-;;>>?@GPL@(@GPL@(0))["</Problems>"
-;;><VITALS>
-;;>>>K GPL S GPL=""
-;;>>>D CCRRPC^GPLCCR(.GPL,"2","VITALS","","","")
-;;>>?@GPL@(@GPL@(0))["</VitalSigns>"
-;;><CCR>
-;;>>>K GPL S GPL=""
-;;>>>D CCRRPC^GPLCCR(.GPL,"2","CCR","","","")
-;;>>?@GPL@(@GPL@(0))["</ContinuityOfCareRecord>"
-;;><ACTLST>
-;;>>>K GPL S GPL=""
-;;>>>D CCRRPC^GPLCCR(.GPL,"2","CCR","","","")
-;;>>>D ACTLST^GPLCCR(GPL,"ACTTEST")
-;;></TEST>
+  ; LAST LINE BEFORE TESTS
+NEW ; new debugging routine
+    W "this is new",!
+    Q
+    ; end of NEW
+ ;;><TEST>
+ ;;><PROBLEMS>
+ ;;>>>K GPL S GPL=""
+ ;;>>>D CCRRPC^GPLCCR(.GPL,"2","PROBLEMS","","","")
+ ;;>>?@GPL@(@GPL@(0))["</Problems>"
+ ;;><VITALS>
+ ;;>>>K GPL S GPL=""
+ ;;>>>D CCRRPC^GPLCCR(.GPL,"2","VITALS","","","")
+ ;;>>?@GPL@(@GPL@(0))["</VitalSigns>"
+ ;;><CCR>
+ ;;>>>K GPL S GPL=""
+ ;;>>>D CCRRPC^GPLCCR(.GPL,"2","CCR","","","")
+ ;;>>?@GPL@(@GPL@(0))["</ContinuityOfCareRecord>"
+ ;;><ACTLST>
+ ;;>>>K GPL S GPL=""
+ ;;>>>D CCRRPC^GPLCCR(.GPL,"2","CCR","","","")
+ ;;>>>D ACTLST^GPLCCR(GPL,"ACTTEST")
+ ;;></TEST>