MDPOST85 ;HPS/CW - Post Installation Tasks ; 9/11/19 8:38am
;;1.0;CLINICAL PROCEDURES;**85**;Apr 01, 2004;Build 15
;;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 BMES^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.85.2",1)
D EN^XPAR("SYS","MD CRC VALUES","CPUSER.EXE:1.0.85.2","09762C94")
;
D BMES^XPDUTL(" Setting CP web link")
D EN^XPAR("SYS","MD WEBLINK",1,$$URL())
;
K MDK,MDKLST
D BMES^XPDUTL(" MD*1.0*85 Post Init complete")
;
Q
;
URL() ; [Function] Return Clinical Procedures Homepage URL
Q "dvagov.sharepoint.com/sites/OITEPMOClinicalProcedures/SitePages/Home.aspx"
;
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.82.1",1)
D EN^XPAR("SYS","MD CRC VALUES","CPUSER.EXE:1.0.82.1","4426F42B")
;
K MDK,MDLST
D MES^XPDUTL(" MD*1.0*85 Rollback complete")
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMDPOST85 2329 printed Sep 23, 2025@19:19:43 Page 2
MDPOST85 ;HPS/CW - Post Installation Tasks ; 9/11/19 8:38am
+1 ;;1.0;CLINICAL PROCEDURES;**85**;Apr 01, 2004;Build 15
+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 BMES^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.85.2",1)
+16 DO EN^XPAR("SYS","MD CRC VALUES","CPUSER.EXE:1.0.85.2","09762C94")
+17 ;
+18 DO BMES^XPDUTL(" Setting CP web link")
+19 DO EN^XPAR("SYS","MD WEBLINK",1,$$URL())
+20 ;
+21 KILL MDK,MDKLST
+22 DO BMES^XPDUTL(" MD*1.0*85 Post Init complete")
+23 ;
+24 QUIT
+25 ;
URL() ; [Function] Return Clinical Procedures Homepage URL
+1 QUIT "dvagov.sharepoint.com/sites/OITEPMOClinicalProcedures/SitePages/Home.aspx"
+2 ;
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.82.1",1)
+15 DO EN^XPAR("SYS","MD CRC VALUES","CPUSER.EXE:1.0.82.1","4426F42B")
+16 ;
+17 KILL MDK,MDLST
+18 DO MES^XPDUTL(" MD*1.0*85 Rollback complete")
+19 ;
+20 QUIT
