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 ---[H[J[2J[HDG53P847 460 printed Nov 22, 2024@17:50:14 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
