- 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 ---[H[J[2J[HDVBC237P 1923 printed Feb 18, 2025@23:09:33 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 ;