- 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 Feb 18, 2025@23:09:45 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 ;
