- 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
