- MDPOST70 ;HPS/MWA - MD*1*70 Post Installation Routine ; 03/21/19 5:24pm
- ;;1.0;CLINICAL PROCEDURES;**70**;Apr 01, 2004;Build 2
- ;;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.70.1",1)
- ;
- D MES^XPDUTL(" MD*1.0*70 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.66.2",1)
- ;
- D MES^XPDUTL(" MD*1.0*66 Rollback complete")
- ;
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMDPOST70 1456 printed Feb 18, 2025@23:10:01 Page 2
- 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
- +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.70.1",1)
- +12 ;
- +13 DO MES^XPDUTL(" MD*1.0*70 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.66.2",1)
- +11 ;
- +12 DO MES^XPDUTL(" MD*1.0*66 Rollback complete")
- +13 ;
- +14 QUIT