LABCX4I ;SLC/DLG/FHS - BECKMAN BIDIRECTIONAL DIRECT CONNECT SETUP ;9/21/90
;;5.2;AUTOMATED LAB INSTRUMENTS;;Sep 27, 1994
EN ;
S IOP=IOP_";255",%ZIS="" D ^%ZIS G:POP H^XUS U IO X ^%ZOSF("TYPE-AHEAD"),^%ZOSF("LABOFF") S X=0 X ^%ZOSF("RM")
C:IO(0)'=IO IO(0) S X="TRAP^"_LANM,@^%ZOSF("TRAP"),DUZ=.5 R X:1,X:1 D SET,^LASET
S I=0 F J=0:0 S I=$O(TC(I)) Q:I<1 S:$D(TC(I,4))#2 TS(TC(I,4))=I
S PAR=$S($D(^LAB(62.4,T,.5))#2:^(.5),1:""),OUT="",BASE=0,TOUT=15,U="^",^LA(T,"P")="",^("P1")=3,^("P2")=3,^("P3")=0,DEB="D"_T,LB=1,LBO=2,ETX=3,EOT=4,ENQ=5,ACK=6,NAK=21
G @("LA2^"_LANM)
SET S:'$D(^LA(T,"I"))#2 ^LA(T,"I")=0,^("I",0)=0
SETO S:'$D(^LA(T,"O"))#2 ^LA(T,"O")=0,^("O",0)=0 Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLABCX4I 686 printed Oct 16, 2024@17:42:19 Page 2
LABCX4I ;SLC/DLG/FHS - BECKMAN BIDIRECTIONAL DIRECT CONNECT SETUP ;9/21/90
+1 ;;5.2;AUTOMATED LAB INSTRUMENTS;;Sep 27, 1994
EN ;
+1 SET IOP=IOP_";255"
SET %ZIS=""
DO ^%ZIS
if POP
GOTO H^XUS
USE IO
XECUTE ^%ZOSF("TYPE-AHEAD")
XECUTE ^%ZOSF("LABOFF")
SET X=0
XECUTE ^%ZOSF("RM")
+2 if IO(0)'=IO
CLOSE IO(0)
SET X="TRAP^"_LANM
SET @^%ZOSF("TRAP")
SET DUZ=.5
READ X:1,X:1
DO SET
DO ^LASET
+3 SET I=0
FOR J=0:0
SET I=$ORDER(TC(I))
if I<1
QUIT
if $DATA(TC(I,4))#2
SET TS(TC(I,4))=I
+4 SET PAR=$SELECT($DATA(^LAB(62.4,T,.5))#2:^(.5),1:"")
SET OUT=""
SET BASE=0
SET TOUT=15
SET U="^"
SET ^LA(T,"P")=""
SET ^("P1")=3
SET ^("P2")=3
SET ^("P3")=0
SET DEB="D"_T
SET LB=1
SET LBO=2
SET ETX=3
SET EOT=4
SET ENQ=5
SET ACK=6
SET NAK=21
+5 GOTO @("LA2^"_LANM)
SET if '$DATA(^LA(T,"I"))#2
SET ^LA(T,"I")=0
SET ^("I",0)=0
SETO if '$DATA(^LA(T,"O"))#2
SET ^LA(T,"O")=0
SET ^("O",0)=0
QUIT
+1 QUIT
