- LR119PO ;DALISC/FHS - LR*5.2*119 POST INSTALL ROUTINE KIDS INSTALL"
- ;;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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLR119PO 245 printed Feb 18, 2025@23:29 Page 2
- LR119PO ;DALISC/FHS - LR*5.2*119 POST INSTALL ROUTINE KIDS INSTALL"
- +1 ;;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