Index: ccr/trunk/p/GPLRIMA.m
===================================================================
--- ccr/trunk/p/GPLRIMA.m	(revision 139)
+++ ccr/trunk/p/GPLRIMA.m	(revision 140)
@@ -83,6 +83,9 @@
     . 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