LR63IPRE.m

LR63IPRE ;DALISC/FHS - LR63 PRE INITS

 ;;5.2;LR;;NOV 01, 1997

 ;

 ;;5.2;LR63 1ST TIME INSTALL;;Sep 27, 1994

EN1 ;

 I $S('$D(DUZ):1,'$D(^VA(200,+DUZ)):1,'$D(IO):1,1:0) G DUZ

 I $S('$D(DUZ(0)):1,DUZ(0)'="@":1,1:0) G DUZ0

 S LRSITE=+$P($G(^XMB(1,1,"XUS")),U,17) I 'LRSITE K DIQF W !!?10,"Your Site is not defined in the 17th. Piece of ^XMB(1,1,XUS) global " Q

EN ;

 W !!?5,"This init will over write your DATA NAMES (#63) "

 W !,"Are you sure this is what you want" S %=2 D YN^DICN

 K:%'=1 DIFQ

 Q

DUZ W !!?10,"Please log in using access and verify codes",!!,$C(7) K DIFQ Q

DUZ0 W !!?10,"You do not have programmer access in your fileman access code",!!,$C(7) K DIFQ Q

LR63IPRE  ;DALISC/FHS - LR63 PRE INITS

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

 +2       ;

 +3       ;;5.2;LR63 1ST TIME INSTALL;;Sep 27, 1994

EN1       ;

 +1        IF $SELECT('$DATA(DUZ):1,'$DATA(^VA(200,+DUZ)):1,'$DATA(IO):1,1:0)

               GOTO DUZ

 +2        IF $SELECT('$DATA(DUZ(0)):1,DUZ(0)'="@":1,1:0)

               GOTO DUZ0

 +3        SET LRSITE=+$PIECE($GET(^XMB(1,1,"XUS")),U,17)

           IF 'LRSITE

               KILL DIQF

               WRITE !!?10,"Your Site is not defined in the 17th. Piece of ^XMB(1,1,XUS) global "

               QUIT 

EN        ;

 +1        WRITE !!?5,"This init will over write your DATA NAMES (#63) "

 +2        WRITE !,"Are you sure this is what you want"

           SET %=2

           DO YN^DICN

 +3        IF %'=1

               KILL DIFQ

 +4        QUIT 

DUZ        WRITE !!?10,"Please log in using access and verify codes",!!,$CHAR(7)

           KILL DIFQ

           QUIT 

DUZ0       WRITE !!?10,"You do not have programmer access in your fileman access code",!!,$CHAR(7)

           KILL DIFQ

           QUIT