S CSI=$C(27)_\"[\" W *27,\"[5i\" W CSI_\"!p\"_CSI_\"?21 J\"_CSI_\"15m\"_CSI_\"1;66r\" H 2 W CSI_\"2g\" H 1 W CSI_\"14;22;30;38;46;54;62;70;78;86;94;102;110;118;126u\" H 1 W #
S AAH9MSG=$S($D(AAH9MSG):AAH9MSG,$D(DHD):DHD,$D(XMR):$P(XMR,U),1:\" \") U IO(0) W !,\"...one moment...\" S:AAH9MSG=\"W \"\"\"\" D ^DIDH\" AAH9MSG=\"DATA DICTIONARY\" U IO
W *27,\"E\",*27,\"(8U\",*27,\"(s0P\",*27,\"(s16H\",*27,\"(s9V\",*27,\"(s0S\",*27,\"(s-3B\",*27,\"(s0T\",*27,\"&l88P\",*27,\"&a255M\",*27,\"&k2S\",*27,\"&l8D\",*27,\"&s1C\"
I '$D(ZTQUEUED) N (DTIME,DUZ) S %IO=$I,%ZIS=\"NQ\",%ZIS(\"B\")=\"\" X \"U $P\" R !,\"NUMBER OF COPIES: \",COPIES:60 W !,\"OUTPUT TO DEVICE\" D ^%ZIS U %IO Q:POP F %=\"ION\",\"IO\",\"IOS\",\"IOM\",\"IOST\",\"COPIES\" S ^TMP(\"SDP\",$J,%)=@%
I '$D(ZTQUEUED) N %ZISV,%ZISOS,EOF,ZZFF X ^%ZIS(2,+IOST(0),11) D ^%ZIS Q:POP X \"F %=1:1:%1 U IO(0):(DISCONNECT:NOTRAP) F U IO(0) R %2 X EOF,ZZFF,EOF Q:$T U IO W:$A(%2)'=12 ! W %2\" D ^%ZISC X \"S IO(0)=$P U IO(0)\"
I '$D(ZTQUEUED) N (DTIME,DUZ) S %IO=$I,%ZIS=\"NQ\",%ZIS(\"B\")=\"\" X \"U $P\" R !,\"NUMBER OF COPIES: \",COPIES:60 W !,\"OUTPUT TO DEVICE\" D ^%ZIS U %IO Q:POP F %=\"ION\",\"IO\",\"IOS\",\"IOM\",\"IOST\",\"COPIES\" S ^TMP(\"SDP\",$J,%)=@%
N %ZISV,%ZISOS U IO S IOP=^TMP(\"SDP\",$J,\"ION\")_\";\"_^(\"IOM\")_\";\"_IOST,%1=^(\"COPIES\") D ^%ZIS Q:POP X \"F %=1:1:%1 U IO(0):(DISCONNECT:NOTRAP) F U IO(0) R %2 Q:$ZA=-1&(%2=\"\"\"\") U IO W:$A(%2)'=12 ! W %2\" D ^%ZISC X \"S IO=IO(0),IO(0)=$P U IO(0)\"
W *27,\"&lO\",*27,\"(8U\",*27,\"(sP\",*27,\"(s16.66H\",*27,\"(s8.5V\",*27,\"(sS\",*27,\"(sB\",*27,\"(sT\",$C(15),*27,\"&l0E\",*27,\"&l84F\" H 2 W *27,\"&l84P\",*27,\"&l8D\",*27,\"&l0L\"
W *27,\"&lO\",*27,\"(8U\",*27,\"(sP\",*27,\"(s16.66H\",*27,\"(s8.5V\",*27,\"(sS\",*27,\"(sB\",*27,\"(sT\",$C(15),*27,\"&l0E\",*27,\"&l66F\" H 2 W *27,\"&l66P\",*27,\"&l6D\",*27,\"&l0L\"
W *27,\"&lO\",*27,\"(8U\",*27,\"(sP\",*27,\"(s10H\",*27,\"(s10V\",*27,\"(s1S\",*27,\"(sB\",*27,\"(s3T\",$C(15),*27,\"&l0E\",*27,\"&l66F\" H 2 W *27,\"&l66P\",*27,\"&l6D\",*27,\"&l0L\"
W *27,\"&lO\",*27,\"(8U\",*27,\"(sP\",*27,\"(s16.66H\",*27,\"(s8.5V\",*27,\"(sS\",*27,\"(sB\",*27,\"(sT\",$C(15),*27,\"&l0E\",*27,\"&l66F\" H 2 W *27,\"&l66P\",*27,\"&l6D\",*27,\"&a9L\",*27,\"&l0L\"
W *27,\"&lO\",*27,\"(8U\",*27,\"(sP\",*27,\"(s16.66H\",*27,\"(s8.5V\",*27,\"(sS\",*27,\"(sB\",*27,\"(sT\",$C(15),*27,\"&l0E\",*27,\"&l84F\" H 2 W *27,\"&l84P\",*27,\"&l8D\",*27,\"&a9L\",*27,\"&l0L\"
CONTROL CODE: W !,\"^FO\"_PSBTYPE_\"^A0N,30,20^CI13^FR^FD\"_TEXT_\"^FS\"
\n
\n
\n
CTRL CODE ABBREVIATION: SB
\n
FULL NAME: Start Barcode
\n
CONTROL CODE: S PSBTYPE=$S(PSBSYM=\"I25\":\"B2N\",PSBSYM=\"128\":\"BCN\",1:\"B3N,N\") S:PSBSYM=\"\" PSBBAR=\"NO-CODE\" W !,\"^BY2,3.0,80^FO20,115^\"_PSBTYPE_\",60,Y,N^FR^FD\"_PSBBAR_\"^FS\"
\n
\n
\n
CTRL CODE ABBREVIATION: STF
\n
FULL NAME: Start Text Field
\n
CONTROL CODE: S PSBTYPE=$S(PSBTLE=\"PSBDRUG\":\"20,25\",PSBTLE=\"PSBDOSE\":\"20,85\",PSBTLE=\"PSBNAME\":\"350,60\",PSBTLE=\"PSBWARD\":\"350,90\",PSBTLE=\"PSBLOT\":\"350,120\",PSBTLE=\"PSBEXP\":\"350,150\",PSBTLE=\"PSBMFG\":\"500,150\",PSBTLE=\"PSBFCB\":\"350,180\",1:\"0,0\")
\n
\n
\n
CTRL CODE ABBREVIATION: HAZ
\n
FULL NAME: Hazardous Text Field
\n
CONTROL CODE: S PSBTYPE=$S(PSBTLE=\"HAZTEXT\":\"20,60\",1:\"0,0\")