MDPOST23 ;HINES OIFO/DP/BJ - Post Installation Tasks;06 OCTOBER 2011
;;1.0;CLINICAL PROCEDURES;**23**;Apr 01, 2004;Build 281
;Per VHA Directive 2004-038, this routine should not be modified.
;
; This routine uses the following IAs:
; #10141 - MES^XPDUTL Kernel (supported)
; #2263 - CHG^XPAR Kernel (supported)
;
EN ; Post installation tasks to bring Legacy CP up to snuff
;
N MDBUILD
S MDBUILD=$P($P($T(+2),";",7)," ",2)
;
; Installing commands in the command file...
D MES^XPDUTL(" Installing command file...")
D NDEL^XPAR("SYS","MD COMMANDS")
S MDCMD="" F S MDCMD=$O(@XPDGREF@("MD COMMANDS",MDCMD)) Q:MDCMD="" D
.D MES^XPDUTL(" Installing command '"_MDCMD_"'...")
.K MDTXT M MDTXT=@XPDGREF@("MD COMMANDS",MDCMD)
.D EN^XPAR("SYS","MD COMMANDS",MDCMD,.MDTXT)
; Import the new data
D IMPORT^MDTERM
D POSTCHK^MDTERM ; Checks for inactive term issues
D EN^XPAR("SYS","MD PARAMETERS","TERMINOLOGY_VERSION",MDBUILD)
D EN^XPAR("SYS","MD PARAMETERS","TERMINOLOGY_DESCRIPTION","Installed with KIDS Build MD*1.0*23")
;
; Update MD PARAMETERS with new build numbers for executables. Note: this is only
; going to be for CP Flowsheets and CP Console. We're not updating the CP Gateway
; service as part of P23 at this time.
;
F MDX="CPFLOWSHEETS","CPCONSOLE" D EN^XPAR("SYS","MD PARAMETERS","VERSION_"_MDX,"1.0.23."_MDBUILD)
;
D MES^XPDUTL(" MD*1.0*23 Post Init complete")
;
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMDPOST23 1546 printed Sep 23, 2025@19:19:21 Page 2
MDPOST23 ;HINES OIFO/DP/BJ - Post Installation Tasks;06 OCTOBER 2011
+1 ;;1.0;CLINICAL PROCEDURES;**23**;Apr 01, 2004;Build 281
+2 ;Per VHA Directive 2004-038, this routine should not be modified.
+3 ;
+4 ; This routine uses the following IAs:
+5 ; #10141 - MES^XPDUTL Kernel (supported)
+6 ; #2263 - CHG^XPAR Kernel (supported)
+7 ;
EN ; Post installation tasks to bring Legacy CP up to snuff
+1 ;
+2 NEW MDBUILD
+3 SET MDBUILD=$PIECE($PIECE($TEXT(+2),";",7)," ",2)
+4 ;
+5 ; Installing commands in the command file...
+6 DO MES^XPDUTL(" Installing command file...")
+7 DO NDEL^XPAR("SYS","MD COMMANDS")
+8 SET MDCMD=""
FOR
SET MDCMD=$ORDER(@XPDGREF@("MD COMMANDS",MDCMD))
if MDCMD=""
QUIT
Begin DoDot:1
+9 DO MES^XPDUTL(" Installing command '"_MDCMD_"'...")
+10 KILL MDTXT
MERGE MDTXT=@XPDGREF@("MD COMMANDS",MDCMD)
+11 DO EN^XPAR("SYS","MD COMMANDS",MDCMD,.MDTXT)
End DoDot:1
+12 ; Import the new data
+13 DO IMPORT^MDTERM
+14 ; Checks for inactive term issues
DO POSTCHK^MDTERM
+15 DO EN^XPAR("SYS","MD PARAMETERS","TERMINOLOGY_VERSION",MDBUILD)
+16 DO EN^XPAR("SYS","MD PARAMETERS","TERMINOLOGY_DESCRIPTION","Installed with KIDS Build MD*1.0*23")
+17 ;
+18 ; Update MD PARAMETERS with new build numbers for executables. Note: this is only
+19 ; going to be for CP Flowsheets and CP Console. We're not updating the CP Gateway
+20 ; service as part of P23 at this time.
+21 ;
+22 FOR MDX="CPFLOWSHEETS","CPCONSOLE"
DO EN^XPAR("SYS","MD PARAMETERS","VERSION_"_MDX,"1.0.23."_MDBUILD)
+23 ;
+24 DO MES^XPDUTL(" MD*1.0*23 Post Init complete")
+25 ;
+26 QUIT
+27 ;
