ACRF2EN ;IHS/OIRM/DSD/AEF - PATCH ENVIRONMENT CHECK ROUTINE [ 02/25/2002 11:39 AM ]
;;2.1;ADMIN RESOURCE MGT SYSTEM;**2**;NOV 05, 2001
;
EN ;EP
;----- MAIN ENTRY POINT
;
; INPUT:
; ACRPCHN = PATCH NAME
; ACRPCHS = PREREQUISITE PATCH NUMBERS
;
; OUTPUT:
; XPDQUIT = KIDS INSTALL TERMINATOR VARIABLE
; 1 = QUIT
;
K XPDQUIT
;
S ACRPCHN="ACR*2.1*2"
S ACRPCHS=1
;
D CHK(ACRPCHN,ACRPCHS,.XPDQUIT)
;
I $G(XPDQUIT) D Q
. D BMES^XPDUTL("This patch cannot be installed on your system.")
D BMES^XPDUTL("Everything looks OK, you may continue with installation.")
Q
CHK(ACRPCHN,ACRPCHS,XPDQUIT) ;EP
;----- DETERMINES IF PATCH VERSION MATCHES PACKAGE VERSION
;
; INPUT:
; ACRPCHN = PATCH NAME
; ACRPCHS = PREREQUISITE PATCH NUMBERS
;
; OUTPUT:
; XPDQUIT = KIDS INSTALL TERMINATOR VARIABLE
; 1 = QUIT
;
N D0,D1,I,J,P,X,Y,Z
;
S Y=$$VERSION^XPDUTL("ADMIN RESOURCE MGT SYSTEM")
;
;----- CHECK TO SEE IF ARMS IS INSTALLED
;
S D0=$O(^DIC(9.4,"B","ADMIN RESOURCE MGT SYSTEM",0))
I 'D0 D Q
. S XPDQUIT=1
. D BMES^XPDUTL("Unable to find 'ADMIN RESOURCE MGT SYSTEM' package in the Package file.")
;
S D1=$O(^DIC(9.4,D0,22,"B",Y,0))
I 'D1 D Q
. S XPDQUIT=1
. S X="Unable to find 'ADMIN RESOURCE MGT SYSTEM' Version "_Y_" in the Package file"
. D BMES^XPDUTL(X)
;
;----- CHECK TO SEE IF PATCH MATCHES CURRENT VERSION
;
I Y'=$$VER^XPDUTL(ACRPCHN) D Q
. S XPDQUIT=1
. S X="This patch is for ARMS version "_$$VER^XPDUTL(ACRPCHN)_" but you are running version "_Y_"."
. D BMES^XPDUTL(X)
;
;----- CHECK FOR REQUIRED PATCHES
;
Q:$G(ACRPCHS)']""
F I=1:1:$L(ACRPCHS,",") D
. S Z=$P(ACRPCHS,",",I)
. I Z["-" D Q
. . F J=$P(Z,"-"):1:$P(Z,"-",2) D
. . . I '$D(^DIC(9.4,D0,22,D1,"PAH","B",J)) D
. . . . S XPDQUIT=1
. . . . D PMSG(Y,J)
. I '$D(^DIC(9.4,D0,22,D1,"PAH","B",Z)) D
. . S XPDQUIT=1
. . D PMSG(Y,Z)
Q
PMSG(Y,P) ;
;----- ISSUE MISSING PATCH MESSAGE
;
; Y = VERSION NUMBER
; P = PATCH NUMBER
;
N X
S X="Patch ACR*"_Y_"*"_P_" is missing"
D BMES^XPDUTL(X)
Q
ACRF2EN ;IHS/OIRM/DSD/AEF - PATCH ENVIRONMENT CHECK ROUTINE [ 02/25/2002 11:39 AM ]
+1 ;;2.1;ADMIN RESOURCE MGT SYSTEM;**2**;NOV 05, 2001
+2 ;
EN ;EP
+1 ;----- MAIN ENTRY POINT
+2 ;
+3 ; INPUT:
+4 ; ACRPCHN = PATCH NAME
+5 ; ACRPCHS = PREREQUISITE PATCH NUMBERS
+6 ;
+7 ; OUTPUT:
+8 ; XPDQUIT = KIDS INSTALL TERMINATOR VARIABLE
+9 ; 1 = QUIT
+10 ;
+11 KILL XPDQUIT
+12 ;
+13 SET ACRPCHN="ACR*2.1*2"
+14 SET ACRPCHS=1
+15 ;
+16 DO CHK(ACRPCHN,ACRPCHS,.XPDQUIT)
+17 ;
+18 IF $GET(XPDQUIT)
Begin DoDot:1
+19 DO BMES^XPDUTL("This patch cannot be installed on your system.")
End DoDot:1
QUIT
+20 DO BMES^XPDUTL("Everything looks OK, you may continue with installation.")
+21 QUIT
CHK(ACRPCHN,ACRPCHS,XPDQUIT) ;EP
+1 ;----- DETERMINES IF PATCH VERSION MATCHES PACKAGE VERSION
+2 ;
+3 ; INPUT:
+4 ; ACRPCHN = PATCH NAME
+5 ; ACRPCHS = PREREQUISITE PATCH NUMBERS
+6 ;
+7 ; OUTPUT:
+8 ; XPDQUIT = KIDS INSTALL TERMINATOR VARIABLE
+9 ; 1 = QUIT
+10 ;
+11 NEW D0,D1,I,J,P,X,Y,Z
+12 ;
+13 SET Y=$$VERSION^XPDUTL("ADMIN RESOURCE MGT SYSTEM")
+14 ;
+15 ;----- CHECK TO SEE IF ARMS IS INSTALLED
+16 ;
+17 SET D0=$ORDER(^DIC(9.4,"B","ADMIN RESOURCE MGT SYSTEM",0))
+18 IF 'D0
Begin DoDot:1
+19 SET XPDQUIT=1
+20 DO BMES^XPDUTL("Unable to find 'ADMIN RESOURCE MGT SYSTEM' package in the Package file.")
End DoDot:1
QUIT
+21 ;
+22 SET D1=$ORDER(^DIC(9.4,D0,22,"B",Y,0))
+23 IF 'D1
Begin DoDot:1
+24 SET XPDQUIT=1
+25 SET X="Unable to find 'ADMIN RESOURCE MGT SYSTEM' Version "_Y_" in the Package file"
+26 DO BMES^XPDUTL(X)
End DoDot:1
QUIT
+27 ;
+28 ;----- CHECK TO SEE IF PATCH MATCHES CURRENT VERSION
+29 ;
+30 IF Y'=$$VER^XPDUTL(ACRPCHN)
Begin DoDot:1
+31 SET XPDQUIT=1
+32 SET X="This patch is for ARMS version "_$$VER^XPDUTL(ACRPCHN)_" but you are running version "_Y_"."
+33 DO BMES^XPDUTL(X)
End DoDot:1
QUIT
+34 ;
+35 ;----- CHECK FOR REQUIRED PATCHES
+36 ;
+37 IF $GET(ACRPCHS)']""
QUIT
+38 FOR I=1:1:$LENGTH(ACRPCHS,",")
Begin DoDot:1
+39 SET Z=$PIECE(ACRPCHS,",",I)
+40 IF Z["-"
Begin DoDot:2
+41 FOR J=$PIECE(Z,"-"):1:$PIECE(Z,"-",2)
Begin DoDot:3
+42 IF '$DATA(^DIC(9.4,D0,22,D1,"PAH","B",J))
Begin DoDot:4
+43 SET XPDQUIT=1
+44 DO PMSG(Y,J)
End DoDot:4
End DoDot:3
End DoDot:2
QUIT
+45 IF '$DATA(^DIC(9.4,D0,22,D1,"PAH","B",Z))
Begin DoDot:2
+46 SET XPDQUIT=1
+47 DO PMSG(Y,Z)
End DoDot:2
End DoDot:1
+48 QUIT
PMSG(Y,P) ;
+1 ;----- ISSUE MISSING PATCH MESSAGE
+2 ;
+3 ; Y = VERSION NUMBER
+4 ; P = PATCH NUMBER
+5 ;
+6 NEW X
+7 SET X="Patch ACR*"_Y_"*"_P_" is missing"
+8 DO BMES^XPDUTL(X)
+9 QUIT
