| [613] | 1 | PSDRF2 ;BIR/JPW,LTL-Nurse RF Dispensing count correction; 8 Aug 94
|
|---|
| 2 | ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97
|
|---|
| 3 | QTY S DIR(0)="NA^.01:999999:2",DIR("A")="Correct Count: "
|
|---|
| 4 | W ! D ^DIR K DIR
|
|---|
| 5 | I $D(DIRUT)!(Y'>0) S PSDOUT=1 G END
|
|---|
| 6 | S PSDQ(1)=Y,PSDTYP=9,PSDQ=OQTY-Y
|
|---|
| 7 | I PSDQ(1)=OQTY W !!,"That's no change." Q
|
|---|
| 8 | I Y>OQTY S NAOU(1)=0 D ^PSDORSU G:$G(NAOU(1)) BAL^PSDRF I $G(PSDOUT) G END
|
|---|
| 9 | S DIR(0)="58.81,15" W ! D ^DIR K DIR
|
|---|
| 10 | I $D(DIRUT) S PSDOUT=1 G END
|
|---|
| 11 | S PSDRE=Y
|
|---|
| 12 | WIT W ! S NUR2=$$WITNESS^XUVERIFY("WITNESS")
|
|---|
| 13 | I DUZ=NUR2 W !!,"Hold it, you can't witness yourself!",$C(7) G WIT
|
|---|
| 14 | I NUR2'>0 S PSDOUT=1 Q
|
|---|
| 15 | W !!,"Thank you, ",$S($P($G(^VA(200,NUR2,.1)),U,4)]"":$P($G(^(.1)),U,4),1:$P($G(^VA(200,NUR2,0)),U))
|
|---|
| 16 | D UPDAT^PSDRF1
|
|---|
| 17 | END K %,%DT,%H,%I,CNT,CNT1,DA,DIC,DIE,DINUM,DIR,DIROUT,DIRUT,DIWF,DIWL,DIWR,DR,DTOUT,DUOUT,LN,MSG,MSG1
|
|---|
| 18 | K NAOUN,NBKU,NPKG,OK,OKTYP,ORD,PSDA,PSDEM,PSDQTY,PSDRD,PSDRE,PSDRN,PSDT,PSDUZ,PSDUZN,REQD,TEXT,TYPE,WORD,X
|
|---|
| 19 | Q
|
|---|
