Changeset 188 for ccr/trunk/p

Timestamp:

Oct 7, 2008, 10:26:02 AM (16 years ago)

Author:

George Lilly

Message:

fixing a meds bug

Location:

ccr/trunk/p

Files:

• CCRMEDS.m (modified) (1 diff)
• CCRMEDS2.m (modified) (1 diff)

ccr/trunk/p/CCRMEDS.m

@@ -58 +58 @@
  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

ccr/trunk/p/CCRMEDS2.m

@@ -181 +181 @@
  . ; 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"))