Changeset 140 for ccr/trunk

Timestamp:

Sep 5, 2008, 1:30:17 PM (16 years ago)

Author:

George Lilly

Message:

Check in ANALYZE for merged patients

File:

• ccr/trunk/p/GPLRIMA.m (modified) (1 diff)

ccr/trunk/p/GPLRIMA.m

@@ -83 +83 @@
     . W "CATEGORY NAME: ",CATNAME,!
     . ;
-    . S RIMDFN=$O(^DPT(RIMDFN)) ; NEXT PATIENT
-    S @RIMBASE@("RESUME")=RIMDFN ; WHERE WE ARE LEAVING OFF THIS RUN
+    . F  S RIMDFN=$O(^DPT(RIMDFN)) Q:'$$PTST^CCRSYS(RIMDFN) ; NEXT PATIENT
+    . ; PTST TESTS TO SEE IF PATIENT WAS MERGED
+    . ; IF CCRTEST=0, PTST WILL CHECK TO SEE IF THIS IS A TEST PATIENT
+    . ; AND WE SKIP IT
+    . S @RIMBASE@("RESUME")=RIMDFN ; WHERE WE ARE LEAVING OFF THIS RUN
     ; D PARY^GPLXPATH(@RIMBASE@("ATTRTBL"))
     Q