XUZP7ENV ;IHS/OIRM/DSD/AEF - PATCH XU*8.0*1007 ENVIRONMENT CHECK ROUTINE [ 04/04/2003 8:45 AM ]
;;8.0;KERNEL;**1007**;APR 1, 2003
;
EN ;EP -- MAIN ENTRY POINT
;
D ^XBKVAR
K XPDQUIT
D PARTSZ
D DUZ
D NOQUE
D KERVER
D NOASK
D TM
D ACT
;D XPDIJ
D QUIT
Q
PARTSZ ;----- SET PARTITION SIZE TO MAXIMUM
;
I $$VERSION^%ZOSV(1)["MSM" D
. V 108:$J:256*1024:4
Q
DUZ ;----- CHECK FOR VALID DUZ
;
I '$L($P($G(^VA(200,+$G(DUZ),0)),U)) D
. D BMES^XPDUTL("YOUR DUZ IS NOT SET TO A VALID DUZ")
. S XPDQUIT=2
Q:$G(XPDQUIT)
S DUZ(0)="@"
Q
NOQUE ;----- SET NOQUEUE FLAG
;
Q:$G(XPDQUIT)
S XPDNOQUE=1 ;DO NOT QUEUE
Q
KERVER ;----- CHECK KERNEL VERSION FOR VERSION 8
;
I +$$VERSION^XPDUTL("XU")'=8 D
. D BMES^XPDUTL("YOU ARE RUNNING VERSION "_$$VERSION^XPDUTL("XU")_" OF KERNEL")
. D BMES^XPDUTL("YOU MUST BE RUNNING VERSION 8.0")
. D BMES^XPDUTL("THIS DISTRIBUTION CANNOT BE INSTALLED")
. S XPDQUIT=2
Q
NOASK ;----- SUPPRESS ASK 'DISABLE OPTS','MOVE ROUTINES' PROMPTS
;
S XPDDIQ("XPZ1")=0 ;'DISABLE OPTIONS' SET DEFAULT TO 'NO' & NOT ASK
S XPDDIQ("XPZ2")=0 ;'MOVE ROUTINES' SET DEFAULT TO 'NO' & NOT ASK
Q
TM ;----- CHECK IF TASKMAN IS RUNNING
;
I $D(^%ZTSCH("RUN")) D
. D BMES^XPDUTL("IT APPEARS THAT TASKMAN IS RUNNING")
. D BMES^XPDUTL("YOU MUST SHUT DOWN TASKMAN BEFORE INSTALLING THIS DISTRIBUTION")
. S XPDQUIT=2
F I=1:1:12 W "." H 1
Q
ACT ;----- CHANGE ACTION IN TRANSPORT GLOBAL
;CHANGES ACTION TO SKIP (2) IN THE TRANSPORT GLOBAL FOR XPDIJ* ROUTINES
;
N I,X,XPDA,Y
Q:$G(XPDQUIT)
Q:'$G(XPDENV)
F I=1007,81,95,108,124,68,44 D
. S X="XU*8.0*"_I
. S Y=+$$PCHLU^XUZP7ENV(X)
. Q:Y'>0
. S XPDA=+Y
. Q:'$D(^XTMP("XPDI",XPDA,"RTN","XPDIJ"))
. S $P(^XTMP("XPDI",XPDA,"RTN","XPDIJ"),U)=2
F I=1007,108,200,68 D
. S X="XU*8.0*"_I
. S Y=+$$PCHLU^XUZP7ENV(X)
. Q:Y'>0
. S XPDA=+Y
. Q:'$D(^XTMP("XPDI",XPDA,"RTN","XPDIJ1"))
. S $P(^XTMP("XPDI",XPDA,"RTN","XPDIJ1"),U)=2
Q
XPDIJ ;----- INSTALL XPDIJ, XPDIJ1, ROUTINES NOW TO PREVENT <CLOBR> ERROR
;
N DIE,X,XCN,XPDA,XPDIJ,Y
Q:$G(XPDQUIT)
Q:'$G(XPDENV)
S Y=$$PCHLU^XUZP7ENV("XU*8.0*1007")
Q:+Y'>0
S XPDIJ=+Y
F X="XPDIJ","XPDIJ1" D
. S XPDA=XPDIJ
. S DIE="^XTMP(""XPDI"",XPDIJ,""RTN"","_""""_X_""""_","
. S XCN=0
. X ^%ZOSF("SAVE")
. S XCN=$$RTNUP^XPDUTL(X,2)
Q
PCHLU(X) ;----- PATCH LOOKUP IN INSTALL FILE
;
N DIC,Y
S DIC="^XPD(9.7,"
S DIC(0)=""
D ^DIC
Q Y
QUIT ;----- ISSUE MESSAGES
;
I $G(XPDQUIT) D
. D BMES^XPDUTL("INSTALL ABORTED!")
I '$G(XPDQUIT) D
. D BMES^XPDUTL("EVERYTHING LOOKS OK")
Q
XUZP7ENV ;IHS/OIRM/DSD/AEF - PATCH XU*8.0*1007 ENVIRONMENT CHECK ROUTINE [ 04/04/2003 8:45 AM ]
+1 ;;8.0;KERNEL;**1007**;APR 1, 2003
+2 ;
EN ;EP -- MAIN ENTRY POINT
+1 ;
+2 DO ^XBKVAR
+3 KILL XPDQUIT
+4 DO PARTSZ
+5 DO DUZ
+6 DO NOQUE
+7 DO KERVER
+8 DO NOASK
+9 DO TM
+10 DO ACT
+11 ;D XPDIJ
+12 DO QUIT
+13 QUIT
PARTSZ ;----- SET PARTITION SIZE TO MAXIMUM
+1 ;
+2 IF $$VERSION^%ZOSV(1)["MSM"
Begin DoDot:1
+3 VIEW 108:$JOB:256*1024:4
End DoDot:1
+4 QUIT
DUZ ;----- CHECK FOR VALID DUZ
+1 ;
+2 IF '$LENGTH($PIECE($GET(^VA(200,+$GET(DUZ),0)),U))
Begin DoDot:1
+3 DO BMES^XPDUTL("YOUR DUZ IS NOT SET TO A VALID DUZ")
+4 SET XPDQUIT=2
End DoDot:1
+5 IF $GET(XPDQUIT)
QUIT
+6 SET DUZ(0)="@"
+7 QUIT
NOQUE ;----- SET NOQUEUE FLAG
+1 ;
+2 IF $GET(XPDQUIT)
QUIT
+3 ;DO NOT QUEUE
SET XPDNOQUE=1
+4 QUIT
KERVER ;----- CHECK KERNEL VERSION FOR VERSION 8
+1 ;
+2 IF +$$VERSION^XPDUTL("XU")'=8
Begin DoDot:1
+3 DO BMES^XPDUTL("YOU ARE RUNNING VERSION "_$$VERSION^XPDUTL("XU")_" OF KERNEL")
+4 DO BMES^XPDUTL("YOU MUST BE RUNNING VERSION 8.0")
+5 DO BMES^XPDUTL("THIS DISTRIBUTION CANNOT BE INSTALLED")
+6 SET XPDQUIT=2
End DoDot:1
+7 QUIT
NOASK ;----- SUPPRESS ASK 'DISABLE OPTS','MOVE ROUTINES' PROMPTS
+1 ;
+2 ;'DISABLE OPTIONS' SET DEFAULT TO 'NO' & NOT ASK
SET XPDDIQ("XPZ1")=0
+3 ;'MOVE ROUTINES' SET DEFAULT TO 'NO' & NOT ASK
SET XPDDIQ("XPZ2")=0
+4 QUIT
TM ;----- CHECK IF TASKMAN IS RUNNING
+1 ;
+2 IF $DATA(^%ZTSCH("RUN"))
Begin DoDot:1
+3 DO BMES^XPDUTL("IT APPEARS THAT TASKMAN IS RUNNING")
+4 DO BMES^XPDUTL("YOU MUST SHUT DOWN TASKMAN BEFORE INSTALLING THIS DISTRIBUTION")
+5 SET XPDQUIT=2
End DoDot:1
+6 FOR I=1:1:12
WRITE "."
HANG 1
+7 QUIT
ACT ;----- CHANGE ACTION IN TRANSPORT GLOBAL
+1 ;CHANGES ACTION TO SKIP (2) IN THE TRANSPORT GLOBAL FOR XPDIJ* ROUTINES
+2 ;
+3 NEW I,X,XPDA,Y
+4 IF $GET(XPDQUIT)
QUIT
+5 IF '$GET(XPDENV)
QUIT
+6 FOR I=1007,81,95,108,124,68,44
Begin DoDot:1
+7 SET X="XU*8.0*"_I
+8 SET Y=+$$PCHLU^XUZP7ENV(X)
+9 IF Y'>0
QUIT
+10 SET XPDA=+Y
+11 IF '$DATA(^XTMP("XPDI",XPDA,"RTN","XPDIJ"))
QUIT
+12 SET $PIECE(^XTMP("XPDI",XPDA,"RTN","XPDIJ"),U)=2
End DoDot:1
+13 FOR I=1007,108,200,68
Begin DoDot:1
+14 SET X="XU*8.0*"_I
+15 SET Y=+$$PCHLU^XUZP7ENV(X)
+16 IF Y'>0
QUIT
+17 SET XPDA=+Y
+18 IF '$DATA(^XTMP("XPDI",XPDA,"RTN","XPDIJ1"))
QUIT
+19 SET $PIECE(^XTMP("XPDI",XPDA,"RTN","XPDIJ1"),U)=2
End DoDot:1
+20 QUIT
XPDIJ ;----- INSTALL XPDIJ, XPDIJ1, ROUTINES NOW TO PREVENT <CLOBR> ERROR
+1 ;
+2 NEW DIE,X,XCN,XPDA,XPDIJ,Y
+3 IF $GET(XPDQUIT)
QUIT
+4 IF '$GET(XPDENV)
QUIT
+5 SET Y=$$PCHLU^XUZP7ENV("XU*8.0*1007")
+6 IF +Y'>0
QUIT
+7 SET XPDIJ=+Y
+8 FOR X="XPDIJ","XPDIJ1"
Begin DoDot:1
+9 SET XPDA=XPDIJ
+10 SET DIE="^XTMP(""XPDI"",XPDIJ,""RTN"","_""""_X_""""_","
+11 SET XCN=0
+12 XECUTE ^%ZOSF("SAVE")
+13 SET XCN=$$RTNUP^XPDUTL(X,2)
End DoDot:1
+14 QUIT
PCHLU(X) ;----- PATCH LOOKUP IN INSTALL FILE
+1 ;
+2 NEW DIC,Y
+3 SET DIC="^XPD(9.7,"
+4 SET DIC(0)=""
+5 DO ^DIC
+6 QUIT Y
QUIT ;----- ISSUE MESSAGES
+1 ;
+2 IF $GET(XPDQUIT)
Begin DoDot:1
+3 DO BMES^XPDUTL("INSTALL ABORTED!")
End DoDot:1
+4 IF '$GET(XPDQUIT)
Begin DoDot:1
+5 DO BMES^XPDUTL("EVERYTHING LOOKS OK")
End DoDot:1
+6 QUIT
