LR127P.m

LR127P ; IHS/DIR/AAB - LR*5.2*127 AFTER USER COMMITS ROUTINE KIDS INSTALL ;

 ;;5.2;LR;**1002**;JUN 01, 1998

 ;;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

LR127P    ; IHS/DIR/AAB - LR*5.2*127 AFTER USER COMMITS ROUTINE KIDS INSTALL ;

 +1       ;;5.2;LR;**1002**;JUN 01, 1998

 +2       ;;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