VistA-WorldVistAEHR/r/LAB_SERVICE-LR-LS/LR72PRE.m

9 lines
245 B
Mathematica

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 ",!!
Q