PRCP166P ;WISC/AS-post init patch 166 ;1/30/12 12:27
;;5.1;IFCAP;**166**;Oct 20, 2000;Build 4
;Per VHA Directive 2004-038, this routine should not be modified.
;;
Q
;;
INIT ;
; Populate values of IP and password of the report production
; server By invoke EN^XPAR using methods detailed in IA #2263
;
N PRCP1,PRCP2,PRCP3
S PRCP3=0
SETV ;Set new values (2nd instance) for new server access
;
IP S PRCP1="Vhahinwbdbair.v12.domain.ext" ; valid IP address for new server
D EN^XPAR("SYS","PRC CLRS ADDRESS",1,PRCP1,.PRCP2)
I PRCP2=0 D BMES^XPDUTL("PRC CLRS ADDRESS successfully populated")
I PRCP2'=0 S PRCP3=1 D BMES^XPDUTL("Error while trying to populate the PRC CLRS ADDRESS:") D MES^XPDUTL($P(PRCP2,"^",2))
;
PW S PRCP1="AdminCLRS$4" ; Encrypted password value
S PRCP1=$$ENCRYP^XUSRB1(PRCP1)
D EN^XPAR("SYS","PRCPLO PASSWORD",1,PRCP1,.PRCP2)
I PRCP2=0 D BMES^XPDUTL("PRCPLO PASSWORD successfully populated")
I PRCP2'=0 S PRCP3=1 D BMES^XPDUTL("Error while trying to populate the PRCPLO PASSWORD:") D MES^XPDUTL($P(PRCP2,"^",2))
;
EXIT ;
I PRCP3=0 D BMES^XPDUTL("POST-INSTALL COMPLETED SUCCESSFULLY!")
I PRCP3=1 D BMES^XPDUTL("POST-INSTALL COMPLETED WITH ERRORS!!!")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCP166P 1265 printed Dec 13, 2024@02:12:28 Page 2
PRCP166P ;WISC/AS-post init patch 166 ;1/30/12 12:27
+1 ;;5.1;IFCAP;**166**;Oct 20, 2000;Build 4
+2 ;Per VHA Directive 2004-038, this routine should not be modified.
+3 ;;
+4 QUIT
+5 ;;
INIT ;
+1 ; Populate values of IP and password of the report production
+2 ; server By invoke EN^XPAR using methods detailed in IA #2263
+3 ;
+4 NEW PRCP1,PRCP2,PRCP3
+5 SET PRCP3=0
SETV ;Set new values (2nd instance) for new server access
+1 ;
IP ; valid IP address for new server
SET PRCP1="Vhahinwbdbair.v12.domain.ext"
+1 DO EN^XPAR("SYS","PRC CLRS ADDRESS",1,PRCP1,.PRCP2)
+2 IF PRCP2=0
DO BMES^XPDUTL("PRC CLRS ADDRESS successfully populated")
+3 IF PRCP2'=0
SET PRCP3=1
DO BMES^XPDUTL("Error while trying to populate the PRC CLRS ADDRESS:")
DO MES^XPDUTL($PIECE(PRCP2,"^",2))
+4 ;
PW ; Encrypted password value
SET PRCP1="AdminCLRS$4"
+1 SET PRCP1=$$ENCRYP^XUSRB1(PRCP1)
+2 DO EN^XPAR("SYS","PRCPLO PASSWORD",1,PRCP1,.PRCP2)
+3 IF PRCP2=0
DO BMES^XPDUTL("PRCPLO PASSWORD successfully populated")
+4 IF PRCP2'=0
SET PRCP3=1
DO BMES^XPDUTL("Error while trying to populate the PRCPLO PASSWORD:")
DO MES^XPDUTL($PIECE(PRCP2,"^",2))
+5 ;
EXIT ;
+1 IF PRCP3=0
DO BMES^XPDUTL("POST-INSTALL COMPLETED SUCCESSFULLY!")
+2 IF PRCP3=1
DO BMES^XPDUTL("POST-INSTALL COMPLETED WITH ERRORS!!!")
+3 QUIT
