DG53620P ;Plano/DW - Post installation routine ; 8/2/2004
;;5.3;Registration;**620**;Aug 13, 1993
Q
EN ;Entry point
;
;Update input transforms
D DD^DG53620D
;
;Update cross-references
D EN^DG53620X
;
;Recompile templates
D TMPL
;
;Update triggered fields
D TRIG
;
Q
;
TMPL ;Recompile input templates
N DGFLD
D BMES^XPDUTL("Recompiling templates...")
F DGFLD=.01,.211,.2191,.2401,.2402,.2403,.331,.3311,.341 S DGFLD(2,DGFLD)=""
D DIEZ^DIKCUTL3(2,.DGFLD)
K DGFLD S DGFLD(2.01,.01)="" D DIEZ^DIKCUTL3(2.01,.DGFLD)
K DGFLD S DGFLD(2.101,30)="" D DIEZ^DIKCUTL3(2.101,.DGFLD)
Q
;
TRIG ;Update trigger definitions
N DGFLD
D BMES^XPDUTL("Updating trigger field definitions...")
F DGFLD=.01,.211,.2191,.2401,.2402,.2403,.331,.3311,.341 S DGFLD(2,DGFLD)=""
D T1(.DGFLD)
K DGFLD S DGFLD(2.01,.01)="" D T1(.DGFLD)
K DGFLD S DGFLD(2.101,30)="" D T1(.DGFLD)
Q
;
T1(DGFLD) ;Check/update triggering field definitions
;Input: DGFLD=array of fields to update
N DGOUT,DGFILE
D TRIG^DICR(.DGFLD,.DGOUT)
S DGFILE=0 F S DGFILE=$O(DGOUT(DGFILE)) Q:'DGFILE D
.S DGFLD=0 F S DGFLD=$O(DGOUT(DGFILE,DGFLD)) Q:'DGFLD D
..D MES^XPDUTL(" Field #"_DGFLD_" of file #"_DGFILE_" updated.")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53620P 1259 printed Nov 22, 2024@17:47:57 Page 2
DG53620P ;Plano/DW - Post installation routine ; 8/2/2004
+1 ;;5.3;Registration;**620**;Aug 13, 1993
+2 QUIT
EN ;Entry point
+1 ;
+2 ;Update input transforms
+3 DO DD^DG53620D
+4 ;
+5 ;Update cross-references
+6 DO EN^DG53620X
+7 ;
+8 ;Recompile templates
+9 DO TMPL
+10 ;
+11 ;Update triggered fields
+12 DO TRIG
+13 ;
+14 QUIT
+15 ;
TMPL ;Recompile input templates
+1 NEW DGFLD
+2 DO BMES^XPDUTL("Recompiling templates...")
+3 FOR DGFLD=.01,.211,.2191,.2401,.2402,.2403,.331,.3311,.341
SET DGFLD(2,DGFLD)=""
+4 DO DIEZ^DIKCUTL3(2,.DGFLD)
+5 KILL DGFLD
SET DGFLD(2.01,.01)=""
DO DIEZ^DIKCUTL3(2.01,.DGFLD)
+6 KILL DGFLD
SET DGFLD(2.101,30)=""
DO DIEZ^DIKCUTL3(2.101,.DGFLD)
+7 QUIT
+8 ;
TRIG ;Update trigger definitions
+1 NEW DGFLD
+2 DO BMES^XPDUTL("Updating trigger field definitions...")
+3 FOR DGFLD=.01,.211,.2191,.2401,.2402,.2403,.331,.3311,.341
SET DGFLD(2,DGFLD)=""
+4 DO T1(.DGFLD)
+5 KILL DGFLD
SET DGFLD(2.01,.01)=""
DO T1(.DGFLD)
+6 KILL DGFLD
SET DGFLD(2.101,30)=""
DO T1(.DGFLD)
+7 QUIT
+8 ;
T1(DGFLD) ;Check/update triggering field definitions
+1 ;Input: DGFLD=array of fields to update
+2 NEW DGOUT,DGFILE
+3 DO TRIG^DICR(.DGFLD,.DGOUT)
+4 SET DGFILE=0
FOR
SET DGFILE=$ORDER(DGOUT(DGFILE))
if 'DGFILE
QUIT
Begin DoDot:1
+5 SET DGFLD=0
FOR
SET DGFLD=$ORDER(DGOUT(DGFILE,DGFLD))
if 'DGFLD
QUIT
Begin DoDot:2
+6 DO MES^XPDUTL(" Field #"_DGFLD_" of file #"_DGFILE_" updated.")
End DoDot:2
End DoDot:1
+7 QUIT
+8 ;
