source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG53620P.m@ 767

Last change on this file since 767 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1DG53620P ;Plano/DW - Post installation routine ; 8/2/2004
2 ;;5.3;Registration;**620**;Aug 13, 1993
3 Q
4EN ;Entry point
5 ;
6 ;Update input transforms
7 D DD^DG53620D
8 ;
9 ;Update cross-references
10 D EN^DG53620X
11 ;
12 ;Recompile templates
13 D TMPL
14 ;
15 ;Update triggered fields
16 D TRIG
17 ;
18 Q
19 ;
20TMPL ;Recompile input templates
21 N DGFLD
22 D BMES^XPDUTL("Recompiling templates...")
23 F DGFLD=.01,.211,.2191,.2401,.2402,.2403,.331,.3311,.341 S DGFLD(2,DGFLD)=""
24 D DIEZ^DIKCUTL3(2,.DGFLD)
25 K DGFLD S DGFLD(2.01,.01)="" D DIEZ^DIKCUTL3(2.01,.DGFLD)
26 K DGFLD S DGFLD(2.101,30)="" D DIEZ^DIKCUTL3(2.101,.DGFLD)
27 Q
28 ;
29TRIG ;Update trigger definitions
30 N DGFLD
31 D BMES^XPDUTL("Updating trigger field definitions...")
32 F DGFLD=.01,.211,.2191,.2401,.2402,.2403,.331,.3311,.341 S DGFLD(2,DGFLD)=""
33 D T1(.DGFLD)
34 K DGFLD S DGFLD(2.01,.01)="" D T1(.DGFLD)
35 K DGFLD S DGFLD(2.101,30)="" D T1(.DGFLD)
36 Q
37 ;
38T1(DGFLD) ;Check/update triggering field definitions
39 ;Input: DGFLD=array of fields to update
40 N DGOUT,DGFILE
41 D TRIG^DICR(.DGFLD,.DGOUT)
42 S DGFILE=0 F S DGFILE=$O(DGOUT(DGFILE)) Q:'DGFILE D
43 .S DGFLD=0 F S DGFLD=$O(DGOUT(DGFILE,DGFLD)) Q:'DGFLD D
44 ..D MES^XPDUTL(" Field #"_DGFLD_" of file #"_DGFILE_" updated.")
45 Q
46 ;
Note: See TracBrowser for help on using the repository browser.