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

DG531027P.m

Go to the documentation of this file. 
  1. DG531027P ;ALB/MCF - DG*5.3*1027 PRE AND POST-INSTALL ROUTINE TO SET UP HWSC ENTRIES FOR E&E WEB SERVICE;9 September 2020 9:00 AM
  1.  ;;5.3;Registration;**1027**;Aug 13, 1993;Build 70
  1.  ;
  1.  ; This routine is also used as an Environmental Check routine, though it does nothing except make the HELP
  1.  ;  tag below available for the Installation question in the build.
  1.  Q
  1.  ;
  1. HELP ; Help for ?? on Installation Question POS1 (use direct writes in env check routine)
  1.  W !,"Enter 1 if patch is being installed in a Pre-Production (Mirror) system."
  1.  W !,"Enter 2 if patch is being installed in a Software Quality Assurance system."
  1.  W !,"Enter 3 if patch is being installed in a Development system."
  1.  Q
  1.  ;
  1. PRE ; PRE INSTALL Main entry point
  1.  ; This routine contains the pre-install check which gets executed
  1.  ; before patch DG*5.3*1027 is allowed to install.
  1.  ; - Check that the wsdl file is accessible
  1.  ;
  1.  ; ICRs:  #2320 : $$LIST^%ZISH,$$DEFDIR^%ZISH
  1.  ;        10141 : BMES^XPDUTL
  1.  ;              : MES^XPDUTL
  1.  ;
  1.  ;  Input: Variables set by KIDS during pre-install check
  1.  ; Output: XPDABORT - KIDS variable set to abort installation - set to 1 to remove installation from the system
  1.  ;
  1.  D BMES^XPDUTL(">>> Beginning the DG*5.3*1027 Pre-install Routine")
  1.  ;
  1.  ; Check for wsdl file
  1.  D CHK
  1.  I $G(XPDABORT) D  Q
  1.  . D BMES^XPDUTL(">>> DG*5.3*1027 Pre-install Routine Failed.")
  1.  . D MES^XPDUTL("    - Installation Terminated.")
  1.  . D MES^XPDUTL("    - Transport global removed from system.")
  1.  D BMES^XPDUTL(">>> DG*5.3*1027 Pre-Install Successful")
  1.  Q
  1.  ;
  1. CHK ; Check for existence of WSDL file.
  1.  N DGBPATH
  1.  D BMES^XPDUTL(" o  Checking for the existence of the WSDL file eesummary.wsdl")
  1.  S DGBPATH=$$GETPATH("eesummary.wsdl")
  1.  ; If file is not found, abort the install
  1.  I DGBPATH="" S XPDABORT=1
  1.  E  D MES^XPDUTL("    > WSDL file located: "_DGBPATH)
  1.  Q
  1.  ;
  1. GETPATH(DGBWSDL) ; - Get the location of the DGBWSDL file
  1.  ; Return the path of the file. If not found, give error message and return NULL
  1.  N DGBSTAT,DGBPATH,DGBFILE
  1.  ; First check SOFTWARE directory
  1.  S DGBPATH="/srv/vista/patches/SOFTWARE/"
  1.  S DGBFILE(DGBWSDL)=""
  1.  S DGBSTAT=$$LIST^%ZISH(DGBPATH,"DGBFILE","DGBSTAT")
  1.  I 'DGBSTAT!($D(DGBSTAT)'=11) D
  1.  . ; If not found, check PUB directory
  1.  . S DGBPATH="/srv/vista/patches/PUB/DG_53_P1027/"
  1.  . S DGBSTAT=$$LIST^%ZISH(DGBPATH,"DGBFILE","DGBSTAT")
  1.  . I 'DGBSTAT!($D(DGBSTAT)'=11) D
  1.  . . ; If not found, check PRIMARY HFS DIRECTORY
  1.  . . S DGBPATH=$$DEFDIR^%ZISH
  1.  . . S DGBSTAT=$$LIST^%ZISH(DGBPATH,"DGBFILE","DGBSTAT")
  1.  . . I 'DGBSTAT!($D(DGBSTAT)'=11) D
  1.  . . . D BMES^XPDUTL("**** Error cannot find file "_DGBWSDL)
  1.  . . . D MES^XPDUTL("**** WSDL file "_DGBPATH_DGBWSDL_" not found.")
  1.  . . . D MES^XPDUTL("     File is needed prior to install.")
  1.  . . . S DGBPATH=""
  1.  Q DGBPATH
  1.  ;
  1. POST ; POST INSTALL Main entry point
  1.  ; ICRs:
  1.  ;        10141 : BMES^XPDUTL
  1.  ;              : MES^XPDUTL
  1.  ;         5421 : GENPORT^XOBWLIB
  1.  ;         7190 : R/W access to file 18.02
  1.  ;         7191 : R/W access to file 18.12
  1.  ;         2240 : $$ENCRYP^XUSRB1
  1.  ;        10096 : ^%ZSOF("DEL")
  1.  ;         3352 : DIEZ^DIKCUTL3
  1.  ;
  1.  D BMES^XPDUTL(">>> Patch DG*5.3*1027 - Post-install start...")
  1.  D POST1
  1.  D POST2
  1.  D POST3
  1.  D BMES^XPDUTL(">>> Patch DG*5.3*1027 - Post-install complete.")
  1.  Q
  1. POST1 ; Setup DG EE SUMMARY SERVER and SEVICE
  1.  N DGSRVR,DGSRVC
  1.  D BMES^XPDUTL(" o  Post-install set up for SSL Configuration...")
  1.  S DGSRVR="DG EE SUMMARY SERVER"
  1.  S DGSRVC="DG EE SUMMARY SERVICE"
  1.  ; If the DG EE SUMMARY SERVER is installed, set it to DISABLED so the update of the server won't cause errors
  1.  ; The patch installation will set it back to ENABLED.
  1.  D DISABLE
  1.  D SERVICE
  1.  D SERVER
  1.  Q
  1.  ;
  1. SERVICE ; from wsdl, create/compile classes and set up service
  1.  N DGARR,DGSTAT,DGBPATH
  1.  S DGBPATH=$$GETPATH("eesummary.wsdl")
  1.  S DGARR("WSDL FILE")=DGBPATH_"eesummary.wsdl"
  1.  S DGARR("CACHE PACKAGE NAME")="dgeewebsvc"
  1.  S DGARR("WEB SERVICE NAME")=DGSRVC
  1.  ; $$GENPORT^XOBWLIB handles BMES^XPDUTL messaging in the event of a success.
  1.  S DGSTAT=$$GENPORT^XOBWLIB(.DGARR)
  1.  I +DGSTAT=0 D BMES^XPDUTL($P(DGSTAT,"^",2)) Q   ; in the event of a failure
  1.  Q
  1.  ;
  1. SERVER ; set up web server
  1.  N DGEXIT,DGTYPE,DGCOUNT,DGEPT,DGPW,DGPORT,DGDATA
  1.  N DGIEN,DGIENS,DGSERVER,DGFDAI,DGERR,DGERR12,DGERR02,DGSRVIEN,DGSERVICE
  1.  ; Get the site type entered in the Installation question POS1
  1.  S DGTYPE=$G(XPDQUES("POS1"))
  1.  ; DGTYPE will be a value of 1-3 (PRE-PROD, SQA, DEVELOPMENT) (if no value, this is a PRODUCTION system)
  1.  I 'DGTYPE S DGTYPE=4
  1.  D MES^XPDUTL(" o  Setting up the server for "_$S(DGTYPE=1:"PRE-PROD",DGTYPE=2:"SQA",DGTYPE=3:"DEVELOPMENT",1:"PRODUCTION")_".")
  1.  S DGEXIT=0
  1.  ; Get the matching endpoint, password and port for the site type
  1.  F DGCOUNT=1:1 S DGDATA=$P($T(TYPEMAP+DGCOUNT),";;",2) D  Q:DGEXIT
  1.  . I $P(DGDATA,";",1)=DGTYPE S DGEPT=$P(DGDATA,";",3),DGPW=$P(DGDATA,";",4),DGPORT=$P(DGDATA,";",5),DGEXIT=1
  1.  S DGIEN("SRV")=$$FIND1^DIC(18.12,,"B",DGSRVR)
  1.  I DGIEN("SRV") S DGIENS("SRV")=DGIEN("SRV")_","
  1.  E  S DGIENS("SRV")="+1,"
  1.  ; NAME
  1.  S DGSERVER(18.12,DGIENS("SRV"),.01)=DGSRVR
  1.  ; PORT
  1.  S DGSERVER(18.12,DGIENS("SRV"),.03)=DGPORT
  1.  ; SERVER endpoint
  1.  S DGSERVER(18.12,DGIENS("SRV"),.04)=DGEPT
  1.  ; STATUS
  1.  ; For Pre-Prod, set Status to disabled, otherwise, enable
  1.  S DGSERVER(18.12,DGIENS("SRV"),.06)=$S(DGTYPE=1:0,1:1)
  1.  ; LOGIN REQUIRED
  1.  S DGSERVER(18.12,DGIENS("SRV"),1.01)=1
  1.  ; SSL ENABLED
  1.  S DGSERVER(18.12,DGIENS("SRV"),3.01)=1
  1.  ; SSL CONFIGURATION
  1.  S DGSERVER(18.12,DGIENS("SRV"),3.02)="encrypt_only_tlsv12"
  1.  ; SSL PORT
  1.  S DGSERVER(18.12,DGIENS("SRV"),3.03)=DGPORT
  1.  ; USERNAME
  1.  S DGSERVER(18.12,DGIENS("SRV"),200)="VistASvcUsr"
  1.  ; PASSWORD - must be encrypted
  1.  S DGSERVER(18.12,DGIENS("SRV"),300)=$$ENCRYP^XUSRB1(DGPW)
  1.  ;
  1.  I DGIEN("SRV") D FILE^DIE("","DGSERVER","DGERR12")    ; update existing entry
  1.  I 'DGIEN("SRV") D UPDATE^DIE("","DGSERVER","DGFDAI","DGERR") ; create new entry
  1.  I $D(DGFDAI) S DGIENS("SRV")=DGFDAI(1)_",",DGIEN("SRV")=DGFDAI(1)
  1.  I '$D(DGERR12("DIERR",1,"TEXT",1)) D BMES^XPDUTL(" o  WEB SERVER '"_DGSRVR_"' addition/update succeeded.")
  1.  I $D(DGERR12("DIERR",1,"TEXT",1)) D BMES^XPDUTL(" o  WEB SERVER '"_DGSRVR_"' Error: "_DGERR12("DIERR",1,"TEXT",1)) Q
  1.  ; once server is set up add the web service
  1.  S DGIENS("SRC")="+1,"
  1.  S DGSRVIEN=0
  1.  F  S DGSRVIEN=$O(^XOB(18.12,DGIEN("SRV"),100,"B",DGSRVIEN)) Q:'DGSRVIEN  D
  1.  . I $$GET1^DIQ(18.02,DGSRVIEN,.01)=DGSRVC S DGIENS("SRC")=DGSRVIEN_","
  1.  I DGIENS("SRC")'="+1," Q  ; don't update subentry pointers if already exist.
  1.  K DGSERVICE,DGFDAI
  1.  S DGSERVICE(18.121,DGIENS("SRC")_DGIENS("SRV"),.01)=DGSRVC
  1.  S DGSERVICE(18.121,DGIENS("SRC")_DGIENS("SRV"),.06)="ENABLED"
  1.  D UPDATE^DIE("E","DGSERVICE","DGFDAI","DGERR02") ; create new entry
  1.  I $D(DGERR02("DIERR",1,"TEXT",1)) D MES^XPDUTL(" o  "_DGERR02("DIERR",1,"TEXT",1))
  1.  I '$D(DGERR02("DIERR",1,"TEXT",1)) D BMES^XPDUTL(" o  '"_DGSRVC_"' service successfully authorized on server.")
  1.  Q
  1.  ;
  1. DISABLE ; Disable DG EE SUMMARY server if it exists - update of server will set it back to enabled (except for Pre-prod)
  1.  N DGIEN,DGSERVER,DGERR12
  1.  S DGIEN("SRV")=$$FIND1^DIC(18.12,,"B",DGSRVR)
  1.  I 'DGIEN("SRV") Q
  1.  ; Set STATUS to DISABLED
  1.  S DGSERVER(18.12,DGIEN("SRV")_",",.06)=0
  1.  D FILE^DIE("","DGSERVER","DGERR12")    ; update existing entry
  1.  D BMES^XPDUTL(" o  '"_DGSRVR_"' server temporarily disabled.")
  1.  Q
  1.  ;
  1. POST2 ; Cleanup of routines generated by WSDL compilation
  1.  D BMES^XPDUTL(" o  Cleanup of routines compiled from the WSDL.")
  1.  N DGCOUNT,DGDATA,X
  1.  F DGCOUNT=1:1 S DGDATA=$P($T(ROU+DGCOUNT),";;",2) Q:DGDATA="END"  D
  1.  . ; Delete all routines from the uppercase DGEEWEBS namespace
  1.  . S X="DGEEWEBS."_(DGDATA) X ^%ZOSF("DEL")
  1.  . ; Delete the routines in the lowercase dgeewebsvc namespace except the ones needed by the DG EE SUMMARY SERVICE
  1.  . I DGDATA="eeSummary.1"!(DGDATA="enrollmentDeterminationInfo.1")!(DGDATA="registrationInfo.1")!(DGDATA="eeSummaryPortSoap11.getEESummary.1")!(DGDATA="eeSummaryPortSoap11.1") Q
  1.  . S X="dgeewebsvc."_(DGDATA) X ^%ZOSF("DEL")
  1.  Q
  1.  ;
  1. POST3 ; Recompile all input templates for fields that were modified
  1.  ;Recompile all compiled input templates that contain specific fields.
  1.  N DGFLD
  1.  D BMES^XPDUTL(" o Recompile all compiled input templates that contain the following fields:")
  1.  D MES^XPDUTL("    PATIENT ENROLLMENT file(#27.11): ")
  1.  D MES^XPDUTL("    o APPLICATION DATE (#.01)")
  1.  D MES^XPDUTL("    o REASON/CANCELLED DECLINED (#.05)")
  1.  D MES^XPDUTL("    o PT APPLIED FOR ENROLLMENT? (#.14)")
  1.  D MES^XPDUTL("    o REGISTRATION ONLY REASON (#.15)")
  1.  ;
  1.  ;build array of file and field numbers for top-level file and fields being exported
  1.  ;array format: DGFLD(file#,field)=""
  1.  ;recompile all compiled input templates that contain the fields in the DGLFD array passed by reference 
  1.  ; PATIENT ENROLLMENT file #27.11
  1.  S DGFLD(27.11,.01)=""  ; APPLICATION DATE
  1.  S DGFLD(27.11,.05)=""  ; REASON/CANCELLED DECLINED
  1.  S DGFLD(27.11,.14)=""  ; PT APPLIED FOR ENROLLMENT?
  1.  S DGFLD(27.11,.15)=""  ; REGISTRATION ONLY REASON 
  1.  D DIEZ^DIKCUTL3(27.11,.DGFLD)
  1.  Q
  1.  ;
  1. ROU ; WSDL routines compiled
  1.  ;;EmailType.1
  1.  ;;NotificationType.1
  1.  ;;baseAddressInfo.1
  1.  ;;assetInfo.1
  1.  ;;baseFinancialInfo.1
  1.  ;;addressInfo.1
  1.  ;;associationInfo.1
  1.  ;;cancelDeclineInfo.1
  1.  ;;beneficiaryTravelInfo.1
  1.  ;;cdConditionInfo.1
  1.  ;;categoryInfo.1
  1.  ;;cdProcedureInfo.1
  1.  ;;combatEpisodeInfo.1
  1.  ;;catastrophicDisabilityInfo.1
  1.  ;;conflictExperienceInfo.1
  1.  ;;consentInfo.1
  1.  ;;communityCareEligibilityInfo.1
  1.  ;;debitInfo.1
  1.  ;;contactInfo.1
  1.  ;;deathRecondInfo.1
  1.  ;;dependentInfo.1
  1.  ;;demographicInfo.1
  1.  ;;eligibilityInfo.1
  1.  ;;dependentFinancialsInfo.1
  1.  ;;eligibilityStatusInfo.1
  1.  ;;eligibilityVerificationInfo.1
  1.  ;;emergencyResponseInfo.1
  1.  ;;employmentInfo.1
  1.  ;;eeSummary.1
  1.  ;;emailInfo.1
  1.  ;;expenseInfo.1
  1.  ;;feeBasisInfo.1
  1.  ;;financialsInfo.1
  1.  ;;geocodingInfo.1
  1.  ;;financialStatementInfo.1
  1.  ;;incomeInfo.1
  1.  ;;hardshipInfo.1
  1.  ;;healthBenefitPlanInfo.1
  1.  ;;enrollmentDeterminationInfo.1
  1.  ;;incompetenceRulingInfo.1
  1.  ;;ineligibilityFactorInfo.1
  1.  ;;incomeTestStatusInfo.1
  1.  ;;ivmLetterCandidateInfo.1
  1.  ;;ivmCandidateInfo.1
  1.  ;;incomeTestInfo.1
  1.  ;;ivmLetterInfo.1
  1.  ;;ivmLetterStatusInfo.1
  1.  ;;linkNotificationInfo.1
  1.  ;;militaryServiceEpisodeInfo.1
  1.  ;;insuranceInfo.1
  1.  ;;militarySexualTraumaInfo.1
  1.  ;;monetaryBenefitAwardInfo.1
  1.  ;;militaryServiceInfo.1
  1.  ;;moveNotificationInfo.1
  1.  ;;nameInfo.1
  1.  ;;militaryServiceSiteRecordInfo.1
  1.  ;;monetaryBenefitInfo.1
  1.  ;;phoneInfo.1
  1.  ;;nonPrimaryFinancialStatementInfo.1
  1.  ;;noseThroatRadiumInfo.1
  1.  ;;powEpisodeInfo.1
  1.  ;;primaryviewNotificationInfo.1
  1.  ;;preferredFacilityInfo.1
  1.  ;;prisonerOfWarInfo.1
  1.  ;;purpleHeartInfo.1
  1.  ;;registrationInfo.1
  1.  ;;personInfo.1
  1.  ;;relationInfo.1
  1.  ;;sendIVMInfo.1
  1.  ;;ratedDisabilityInfo.1
  1.  ;;specialFactorsInfo.1
  1.  ;;sensitivityInfo.1
  1.  ;;serviceConnectionAwardInfo.1
  1.  ;;spinalCordInjuryInfo.1
  1.  ;;ssnInfo.1
  1.  ;;spouseFinancialsInfo.1
  1.  ;;vamcInfo.1
  1.  ;;vceEligibilityInfo.1
  1.  ;;spouseInfo.1
  1.  ;;deliveryPreferenceInfo.1
  1.  ;;eeSummaryPortSoap11.1
  1.  ;;eeSummaryPortSoap11.getDeliveryPreference.1
  1.  ;;eeSummaryPortSoap11.getEESummary.1
  1.  ;;eeSummaryPortSoap11.getEESummaryHistory.1
  1.  ;;eeSummaryPortSoap11.getEligibilityDetermination.1
  1.  ;;eeSummaryPortSoap11.getIVMLetterStatuses.1
  1.  ;;eeSummaryPortSoap11.getPersonNotification.1
  1.  ;;eeSummaryPortSoap11.retrieveIVMCandidates.1
  1.  ;;eeSummaryPortSoap11.sendIVMUpdates.1
  1.  ;;eeSummaryPortSoap11.updateDeliveryPreference.1
  1.  ;;eeSummaryPortSoap11.updateIVMRecordStatus.1
  1.  ;;END
  1. TYPEMAP ;  Map the system type to the SERVER endpoint, Password and Port values
  1.  ;;1;PREPROD;vaww.esrpre-prod.aac.domain.ext;Th7$kj32;8443
  1.  ;;2;SQA;vaww.esrstage1a.aac.domain.ext;P6hy%43!;8443
  1.  ;;3;DEV;vaww.dev03-esm.domain.ext;4rfv$RFV;443
  1.  ;;4;PROD;vaww.esr.aac.domain.ext;Nh8#lkm7;8443