DG531167P ;ALB/JAM - DG*5.3*1167 POST INSTALL ROUTINE;07/01/2026 15:21pm
;;5.3;Registration;**1167**;Feb 23 2021;Build 7
;
QUIT ;No direct entry
;
;---------------------------------------------------------------------------
;Patch DG*5.3*1167: Environment, Pre-Install, and Post-Install entry points.
;---------------------------------------------------------------------------
;
ENV ;Main entry point for Environment check
Q
;
PRE ;Main entry point for Pre-Install items
Q
;
POST ;Main entry point for Post-Install items
D BMES^XPDUTL(">>> Patch DG*5.3*1167 - Post-install begin.")
D POST1 ;Recompile all compiled input templates ;
D BMES^XPDUTL(">>> Patch DG*5.3*1167 - Post-install complete.")
Q
;
POST1 ;Recompile all compiled input templates
;Recompile all compiled input templates that contain specific fields.
;This is needed because the data dictionary definition of these fields
;has changed and they are being exported via KIDS.
;
; Supported ICR's:
; 10141: BMES^XPDUTL
; : MES^XPDUTL
; 3352: DIEZ^DIKCUTL3
;
N DGFLD
;
D BMES^XPDUTL(">>> Recompile all compiled input templates that contain the following fields:")
;
D BMES^XPDUTL(" o TEMPORARY ADDRESS START DATE (#.1217) field in the PATIENT (#2) file")
D MES^XPDUTL(" o TEMPORARY ADDRESS END DATE (#.1218) field in the PATIENT (#2) file")
;build array of file and field numbers for top-level file and fields being exported
;array format: DGFLD(file#,field)=""
;recompile all compiled input templates that contain the fields in the DGLFD array passed by reference
S DGFLD(2,.1217)=""
S DGFLD(2,.1218)=""
D DIEZ^DIKCUTL3(2,.DGFLD)
K DGFLD
;
D BMES^XPDUTL(">>> Re-compile completed.")
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG531167P 1753 printed Oct 28, 2026@01:30:19 Page 2
DG531167P ;ALB/JAM - DG*5.3*1167 POST INSTALL ROUTINE;07/01/2026 15:21pm
+1 ;;5.3;Registration;**1167**;Feb 23 2021;Build 7
+2 ;
QUIT ;No direct entry
+1 ;
+2 ;---------------------------------------------------------------------------
+3 ;Patch DG*5.3*1167: Environment, Pre-Install, and Post-Install entry points.
+4 ;---------------------------------------------------------------------------
+5 ;
ENV ;Main entry point for Environment check
+1 QUIT
+2 ;
PRE ;Main entry point for Pre-Install items
+1 QUIT
+2 ;
POST ;Main entry point for Post-Install items
+1 DO BMES^XPDUTL(">>> Patch DG*5.3*1167 - Post-install begin.")
+2 ;Recompile all compiled input templates ;
DO POST1
+3 DO BMES^XPDUTL(">>> Patch DG*5.3*1167 - Post-install complete.")
+4 QUIT
+5 ;
POST1 ;Recompile all compiled input templates
+1 ;Recompile all compiled input templates that contain specific fields.
+2 ;This is needed because the data dictionary definition of these fields
+3 ;has changed and they are being exported via KIDS.
+4 ;
+5 ; Supported ICR's:
+6 ; 10141: BMES^XPDUTL
+7 ; : MES^XPDUTL
+8 ; 3352: DIEZ^DIKCUTL3
+9 ;
+10 NEW DGFLD
+11 ;
+12 DO BMES^XPDUTL(">>> Recompile all compiled input templates that contain the following fields:")
+13 ;
+14 DO BMES^XPDUTL(" o TEMPORARY ADDRESS START DATE (#.1217) field in the PATIENT (#2) file")
+15 DO MES^XPDUTL(" o TEMPORARY ADDRESS END DATE (#.1218) field in the PATIENT (#2) file")
+16 ;build array of file and field numbers for top-level file and fields being exported
+17 ;array format: DGFLD(file#,field)=""
+18 ;recompile all compiled input templates that contain the fields in the DGLFD array passed by reference
+19 SET DGFLD(2,.1217)=""
+20 SET DGFLD(2,.1218)=""
+21 DO DIEZ^DIKCUTL3(2,.DGFLD)
+22 KILL DGFLD
+23 ;
+24 DO BMES^XPDUTL(">>> Re-compile completed.")
+25 ;
+26 QUIT
