- MDPOST82 ;HPS/CW - Post Installation Tasks ; 9/11/19 8:38am
- ;;1.0;CLINICAL PROCEDURES;**82**;Apr 01, 2004;Build 9
- ;;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...")
- ;
- ;Disable all old values of the parameters
- D GETLST^XPAR(.MDKLST,"SYS","MD VERSION CHK")
- F MDK=0:0 S MDK=$O(MDKLST(MDK)) Q:'MDK D
- .I $P(MDKLST(MDK),":",1)="CPUSER.EXE" D EN^XPAR("SYS","MD VERSION CHK",$P(MDKLST(MDK),"^",1),0)
- N MDK,MDKLST
- D GETLST^XPAR(.MDKLST,"SYS","MD CRC VALUES")
- F MDK=0:0 S MDK=$O(MDKLST(MDK)) Q:'MDK D
- .I $P(MDKLST(MDK),":",1)="CPUSER.EXE" D EN^XPAR("SYS","MD CRC VALUES",$P(MDKLST(MDK),"^",1),0)
- ; Update MD PARAMETERS with new build numbers for executables.
- D EN^XPAR("SYS","MD VERSION CHK","CPUSER.EXE:1.0.82.1",1)
- D EN^XPAR("SYS","MD CRC VALUES","CPUSER.EXE:1.0.82.1","4426F42B")
- ;
- K MDK,MDKLST
- D MES^XPDUTL(" MD*1.0*82 Post Init complete")
- ;
- Q
- ;
- ROLLBACK ;Rollback code
- ;Rollback to previous versions
- N MDK,MDKLST
- ;Issue message rollback is taking place
- D MES^XPDUTL("Rolling back versions to the previous CP USER")
- ;Clean out all old values of the parameters
- D GETLST^XPAR(.MDKLST,"SYS","MD VERSION CHK")
- F MDK=0:0 S MDK=$O(MDKLST(MDK)) Q:'MDK D
- .I $P(MDKLST(MDK),":",1)="CPUSER.EXE" D EN^XPAR("SYS","MD VERSION CHK",$P(MDKLST(MDK),"^",1),0)
- N MDK,MDLST
- D GETLST^XPAR(.MDKLST,"SYS","MD CRC VALUES")
- F MDK=0:0 S MDK=$O(MDKLST(MDK)) Q:'MDK D
- .I $P(MDKLST(MDK),":",1)="CPUSER.EXE" D EN^XPAR("SYS","MD CRC VALUES",$P(MDKLST(MDK),"^",1),0)
- ; Now set back the parameter to the previous version
- D EN^XPAR("SYS","MD VERSION CHK","CPUSER.EXE:1.0.71.3",1)
- D EN^XPAR("SYS","MD CRC VALUES","CPUSER.EXE:1.0.71.3","E038B74B")
- ;
- K MDK,MDLST
- D MES^XPDUTL(" MD*1.0*82 Rollback complete")
- ;
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMDPOST82 2095 printed Feb 18, 2025@23:10:05 Page 2
- MDPOST82 ;HPS/CW - Post Installation Tasks ; 9/11/19 8:38am
- +1 ;;1.0;CLINICAL PROCEDURES;**82**;Apr 01, 2004;Build 9
- +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 ;Disable all old values of the parameters
- +7 DO GETLST^XPAR(.MDKLST,"SYS","MD VERSION CHK")
- +8 FOR MDK=0:0
- SET MDK=$ORDER(MDKLST(MDK))
- if 'MDK
- QUIT
- Begin DoDot:1
- +9 IF $PIECE(MDKLST(MDK),":",1)="CPUSER.EXE"
- DO EN^XPAR("SYS","MD VERSION CHK",$PIECE(MDKLST(MDK),"^",1),0)
- End DoDot:1
- +10 NEW MDK,MDKLST
- +11 DO GETLST^XPAR(.MDKLST,"SYS","MD CRC VALUES")
- +12 FOR MDK=0:0
- SET MDK=$ORDER(MDKLST(MDK))
- if 'MDK
- QUIT
- Begin DoDot:1
- +13 IF $PIECE(MDKLST(MDK),":",1)="CPUSER.EXE"
- DO EN^XPAR("SYS","MD CRC VALUES",$PIECE(MDKLST(MDK),"^",1),0)
- End DoDot:1
- +14 ; Update MD PARAMETERS with new build numbers for executables.
- +15 DO EN^XPAR("SYS","MD VERSION CHK","CPUSER.EXE:1.0.82.1",1)
- +16 DO EN^XPAR("SYS","MD CRC VALUES","CPUSER.EXE:1.0.82.1","4426F42B")
- +17 ;
- +18 KILL MDK,MDKLST
- +19 DO MES^XPDUTL(" MD*1.0*82 Post Init complete")
- +20 ;
- +21 QUIT
- +22 ;
- ROLLBACK ;Rollback code
- +1 ;Rollback to previous versions
- +2 NEW MDK,MDKLST
- +3 ;Issue message rollback is taking place
- +4 DO MES^XPDUTL("Rolling back versions to the previous CP USER")
- +5 ;Clean out all old values of the parameters
- +6 DO GETLST^XPAR(.MDKLST,"SYS","MD VERSION CHK")
- +7 FOR MDK=0:0
- SET MDK=$ORDER(MDKLST(MDK))
- if 'MDK
- QUIT
- Begin DoDot:1
- +8 IF $PIECE(MDKLST(MDK),":",1)="CPUSER.EXE"
- DO EN^XPAR("SYS","MD VERSION CHK",$PIECE(MDKLST(MDK),"^",1),0)
- End DoDot:1
- +9 NEW MDK,MDLST
- +10 DO GETLST^XPAR(.MDKLST,"SYS","MD CRC VALUES")
- +11 FOR MDK=0:0
- SET MDK=$ORDER(MDKLST(MDK))
- if 'MDK
- QUIT
- Begin DoDot:1
- +12 IF $PIECE(MDKLST(MDK),":",1)="CPUSER.EXE"
- DO EN^XPAR("SYS","MD CRC VALUES",$PIECE(MDKLST(MDK),"^",1),0)
- End DoDot:1
- +13 ; Now set back the parameter to the previous version
- +14 DO EN^XPAR("SYS","MD VERSION CHK","CPUSER.EXE:1.0.71.3",1)
- +15 DO EN^XPAR("SYS","MD CRC VALUES","CPUSER.EXE:1.0.71.3","E038B74B")
- +16 ;
- +17 KILL MDK,MDLST
- +18 DO MES^XPDUTL(" MD*1.0*82 Rollback complete")
- +19 ;
- +20 QUIT
