Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
800 bytes
|
Rev | Line | |
---|
[613] | 1 | PSSBPSUT ;BIRM/MFR - BPS (ECME) Utilities ;05/14/07
|
---|
| 2 | ;;1.0;PHARMACY DATA MANAGEMENT;**127**;9/30/97;Build 41
|
---|
| 3 | ;
|
---|
| 4 | NCPDPQTY(DRUG,RXQTY) ; Return the NCPDP quantity (Billing Quantity)
|
---|
| 5 | ; Input: (r) DRUG - DRUG file (#50) IEN
|
---|
| 6 | ; (r) RXQTY - Quantity dispensed from the PRESCRIPTION file (#52))
|
---|
| 7 | ;0utput: NCPDPQTY - Billing Quantity (3 decimal places)^NCPDP Dispense Unit (EA, GM or ML)
|
---|
| 8 | ;
|
---|
| 9 | N UNIT,MULTIP
|
---|
| 10 | ;
|
---|
| 11 | S DRUG=+$G(DRUG),RXQTY=+$G(RXQTY)
|
---|
| 12 | ;
|
---|
| 13 | ; - Invalid DRUG IEN or DRUG not on file
|
---|
| 14 | I 'DRUG!'$D(^PSDRUG(DRUG,0)) Q "-1^INVALID DRUG"
|
---|
| 15 | ;
|
---|
| 16 | ; - Invalid NCPDP Dispense Unit
|
---|
| 17 | S UNIT=$$GET1^DIQ(50,DRUG,82,"I") I UNIT'="EA",UNIT'="GM",UNIT'="ML" Q RXQTY
|
---|
| 18 | ;
|
---|
| 19 | ; - Invalid NCPDP Conversion Multiplier
|
---|
| 20 | S MULTIP=+$$GET1^DIQ(50,DRUG,83) I MULTIP'>0 Q RXQTY_"^"_UNIT
|
---|
| 21 | ;
|
---|
| 22 | Q $J(RXQTY*MULTIP,0,3)_"^"_UNIT
|
---|
Note:
See
TracBrowser
for help on using the repository browser.