LRIPRECK.m

LRIPRECK ;SLC/FHS - PRE-INIT ENVIRONMENT CHECK FOR VERSION 5.2 ;10/18/90 13:36 ; 

 ;;5.2;LR;;NOV 01, 1997

 ;

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

EN ;

 I $G(U)'="^" G DUZ

 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

 I $D(^DD(60,0,"VR")),+^DD(60,0,"VR")<5.1 W !,$C(7),"YOU MUST HAVE AT LEAST VERSION 5.1 BEFORE I CAN INIT THIS VERSION ",$P($T(+2),";",3),! K DIFQ Q

EN1 ;

 I $O(^DD(63.04,0)) S GLO="^DD(63.04",GLO1="^XTMP634",CM="," D ENT^LRIGCOPY

 I '$O(^DD(63.04,0)) W !?5,"You must first run the LR63INIT routines ",!!,$C(7) K DIFQ Q

 I '$D(^DD(62.4,.01,0))#2 W !?5,"You must first run ^LAINIT ",!!,$C(7) K DIFQ Q

FIRST ;

 S IOP="HOME",%ZIS="" D ^%ZIS I POP W !,"HOME device is not defined ",! K DIFQ Q

NPC I $G(^DD(60,0,"VR")),$G(^DD(60,0,"VR"))<5.11,$G(^LAB(60,"PREINIT"))'=2 D

 . W !!?5,"You must start the New Person conversion process before doing LRINITS ",!! K DIFQ

 Q:'$D(DIFQ)

GLB ;

 W !!,"Checking for required globals.",!

 F I=60,61,62,62.6,69.9 I '$D(^LAB(I,0))#2 W !,"Global ^LAB("_I_",0) is missing Load Global Tape ",!!,$C(7) K DIFQ Q

 I $D(DIFQ) W !!?10,"Global check complete 'OK' ",!

 I '$O(^LAB(60,0)) W !!?10,"You must load the LABORATORY PACKAGE Globals",!,"Consult your installation guide.",!!,$C(7) K DIFQ Q

 G:$G(^DD(60,0,"VR"))>5.1!('$D(^DD(60,0))) END

 F I=1:1 Q:$P($T(MSG+I),";",3)="END"  W !?5,$P($T(MSG+I),";",3)

 W !!?10,"OK to continue " S %=2 D YN^DICN I %'=1 K DIFQ Q

 Q

MSG ;

 ;;Please ensure that the laboratory service has collected all of 

 ;;workload (AMIS) data to this date. This information will be lost

 ;;after V 5.2 is installed.

 ;;

 ;;Please perform Purge old Orders and Accessions Option. This will

 ;;reduce the conversion time of the install.

 ;;

 ;;Make a copy of your tasked/startup Laboratory options. You will have

 ;;to re-enter the dates and times after the install.

 ;;END

 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

END ;

 Q

LRIPRECK  ;SLC/FHS - PRE-INIT ENVIRONMENT CHECK FOR VERSION 5.2 ;10/18/90 13:36 ; 

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

 +2       ;

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

EN        ;

 +1        IF $GET(U)'="^"

               GOTO DUZ

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

               GOTO DUZ

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

               GOTO DUZ0

 +4        IF $DATA(^DD(60,0,"VR"))

               IF +^DD(60,0,"VR")<5.1

                   WRITE !,$CHAR(7),"YOU MUST HAVE AT LEAST VERSION 5.1 BEFORE I CAN INIT THIS VERSION ",$PIECE($TEXT(+2),";",3),!

                   KILL DIFQ

                   QUIT 

EN1       ;

 +1        IF $ORDER(^DD(63.04,0))

               SET GLO="^DD(63.04"

               SET GLO1="^XTMP634"

               SET CM=","

               DO ENT^LRIGCOPY

 +2        IF '$ORDER(^DD(63.04,0))

               WRITE !?5,"You must first run the LR63INIT routines ",!!,$CHAR(7)

               KILL DIFQ

               QUIT 

 +3        IF '$DATA(^DD(62.4,.01,0))#2

               WRITE !?5,"You must first run ^LAINIT ",!!,$CHAR(7)

               KILL DIFQ

               QUIT 

FIRST     ;

 +1        SET IOP="HOME"

           SET %ZIS=""

           DO ^%ZIS

           IF POP

               WRITE !,"HOME device is not defined ",!

               KILL DIFQ

               QUIT 

NPC        IF $GET(^DD(60,0,"VR"))

               IF $GET(^DD(60,0,"VR"))<5.11

                   IF $GET(^LAB(60,"PREINIT"))'=2

                       Begin DoDot:1

 +1                        WRITE !!?5,"You must start the New Person conversion process before doing LRINITS ",!!

                           KILL DIFQ

                       End DoDot:1

 +2        IF '$DATA(DIFQ)

               QUIT 

GLB       ;

 +1        WRITE !!,"Checking for required globals.",!

 +2        FOR I=60,61,62,62.6,69.9

               IF '$DATA(^LAB(I,0))#2

                   WRITE !,"Global ^LAB("_I_",0) is missing Load Global Tape ",!!,$CHAR(7)

                   KILL DIFQ

                   QUIT 

 +3        IF $DATA(DIFQ)

               WRITE !!?10,"Global check complete 'OK' ",!

 +4        IF '$ORDER(^LAB(60,0))

               WRITE !!?10,"You must load the LABORATORY PACKAGE Globals",!,"Consult your installation guide.",!!,$CHAR(7)

               KILL DIFQ

               QUIT 

 +5        IF $GET(^DD(60,0,"VR"))>5.1!('$DATA(^DD(60,0)))

               GOTO END

 +6        FOR I=1:1

               IF $PIECE($TEXT(MSG+I),";",3)="END"

                   QUIT 

               WRITE !?5,$PIECE($TEXT(MSG+I),";",3)

 +7        WRITE !!?10,"OK to continue "

           SET %=2

           DO YN^DICN

           IF %'=1

               KILL DIFQ

               QUIT 

 +8        QUIT 

MSG       ;

 +1       ;;Please ensure that the laboratory service has collected all of 

 +2       ;;workload (AMIS) data to this date. This information will be lost

 +3       ;;after V 5.2 is installed.

 +4       ;;

 +5       ;;Please perform Purge old Orders and Accessions Option. This will

 +6       ;;reduce the conversion time of the install.

 +7       ;;

 +8       ;;Make a copy of your tasked/startup Laboratory options. You will have

 +9       ;;to re-enter the dates and times after the install.

 +10      ;;END

 +11       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 

END       ;

 +1        QUIT