Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DVBC237P

DVBC237P.m

Go to the documentation of this file.
  1. DVBC237P ;ALB/BG;PATCH 237 POST INSTALL ; 12/8/21 9:33am
  1. ;;2.7;AMIE;**237**;Apr 10, 1995;Build 11
  1. ;Per VHA Directive 6402 this routine should not be modified
  1. ;This routine uses the following IAs:
  1. ;2263 - ^XPAR (supported)
  1. ;Adds News Server to the PARAMETER File (#8989.5)
  1. ;Updates Capri Minimum version
  1. Q
  1. ;
  1. PARM ; main entry point
  1. ;adding file to 8989.5
  1. W !!,"*************************************************"
  1. D BMES^XPDUTL("Updating PARAMETER (#8989.5) FILE")
  1. N DVBERR,DVB1,DVB2,DVB3
  1. S DVBADD=$$FIND1^DIC(8989.5,"","X","DVBAB CAPRI NEWS SERVER URL","B","","ERR")
  1. I DVBADD'=0 D BMES^XPDUTL("Entry already exists") Q
  1. S DVBNM="DVBAB CAPRI NEWS SERVER URL"
  1. S DVB4="https://dvagov.sharepoint.com/:t:/r/sites/OITEPMOCAPRICOMM/Shared%20Documents/CAPRI%20Announcements/"
  1. D ADD^XPAR("PKG.AUTOMATED MED INFO EXCHANGE",DVBNM,,DVB4,.DVBERR)
  1. I $G(DVBERR)'=0 D BMES^XPDUTL("DVBAB CAPRI NEWS SERVER URL update FAILURE. REASON:"_$G(DVBERR))
  1. I $G(DVBERR)=0 D BMES^XPDUTL("DVBAB CAPRI NEWS SERVER URL update SUCCESS.")
  1. Q
  1. PMAIN ;-- update DVBAB CAPRI MINIMUM VERSION Parameter.
  1. ;
  1. D PARM
  1. ;
  1. N DVBERR
  1. W !!,"*************************************************"
  1. W !!,"Start DVBAB CAPRI Minimum Version Parameter Update"
  1. W !,"-------------------------",!
  1. S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI MINIMUM VERSION","CAPRI GUI V2.7*237.3*1*A*3220330*1.3*1.3")
  1. D UPDMSG("CAPRI Minimum Version",DVBERR)
  1. ;
  1. W !!,"-------------------------"
  1. W !,"End DVBAB CAPRI Minimum Version Parameter Updates"
  1. W !,"****************************************************",!!
  1. ;
  1. ;
  1. Q
  1. ENXPAR(DVBENT,DVBPAR,DVBVAL) ;
  1. ;
  1. N DVBERR
  1. D EN^XPAR(DVBENT,DVBPAR,1,DVBVAL,.DVBERR)
  1. Q DVBERR
  1. ;
  1. ;
  1. UPDMSG(DVBPAR,DVBERR) ;
  1. ;
  1. I DVBERR D
  1. . D MES^XPDUTL(DVBPAR_" update FAILURE.")
  1. . D MES^XPDUTL(" Failure reason: "_DVBERR)
  1. E D
  1. . D MES^XPDUTL(DVBPAR_" Update Successful")
  1. Q
  1. ;