LR127P ;DALISC/FHS - LR*5.2*127 AFTER USER COMMITS ROUTINE KIDS INSTALL
;;5.2;LAB SERVICE;**127**;Sep 27, 1994
EN ;
Q:'$D(XPDNM)
I $O(^LAB(64.81,0)) W !?5,"You have old data in LAB NLT/CPT CODES file ",!,"INSTALL ABORTED ",$C(7) S XPDQUIT=2 Q
N DA,DIK
S DA(1)=69.9,DA=615,DIK="^DD(69.9," D ^DIK
K DA,DIK S DA(1)=64,DA=18,DIK="^DD(64," D ^DIK
K DA,DIK S DA(1)=64,DA=14,DIK="^DD(64," D ^DIK
K DA,DIK S DA(1)=69.9,DA=614,DIK="^DD(69.9," D ^DIK
K:'$D(^LAB(64.81,0)) ^LAM("AD")
W !,$$CJ^XLFSTR("Pre Install Step Complete",80),!!
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLR127P 550 printed Dec 13, 2024@02:03:10 Page 2
LR127P ;DALISC/FHS - LR*5.2*127 AFTER USER COMMITS ROUTINE KIDS INSTALL
+1 ;;5.2;LAB SERVICE;**127**;Sep 27, 1994
EN ;
+1 if '$DATA(XPDNM)
QUIT
+2 IF $ORDER(^LAB(64.81,0))
WRITE !?5,"You have old data in LAB NLT/CPT CODES file ",!,"INSTALL ABORTED ",$CHAR(7)
SET XPDQUIT=2
QUIT
+3 NEW DA,DIK
+4 SET DA(1)=69.9
SET DA=615
SET DIK="^DD(69.9,"
DO ^DIK
+5 KILL DA,DIK
SET DA(1)=64
SET DA=18
SET DIK="^DD(64,"
DO ^DIK
+6 KILL DA,DIK
SET DA(1)=64
SET DA=14
SET DIK="^DD(64,"
DO ^DIK
+7 KILL DA,DIK
SET DA(1)=69.9
SET DA=614
SET DIK="^DD(69.9,"
DO ^DIK
+8 if '$DATA(^LAB(64.81,0))
KILL ^LAM("AD")
+9 WRITE !,$$CJ^XLFSTR("Pre Install Step Complete",80),!!
+10 QUIT
