- 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 ---[H[J[2J[HDG53P784 443 printed Jan 18, 2025@03:40:49 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