Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PRCH130

PRCH130.m

Go to the documentation of this file.
  1. PRCH130 ;WISC/AS-post init patch 130 ;5/18/09 12:27
  1. ;;5.1;IFCAP;**130**;Oct 20, 2000;Build 25
  1. ;Per VHA Directive 2004-038, this routine should not be modified.
  1. ;
  1. INIT ;
  1. ; Populate values of password, and user name of the report production
  1. ; server By envoke EN^XPAR using methods detailed in IA #2263
  1. ;
  1. N PRCP1,PRCP2,PRCP3
  1. S PRCP3=0 ; Error Flag
  1. I '$$PROD^XUPROD() S PRCP3=2 G EXIT ; Quit if not production
  1. S PRCP1="2w5`WNj:c1" ; Encrypted password value
  1. D EN^XPAR("SYS","PRCPLO PASSWORD",1,PRCP1,.PRCP2)
  1. I PRCP2=0 D BMES^XPDUTL("PRCPLO PASSWORD successfully populated")
  1. I PRCP2'=0 S PRCP3=1 D BMES^XPDUTL("Error while trying to populate the PRCPLO PASSWORD:") D MES^XPDUTL($P(PRCP2,"^",2))
  1. S PRCP1="/?uK!26%Yh!" ; Encrypted user name value
  1. D EN^XPAR("SYS","PRCPLO USER NAME",1,PRCP1,.PRCP2)
  1. I PRCP2=0 D BMES^XPDUTL("PRCPLO USER NAME successfully populated")
  1. I PRCP2'=0 S PRCP3=1 D BMES^XPDUTL("Error while trying to populate the PRCPLO USER NAME:") D MES^XPDUTL($P(PRCP2,"^",2))
  1. EXIT ;
  1. I PRCP3=0 D MES^XPDUTL("POST-INSTALL COMPLETED SUCCESSFULLY!")
  1. I PRCP3=1 D MES^XPDUTL("POST-INSTALL COMPLETED WITH ERRORS!!!")
  1. 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)
  1. Q