Routine: DVBA207P

DVBA207P ;ALB/JR - PARAMETERS (#8989.5) FILE UPDATE ;7/24/2018 1:00PM

 ;;2.7;AMIE;**207**;Apr 10, 1995;Build 4

 ; This routine uses the following IAs:

 ; 2263 - ^XPAR                  (supported)

 ; Update the PARAMETER (#8989.5) file to use new LCM URLs

POST  ; main entry point

 ; Announce my intentions

 D BMES^XPDUTL("Updating PARAMETER (#8989.5) FILE")

 N DVBERR

 ; Update PROD

 D EN^XPAR("PKG","DVBAB CAPRI VIRTUALVA PROD URL",1,"https://vbaphiprdwlsappa.vba.domain.ext:7002/VABFI/services/vva?wsdl",.DVBERR)

 I DVBERR D

 . D BMES^XPDUTL("DVBAB CAPRI VIRTUALVA PROD URL update FAILURE.")

 . D MES^XPDUTL("  Failure reason: "_DVBERR)

 E  D

 . D BMES^XPDUTL("DVBAB CAPRI VIRTUALVA PROD URL update SUCCESS.")

 ; Update TEST

 D EN^XPAR("PKG","DVBAB CAPRI VIRTUALVA TEST URL",1,"https://vbaphitstwlsappa.vba.domain.ext:7002/VABFI/services/vva",.DVBERR)

 I DVBERR D

 . D BMES^XPDUTL("DVBAB CAPRI VIRTUALVA TEST URL update FAILURE.")

 . D MES^XPDUTL("  Failure reason: "_DVBERR)

 E  D

 . D BMES^XPDUTL("DVBAB CAPRI VIRTUALVA TEST URL update SUCCESS.")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBA207P   1106     printed  Mar 13, 2025@20:44:09                                                                                                                                                                                                    Page 2

DVBA207P  ;ALB/JR - PARAMETERS (#8989.5) FILE UPDATE ;7/24/2018 1:00PM

 +1       ;;2.7;AMIE;**207**;Apr 10, 1995;Build 4

 +2       ;

 +3        QUIT

 +4       ; This routine uses the following IAs:

 +5       ; 2263 - ^XPAR                  (supported)

 +6       ;

 +7       ; Update the PARAMETER (#8989.5) file to use new LCM URLs

 +8       ;

POST      ; main entry point

 +1       ; Announce my intentions

 +2        DO BMES^XPDUTL("Updating PARAMETER (#8989.5) FILE")

 +3       ;

 +4        NEW DVBERR

 +5       ; Update PROD

 +6        DO EN^XPAR("PKG","DVBAB CAPRI VIRTUALVA PROD URL",1,"https://vbaphiprdwlsappa.vba.domain.ext:7002/VABFI/services/vva?wsdl",.DVBERR)

 +7        IF DVBERR

               Begin DoDot:1

 +8                DO BMES^XPDUTL("DVBAB CAPRI VIRTUALVA PROD URL update FAILURE.")

 +9                DO MES^XPDUTL("  Failure reason: "_DVBERR)

               End DoDot:1

 +10      IF '$TEST

               Begin DoDot:1

 +11               DO BMES^XPDUTL("DVBAB CAPRI VIRTUALVA PROD URL update SUCCESS.")

               End DoDot:1

 +12      ;

 +13      ; Update TEST

 +14       DO EN^XPAR("PKG","DVBAB CAPRI VIRTUALVA TEST URL",1,"https://vbaphitstwlsappa.vba.domain.ext:7002/VABFI/services/vva",.DVBERR)

 +15       IF DVBERR

               Begin DoDot:1

 +16               DO BMES^XPDUTL("DVBAB CAPRI VIRTUALVA TEST URL update FAILURE.")

 +17               DO MES^XPDUTL("  Failure reason: "_DVBERR)

               End DoDot:1

 +18      IF '$TEST

               Begin DoDot:1

 +19               DO BMES^XPDUTL("DVBAB CAPRI VIRTUALVA TEST URL update SUCCESS.")

               End DoDot:1

 +20      ;

 +21       QUIT

DVBA207P.m