Changeset 44

Timestamp:

Jul 5, 2008, 12:34:56 PM (16 years ago)

Author:

George Lilly

Message:

More formatting changes

File:

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

ccr/trunk/p/GPLCCR.m

@@ -7 +7 @@
        ; 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 +32 @@
     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 +129 @@
   ;
 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>