LR90P.m

LR90P ; IHS/DIR/AAB - LR*5.2*90 PRE-INSTALL AFTER USER COMMITS 5-7-97 ; [ 05/28/98 2:44 PM ]

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

 ;;5.2;LAB SERVICE;**90**;Sep 27, 1994

 ;

 Q:'$D(XPDNM)

 N DA,DIK

 S DIK="^DD(65.5,",DA=3 D ^DIK

 K DA,DIK

 W !,$$CJ^XLFSTR("Pre Install Step Complete",80),!!

 Q

LR90P     ; IHS/DIR/AAB - LR*5.2*90 PRE-INSTALL AFTER USER COMMITS 5-7-97 ; [ 05/28/98 2:44 PM ]

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

 +2       ;;5.2;LAB SERVICE;**90**;Sep 27, 1994

 +3       ;

 +4        IF '$DATA(XPDNM)

               QUIT 

 +5        NEW DA,DIK

 +6        SET DIK="^DD(65.5,"

           SET DA=3

           DO ^DIK

 +7        KILL DA,DIK

 +8        WRITE !,$$CJ^XLFSTR("Pre Install Step Complete",80),!!

 +9        QUIT