Index: ccr/trunk/p/C0CMED.m
===================================================================
--- ccr/trunk/p/C0CMED.m	(revision 424)
+++ ccr/trunk/p/C0CMED.m	(revision 425)
@@ -43,5 +43,11 @@
 	N C0CMFLAG
 	S C0CMFLAG=$$GET^C0CPARMS("MEDALL")_"^"_$$GET^C0CPARMS("MEDLIMIT")_"^"_$$GET^C0CPARMS("MEDACTIVE")_"^"_$$GET^C0CPARMS("MEDPENDING")
+	W:$G(DEBUG) "Med Parameters: ",!
+	W:$G(DEBUG) "ALL: ",+C0CMFLAG,!
+	W:$G(DEBUG) "LIMIT: ",$P(C0CMFLAG,U,2),!
+	W:$G(DEBUG) "ACTIVE: ",$P(C0CMFLAG,U,3),!
+	W:$G(DEBUG) "PEND: ",$P(C0CMFLAG,U,4),!
 	; --Find out what system we are on and branch out...
+	W:$G(DEBUG) "Agenecy: ",$G(DUZ("AG"))
 	I $$RPMS^C0CUTIL() D RPMS QUIT
 	I ($$VISTA^C0CUTIL())!($$WV^C0CUTIL())!($$OV^C0CUTIL()) D VISTA QUIT