Index: ccr/trunk/p/C0CMED.m
===================================================================
--- ccr/trunk/p/C0CMED.m	(revision 422)
+++ ccr/trunk/p/C0CMED.m	(revision 423)
@@ -40,10 +40,10 @@
 	; 6. RPMS Meds are in C0CMED6. Need to create other routines for subdivisions of RPMS Meds is not known at this time.
 	;
-	; --Find out what system we are on...	
-	I $$RPMS^C0CUTIL() D RPMS QUIT
-	I ($$VISTA^C0CUTIL())!($$WV^C0CUTIL())!($$OV^C0CUTIL()) D VISTA QUIT
 	; --Get parameters for meds
 	N C0CMFLAG
 	S C0CMFLAG=$$GET^C0CPARMS("MEDALL")_"^"_$$GET^C0CPARMS("MEDLIMIT")_"^"_$$GET^C0CPARMS("MEDACTIVE")_"^"_$$GET^C0CPARMS("MEDPENDING")
+	; --Find out what system we are on and branch out...
+	I $$RPMS^C0CUTIL() D RPMS QUIT
+	I ($$VISTA^C0CUTIL())!($$WV^C0CUTIL())!($$OV^C0CUTIL()) D VISTA QUIT
 RPMS	
 	D EXTRACT^C0CMED6(MEDXML,DFN,MEDOUTXML,C0CMFLAG) QUIT