EN7P91.m

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 ---EN7P91   436     printed  Apr 09, 2024@20:57:14                                                                                                                                                                                                       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