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

Timestamp:

Oct 6, 2008, 7:33:38 PM (16 years ago)

Author:

George Lilly

Message:

rewrote Date sort routine to fix Vitals bug. debugging meds.

File:

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

ccr/trunk/p/CCRMEDS2.m

@@ -179 +179 @@
  . ; --- END OF DIRECTIONS ---
  . ;
- . S @MAP@("MEDPTINSTRUCTIONS","F")="52.41^105"
- . S @MAP@("MEDFULLFILLMENTINSTRUCTIONS","F")="52.41^9"
+ . ; S @MAP@("MEDPTINSTRUCTIONS","F")="52.41^105"
+ . S @MAP@("MEDPTINSTRUCTIONS")=$G(^PSRX(RXIEN,"PI",1,0)) ;GPL
+ . W @MAP@("MEDPTINSTRUCTIONS"),!
+ . ; S @MAP@("MEDFULLFILLMENTINSTRUCTIONS","F")="52.41^9"
+ . S @MAP@("MEDFULLFILLMENTINSTRUCTIONS")=$G(^PSRX(RXIEN,"SIG1",1,0)) ;GPL
+ . W @MAP@("MEDFULLFILLMENTINSTRUCTIONS"),!
  . S @MAP@("MEDRFNO")=$$GET1^DIQ(52.41,RXIEN,13)
  . N RESULT S RESULT=$NA(^TMP("GPLCCR",$J,"MAPPED"))