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 ---[H[J[2J[HMDPRE23 1240 printed Dec 13, 2024@01:43:49 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
