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

MDPOST70.m

Go to the documentation of this file.
  1. MDPOST70 ;HPS/MWA - MD*1*70 Post Installation Routine ; 03/21/19 5:24pm
  1. ;;1.0;CLINICAL PROCEDURES;**70**;Apr 01, 2004;Build 2
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. ; This routine uses the following IAs:
  1. ; #10141 - MES^XPDUTL Kernel (supported)
  1. ; #2263 - EN^XPAR Kernel (supported)
  1. ;
  1. Q
  1. EN ;
  1. ; Installing commands in the command file...
  1. D MES^XPDUTL(" Post install starting....updating Parameters...")
  1. ;
  1. ; CP Hemodialysis
  1. ; Deactivate all previous versions from XPAR
  1. D GETLST^XPAR(.MDKLST,"SYS","MDK GUI VERSION")
  1. F MDK=0:0 S MDK=$O(MDKLST(MDK)) Q:'MDK D
  1. .D EN^XPAR("SYS","MDK GUI VERSION",$P(MDKLST(MDK),"^",1),0)
  1. ; Add and/or activate current client versions
  1. ; Update MD PARAMETERS with new build numbers for executables.
  1. D EN^XPAR("SYS","MDK GUI VERSION","HEMODIALYSIS.EXE:1.0.70.1",1)
  1. ;
  1. D MES^XPDUTL(" MD*1.0*70 Post Init complete")
  1. ;
  1. Q
  1. ROLLBACK ;
  1. D MES^XPDUTL(" Rollback starting....updating Parameters...")
  1. ;
  1. ; CP Hemodialysis
  1. ; Deactivate all previous versions from XPAR
  1. D GETLST^XPAR(.MDKLST,"SYS","MDK GUI VERSION")
  1. F MDK=0:0 S MDK=$O(MDKLST(MDK)) Q:'MDK D
  1. .D EN^XPAR("SYS","MDK GUI VERSION",$P(MDKLST(MDK),"^",1),0)
  1. ; Add and/or activate previous client version
  1. ; Update MD PARAMETERS with new build numbers for executables.
  1. D EN^XPAR("SYS","MDK GUI VERSION","HEMODIALYSIS.EXE:1.0.66.2",1)
  1. ;
  1. D MES^XPDUTL(" MD*1.0*66 Rollback complete")
  1. ;
  1. Q