Index: /ccr/trunk/p/CCRMEDS.m
===================================================================
--- /ccr/trunk/p/CCRMEDS.m	(revision 187)
+++ /ccr/trunk/p/CCRMEDS.m	(revision 188)
@@ -58,5 +58,5 @@
  S MEDTVMAP=$NA(^TMP("GPLCCR",$J,"MEDMAP"))
  S MEDTARYTMP=$NA(^TMP("GPLCCR",$J,"MEDARYTMP"))
- I 'HASOP K @MEDTVMAP,@MEDTARYTMP
+ K @MEDTVMAP,@MEDTARYTMP
  ; FIRST GO THROUGH MEDRSLT ARRAY AND COUNT MEDS AND LINES IN MEDS
  ; ZA(0) IS TOTAL NUMBER OF MEDS ZA(ZI) IS LINES IN MED ZI
Index: /ccr/trunk/p/CCRMEDS2.m
===================================================================
--- /ccr/trunk/p/CCRMEDS2.m	(revision 187)
+++ /ccr/trunk/p/CCRMEDS2.m	(revision 188)
@@ -181,8 +181,8 @@
  . ; S @MAP@("MEDPTINSTRUCTIONS","F")="52.41^105"
  . S @MAP@("MEDPTINSTRUCTIONS")=$G(^PSRX(RXIEN,"PI",1,0)) ;GPL
- . W @MAP@("MEDPTINSTRUCTIONS"),!
+ . ; W @MAP@("MEDPTINSTRUCTIONS"),!
  . ; S @MAP@("MEDFULLFILLMENTINSTRUCTIONS","F")="52.41^9"
  . S @MAP@("MEDFULLFILLMENTINSTRUCTIONS")=$G(^PSRX(RXIEN,"SIG1",1,0)) ;GPL
- . W @MAP@("MEDFULLFILLMENTINSTRUCTIONS"),!
+ . ; W @MAP@("MEDFULLFILLMENTINSTRUCTIONS"),!
  . S @MAP@("MEDRFNO")=$$GET1^DIQ(52.41,RXIEN,13)
  . N RESULT S RESULT=$NA(^TMP("GPLCCR",$J,"MAPPED"))