LADIMPI.m

LADIMPI ; IHS/DIR/FJE - DIMENSION DIRECT CONNECT SETUP 8/16/90 14:15 ;

 ;;5.2;LA;;NOV 01, 1997

 ;;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

LADIMPI   ; IHS/DIR/FJE - DIMENSION DIRECT CONNECT SETUP 8/16/90 14:15 ;

 +1       ;;5.2;LA;;NOV 01, 1997

 +2       ;;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