- 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 Feb 18, 2025@23:31:21 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