DG53P784.m

DG53P784 ;ALB/RC - PRE-INSTALL DG*5.3*784 ; 6/12/08 12:17pm

 ;;5.3;Registration;**784**;Aug 13, 1993;Build 16

 Q

EN ;Post install entry point

 N DGX,Y

 F DGX="DEL" D

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

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

 Q

DEL ;Delete trigger on field 2 of subfile 45.02 for file 45.

 N DGFILE,DGFIELD,DGREF

 S DGFILE=45.02,DGFIELD=2,DGREF=1

 D DELIX^DDMOD(DGFILE,DGFIELD,DGREF)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG53P784   443     printed  Dec 13, 2024@02:40:07                                                                                                                                                                                                     Page 2

DG53P784  ;ALB/RC - PRE-INSTALL DG*5.3*784 ; 6/12/08 12:17pm

 +1       ;;5.3;Registration;**784**;Aug 13, 1993;Build 16

 +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_"^DG53P784")

 +4                IF 'Y

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

               End DoDot:1

 +5        QUIT 

DEL       ;Delete trigger on field 2 of subfile 45.02 for file 45.

 +1        NEW DGFILE,DGFIELD,DGREF

 +2        SET DGFILE=45.02

           SET DGFIELD=2

           SET DGREF=1

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

 +4        QUIT