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