DG832P1.m

DG832P1 ;ALB/RGB - PRE-INSTALL DG*5.3*832 ; 6/24/10 12:17pm

 ;;5.3;Registration;**832**;Aug 13, 1993;Build 9

 Q

EN ;Pre install entry point

 N DGX,Y

 S DGX="DEL"

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

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

 Q

DEL ;Delete trigger on field=FLD, XREF#=XREF of file 405.

 N DGFILE,DGFIELD,DGREF,DGKEY

 S DGFILE=405

 F DGKEY=".01,5",".04,1,",".06,2",".14,3",".18,1" D

 . S DGFIELD=$P(DGKEY,","),DGREF=$P(DGKEY,",",2)

 . D DELIX^DDMOD(DGFILE,DGFIELD,DGREF)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG832P1   524     printed  Nov 22, 2024@17:50:44                                                                                                                                                                                                      Page 2

DG832P1   ;ALB/RGB - PRE-INSTALL DG*5.3*832 ; 6/24/10 12:17pm

 +1       ;;5.3;Registration;**832**;Aug 13, 1993;Build 9

 +2        QUIT 

EN        ;Pre install entry point

 +1        NEW DGX,Y

 +2        SET DGX="DEL"

 +3        SET Y=$$NEWCP^XPDUTL(DGX,DGX_"^DG832P1")

 +4        IF 'Y

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

 +5        QUIT 

DEL       ;Delete trigger on field=FLD, XREF#=XREF of file 405.

 +1        NEW DGFILE,DGFIELD,DGREF,DGKEY

 +2        SET DGFILE=405

 +3        FOR DGKEY=".01,5",".04,1,",".06,2",".14,3",".18,1"

               Begin DoDot:1

 +4                SET DGFIELD=$PIECE(DGKEY,",")

                   SET DGREF=$PIECE(DGKEY,",",2)

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

               End DoDot:1

 +6        QUIT