LAJOB1.m

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 ---LAJOB1   821     printed  Apr 09, 2024@20:44:38                                                                                                                                                                                                       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