LAJOB1 ;SLC/DCM/RWF - STATUS OF AUTOMATED LAB ROUTINES ;7/11/89 10:29 ;
;;5.2;AUTOMATED LAB INSTRUMENTS;;Sep 27, 1994
A S U="^" I '$D(IOM) S IOP="HOME" D ^%ZIS
LA2 S $P(LADASH,"-",IOM)="" W !!!,LADASH,!?30,"LSI INTERFACE STATUS",!,LADASH
W !,?5,"LSI",?15,"INST.",?33,"DATA",?42,"DATA",?51,"++ PROGRAM STATUS ++"
W !?5,"PORT #",?15,"NAME",?33,"IN LA?",?42,"IN LAH?",?51,"NAME",?62,"ACTIVE",?70,"$J"
W !,LADASH
F I=0:0 S I=$O(^LAB(62.4,I)) Q:I<1!(I>99) S X=^LAB(62.4,I,0) D LINE
W !!
END K I,J,L,LADASH,Y,X Q
Q
LINE W !?6,I,?15,$E($P(X,U,1),1,15),?34,$S($D(^LA(I,"I")):"Yes",1:"No")
S L=$P(X,U,4),Y=0 I L>0 F J=0:0 S J=$O(^LAH(L,1,J)) Q:J<1 I $O(^LAH(L,1,J,1)) S Y=Y+1 Q:Y>5
W ?45,$S(Y>2:"Yes",1:"No"),?51,$P(X,U,3),?62,$S($D(^LA("LOCK",I)):"Lock",1:"No"),?70,$S($D(^LA("LOCK",I)):^(I),1:"")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLAJOB1 821 printed Jan 18, 2025@02:44:01 Page 2
LAJOB1 ;SLC/DCM/RWF - STATUS OF AUTOMATED LAB ROUTINES ;7/11/89 10:29 ;
+1 ;;5.2;AUTOMATED LAB INSTRUMENTS;;Sep 27, 1994
A SET U="^"
IF '$DATA(IOM)
SET IOP="HOME"
DO ^%ZIS
LA2 SET $PIECE(LADASH,"-",IOM)=""
WRITE !!!,LADASH,!?30,"LSI INTERFACE STATUS",!,LADASH
+1 WRITE !,?5,"LSI",?15,"INST.",?33,"DATA",?42,"DATA",?51,"++ PROGRAM STATUS ++"
+2 WRITE !?5,"PORT #",?15,"NAME",?33,"IN LA?",?42,"IN LAH?",?51,"NAME",?62,"ACTIVE",?70,"$J"
+3 WRITE !,LADASH
+4 FOR I=0:0
SET I=$ORDER(^LAB(62.4,I))
if I<1!(I>99)
QUIT
SET X=^LAB(62.4,I,0)
DO LINE
+5 WRITE !!
END KILL I,J,L,LADASH,Y,X
QUIT
+1 QUIT
LINE WRITE !?6,I,?15,$EXTRACT($PIECE(X,U,1),1,15),?34,$SELECT($DATA(^LA(I,"I")):"Yes",1:"No")
+1 SET L=$PIECE(X,U,4)
SET Y=0
IF L>0
FOR J=0:0
SET J=$ORDER(^LAH(L,1,J))
if J<1
QUIT
IF $ORDER(^LAH(L,1,J,1))
SET Y=Y+1
if Y>5
QUIT
+2 WRITE ?45,$SELECT(Y>2:"Yes",1:"No"),?51,$PIECE(X,U,3),?62,$SELECT($DATA(^LA("LOCK",I)):"Lock",1:"No"),?70,$SELECT($DATA(^LA("LOCK",I)):^(I),1:"")
+3 QUIT
