DGBT18PR.m

DGBT18PR ;ALB/RAM - PRE-INSTALL DGBT*1.0*18 ; 9/10/10 9:22Am

 ;;1.0;Beneficiary Travel;**18**;September 25, 2001;Build 15

 Q

EN ;Pre install entry point

 N DGBTX,DGBTY,DGBTKEY,DGBTFLD,DGBTXREF

 F DGBTKEY="21,1","22,1,","25,1","26,1" D

 . S DGBTFLD=$P(DGBTKEY,","),DGBTXREF=$P(DGBTKEY,",",2)

 . D DEL

 Q

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

 N DGBTFILE,DGBTFIELD,DGBTREF

 S DGBTFILE=392,DGBTFIELD=DGBTFLD,DGBTREF=DGBTXREF

 D DELIX^DDMOD(DGBTFILE,DGBTFIELD,DGBTREF)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGBT18PR   502     printed  Apr 09, 2024@20:45:40                                                                                                                                                                                                     Page 2

DGBT18PR  ;ALB/RAM - PRE-INSTALL DGBT*1.0*18 ; 9/10/10 9:22Am

 +1       ;;1.0;Beneficiary Travel;**18**;September 25, 2001;Build 15

 +2        QUIT 

EN        ;Pre install entry point

 +1        NEW DGBTX,DGBTY,DGBTKEY,DGBTFLD,DGBTXREF

 +2        FOR DGBTKEY="21,1","22,1,","25,1","26,1"

               Begin DoDot:1

 +3                SET DGBTFLD=$PIECE(DGBTKEY,",")

                   SET DGBTXREF=$PIECE(DGBTKEY,",",2)

 +4                DO DEL

               End DoDot:1

 +5        QUIT 

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

 +1        NEW DGBTFILE,DGBTFIELD,DGBTREF

 +2        SET DGBTFILE=392

           SET DGBTFIELD=DGBTFLD

           SET DGBTREF=DGBTXREF

 +3        DO DELIX^DDMOD(DGBTFILE,DGBTFIELD,DGBTREF)

 +4        QUIT