DGBTCE1.m

DGBTCE1 ;ALB/LM - BENEFICIARY TRAVEL CLAIM RE-ENTER/EDIT CONT.; 9/13/89@8:00 ;4/23/91  09:42

 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 Q

CONT ; ENTRY POINTS FROM DGBTEE,DGBTCE

 S DGBTFLX=" DEDUCTIBLE AMOUNT HAS BEEN CHANGED " I DGBTACCT=4 S DGBTPA=$S(DGBTTC-DGBTDE>0:DGBTTC-DGBTDE,DGBTTC-DGBTDE<0:DGBTTC,1:0)

DIE5 S DGBTINFL=$S(DGBTDE=DGBTDCV:$P(DGBTVAR("R"),DGBTFLX)_$P(DGBTVAR("R"),DGBTFLX,2)_" ",DGBTDE'=DGBTDCV&(DGBTVAR("R")'[DGBTFLX):$E(DGBTVAR("R")_DGBTINFL_DGBTFLX,1,79),1:DGBTVAR("R"))

 S DIE="^DGBT(392,",DA=DGBTDT

 S DR="9///"_DGBTDE_";10///"_DGBTPA_$S(DGBTINFL=" ":"",1:";51///^S X=DGBTINFL") S DGBTINFL=""

 D ^DIE K DIE,DQ,DR I $D(DTOUT)!($D(Y)) S DGBTTOUT=-1 Q

 ;    stuff amount payable

 I DGBTFLAG=2 W !!,"DEDUCTIBLE AMOUNT CAN NOT EXCEED THE TOTAL COSTS FOR THIS CLAIM",! K X S DGBTFLAG=0 G DED1^DGBTCE

 I DGBTFLAG=1 W !!,"DEDUCTIBLE FOR THIS CLAIM CAN NOT EXCEED THE AMOUNT REMAINING FOR THIS MONTH",! K X S DGBTFLAG=0 G DED1^DGBTCE

 ;

 S DIE="^DGBT(392,",DA=DGBTDT,DIE("NO^")="BACK",DR="51"

DIE6 D ^DIE K DIE,DQ,DR I $D(DTOUT)!($D(Y)) S DGBTTOUT=-1 Q

 D QUIT

 D SCREEN^DGBTCD

 Q

QUIT ;KILL VARIABLES

 K DGBTCITY,DGBTSTAT,DGBTWAY,DGBTMILE,DIE,DR,DGBTOWRT,DGBTML,DGBTMLFB,DGBTACCT,DGBTAP,DGBTMAL,DGBTFAB,DGBTME,DGBTMAF,DGBTTC,DGBTDCM,DGBTDPV,DGBTDPM,DGBTDRM,DGBTDCV,DGBTDE,DGBTPA,I,DGBTELIG,DGBTFLAG,DGBTMETC,DGBTMLT,DGBTCP,DGBTMR1

 K DGBTFR1,DGBTFR2,DGBTFR3,DGBTFR4,DGBTTO1,DGBTTO2,DGBTTO3,DGBTTO4,DGBTMR,DGBTRATE,DGBTSCP,DGBTFLX Q

DGBTCE1   ;ALB/LM - BENEFICIARY TRAVEL CLAIM RE-ENTER/EDIT CONT.; 9/13/89@8:00 ;4/23/91  09:42

 +1       ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 +2        QUIT 

CONT      ; ENTRY POINTS FROM DGBTEE,DGBTCE

 +1        SET DGBTFLX=" DEDUCTIBLE AMOUNT HAS BEEN CHANGED "

           IF DGBTACCT=4

               SET DGBTPA=$SELECT(DGBTTC-DGBTDE>0:DGBTTC-DGBTDE,DGBTTC-DGBTDE<0:DGBTTC,1:0)

DIE5       SET DGBTINFL=$SELECT(DGBTDE=DGBTDCV:$PIECE(DGBTVAR("R"),DGBTFLX)_$PIECE(DGBTVAR("R"),DGBTFLX,2)_" ",DGBTDE'=DGBTDCV&(DGBTVAR("R")'[DGBTFLX):$EXTRACT(DGBTVAR("R")_DGBTINFL_DGBTFLX,1,79),1:DGBTVAR("R"))

 +1        SET DIE="^DGBT(392,"

           SET DA=DGBTDT

 +2        SET DR="9///"_DGBTDE_";10///"_DGBTPA_$SELECT(DGBTINFL=" ":"",1:";51///^S X=DGBTINFL")

           SET DGBTINFL=""

 +3        DO ^DIE

           KILL DIE,DQ,DR

           IF $DATA(DTOUT)!($DATA(Y))

               SET DGBTTOUT=-1

               QUIT 

 +4       ;    stuff amount payable

 +5        IF DGBTFLAG=2

               WRITE !!,"DEDUCTIBLE AMOUNT CAN NOT EXCEED THE TOTAL COSTS FOR THIS CLAIM",!

               KILL X

               SET DGBTFLAG=0

               GOTO DED1^DGBTCE

 +6        IF DGBTFLAG=1

               WRITE !!,"DEDUCTIBLE FOR THIS CLAIM CAN NOT EXCEED THE AMOUNT REMAINING FOR THIS MONTH",!

               KILL X

               SET DGBTFLAG=0

               GOTO DED1^DGBTCE

 +7       ;

 +8        SET DIE="^DGBT(392,"

           SET DA=DGBTDT

           SET DIE("NO^")="BACK"

           SET DR="51"

DIE6       DO ^DIE

           KILL DIE,DQ,DR

           IF $DATA(DTOUT)!($DATA(Y))

               SET DGBTTOUT=-1

               QUIT 

 +1        DO QUIT

 +2        DO SCREEN^DGBTCD

 +3        QUIT 

QUIT      ;KILL VARIABLES

 +1        KILL DGBTCITY,DGBTSTAT,DGBTWAY,DGBTMILE,DIE,DR,DGBTOWRT,DGBTML,DGBTMLFB,DGBTACCT,DGBTAP,DGBTMAL,DGBTFAB,DGBTME,DGBTMAF,DGBTTC,DGBTDCM,DGBTDPV,DGBTDPM,DGBTDRM,DGBTDCV,DGBTDE,DGBTPA,I,DGBTELIG,DGBTFLAG,DGBTMETC,DGBTMLT,DGBTCP,DGBTMR1

 +2        KILL DGBTFR1,DGBTFR2,DGBTFR3,DGBTFR4,DGBTTO1,DGBTTO2,DGBTTO3,DGBTTO4,DGBTMR,DGBTRATE,DGBTSCP,DGBTFLX

           QUIT