DVBC237P.m

DVBC237P ;ALB/BG;PATCH 237 POST INSTALL ; 12/8/21 9:33am

 ;;2.7;AMIE;**237**;Apr 10, 1995;Build 11

 ;Per VHA Directive 6402 this routine should not be modified

 ;This routine uses the following IAs:

 ;2263 - ^XPAR                  (supported)

 ;Adds News Server to the PARAMETER File (#8989.5)

 ;Updates Capri Minimum version

 Q

 ;

PARM ; main entry point

 ;adding file to 8989.5

 W !!,"*************************************************"

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

 N DVBERR,DVB1,DVB2,DVB3

 S DVBADD=$$FIND1^DIC(8989.5,"","X","DVBAB CAPRI NEWS SERVER URL","B","","ERR")

 I DVBADD'=0 D BMES^XPDUTL("Entry already exists") Q

 S DVBNM="DVBAB CAPRI NEWS SERVER URL"

 S DVB4="https://dvagov.sharepoint.com/:t:/r/sites/OITEPMOCAPRICOMM/Shared%20Documents/CAPRI%20Announcements/"

 D ADD^XPAR("PKG.AUTOMATED MED INFO EXCHANGE",DVBNM,,DVB4,.DVBERR)

 I $G(DVBERR)'=0 D BMES^XPDUTL("DVBAB CAPRI NEWS SERVER URL update FAILURE. REASON:"_$G(DVBERR))

 I $G(DVBERR)=0 D BMES^XPDUTL("DVBAB CAPRI NEWS SERVER URL update SUCCESS.")

 Q

PMAIN ;-- update DVBAB CAPRI MINIMUM VERSION Parameter.

 ;

 D PARM

 ;

 N DVBERR

 W !!,"*************************************************"

 W !!,"Start DVBAB CAPRI Minimum Version Parameter Update"

 W !,"-------------------------",!

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

 D UPDMSG("CAPRI Minimum Version",DVBERR)

 ;

 W !!,"-------------------------"

 W !,"End DVBAB CAPRI Minimum Version Parameter Updates"

 W !,"****************************************************",!!

 ;

 ;

 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_" Update Successful")

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DVBC237P   1923     printed  Apr 09, 2024@20:53:34                                                                                                                                                                                                    Page 2

DVBC237P  ;ALB/BG;PATCH 237 POST INSTALL ; 12/8/21 9:33am

 +1       ;;2.7;AMIE;**237**;Apr 10, 1995;Build 11

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

 +3       ;This routine uses the following IAs:

 +4       ;2263 - ^XPAR                  (supported)

 +5       ;Adds News Server to the PARAMETER File (#8989.5)

 +6       ;Updates Capri Minimum version

 +7        QUIT 

 +8       ;

PARM      ; main entry point

 +1       ;adding file to 8989.5

 +2        WRITE !!,"*************************************************"

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

 +4        NEW DVBERR,DVB1,DVB2,DVB3

 +5        SET DVBADD=$$FIND1^DIC(8989.5,"","X","DVBAB CAPRI NEWS SERVER URL","B","","ERR")

 +6        IF DVBADD'=0

               DO BMES^XPDUTL("Entry already exists")

               QUIT 

 +7        SET DVBNM="DVBAB CAPRI NEWS SERVER URL"

 +8        SET DVB4="https://dvagov.sharepoint.com/:t:/r/sites/OITEPMOCAPRICOMM/Shared%20Documents/CAPRI%20Announcements/"

 +9        DO ADD^XPAR("PKG.AUTOMATED MED INFO EXCHANGE",DVBNM,,DVB4,.DVBERR)

 +10       IF $GET(DVBERR)'=0

               DO BMES^XPDUTL("DVBAB CAPRI NEWS SERVER URL update FAILURE. REASON:"_$GET(DVBERR))

 +11       IF $GET(DVBERR)=0

               DO BMES^XPDUTL("DVBAB CAPRI NEWS SERVER URL update SUCCESS.")

 +12       QUIT 

PMAIN     ;-- update DVBAB CAPRI MINIMUM VERSION Parameter.

 +1       ;

 +2        DO PARM

 +3       ;

 +4        NEW DVBERR

 +5        WRITE !!,"*************************************************"

 +6        WRITE !!,"Start DVBAB CAPRI Minimum Version Parameter Update"

 +7        WRITE !,"-------------------------",!

 +8        SET DVBERR=$$ENXPAR("PKG","DVBAB CAPRI MINIMUM VERSION","CAPRI GUI V2.7*237.3*1*A*3220330*1.3*1.3")

 +9        DO UPDMSG("CAPRI Minimum Version",DVBERR)

 +10      ;

 +11       WRITE !!,"-------------------------"

 +12       WRITE !,"End DVBAB CAPRI Minimum Version Parameter Updates"

 +13       WRITE !,"****************************************************",!!

 +14      ;

 +15      ;

 +16       QUIT 

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_" Update Successful")

               End DoDot:1

 +7        QUIT 

 +8       ;