| 1 | DG53620P ;Plano/DW - Post installation routine ; 8/2/2004
|
|---|
| 2 | ;;5.3;Registration;**620**;Aug 13, 1993
|
|---|
| 3 | Q
|
|---|
| 4 | EN ;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 | ;
|
|---|
| 20 | TMPL ;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 | ;
|
|---|
| 29 | TRIG ;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 | ;
|
|---|
| 38 | T1(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 | ;
|
|---|
