| [613] | 1 | DGBTCE1 ;ALB/LM - BENEFICIARY TRAVEL CLAIM RE-ENTER/EDIT CONT.; 9/13/89@8:00 ;4/23/91 09:42
|
|---|
| 2 | ;;1.0;Beneficiary Travel;;September 25, 2001
|
|---|
| 3 | Q
|
|---|
| 4 | CONT ; ENTRY POINTS FROM DGBTEE,DGBTCE
|
|---|
| 5 | S DGBTFLX=" DEDUCTIBLE AMOUNT HAS BEEN CHANGED " I DGBTACCT=4 S DGBTPA=$S(DGBTTC-DGBTDE>0:DGBTTC-DGBTDE,DGBTTC-DGBTDE<0:DGBTTC,1:0)
|
|---|
| 6 | 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"))
|
|---|
| 7 | S DIE="^DGBT(392,",DA=DGBTDT
|
|---|
| 8 | S DR="9///"_DGBTDE_";10///"_DGBTPA_$S(DGBTINFL=" ":"",1:";51///^S X=DGBTINFL") S DGBTINFL=""
|
|---|
| 9 | D ^DIE K DIE,DQ,DR I $D(DTOUT)!($D(Y)) S DGBTTOUT=-1 Q
|
|---|
| 10 | ; stuff amount payable
|
|---|
| 11 | I DGBTFLAG=2 W !!,"DEDUCTIBLE AMOUNT CAN NOT EXCEED THE TOTAL COSTS FOR THIS CLAIM",! K X S DGBTFLAG=0 G DED1^DGBTCE
|
|---|
| 12 | 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
|
|---|
| 13 | ;
|
|---|
| 14 | S DIE="^DGBT(392,",DA=DGBTDT,DIE("NO^")="BACK",DR="51"
|
|---|
| 15 | DIE6 D ^DIE K DIE,DQ,DR I $D(DTOUT)!($D(Y)) S DGBTTOUT=-1 Q
|
|---|
| 16 | D QUIT
|
|---|
| 17 | D SCREEN^DGBTCD
|
|---|
| 18 | Q
|
|---|
| 19 | QUIT ;KILL VARIABLES
|
|---|
| 20 | 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
|
|---|
| 21 | K DGBTFR1,DGBTFR2,DGBTFR3,DGBTFR4,DGBTTO1,DGBTTO2,DGBTTO3,DGBTTO4,DGBTMR,DGBTRATE,DGBTSCP,DGBTFLX Q
|
|---|
