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 Dec 13, 2024@01:43:10 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 ;
