ACR21PST ;IHS/OIRM/DSD/AEF - VERSION 2.1 POST INSTALL ROUTINE [ 11/01/2001 10:01 AM ]
;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001
;
EN ;EP -- MAIN ENTRY POINT
;
D ^XBKVAR
D COMP
D SYSDEF
D SCRIPT1
Q
COMP ;----- COMPILE PRINT TEMPLATES
;
; This subroutine recompiles all the compiled ARMS print
; templates
;
N ACRIEN,ACRTEMP,DMAX,X,Y
D BMES^XPDUTL("Recompiling print templates...")
S ACRTEMP="ACR"
F S ACRTEMP=$O(^DIPT("B",ACRTEMP)) Q:ACRTEMP']"" Q:$E(ACRTEMP,1,3)'="ACR" D
. S ACRIEN=0
. F S ACRIEN=$O(^DIPT("B",ACRTEMP,ACRIEN)) Q:'ACRIEN D
. . S X=$P($G(^DIPT(ACRIEN,"ROU")),U,2)
. . Q:X']""
. . S Y=ACRIEN
. . S DMAX=$$ROUSIZE^DILF
. . D EN^DIPZ
Q
SYSDEF ;----- UPDATE SYSTEM DEFAULTS
;
; This update copies the Agency Location Code and
; Regional Finance Center code from the 1166 AFP SYSTEM
; PARAMETERS file to the FMS SYSTEM DEFAULTS file.
;
N ACRALC,ACRECS,ACRRFC,ACRSYS,DA,DIE,DR,X,Y
D BMES^XPDUTL("Updating System Defaults...")
S ACRSYS=$O(^AFSLPRM(0))
I 'ACRSYS D Q
. D BMES^XPDUTL("Can't locate AGENCY LOCATION CODE or REGIONAL")
. D BMES^XPDUTL("FINANCE CENTER, please notify developer.")
S ACRALC=$P($G(^AFSLPRM(ACRSYS,2)),U,2)
S ACRRFC=$P($G(^AFSLPRM(ACRSYS,2)),U,3)
S ACRECS="/usr/spool/afsdata/"
S DA=0
F S DA=$O(^ACRSYS(DA)) Q:'DA D
. S DIE="^ACRSYS("
. S DR="402.1///^S X=ACRALC;402.2///^S X=ACRRFC;402.3///^S X=ACRECS"
. D ^DIE
Q
SCRIPT1 ;----- INSTALL odocget UNIX SCRIPT
;
; Copies UNIX script contained in file acr_0210.s1 to
; /usr/spool/afsdata/odocget
;
N ACRDIR,ACRPATH,X,Y
D BMES^XPDUTL("Installing odocget UNIX script")
S X=$$TERMINAL^%HOSTCMD("pwd > acrdir")
D OPEN^%ZISH("FILE","","acrdir","R")
I POP D Q
. D BMES^XPDUTL("Unable to install 'odocget' UNIX script")
. D BMES^XPDUTL("Please notify developer")
U IO
R X:DTIME
S ACRDIR=X
D CLOSE^%ZISH("FILE")
S X=$$TERMINAL^%HOSTCMD("rm acrdir")
;
S X=$$TERMINAL^%HOSTCMD("find / acr_0210.s1 > acr1 2>&1")
S X=$$TERMINAL^%HOSTCMD("cat acr1 | grep acr_0210.s1 > acr2")
D OPEN^%ZISH("FILE","","acr2","R")
I POP D Q
. D BMES^XPDUTL("Unable to install 'odocget' UNIX script")
. D BMES^XPDUTL("Please notify developer")
U IO
R X:DTIME
S ACRPATH=X
S ACRPATH=$P(X,"/",1,$L(X,"/")-1)
D CLOSE^%ZISH("FILE")
S X=$$TERMINAL^%HOSTCMD("rm acr1")
S X=$$TERMINAL^%HOSTCMD("rm acr2")
;
S X=$$TERMINAL^%HOSTCMD("cp "_ACRPATH_"/acr_0210.s1"_" /usr/spool/afsdata/odocget")
S X=$$TERMINAL^%HOSTCMD("chmod a+x /usr/spool/afsdata/odocget")
Q
ACR21PST ;IHS/OIRM/DSD/AEF - VERSION 2.1 POST INSTALL ROUTINE [ 11/01/2001 10:01 AM ]
+1 ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001
+2 ;
EN ;EP -- MAIN ENTRY POINT
+1 ;
+2 DO ^XBKVAR
+3 DO COMP
+4 DO SYSDEF
+5 DO SCRIPT1
+6 QUIT
COMP ;----- COMPILE PRINT TEMPLATES
+1 ;
+2 ; This subroutine recompiles all the compiled ARMS print
+3 ; templates
+4 ;
+5 NEW ACRIEN,ACRTEMP,DMAX,X,Y
+6 DO BMES^XPDUTL("Recompiling print templates...")
+7 SET ACRTEMP="ACR"
+8 FOR
SET ACRTEMP=$ORDER(^DIPT("B",ACRTEMP))
IF ACRTEMP']""
QUIT
IF $EXTRACT(ACRTEMP,1,3)'="ACR"
QUIT
Begin DoDot:1
+9 SET ACRIEN=0
+10 FOR
SET ACRIEN=$ORDER(^DIPT("B",ACRTEMP,ACRIEN))
IF 'ACRIEN
QUIT
Begin DoDot:2
+11 SET X=$PIECE($GET(^DIPT(ACRIEN,"ROU")),U,2)
+12 IF X']""
QUIT
+13 SET Y=ACRIEN
+14 SET DMAX=$$ROUSIZE^DILF
+15 DO EN^DIPZ
End DoDot:2
End DoDot:1
+16 QUIT
SYSDEF ;----- UPDATE SYSTEM DEFAULTS
+1 ;
+2 ; This update copies the Agency Location Code and
+3 ; Regional Finance Center code from the 1166 AFP SYSTEM
+4 ; PARAMETERS file to the FMS SYSTEM DEFAULTS file.
+5 ;
+6 NEW ACRALC,ACRECS,ACRRFC,ACRSYS,DA,DIE,DR,X,Y
+7 DO BMES^XPDUTL("Updating System Defaults...")
+8 SET ACRSYS=$ORDER(^AFSLPRM(0))
+9 IF 'ACRSYS
Begin DoDot:1
+10 DO BMES^XPDUTL("Can't locate AGENCY LOCATION CODE or REGIONAL")
+11 DO BMES^XPDUTL("FINANCE CENTER, please notify developer.")
End DoDot:1
QUIT
+12 SET ACRALC=$PIECE($GET(^AFSLPRM(ACRSYS,2)),U,2)
+13 SET ACRRFC=$PIECE($GET(^AFSLPRM(ACRSYS,2)),U,3)
+14 SET ACRECS="/usr/spool/afsdata/"
+15 SET DA=0
+16 FOR
SET DA=$ORDER(^ACRSYS(DA))
IF 'DA
QUIT
Begin DoDot:1
+17 SET DIE="^ACRSYS("
+18 SET DR="402.1///^S X=ACRALC;402.2///^S X=ACRRFC;402.3///^S X=ACRECS"
+19 DO ^DIE
End DoDot:1
+20 QUIT
SCRIPT1 ;----- INSTALL odocget UNIX SCRIPT
+1 ;
+2 ; Copies UNIX script contained in file acr_0210.s1 to
+3 ; /usr/spool/afsdata/odocget
+4 ;
+5 NEW ACRDIR,ACRPATH,X,Y
+6 DO BMES^XPDUTL("Installing odocget UNIX script")
+7 SET X=$$TERMINAL^%HOSTCMD("pwd > acrdir")
+8 DO OPEN^%ZISH("FILE","","acrdir","R")
+9 IF POP
Begin DoDot:1
+10 DO BMES^XPDUTL("Unable to install 'odocget' UNIX script")
+11 DO BMES^XPDUTL("Please notify developer")
End DoDot:1
QUIT
+12 USE IO
+13 READ X:DTIME
+14 SET ACRDIR=X
+15 DO CLOSE^%ZISH("FILE")
+16 SET X=$$TERMINAL^%HOSTCMD("rm acrdir")
+17 ;
+18 SET X=$$TERMINAL^%HOSTCMD("find / acr_0210.s1 > acr1 2>&1")
+19 SET X=$$TERMINAL^%HOSTCMD("cat acr1 | grep acr_0210.s1 > acr2")
+20 DO OPEN^%ZISH("FILE","","acr2","R")
+21 IF POP
Begin DoDot:1
+22 DO BMES^XPDUTL("Unable to install 'odocget' UNIX script")
+23 DO BMES^XPDUTL("Please notify developer")
End DoDot:1
QUIT
+24 USE IO
+25 READ X:DTIME
+26 SET ACRPATH=X
+27 SET ACRPATH=$PIECE(X,"/",1,$LENGTH(X,"/")-1)
+28 DO CLOSE^%ZISH("FILE")
+29 SET X=$$TERMINAL^%HOSTCMD("rm acr1")
+30 SET X=$$TERMINAL^%HOSTCMD("rm acr2")
+31 ;
+32 SET X=$$TERMINAL^%HOSTCMD("cp "_ACRPATH_"/acr_0210.s1"_" /usr/spool/afsdata/odocget")
+33 SET X=$$TERMINAL^%HOSTCMD("chmod a+x /usr/spool/afsdata/odocget")
+34 QUIT
