Index: /ccr/trunk/p/CCRMEDS.m
===================================================================
--- /ccr/trunk/p/CCRMEDS.m	(revision 241)
+++ /ccr/trunk/p/CCRMEDS.m	(revision 242)
@@ -55,5 +55,4 @@
  . ; W MEDCNT,!
  . W "HAS OP PENDING MEDS",!
- IF 'TESTMEDS G THEND ; SKIP NON-VA MEDS FOR NOW
  N PENDINGXML,MEDPENDING
  S PENDINGXML="MEDPENDING" ;NAME FOR ARRAY
Index: /ccr/trunk/p/CCRMEDS3.m
===================================================================
--- /ccr/trunk/p/CCRMEDS3.m	(revision 241)
+++ /ccr/trunk/p/CCRMEDS3.m	(revision 242)
@@ -58,6 +58,6 @@
  . S @MEDMAP@(0)=@MEDMAP@(0)+1 ; INCREMENT TOTAL MEDS IN VAR ARRAY
  . N RXIEN S RXIEN=$P(FDAIEN,",") ; First piece of FDAIEN is the number of the med for this patient
- . W "RXIEN IS ",RXIEN,!
- . W "MAP= ",MAP,!
+ . I DEBUG W "RXIEN IS ",RXIEN,!
+ . I DEBUG W "MAP= ",MAP,!
  . S @MAP@("MEDOBJECTID")="MED_OUTSIDE"_MEDCOUNT ; MEDCOUNT FOR ID
  . S @MAP@("MEDISSUEDATETXT")="Documented Date"
@@ -116,5 +116,5 @@
  . . N QTYDATA M QTYDATA=^TMP($J,"QTY",MEDIEN)
  . . S @MAP@("MEDQUANTITYUNIT")=QTYDATA(14.5)
-   E  S @MAP@("MEDQUANTITYUNIT")=""
+ . E  S @MAP@("MEDQUANTITYUNIT")=""
  . ;
  . ; --- START OF DIRECTIONS ---