Index: ccr/trunk/p/GPLCCR.m
===================================================================
--- ccr/trunk/p/GPLCCR.m	(revision 43)
+++ ccr/trunk/p/GPLCCR.m	(revision 44)
@@ -7,5 +7,5 @@
        ; 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
@@ -32,5 +32,5 @@
     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
@@ -129,13 +129,9 @@
   ;
 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>