Index: /ccr/trunk/p/C0CRPMS.m
===================================================================
--- /ccr/trunk/p/C0CRPMS.m	(revision 341)
+++ /ccr/trunk/p/C0CRPMS.m	(revision 342)
@@ -79,2 +79,14 @@
  Q
  ;
+GETTBL(C0CTBL) ; SCAN FOR AND DISPLAY PATIENTS IN A RIMTBL, PASSED BY VALUE
+ ;
+ N ZG S ZG=$NA(^TMP("GPLRIM","RIMTBL","PATS",C0CTBL))
+ N C0CG S C0CG=""
+ N C0CQ S C0CQ=0
+ F  S C0CG=$O(@ZG@(C0CG),-1) Q:(C0CG="")  D  ;
+ . W "PAT: ",C0CG,!
+ . D GETNV^C0CRPMS(C0CG)
+ . K X R X
+ . I X="Q" S C0CQ=1 ; QUIT IF Q
+ Q
+ ;
Index: /ccr/trunk/p/CCRMEDS.m
===================================================================
--- /ccr/trunk/p/CCRMEDS.m	(revision 341)
+++ /ccr/trunk/p/CCRMEDS.m	(revision 342)
@@ -38,5 +38,8 @@
  S MEDTARYTMP=$NA(^TMP("GPLCCR",$J,"MEDARYTMP"))
  K @MEDTARYTMP ; KILL XML ARRAY
- I $G(DUZ("AG"))="I" G USERPC ; FOR RPMS, USE THE RPC FOR MEDS
+ I $G(DUZ("AG"))="I" D  Q  ;
+ . I '$D(C0CTESTMEDS) G USERPC ; DELETE THIS LINE AFTER TESTING IS DONE
+ . D EXTRACT^CCRMEDS6(MEDXML,DFN,MEDOUTXML)
+ . I @MEDOUTXML@(0)=0 D USERPC ; FOR RPMS, USE THE RPC FOR MEDS
  D EXTRACT^CCRMEDS1(MEDXML,DFN,MEDOUTXML) ; FIRST EXTRACT OUTPATIENT MEDS
  I @MEDOUTXML@(0)>0 D  ; CCRMEDS FOUND ACTIVE OP MEDS
Index: /ccr/trunk/p/CCRUNIT.m
===================================================================
--- /ccr/trunk/p/CCRUNIT.m	(revision 341)
+++ /ccr/trunk/p/CCRUNIT.m	(revision 342)
@@ -18,3 +18,4 @@
         N OUTXML S OUTXML=$NA(^TMP($J,"OUT"))
         D EXTRACT^CCRMEDS6("INXML",DFN,OUTXML)
+	D FILEOUT^C0CRNF(OUTXML,"TESTMEDS.xml")
         Q