DG53P847.m

DG53P847 ;ALB/RC - PRE-INSTALL DG*5.3*847 ; 4/26/12

 ;;5.3;Registration;**847**;Aug 13, 1993;Build 6

 Q

EN ;Post install entry point

 N DGX,Y

 F DGX="DEL" D

 .S Y=$$NEWCP^XPDUTL(DGX,DGX_"^DG53P847")

 .I 'Y D BMES^XPDUTL("ERROR creating "_DGX_" checkpoint.")

 Q

DEL ;Delete trigger on field .119, .1311, .1313, .137 of file 2.

 N DGFILE,DGFIELD,DGREF

 F DGFIELD=.119,.1311,.1313,.137 S DGFILE=2,DGREF=1 D

 . D DELIX^DDMOD(DGFILE,DGFIELD,DGREF)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG53P847   460     printed  Apr 09, 2024@21:39:35                                                                                                                                                                                                     Page 2

DG53P847  ;ALB/RC - PRE-INSTALL DG*5.3*847 ; 4/26/12

 +1       ;;5.3;Registration;**847**;Aug 13, 1993;Build 6

 +2        QUIT 

EN        ;Post install entry point

 +1        NEW DGX,Y

 +2        FOR DGX="DEL"

               Begin DoDot:1

 +3                SET Y=$$NEWCP^XPDUTL(DGX,DGX_"^DG53P847")

 +4                IF 'Y

                       DO BMES^XPDUTL("ERROR creating "_DGX_" checkpoint.")

               End DoDot:1

 +5        QUIT 

DEL       ;Delete trigger on field .119, .1311, .1313, .137 of file 2.

 +1        NEW DGFILE,DGFIELD,DGREF

 +2        FOR DGFIELD=.119,.1311,.1313,.137

               SET DGFILE=2

               SET DGREF=1

               Begin DoDot:1

 +3                DO DELIX^DDMOD(DGFILE,DGFIELD,DGREF)

               End DoDot:1

 +4        QUIT