More formatting changes

p/GPLCCR.m

@@ -6,7 +6,7 @@ GPLCCR   ; CCDCCR/GPL - CCR MAIN PROCESSING; 6/6/08
 EXPORT   ; EXPORT ENTRY POINT FOR CCR
        ; Select a patient.
        S DIC=2,DIC(0)="AEMQ" D ^DIC
-       I Y<1 Q ; EXIT
+       I Y<1 Q  ; EXIT
        S DFN=$P(Y,U,1) ; SET THE PATIENT
        N CCRGLO
        D CCRRPC(.CCRGLO,DFN,"CCR","","","")
@@ -31,7 +31,7 @@ CCRRPC(CCRGRTN,DFN,CCRPART,TIME1,TIME2,HDRARY)  ;RPC ENTRY POINT FOR CCR OUTPUT
     S DEBUG=0
     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
+    S ACTGLO=$NA(^TMP($J,DFN,"ACTORS")) ; GLOBAL FOR ALL ACTORS
     ; TO GET PART OF THE CCR RETURNED, PASS CCRPART="PROBLEMS" ETC
     S CCRGRTN=$NA(^TMP($J,DFN,CCRPART)) ; RTN GLO NM OF PART OR ALL
     D LOAD^GPLCCR0(TGLOBAL)  ; LOAD THE CCR TEMPLATE
@@ -128,15 +128,11 @@ ZTEST(WHICH)  ; RUN ONE SET OF TESTS
   Q
   ;
 TLIST  ; LIST THE TESTS
-  N ZTMP,GNEW
+  N ZTMP
   D ZLOAD^GPLUNIT("ZTMP","GPLCCR")
   D TLIST^GPLUNIT(.ZTMP)
   Q
-  ; LAST LINE BEFORE TESTS
-NEW ; new debugging routine
-    W "this is new",!
-    Q
-    ; end of NEW
+  ;
  ;;><TEST>
  ;;><PROBLEMS>
  ;;>>>K GPL S GPL=""