| [613] | 1 | PSGTI ;BIR/CML3-UNIT DOSE-TASKMAN INTERFACE ;17 SEP 97 / 1:06 PM
|
|---|
| 2 | ;;5.0; INPATIENT MEDICATIONS ;**50**;16 DEC 97
|
|---|
| 3 | ;
|
|---|
| 4 | ENPL ;
|
|---|
| 5 | K %ZIS,IO("Q"),IOP S PSGION=ION,%ZIS="Q",%ZIS("A")="Print on DEVICE: ",%ZIS("B")="" W ! D ^%ZIS K IOP,%ZIS I POP,'$D(IO("Q")) S IOP=PSGION D ^%ZIS S POP=1
|
|---|
| 6 | I '$D(IO("Q")) K PSGION,IOP Q
|
|---|
| 7 | K PSGTID,ZTSAVE S PSGTIR="EN^PSGPL1",ZTDESC="UNIT DOSE PICK LIST RUN" F X="PSGPLS","PSGPLF","PSGPLG","PSGPLWG","PSGPLWGP" S ZTSAVE(X)="" S:$D(PSJPRN) ZTSAVE("PSJPRN")=""
|
|---|
| 8 | I $G(RERUN) S ZTSAVE("OG")="",ZTSAVE("RERUN")=""
|
|---|
| 9 | I POP W !,?3,"The Pick List will compile, but not print." S ZTIO="" D ENNOIO S IOP=PSGION D ^%ZIS K IOP,PSGION S IO("Q")="" Q
|
|---|
| 10 | G ENTSK
|
|---|
| 11 | ;
|
|---|
| 12 | EN3 ;
|
|---|
| 13 | K ZTSAVE S PSGTIR="ENQ^PSG"_RTN
|
|---|
| 14 | I RTN="DCT" D
|
|---|
| 15 | .S:$D(PSGDCLW) ZTSAVE("PSGDCLW(")="" S ZTDESC="UNIT DOSE DRUG COST REPORT" S:$D(PSGDCTD) ZTSAVE("PSGDCTD(")="" F X="PSGDCTA","PSGATTL","PSGCTTL","PSGCNT","PSGDCTB","PSGDCTL","PSGDCTS" S ZTSAVE(X)=""
|
|---|
| 16 | F X="PSGDCT","PSGDCLW","PSGDCTD","PRDRG","PMDRG1","PR","PSGCLS","PSGCLS1","PSGDATT","PSGDCTT","PSGDISP","PSGPM","PSGDCT(" S ZTSAVE(X)=""
|
|---|
| 17 | I RTN="PRVR" S (ZTSAVE("PSGPRVRF"),ZTSAVE("PSGPRVRP"))="" S:PSGPRVRF ZTSAVE("PSGPRVRF(")=""
|
|---|
| 18 | F X="STRT","STOP","SD","FD" S ZTSAVE(X)=""
|
|---|
| 19 | ;
|
|---|
| 20 | ENDEV ;
|
|---|
| 21 | K %ZIS,IO("Q"),IOP,ZTSK S PSGION=ION,%ZIS="Q",%ZIS("A")="Select PRINT DEVICE: ",%ZIS("B")="" W ! D ^%ZIS K %ZIS
|
|---|
| 22 | I POP S IOP=PSGION D ^%ZIS S POP=1 G OUT
|
|---|
| 23 | K PSGION I '$D(IO("Q")) G OUT
|
|---|
| 24 | ;
|
|---|
| 25 | ENTSK ;
|
|---|
| 26 | K ZTIO
|
|---|
| 27 | ;
|
|---|
| 28 | ENNOIO ;
|
|---|
| 29 | K ZTDTH,ZTSK S ZTRTN="DQ^PSGTI" S:$D(PSGTID) ZTDTH=PSGTID S:$D(PSJSYSL) ZTSAVE("PSJSYSL")="" F X="PSJSYSW0","PSJSYSW","PSJSYSP","PSJSYSP0","PSJSYSL","PSJSYSU","PSGTIR" I $D(@X) S ZTSAVE(X)=""
|
|---|
| 30 | D ^%ZTLOAD D:'$D(PSGTINC) ^%ZISC W:'$D(ZTSK) $C(7),!?3,"(Task NOT queued.)"
|
|---|
| 31 | ;
|
|---|
| 32 | OUT ;
|
|---|
| 33 | K %ZIS,IOP,PSGTID,PSGTIR,ZTDESC,ZTDTH,ZTRTN,ZTDESC,ZTSAVE Q
|
|---|
| 34 | ;
|
|---|
| 35 | ENPAT ;
|
|---|
| 36 | S (ZTSAVE("PSGP"),ZTSAVE("PSGP(0)"),ZTSAVE("PSJP*"))="" G ENDEV
|
|---|
| 37 | ;
|
|---|
| 38 | DQ ; all Taskman calls come through here
|
|---|
| 39 | D @PSGTIR S ZTREQ="@" Q
|
|---|
