MDPOST50 ;MNTVBB/RRA - Post Installation Tasks;01/07/17
;;1.0;CLINICAL PROCEDURES;**50**;Apr 01, 2004;Build 2
;;Per VA Directive 6402, this routine should not be modified..
;
; This routine uses the following IAs:
; IA# 10141 MES^XPDUTL Kernel
; IA# 2263 [Supported] XPAR Utilities
;
Q
EN ; Post installation tasks to bring Legacy CP up to snuff
;
N MDK,MDKLST
; Installing commands in the command file...
D MES^XPDUTL(" Post install starting....updating Parameters...")
;
; Deactivate all previous versions from XPAR
D GETLST^XPAR(.MDKLST,"SYS","MDK GUI VERSION")
F MDK=0:0 S MDK=$O(MDKLST(MDK)) Q:'MDK D
.D EN^XPAR("SYS","MDK GUI VERSION",$P(MDKLST(MDK),"^",1),0)
; Add and/or activate current client versions
; Update MD PARAMETERS with new build numbers for executables.
D EN^XPAR("SYS","MDK GUI VERSION","HEMODIALYSIS.EXE:1.0.50.3",1)
;
D MES^XPDUTL(" MD*1.0*50 Post Init complete")
;
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMDPOST50 955 printed Dec 13, 2024@01:43:27 Page 2
MDPOST50 ;MNTVBB/RRA - Post Installation Tasks;01/07/17
+1 ;;1.0;CLINICAL PROCEDURES;**50**;Apr 01, 2004;Build 2
+2 ;;Per VA Directive 6402, this routine should not be modified..
+3 ;
+4 ; This routine uses the following IAs:
+5 ; IA# 10141 MES^XPDUTL Kernel
+6 ; IA# 2263 [Supported] XPAR Utilities
+7 ;
+8 QUIT
EN ; Post installation tasks to bring Legacy CP up to snuff
+1 ;
+2 NEW MDK,MDKLST
+3 ; Installing commands in the command file...
+4 DO MES^XPDUTL(" Post install starting....updating Parameters...")
+5 ;
+6 ; Deactivate all previous versions from XPAR
+7 DO GETLST^XPAR(.MDKLST,"SYS","MDK GUI VERSION")
+8 FOR MDK=0:0
SET MDK=$ORDER(MDKLST(MDK))
if 'MDK
QUIT
Begin DoDot:1
+9 DO EN^XPAR("SYS","MDK GUI VERSION",$PIECE(MDKLST(MDK),"^",1),0)
End DoDot:1
+10 ; Add and/or activate current client versions
+11 ; Update MD PARAMETERS with new build numbers for executables.
+12 DO EN^XPAR("SYS","MDK GUI VERSION","HEMODIALYSIS.EXE:1.0.50.3",1)
+13 ;
+14 DO MES^XPDUTL(" MD*1.0*50 Post Init complete")
+15 ;
+16 QUIT
+17 ;
