diff --git a/p/C0CMED.m b/p/C0CMED.m
index 879d181..c53d744 100644
--- a/p/C0CMED.m
+++ b/p/C0CMED.m
@@ -39,12 +39,12 @@ EXTRACT(MEDXML,DFN,MEDOUTXML)	; Private; Extract medications into provided XML t
 	; 5. VA Inpatient UD Meds are in C0CMED5 (doesn't exist yet)--March 2009
 	; 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
 VISTA