DVBC238P.m

DVBC238P ;ALB/BG - PATCH 238 POST INSTALL ; 7/27/22 9:04am

 ;;2.7;AMIE;**238**;Apr 10, 1995;Build 16

 ;Per VHA Directive 6402 this routine should not be modified

 ;#1157 - $$ADD^XPDMENU (supported)

 ;Updates Capri Minimum version, parameters and adds options

 Q

 ;

PMAIN ;-- update DVBAB CAPRI MINIMUM VERSION Parameter.

 D MES^XPDUTL("Patch DVBA*2.7*238 post install started")

 N DVBERR,DVBMENU,DVBOPT,DVBOR,DVBSYN

 S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI MINIMUM VERSION","CAPRI GUI V2.7*238.2*1*A*3220815*1.3*1.3")

 D UPDMSG("CAPRI MINIMUM VERSION",DVBERR)

 S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI PREVIOUS VERSION","DVBA*2.7*240.1")

 D UPDMSG("DVBAB CAPRI PREVIOUS VERSION",DVBERR)

 K DVBERR S DVBMENU="DVBA C MEDICAL ADM REPORT MENU",DVBOPT="DVBA METRICS DATA REPORT",DVBOR=11,DVBSYN=11

 S DVBERR=$$ADD^XPDMENU(DVBMENU,DVBOPT,DVBSYN,DVBOR)

 I DVBERR=0 D MES^XPDUTL("Error adding option")

 I DVBERR=1 D MES^XPDUTL("DVBA METRICS DATA REPORT added")

 K DVBERR S DVBMENU="DVBA C MEDICAL ADM REPORT MENU",DVBOPT="DVBA METRICS DATA PURGE",DVBOR=12,DVBSYN=12

 S DVBERR=$$ADD^XPDMENU(DVBMENU,DVBOPT,DVBSYN,DVBOR)

 I DVBERR=0 D MES^XPDUTL("Error adding option")

 I DVBERR=1 D MES^XPDUTL("DVBA METRICS DATA PURGE added")

 S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI VLER DAS PROD URL","https://capriauthsvrprod.domain.ext:7003/dbq")

 D UPDMSG("DVBAB CAPRI VLER DAS PROD URL",DVBERR)

 D SECKEY^DVBCP238

 D MES^XPDUTL("Patch DVBA*2.7*238 post install finished")

 Q

 ;

ENXPAR(DVBENT,DVBPAR,DVBVAL) ;

 ;

 N DVBERR

 D EN^XPAR(DVBENT,DVBPAR,1,DVBVAL,.DVBERR)

 Q DVBERR

 ;

 ;

UPDMSG(DVBPAR,DVBERR) ;

 ;

 I DVBERR D

 . D MES^XPDUTL(DVBPAR_" Update FAILURE.")

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

 E  D

 . D MES^XPDUTL(DVBPAR_" Updated Successfully")

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DVBC238P   1782     printed  Apr 09, 2024@20:45:54                                                                                                                                                                                                    Page 2

DVBC238P  ;ALB/BG - PATCH 238 POST INSTALL ; 7/27/22 9:04am

 +1       ;;2.7;AMIE;**238**;Apr 10, 1995;Build 16

 +2       ;Per VHA Directive 6402 this routine should not be modified

 +3       ;#1157 - $$ADD^XPDMENU (supported)

 +4       ;Updates Capri Minimum version, parameters and adds options

 +5        QUIT 

 +6       ;

PMAIN     ;-- update DVBAB CAPRI MINIMUM VERSION Parameter.

 +1        DO MES^XPDUTL("Patch DVBA*2.7*238 post install started")

 +2        NEW DVBERR,DVBMENU,DVBOPT,DVBOR,DVBSYN

 +3        SET DVBERR=$$ENXPAR("PKG","DVBAB CAPRI MINIMUM VERSION","CAPRI GUI V2.7*238.2*1*A*3220815*1.3*1.3")

 +4        DO UPDMSG("CAPRI MINIMUM VERSION",DVBERR)

 +5        SET DVBERR=$$ENXPAR("PKG","DVBAB CAPRI PREVIOUS VERSION","DVBA*2.7*240.1")

 +6        DO UPDMSG("DVBAB CAPRI PREVIOUS VERSION",DVBERR)

 +7        KILL DVBERR

           SET DVBMENU="DVBA C MEDICAL ADM REPORT MENU"

           SET DVBOPT="DVBA METRICS DATA REPORT"

           SET DVBOR=11

           SET DVBSYN=11

 +8        SET DVBERR=$$ADD^XPDMENU(DVBMENU,DVBOPT,DVBSYN,DVBOR)

 +9        IF DVBERR=0

               DO MES^XPDUTL("Error adding option")

 +10       IF DVBERR=1

               DO MES^XPDUTL("DVBA METRICS DATA REPORT added")

 +11       KILL DVBERR

           SET DVBMENU="DVBA C MEDICAL ADM REPORT MENU"

           SET DVBOPT="DVBA METRICS DATA PURGE"

           SET DVBOR=12

           SET DVBSYN=12

 +12       SET DVBERR=$$ADD^XPDMENU(DVBMENU,DVBOPT,DVBSYN,DVBOR)

 +13       IF DVBERR=0

               DO MES^XPDUTL("Error adding option")

 +14       IF DVBERR=1

               DO MES^XPDUTL("DVBA METRICS DATA PURGE added")

 +15       SET DVBERR=$$ENXPAR("PKG","DVBAB CAPRI VLER DAS PROD URL","https://capriauthsvrprod.domain.ext:7003/dbq")

 +16       DO UPDMSG("DVBAB CAPRI VLER DAS PROD URL",DVBERR)

 +17       DO SECKEY^DVBCP238

 +18       DO MES^XPDUTL("Patch DVBA*2.7*238 post install finished")

 +19       QUIT 

 +20      ;

ENXPAR(DVBENT,DVBPAR,DVBVAL) ;

 +1       ;

 +2        NEW DVBERR

 +3        DO EN^XPAR(DVBENT,DVBPAR,1,DVBVAL,.DVBERR)

 +4        QUIT DVBERR

 +5       ;

 +6       ;

UPDMSG(DVBPAR,DVBERR) ;

 +1       ;

 +2        IF DVBERR

               Begin DoDot:1

 +3                DO MES^XPDUTL(DVBPAR_" Update FAILURE.")

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

               End DoDot:1

 +5       IF '$TEST

               Begin DoDot:1

 +6                DO MES^XPDUTL(DVBPAR_" Updated Successfully")

               End DoDot:1

 +7        QUIT 

 +8       ;