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

LR72PRE.m

Go to the documentation of this file.

LR72PRE ;DALISC/FHS/CYM - PRE-INSTALL ROUTINE FOR LR*5.2*72

 ;;5.2;LAB SERVICE;**72**;SEP 27, 1994

DD ;

 K DIK,DA S DIK="^DD(66,",DA(1)=66 F DA=1,2 D ^DIK

 K DIK,DA S DIK="^DD(69.9,",DA=1 D ^DIK

 K DIK,DA W !!,"Pre Install Completed  ",!!

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLR72PRE   253     printed  Dec 13, 2024@02:04:41                                                                                                                                                                                                      Page 2

LR72PRE   ;DALISC/FHS/CYM - PRE-INSTALL ROUTINE FOR LR*5.2*72

 +1       ;;5.2;LAB SERVICE;**72**;SEP 27, 1994

 +2       ;

DD        ;

 +1        KILL DIK,DA

           SET DIK="^DD(66,"

           SET DA(1)=66

           FOR DA=1,2

               DO ^DIK

 +2        KILL DIK,DA

           SET DIK="^DD(69.9,"

           SET DA=1

           DO ^DIK

 +3        KILL DIK,DA

           WRITE !!,"Pre Install Completed  ",!!

 +4        QUIT