MDPOST83 ;HPS/JEL - MD*1*83 Post Installation Routine ; 8/4/23 2:53pm
;;1.0;CLINICAL PROCEDURES;**83**;Apr 01, 2004;Build 3
;;Per VA Directive 6402, this routine should not be modified.
;
; This routine uses the following IAs:
; #10141 - MES^XPDUTL Kernel (supported)
; #2263 - EN^XPAR Kernel (supported)
;
Q
EN ;
; Installing commands in the command file...
D MES^XPDUTL(" Post install starting....updating Parameters...")
;
; CP Hemodialysis
; 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.83.1",1)
;
D MES^XPDUTL(" MD*1.0*83 Post Init complete")
;
Q
ROLLBACK ;
D MES^XPDUTL(" Rollback starting....updating Parameters...")
;
; CP Hemodialysis
; 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 previous client version
; Update MD PARAMETERS with new build numbers for executables.
D EN^XPAR("SYS","MDK GUI VERSION","HEMODIALYSIS.EXE:1.0.75.1",1)
;
D MES^XPDUTL(" MD*1.0*75 Rollback complete")
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMDPOST83 1454 printed Nov 22, 2024@16:53:54 Page 2
MDPOST83 ;HPS/JEL - MD*1*83 Post Installation Routine ; 8/4/23 2:53pm
+1 ;;1.0;CLINICAL PROCEDURES;**83**;Apr 01, 2004;Build 3
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ; This routine uses the following IAs:
+5 ; #10141 - MES^XPDUTL Kernel (supported)
+6 ; #2263 - EN^XPAR Kernel (supported)
+7 ;
+8 QUIT
EN ;
+1 ; Installing commands in the command file...
+2 DO MES^XPDUTL(" Post install starting....updating Parameters...")
+3 ;
+4 ; CP Hemodialysis
+5 ; Deactivate all previous versions from XPAR
+6 DO GETLST^XPAR(.MDKLST,"SYS","MDK GUI VERSION")
+7 FOR MDK=0:0
SET MDK=$ORDER(MDKLST(MDK))
if 'MDK
QUIT
Begin DoDot:1
+8 DO EN^XPAR("SYS","MDK GUI VERSION",$PIECE(MDKLST(MDK),"^",1),0)
End DoDot:1
+9 ; Add and/or activate current client versions
+10 ; Update MD PARAMETERS with new build numbers for executables.
+11 DO EN^XPAR("SYS","MDK GUI VERSION","HEMODIALYSIS.EXE:1.0.83.1",1)
+12 ;
+13 DO MES^XPDUTL(" MD*1.0*83 Post Init complete")
+14 ;
+15 QUIT
ROLLBACK ;
+1 DO MES^XPDUTL(" Rollback starting....updating Parameters...")
+2 ;
+3 ; CP Hemodialysis
+4 ; Deactivate all previous versions from XPAR
+5 DO GETLST^XPAR(.MDKLST,"SYS","MDK GUI VERSION")
+6 FOR MDK=0:0
SET MDK=$ORDER(MDKLST(MDK))
if 'MDK
QUIT
Begin DoDot:1
+7 DO EN^XPAR("SYS","MDK GUI VERSION",$PIECE(MDKLST(MDK),"^",1),0)
End DoDot:1
+8 ; Add and/or activate previous client version
+9 ; Update MD PARAMETERS with new build numbers for executables.
+10 DO EN^XPAR("SYS","MDK GUI VERSION","HEMODIALYSIS.EXE:1.0.75.1",1)
+11 ;
+12 DO MES^XPDUTL(" MD*1.0*75 Rollback complete")
+13 ;
+14 QUIT
