LR119PO.m

LR119PO ; IHS/DIR/FJE - LR*5.2*119 POST INSTALL ROUTINE KIDS INSTALL" ;

 ;;5.2;LR;;NOV 01, 1997

 ;

 ;;5.2;LAB SERVICE;**119**;Sep 27, 1994

EN ;

STOP ;

 L +^LAM(0):2 I $T S:$D(^LAM(0))#2 $P(^(0),U,3)=99999

 L -^LAM(0) W !!,$$CJ^XLFSTR("Post install completed",80),!!

 Q

LR119PO   ; IHS/DIR/FJE - LR*5.2*119 POST INSTALL ROUTINE KIDS INSTALL" ;

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

 +2       ;

 +3       ;;5.2;LAB SERVICE;**119**;Sep 27, 1994

EN        ;

STOP      ;

 +1        LOCK +^LAM(0):2

           IF $TEST

               IF $DATA(^LAM(0))#2

                   SET $PIECE(^(0),U,3)=99999

 +2        LOCK -^LAM(0)

           WRITE !!,$$CJ^XLFSTR("Post install completed",80),!!

 +3        QUIT