Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSIVALNC

PSIVALNC.m

Go to the documentation of this file.
  1. PSIVALNC ;BIR/JLC - TEST CONTROL CODES ;16 DEC 97 / 1:39 PM
  1. ;;5.0; INPATIENT MEDICATIONS ;**58,178**;16 DEC 97;Build 9
  1. ;
  1. ; Reference to ^%ZIS(2 is supported by DBIA 3435.
  1. ;
  1. W !!?2,"(Please make any initial adjustments before selecting the label device.)",!
  1. 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
  1. N X0,PSJIO,I
  1. S I=0 F S I=$O(^%ZIS(2,IOST(0),55,I)) Q:'I S X0=^(I,0),PSJIO($P(X0,"^"))=^(1)
  1. S PSJIO=$S('$D(PSJIO):0,1:1)
  1. D PSET^%ZISP
  1. S $P(L1,"_",10)="" F D PRNT,ASK Q:%'=2
  1. ;
  1. D ^%ZISC K %ZIS,IO("Q"),IOP,L1,L2,PSIVION,X,%Y,POP,D,Y,Z,I,ZISI,Y Q
  1. ;
  1. PRNT ;
  1. 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)=""
  1. D ^%ZTLOAD Q
  1. ;
  1. ENQ ;
  1. U IO
  1. I PSJIO,$G(PSJIO("FI"))]"" X PSJIO("FI")
  1. D LP
  1. I PSJIO,$G(PSJIO("FE"))]"" X PSJIO("FE")
  1. S:$D(ZTQUEUED) ZTREQ="@"
  1. Q
  1. ;
  1. P F I="ST","STF","SM","SMF" I $G(PSJIO(I))]"" X PSJIO(I)
  1. W X
  1. F I="ETF","ET","EMF","EM" I $G(PSJIO(I))]"" X PSJIO(I)
  1. I 'PSJIO W !
  1. Q
  1. ;
  1. PMR F I="SM","SMF" I $G(PSJIO(I))]"" X PSJIO(I)
  1. W X
  1. F I="EMF","EM" I $G(PSJIO(I))]"" X PSJIO(I)
  1. I 'PSJIO W !
  1. Q
  1. LP ;
  1. I PSJIO,$G(PSJIO("SL"))]"" X PSJIO("SL")
  1. S LINE=1
  1. I 'PSJIO D
  1. . I IOBARON]"" W @IOBARON
  1. . W "nnnVnnn"
  1. . I IOBAROFF]"" W @IOBAROFF
  1. . W !
  1. I PSJIO D
  1. . F I="SB","SBF" I $G(PSJIO(I))]"" X PSJIO(I)
  1. . W "nnnVnnn"
  1. . F I="EBF","EB" I $G(PSJIO(I))]"" X PSJIO(I)
  1. S X=L1 D P D PMR
  1. I 'PSJIO D Q
  1. . W !
  1. I PSJIO,$G(PSJIO("EL"))]"" X PSJIO("EL")
  1. Q
  1. ;
  1. ASK ;
  1. U IO(0) F W !!,"Is the label alignment correct" S %=1 D YN^DICN Q:% S HELP="ALGN" D ^PSIVHLP
  1. I %=2 R !!,"Please make any adjustments necessary, and then press RETURN. ",X:DTIME W:'$T $C(7) I X="^"!'$T S %=-1
  1. Q
  1. PGM ;;
  1. D ^PSIVXU Q:$D(XQUIT) D ^PSIVALNC,ENIVKV^PSGSETU K I,Z,ZISI
  1. Q