DVBC209P ;ALB/BG;PATCH 209 POST INSTALL ; 2/25/19 6:01pm
;;2.7;AMIE;**209**;Apr 10, 1995 ;Build 17
;Per VHA Directive 6402 this routine should not be modified
;Converts Null values for file DVB(396.15)
;Updates Capri Minimum version
Q
;
EN ;
W !!,"****************************************************"
N DVBCX
S DVBCX=0
F S DVBCX=$O(^DVB(396.15,DVBCX)) Q:DVBCX="" D
.I $P($G(^DVB(396.15,DVBCX,3)),U)="" S $P(^DVB(396.15,DVBCX,3),U)="N"
W !!,"File 396.15 Updated"
W !!,"****************************************************"
;
;
;
PMAIN ;-- update DVBAB CAPRI MINIMUM VERSION Parameter.
;
N DVBERR
W !!,"*************************************************"
W !!,"Start DVBAB CAPRI Minimum Version Parameter Update"
W !,"-------------------------",!
;
S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI MINIMUM VERSION","CAPRI GUI V2.7*209.1*1*A*3190528")
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[HDVBC209P 1399 printed Dec 13, 2024@01:43:04 Page 2
DVBC209P ;ALB/BG;PATCH 209 POST INSTALL ; 2/25/19 6:01pm
+1 ;;2.7;AMIE;**209**;Apr 10, 1995 ;Build 17
+2 ;Per VHA Directive 6402 this routine should not be modified
+3 ;Converts Null values for file DVB(396.15)
+4 ;Updates Capri Minimum version
+5 QUIT
+6 ;
EN ;
+1 WRITE !!,"****************************************************"
+2 NEW DVBCX
+3 SET DVBCX=0
+4 FOR
SET DVBCX=$ORDER(^DVB(396.15,DVBCX))
if DVBCX=""
QUIT
Begin DoDot:1
+5 IF $PIECE($GET(^DVB(396.15,DVBCX,3)),U)=""
SET $PIECE(^DVB(396.15,DVBCX,3),U)="N"
End DoDot:1
+6 WRITE !!,"File 396.15 Updated"
+7 WRITE !!,"****************************************************"
+8 ;
+9 ;
+10 ;
PMAIN ;-- update DVBAB CAPRI MINIMUM VERSION Parameter.
+1 ;
+2 NEW DVBERR
+3 WRITE !!,"*************************************************"
+4 WRITE !!,"Start DVBAB CAPRI Minimum Version Parameter Update"
+5 WRITE !,"-------------------------",!
+6 ;
+7 SET DVBERR=$$ENXPAR("PKG","DVBAB CAPRI MINIMUM VERSION","CAPRI GUI V2.7*209.1*1*A*3190528")
+8 DO UPDMSG("CAPRI Minimum Version",DVBERR)
+9 ;
+10 WRITE !!,"-------------------------"
+11 WRITE !,"End DVBAB CAPRI Minimum Version Parameter Updates"
+12 WRITE !,"****************************************************",!!
+13 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 ;
