Changeset 122 for ccr/trunk/p/CCRDPTT.m

Timestamp:

Aug 30, 2008, 3:13:15 PM (16 years ago)

Author:

George Lilly

Message:

XINDEX fixes. almost clean except for long var names and big files

File:

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

ccr/trunk/p/CCRDPTT.m

@@ -1 +1 @@
 CCRDPTT ; Unit Tester...
+  ;;0.1;CCRCCD;;Jun 15, 2008;
  ;
  ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
@@ -27 +28 @@
           ; STATS(111,0)="MIDDLE() ; Middle Name; PUBLIC; Extrinsic "
           ; etc.
-
+          ;
           ; Load Routine Entry points; We get a sweeeeeet array
           D ANALYZE^ARJTXRD("CCRDPT",.OUT) ; Analyze a routine in the directory
@@ -33 +34 @@
           ; Select Patient
           S DIC=2,DIC(0)="AEMQ" D ^DIC
-
+          ;
           W "You have selected patient "_Y,!!
           D INIT^CCRDPT($P(Y,"^"))
-          ZWR PT
+          ; ZWR PT
           N I S I=165 F  S I=$O(OUT(I)) Q:I=""  D
           . W "OUT("_I_",0)"_" is "_$P(OUT(I,0)," ")_" "