MDPRE23.m

MDPRE23 ;HINES OIFO/BJ - Installation Tasks;07 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:

 ;  # 2263       - XPAR calls                   TOOLKIT                        (supported)

 ;  #10141       - MES^XPDUTL                   Kernel                         (supported)

 ;

TERM ; Terminology Pre-Init tasks

 ; Remove existing CDM files so new xrefs etc. come in clean

 D MES^XPDUTL(" Removing existing Clinical Data Model files.")

 N MD,DIU

 F MD=704.103,704.104,704.105,704.106,704.107 D:$$VFILE^DILFD(MD)

 .S DIU=MD,DIU(0)="DT" D EN^DIU2

 Q

 ;

EXPORT ; KIDS export call

 ;

 ; Export the command file into the KIDS global

 ;

 N MDCMD,MDX,MDTXT,DD,DA,IENS,FLD

 D MES^XPDUTL(" Preparing Command File for export...")

 D GETLST^XPAR(.MDCMD,"SYS","MD COMMANDS","Q")

 F MDX=0:0 S MDX=$O(MDCMD(MDX)) Q:'MDX  D

 .S MDCMD=$P(MDCMD(MDX),U,1)

 .D GETWP^XPAR(.MDTXT,"SYS","MD COMMANDS",MDCMD)

 .M @XPDGREF@("MD COMMANDS",MDCMD)=MDTXT

 D MES^XPDUTL(" Command File moved to KIDS distribution global.")

 ;

 ; Export the CDM into the KIDS distribution global

 ; 

 D EXPORT^MDTERM

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MDPRE23   1240     printed  Apr 09, 2024@20:49:17                                                                                                                                                                                                     Page 2

MDPRE23   ;HINES OIFO/BJ - Installation Tasks;07 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       ;  # 2263       - XPAR calls                   TOOLKIT                        (supported)

 +6       ;  #10141       - MES^XPDUTL                   Kernel                         (supported)

 +7       ;

TERM      ; Terminology Pre-Init tasks

 +1       ; Remove existing CDM files so new xrefs etc. come in clean

 +2        DO MES^XPDUTL(" Removing existing Clinical Data Model files.")

 +3        NEW MD,DIU

 +4        FOR MD=704.103,704.104,704.105,704.106,704.107

               if $$VFILE^DILFD(MD)

                   Begin DoDot:1

 +5                    SET DIU=MD

                       SET DIU(0)="DT"

                       DO EN^DIU2

                   End DoDot:1

 +6        QUIT 

 +7       ;

EXPORT    ; KIDS export call

 +1       ;

 +2       ; Export the command file into the KIDS global

 +3       ;

 +4        NEW MDCMD,MDX,MDTXT,DD,DA,IENS,FLD

 +5        DO MES^XPDUTL(" Preparing Command File for export...")

 +6        DO GETLST^XPAR(.MDCMD,"SYS","MD COMMANDS","Q")

 +7        FOR MDX=0:0

               SET MDX=$ORDER(MDCMD(MDX))

               if 'MDX

                   QUIT 

               Begin DoDot:1

 +8                SET MDCMD=$PIECE(MDCMD(MDX),U,1)

 +9                DO GETWP^XPAR(.MDTXT,"SYS","MD COMMANDS",MDCMD)

 +10               MERGE @XPDGREF@("MD COMMANDS",MDCMD)=MDTXT

               End DoDot:1

 +11       DO MES^XPDUTL(" Command File moved to KIDS distribution global.")

 +12      ;

 +13      ; Export the CDM into the KIDS distribution global

 +14      ; 

 +15       DO EXPORT^MDTERM

 +16       QUIT