LRIPRE.m

LRIPRE ;SLC/FHS/REG - PRE-INIT FOR VERSION 5.2 AFTER USER COMMIT;10/18/90 13:36 ;

 ;;5.2;LR;;NOV 01, 1997

 ;

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

EN1 ;

 Q:'$D(DIFQ)

 I '$D(^DD(60,0))#2 W !!?10,"It appears you are installing DHCP Laboratory Package ",!,"for the first time. ",! S LRFIRST=1

 S U="^",LRVR=$G(^DD(60,0,"VR"))

 K DIK,DA S DA=60.12,DIK="^DD(60.12," D ^DIK

 K DIK,DA S DA=65.91,DIK="^DD(65.91," D ^DIK

 I '$G(LRFIRST),$G(LRVR)<5.11 D ^LRIPRE1

 I $G(LRFIRST) D LRO^LRIPRE1

 I $G(LRVR)>5.1 K DA,DIK S DA=7.5,DA(1)=64.1111,DIK="^DD(64.1111," D ^DIK ;removing a bad fields from Alpha sites.

 K ^LAB(69.91) S ^LAB(69.91,0)="LR ROUTINE INTEGRITY CHECKER^69.91I^0^0"

 G:$G(LRVR)>5.11!($G(LRFIRST)) END

 W !?5,"Clearing 67.9",!

 K DIU S DIU="^LRO(67.9,",DIU(0)="DT" D EN^DIU2 K DIU W !,"Done",!

 W !?5,"Clearing 69.91 ",!

 K DIU S DIU="^LAB(69.91,",DIU(0)="DT" D EN^DIU2 K DIU W !,"Done",!

END ;

 W !!,"Pre Init completed -- Starting init process ",!!

 Q

LRIPRE    ;SLC/FHS/REG - PRE-INIT FOR VERSION 5.2 AFTER USER COMMIT;10/18/90 13:36 ;

 +1       ;;5.2;LR;;NOV 01, 1997

 +2       ;

 +3       ;;5.2;LAB SERVICE;;Sep 27, 1994

EN1       ;

 +1        IF '$DATA(DIFQ)

               QUIT 

 +2        IF '$DATA(^DD(60,0))#2

               WRITE !!?10,"It appears you are installing DHCP Laboratory Package ",!,"for the first time. ",!

               SET LRFIRST=1

 +3        SET U="^"

           SET LRVR=$GET(^DD(60,0,"VR"))

 +4        KILL DIK,DA

           SET DA=60.12

           SET DIK="^DD(60.12,"

           DO ^DIK

 +5        KILL DIK,DA

           SET DA=65.91

           SET DIK="^DD(65.91,"

           DO ^DIK

 +6        IF '$GET(LRFIRST)

               IF $GET(LRVR)<5.11

                   DO ^LRIPRE1

 +7        IF $GET(LRFIRST)

               DO LRO^LRIPRE1

 +8       ;removing a bad fields from Alpha sites.

           IF $GET(LRVR)>5.1

               KILL DA,DIK

               SET DA=7.5

               SET DA(1)=64.1111

               SET DIK="^DD(64.1111,"

               DO ^DIK

 +9        KILL ^LAB(69.91)

           SET ^LAB(69.91,0)="LR ROUTINE INTEGRITY CHECKER^69.91I^0^0"

 +10       IF $GET(LRVR)>5.11!($GET(LRFIRST))

               GOTO END

 +11       WRITE !?5,"Clearing 67.9",!

 +12       KILL DIU

           SET DIU="^LRO(67.9,"

           SET DIU(0)="DT"

           DO EN^DIU2

           KILL DIU

           WRITE !,"Done",!

 +13       WRITE !?5,"Clearing 69.91 ",!

 +14       KILL DIU

           SET DIU="^LAB(69.91,"

           SET DIU(0)="DT"

           DO EN^DIU2

           KILL DIU

           WRITE !,"Done",!

END       ;

 +1        WRITE !!,"Pre Init completed -- Starting init process ",!!

 +2        QUIT