MDPOST23.m

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 ---MDPOST23   1546     printed  Apr 09, 2024@20:47:33                                                                                                                                                                                                    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      ;