| [613] | 1 | PSIVALNC ;BIR/JLC - TEST CONTROL CODES ;16 DEC 97 / 1:39 PM
|
|---|
| 2 | ;;5.0; INPATIENT MEDICATIONS ;**58,178**;16 DEC 97;Build 9
|
|---|
| 3 | ;
|
|---|
| 4 | ; Reference to ^%ZIS(2 is supported by DBIA 3435.
|
|---|
| 5 | ;
|
|---|
| 6 | W !!?2,"(Please make any initial adjustments before selecting the label device.)",!
|
|---|
| 7 | K %ZIS,IO("Q"),IOP S %ZIS="Q",PSIVION=ION,%ZIS("A")="Print labels on DEVICE: ",%ZIS("B")=PSIVPL D ^%ZIS I POP S IOP=PSIVION D ^%ZIS W !?2,"No device selected." K PSIVION,IOP,%ZIS Q
|
|---|
| 8 | N X0,PSJIO,I
|
|---|
| 9 | S I=0 F S I=$O(^%ZIS(2,IOST(0),55,I)) Q:'I S X0=^(I,0),PSJIO($P(X0,"^"))=^(1)
|
|---|
| 10 | S PSJIO=$S('$D(PSJIO):0,1:1)
|
|---|
| 11 | D PSET^%ZISP
|
|---|
| 12 | S $P(L1,"_",10)="" F D PRNT,ASK Q:%'=2
|
|---|
| 13 | ;
|
|---|
| 14 | D ^%ZISC K %ZIS,IO("Q"),IOP,L1,L2,PSIVION,X,%Y,POP,D,Y,Z,I,ZISI,Y Q
|
|---|
| 15 | ;
|
|---|
| 16 | PRNT ;
|
|---|
| 17 | G:'$D(IO("Q")) ENQ K ZTSK,ZTSAVE S ZTRTN="ENQ^PSIVALNC",ZTDESC="IV LABEL ALIGNMENT",ZTIO=ION,ZTDTH=$H F G="L1","L2","PSIVSITE","PSJSYSW0","PSJSYSU","PSJIO" S ZTSAVE(G)=""
|
|---|
| 18 | D ^%ZTLOAD Q
|
|---|
| 19 | ;
|
|---|
| 20 | ENQ ;
|
|---|
| 21 | U IO
|
|---|
| 22 | I PSJIO,$G(PSJIO("FI"))]"" X PSJIO("FI")
|
|---|
| 23 | D LP
|
|---|
| 24 | I PSJIO,$G(PSJIO("FE"))]"" X PSJIO("FE")
|
|---|
| 25 | S:$D(ZTQUEUED) ZTREQ="@"
|
|---|
| 26 | Q
|
|---|
| 27 | ;
|
|---|
| 28 | P F I="ST","STF","SM","SMF" I $G(PSJIO(I))]"" X PSJIO(I)
|
|---|
| 29 | W X
|
|---|
| 30 | F I="ETF","ET","EMF","EM" I $G(PSJIO(I))]"" X PSJIO(I)
|
|---|
| 31 | I 'PSJIO W !
|
|---|
| 32 | Q
|
|---|
| 33 | ;
|
|---|
| 34 | PMR F I="SM","SMF" I $G(PSJIO(I))]"" X PSJIO(I)
|
|---|
| 35 | W X
|
|---|
| 36 | F I="EMF","EM" I $G(PSJIO(I))]"" X PSJIO(I)
|
|---|
| 37 | I 'PSJIO W !
|
|---|
| 38 | Q
|
|---|
| 39 | LP ;
|
|---|
| 40 | I PSJIO,$G(PSJIO("SL"))]"" X PSJIO("SL")
|
|---|
| 41 | S LINE=1
|
|---|
| 42 | I 'PSJIO D
|
|---|
| 43 | . I IOBARON]"" W @IOBARON
|
|---|
| 44 | . W "nnnVnnn"
|
|---|
| 45 | . I IOBAROFF]"" W @IOBAROFF
|
|---|
| 46 | . W !
|
|---|
| 47 | I PSJIO D
|
|---|
| 48 | . F I="SB","SBF" I $G(PSJIO(I))]"" X PSJIO(I)
|
|---|
| 49 | . W "nnnVnnn"
|
|---|
| 50 | . F I="EBF","EB" I $G(PSJIO(I))]"" X PSJIO(I)
|
|---|
| 51 | S X=L1 D P D PMR
|
|---|
| 52 | I 'PSJIO D Q
|
|---|
| 53 | . W !
|
|---|
| 54 | I PSJIO,$G(PSJIO("EL"))]"" X PSJIO("EL")
|
|---|
| 55 | Q
|
|---|
| 56 | ;
|
|---|
| 57 | ASK ;
|
|---|
| 58 | U IO(0) F W !!,"Is the label alignment correct" S %=1 D YN^DICN Q:% S HELP="ALGN" D ^PSIVHLP
|
|---|
| 59 | I %=2 R !!,"Please make any adjustments necessary, and then press RETURN. ",X:DTIME W:'$T $C(7) I X="^"!'$T S %=-1
|
|---|
| 60 | Q
|
|---|
| 61 | PGM ;;
|
|---|
| 62 | D ^PSIVXU Q:$D(XQUIT) D ^PSIVALNC,ENIVKV^PSGSETU K I,Z,ZISI
|
|---|
| 63 | Q
|
|---|
