Changeset 188 for ccr/trunk/p/CCRMEDS2.m

Timestamp:

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

Author:

George Lilly

Message:

fixing a meds bug

File:

• ccr/trunk/p/CCRMEDS2.m (modified) (1 diff)

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"))