DG53620P.m

DG53620P ;Plano/DW - Post installation routine ; 8/2/2004

 ;;5.3;Registration;**620,1015**;Aug 13, 1993;Build 21

 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

 ;

DG53620P  ;Plano/DW - Post installation routine ; 8/2/2004

 +1       ;;5.3;Registration;**620,1015**;Aug 13, 1993;Build 21

 +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       ;