PRCH130 ;WISC/AS-post init patch 130 ;5/18/09 12:27
;;5.1;IFCAP;**130**;Oct 20, 2000;Build 25
;Per VHA Directive 2004-038, this routine should not be modified.
;
INIT ;
; Populate values of password, and user name of the report production
; server By envoke EN^XPAR using methods detailed in IA #2263
;
N PRCP1,PRCP2,PRCP3
S PRCP3=0 ; Error Flag
I '$$PROD^XUPROD() S PRCP3=2 G EXIT ; Quit if not production
S PRCP1="2w5`WNj:c1" ; Encrypted password value
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))
S PRCP1="/?uK!26%Yh!" ; Encrypted user name value
D EN^XPAR("SYS","PRCPLO USER NAME",1,PRCP1,.PRCP2)
I PRCP2=0 D BMES^XPDUTL("PRCPLO USER NAME successfully populated")
I PRCP2'=0 S PRCP3=1 D BMES^XPDUTL("Error while trying to populate the PRCPLO USER NAME:") D MES^XPDUTL($P(PRCP2,"^",2))
EXIT ;
I PRCP3=0 D MES^XPDUTL("POST-INSTALL COMPLETED SUCCESSFULLY!")
I PRCP3=1 D MES^XPDUTL("POST-INSTALL COMPLETED WITH ERRORS!!!")
I PRCP3=2 N PRCMSG S PRCMSG(1)="As this is not a production system, username and password for the FTP Server",PRCMSG(2)=" were not filed." D MES^XPDUTL(.PRCMSG)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCH130 1408 printed Sep 23, 2025@19:41:03 Page 2
PRCH130 ;WISC/AS-post init patch 130 ;5/18/09 12:27
+1 ;;5.1;IFCAP;**130**;Oct 20, 2000;Build 25
+2 ;Per VHA Directive 2004-038, this routine should not be modified.
+3 ;
INIT ;
+1 ; Populate values of password, and user name of the report production
+2 ; server By envoke EN^XPAR using methods detailed in IA #2263
+3 ;
+4 NEW PRCP1,PRCP2,PRCP3
+5 ; Error Flag
SET PRCP3=0
+6 ; Quit if not production
IF '$$PROD^XUPROD()
SET PRCP3=2
GOTO EXIT
+7 ; Encrypted password value
SET PRCP1="2w5`WNj:c1"
+8 DO EN^XPAR("SYS","PRCPLO PASSWORD",1,PRCP1,.PRCP2)
+9 IF PRCP2=0
DO BMES^XPDUTL("PRCPLO PASSWORD successfully populated")
+10 IF PRCP2'=0
SET PRCP3=1
DO BMES^XPDUTL("Error while trying to populate the PRCPLO PASSWORD:")
DO MES^XPDUTL($PIECE(PRCP2,"^",2))
+11 ; Encrypted user name value
SET PRCP1="/?uK!26%Yh!"
+12 DO EN^XPAR("SYS","PRCPLO USER NAME",1,PRCP1,.PRCP2)
+13 IF PRCP2=0
DO BMES^XPDUTL("PRCPLO USER NAME successfully populated")
+14 IF PRCP2'=0
SET PRCP3=1
DO BMES^XPDUTL("Error while trying to populate the PRCPLO USER NAME:")
DO MES^XPDUTL($PIECE(PRCP2,"^",2))
EXIT ;
+1 IF PRCP3=0
DO MES^XPDUTL("POST-INSTALL COMPLETED SUCCESSFULLY!")
+2 IF PRCP3=1
DO MES^XPDUTL("POST-INSTALL COMPLETED WITH ERRORS!!!")
+3 IF PRCP3=2
NEW PRCMSG
SET PRCMSG(1)="As this is not a production system, username and password for the FTP Server"
SET PRCMSG(2)=" were not filed."
DO MES^XPDUTL(.PRCMSG)
+4 QUIT
