Changeset 98 for ccr/trunk/p/GPLRIMA.m

Timestamp:

Aug 22, 2008, 11:52:42 AM (16 years ago)

Author:

George Lilly

Message:

changes for XINDEX errors

File:

• ccr/trunk/p/GPLRIMA.m (modified) (2 diffs)

ccr/trunk/p/GPLRIMA.m

@@ -49 +49 @@
     S RIMDFN=BEGDFN ; BEGIN WITH THE BEGDFN PATIENT
     I RIMDFN="" S RIMDFN=RESUME
-    I +RIMDFN=0 D  Q ; AT THE END OF THE PATIENTS
+    I +RIMDFN=0 D  Q  ; AT THE END OF THE PATIENTS
     . W "END OF PATIENT LIST, CALL RESET^GPLRIMA",!
-    F RIMI=1:1:DFNCNT  D  Q:+RIMDFN=0 ; FOR DFNCNT NUMBER OF PATIENTS OR END
+    F RIMI=1:1:DFNCNT  D  Q:+RIMDFN=0  ; FOR DFNCNT NUMBER OF PATIENTS OR END
     . D CCRRPC^GPLCCR(.CCRGLO,RIMDFN,"CCR","","","") ;PROCESS THE CCR
     . W RIMDFN,!
@@ -149 +149 @@
     I '$D(RIMBASE) D ASETUP ; FOR COMMANDLINE PROCESSING
     N USETBL
-    I '$D(@RIMBASE@("TABLES",PTBL)) D  Q ; NO TABLE
+    I '$D(@RIMBASE@("TABLES",PTBL)) D  Q  ; NO TABLE
     . W "ERROR NO SUCH TABLE",!
     S USETBL=@RIMBASE@("TABLES",PTBL)