| 1 | PSDRFZ ;BIR/JPW,LTL-Nurse RF Delayed Dispensing review; 8 Aug 94
|
|---|
| 2 | ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97
|
|---|
| 3 | ;PAT=PATIENT,PSDR=DRUG
|
|---|
| 4 | LOOP N PSD,PSDL S (PSDL,PSDA)=0
|
|---|
| 5 | W !!,"Checking for any transactions since ",$$FMTE^XLFDT(PSDT,"1P")
|
|---|
| 6 | S PSD=PSDT
|
|---|
| 7 | CHEC F S PSD=$O(^PSD(58.81,"ACT",PSD)) Q:'PSD F S PSDL=$O(^PSD(58.81,"ACT",PSD,PSDL)) Q:'PSDL F S PSDA=$O(^PSD(58.81,"ACT",PSD,PSDL,PSDR,17,PSDA)) Q:'PSDA D
|
|---|
| 8 | .W !!,"You may need to re-adjust the balance because of the following transaction(s)."
|
|---|
| 9 | .S PSDA(2)=$$FMTE^XLFDT(PSD,"2P"),PSDA(3)=PSD
|
|---|
| 10 | .W !!,PSDA(2),?20,$P($G(^PSD(58.81,PSDA,0)),U,6)," ",$S($P($G(^(0)),U,8)]"":$P($G(^(0)),U,8),1:$P($G(^PSDRUG(PSDR,660)),U,8))
|
|---|
| 11 | .W:$P($G(^PSD(58.81,PSDA,9)),U,4) " (",$P($G(^(9)),U,4)," WASTED)"
|
|---|
| 12 | .W:$P($G(^PSD(58.81,PSDA,3)),U,2) " (",$P($G(^(3)),U,2)," RETURNED)"
|
|---|
| 13 | .W " ",$P($G(^VA(200,+$P($G(^PSD(58.81,PSDA,0)),U,7),0)),U)
|
|---|
| 14 | .W:$P($G(^PSD(58.81,PSDA,0)),U,16)]"" !?25,$P($G(^(0)),U,16) S PSDA(4)=$P($G(^(0)),U,7)
|
|---|
| 15 | .W:PSDL'=$G(NAOU) " {",$P($G(^PSD(58.8,PSDL,0)),U),"}"
|
|---|
| 16 | .S PSDA(1)=PSDA
|
|---|
| 17 | END Q
|
|---|
