EN7P91 ;ALB/AG - PRE-INSTALL EN*7.0*91 ; 5/30/12 12:49pm
;;7.0;ENGINEERING;**91**;Aug 13, 1993;Build 9
Q
EN ;post install entry point
N ENG,Y
F ENG="DEL" D
.S Y=$$NEWCP^XPDUTL(ENG,ENG_"^EN7P91")
.I 'Y D BMES^XPDUTL("ERROR creating "_ENG_" checkpoint.")
Q
DEL ;delete trigger on field #19 of file #6914.
N ENGFILE,ENGFIELD,ENGREF
F ENGFIELD=19 S ENGFILE=6914,ENGREF=3 D
.D DELIX^DDMOD(ENGFILE,ENGFIELD,ENGREF)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEN7P91 436 printed Nov 22, 2024@17:01:36 Page 2
EN7P91 ;ALB/AG - PRE-INSTALL EN*7.0*91 ; 5/30/12 12:49pm
+1 ;;7.0;ENGINEERING;**91**;Aug 13, 1993;Build 9
+2 QUIT
EN ;post install entry point
+1 NEW ENG,Y
+2 FOR ENG="DEL"
Begin DoDot:1
+3 SET Y=$$NEWCP^XPDUTL(ENG,ENG_"^EN7P91")
+4 IF 'Y
DO BMES^XPDUTL("ERROR creating "_ENG_" checkpoint.")
End DoDot:1
+5 QUIT
DEL ;delete trigger on field #19 of file #6914.
+1 NEW ENGFILE,ENGFIELD,ENGREF
+2 FOR ENGFIELD=19
SET ENGFILE=6914
SET ENGREF=3
Begin DoDot:1
+3 DO DELIX^DDMOD(ENGFILE,ENGFIELD,ENGREF)
End DoDot:1
+4 QUIT
