Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: LR119PO

LR119PO.m

Go to the documentation of this file.

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),!!

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLR119PO   245     printed  Apr 09, 2024@21:14:55                                                                                                                                                                                                      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