LADIMPI ;SLC/DLG/FHS - DIMENSION DIRECT CONNECT SETUP ;8/16/90 14:15 ;
;;5.2;AUTOMATED LAB INSTRUMENTS;;Sep 27, 1994
EN ;
D ^LASET Q:TSK<1
S:$D(ZTQUEUED) ZTREQ="@" X ^%ZOSF("TYPE-AHEAD"),^%ZOSF("LABOFF") K ^LA(T) D SET
S DEB="D"_T,DUZ=.5,PAR=$S($D(^LAB(62.4,T,.5))#2:^(.5),1:""),OUT="",BASE=0,TOUT=15,U="^",^LA(T,"P")="",FL=0,^LA(T,"P")="",(^("P1"),^("P2"),^("P3"))=0,FS="|",FS1=$C(28),POS=0,ERC=0
S J="" F I=0:0 S J=$O(TC(J)) Q:J="" S TEST(TC(J,4))=J
R X:1,X:1 ;ALLOW BREAK AND FLUSH BUFFER
G @("LA^"_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[HLADIMPI 631 printed Oct 16, 2024@17:42:59 Page 2
LADIMPI ;SLC/DLG/FHS - DIMENSION DIRECT CONNECT SETUP ;8/16/90 14:15 ;
+1 ;;5.2;AUTOMATED LAB INSTRUMENTS;;Sep 27, 1994
EN ;
+1 DO ^LASET
if TSK<1
QUIT
+2 if $DATA(ZTQUEUED)
SET ZTREQ="@"
XECUTE ^%ZOSF("TYPE-AHEAD")
XECUTE ^%ZOSF("LABOFF")
KILL ^LA(T)
DO SET
+3 SET DEB="D"_T
SET DUZ=.5
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 FL=0
SET ^LA(T,"P")=""
SET (^("P1"),^("P2"),^("P3"))=0
SET FS="|"
SET FS1=$CHAR(28)
SET POS=0
SET ERC=0
+4 SET J=""
FOR I=0:0
SET J=$ORDER(TC(J))
if J=""
QUIT
SET TEST(TC(J,4))=J
+5 ;ALLOW BREAK AND FLUSH BUFFER
READ X:1,X:1
+6 GOTO @("LA^"_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
