LR127P.m

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 ---LR127P   550     printed  Apr 09, 2024@21:09:17                                                                                                                                                                                                       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