MDPOST70.m

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 ---MDPOST70   1456     printed  Apr 09, 2024@20:48:44                                                                                                                                                                                                    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