DGBTEND.m

DGBTEND ;ALB/SCK - BENEFICIARY TRAVEL CLEAN-UP VARIABLES ROUTINE;12/15/92 3/19/93

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

 ;

END I DGBTTOUT=1 I $D(^DGBT(392,DGBTDT,0)) F I=0,"A","D","M","R","T" S ^DGBT(392,DGBTDT,I)=$S($D(DGBTVAR(I)):DGBTVAR(I),1:"")

 G:'$D(^DGBT(392,DGBTDT,0))!(DGBTTOUT=1) QUIT I '$D(DGBTACCT) S DGBTVAR(0)=^DGBT(392,DGBTDT,0),DGBTACCT=$S('$D(^DGBT(392.3,+$P(DGBTVAR(0),"^",6),0)):0,1:+$P(^DGBT(392.3,+$P(DGBTVAR(0),"^",6),0),"^",5))

 S Z="^INFORMATION^DISPLAY^EDIT",PROMPT="<I>nformation, <D>isplay claim, <E>dit claim," I DGBTACCT=4!(DGBTACCT=5) S PROMPT=PROMPT_" <P>rint form,",Z=Z_"^PRINT"

 S DIR("A")=PROMPT_" or <Q>uit ",DIR("B")="Quit",DIR("?")="^D HELP^DGBTEND",DIR(0)="SA^Q:Quit;I:Information;D:Display;E:Edit;P:Print"

 D ^DIR K DIR G DELETE:Y["Q"!($D(DIRUT)),SCREEN^DGBTE:Y="I"

 S DGBTX1=$S(X="D":"SCREEN^DGBTCD",X="E":"SCREEN^DGBTCE",X="P":"START^DGBTCR",1:"") I DGBTX1]"" D @DGBTX1 D:DGBTTOUT QUIT^DGBTCE1 G:DGBTX1="START^DGBTCR" PATIENT^DGBTE G END

 G END

DELETE I '$D(^DGBT(392,DGBTDT,"A")) S %=2 W !!,"Do you want to delete this claim" D YN^DICN G:%=2 COMPLT^DGBTE G:%=-1 DELETE1 I %<1 D HELP1^DGBTE G DELETE

DELETE1 I '$D(^DGBT(392,DGBTDT,"A"))!(DGBTTOUT=-1) W !,"This claim is incomplete and is now being deleted....." S DGBTTOUT="",DIK="^DGBT(392,",DA=DGBTDT D ^DIK

 G:DGBTTOUT=-1 QUIT D KVAR G PATIENT^DGBTE

QUIT K DGBTDIV,DGBTDIVI,PRCABN,DGBTMD,DGBTDIVN,DGBTTOUT,ANS,DGBTREC,ERR,RETURN

QUIT1 K DGBT,DGBTA,DGBTAD,DGBTAI,DGBTAN,DGBTAS,DGBTC,DGBTCA,DGBTCD,DGBTCE,DGBTCH,DGBTCH1,DGBTCL,DGBTCN,DGBTCS,DGBTCSN,DGBTCST,DGBTDD,DGBTDTE,DGBTDTI,DGBTI,DGBTIME,DGBTMTD,DGBTMTI,DGBTNEW,DGBTP,DGBTPAP,DGBTPDE,DGBTPDT,DGBTPDTE,DGBTSCC,DGBTZ

 K DGBTMTS,DGBTCSC,DGBTELG,DGBTINC,DGBTDEP ; created w/ patch 35

 K DA,DFN,DIC,DIE,DINUM,DR,S,Y,X,DGBTX1,X2,I,J,VA,VADM,VAEL,VAPA,VADAT,VADATE,VAUTD,VAUTNALL,VAUTSTR,DIK

 K ^UTILITY($J,"DGBT"),^UTILITY("DGBT",$J),C,DGBTELIG,DGBTSCP,DGBTVAR,DGBTDT,DGBTINFL,DGBTACCT,DGBTACTN,DGBTOACT,DGBTCNU,DGBTFLAG,DGBTFR4,DGBTMETC,DGBTMR,DGBTRATE,DGBTTCTY,DGBTFCTY,CHZFLG,Y1

KVAR K VADM(4),VADM(5),VADM(6),VADM(7),VADM(8),VADM(9),VADM(10),VAEL(2),VAEL(4),VAEL(5),VAEL(7),VAEL(8),VAERR,VAPA(7),VAPA(8),VAPA(9),VAPA(10),DIC

 K DGBTDEF,PROMPT,DLAYGO,J,DGBTDV1,DGBTRMK,K,DGBTREC,DGBTMD

 Q

HELP ;

 W !!,"You may choose from the following: ",!!?5,"<I>nformation - to view the two informational screens",!?5,"<D>isplay - to view this claim",!?5,"<E>d it - to change this claim"

 W:DGBTACCT=4!(DGBTACCT=5) !?5,"<P>rint - to print form 70-3542d (132 columns)" W !?5,"<Q>uit - to exit from this option"

 Q

DGBTEND   ;ALB/SCK - BENEFICIARY TRAVEL CLEAN-UP VARIABLES ROUTINE;12/15/92 3/19/93

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

 +2       ;

END        IF DGBTTOUT=1

               IF $DATA(^DGBT(392,DGBTDT,0))

                   FOR I=0,"A","D","M","R","T"

                       SET ^DGBT(392,DGBTDT,I)=$SELECT($DATA(DGBTVAR(I)):DGBTVAR(I),1:"")

 +1        IF '$DATA(^DGBT(392,DGBTDT,0))!(DGBTTOUT=1)

               GOTO QUIT

           IF '$DATA(DGBTACCT)

               SET DGBTVAR(0)=^DGBT(392,DGBTDT,0)

               SET DGBTACCT=$SELECT('$DATA(^DGBT(392.3,+$PIECE(DGBTVAR(0),"^",6),0)):0,1:+$PIECE(^DGBT(392.3,+$PIECE(DGBTVAR(0),"^",6),0),"^",5))

 +2        SET Z="^INFORMATION^DISPLAY^EDIT"

           SET PROMPT="<I>nformation, <D>isplay claim, <E>dit claim,"

           IF DGBTACCT=4!(DGBTACCT=5)

               SET PROMPT=PROMPT_" <P>rint form,"

               SET Z=Z_"^PRINT"

 +3        SET DIR("A")=PROMPT_" or <Q>uit "

           SET DIR("B")="Quit"

           SET DIR("?")="^D HELP^DGBTEND"

           SET DIR(0)="SA^Q:Quit;I:Information;D:Display;E:Edit;P:Print"

 +4        DO ^DIR

           KILL DIR

           IF Y["Q"!($DATA(DIRUT))

               GOTO DELETE

           IF Y="I"

               GOTO SCREEN^DGBTE

 +5        SET DGBTX1=$SELECT(X="D":"SCREEN^DGBTCD",X="E":"SCREEN^DGBTCE",X="P":"START^DGBTCR",1:"")

           IF DGBTX1]""

               DO @DGBTX1

               IF DGBTTOUT

                   DO QUIT^DGBTCE1

               IF DGBTX1="START^DGBTCR"

                   GOTO PATIENT^DGBTE

               GOTO END

 +6        GOTO END

DELETE     IF '$DATA(^DGBT(392,DGBTDT,"A"))

               SET %=2

               WRITE !!,"Do you want to delete this claim"

               DO YN^DICN

               IF %=2

                   GOTO COMPLT^DGBTE

               IF %=-1

                   GOTO DELETE1

               IF %<1

                   DO HELP1^DGBTE

                   GOTO DELETE

DELETE1    IF '$DATA(^DGBT(392,DGBTDT,"A"))!(DGBTTOUT=-1)

               WRITE !,"This claim is incomplete and is now being deleted....."

               SET DGBTTOUT=""

               SET DIK="^DGBT(392,"

               SET DA=DGBTDT

               DO ^DIK

 +1        IF DGBTTOUT=-1

               GOTO QUIT

           DO KVAR

           GOTO PATIENT^DGBTE

QUIT       KILL DGBTDIV,DGBTDIVI,PRCABN,DGBTMD,DGBTDIVN,DGBTTOUT,ANS,DGBTREC,ERR,RETURN

QUIT1      KILL DGBT,DGBTA,DGBTAD,DGBTAI,DGBTAN,DGBTAS,DGBTC,DGBTCA,DGBTCD,DGBTCE,DGBTCH,DGBTCH1,DGBTCL,DGBTCN,DGBTCS,DGBTCSN,DGBTCST,DGBTDD,DGBTDTE,DGBTDTI,DGBTI,DGBTIME,DGBTMTD,DGBTMTI,DGBTNEW,DGBTP,DGBTPAP,DGBTPDE,DGBTPDT,DGBTPDTE,DGBTSCC,DGBTZ

 +1       ; created w/ patch 35

           KILL DGBTMTS,DGBTCSC,DGBTELG,DGBTINC,DGBTDEP

 +2        KILL DA,DFN,DIC,DIE,DINUM,DR,S,Y,X,DGBTX1,X2,I,J,VA,VADM,VAEL,VAPA,VADAT,VADATE,VAUTD,VAUTNALL,VAUTSTR,DIK

 +3        KILL ^UTILITY($JOB,"DGBT"),^UTILITY("DGBT",$JOB),C,DGBTELIG,DGBTSCP,DGBTVAR,DGBTDT,DGBTINFL,DGBTACCT,DGBTACTN,DGBTOACT,DGBTCNU,DGBTFLAG,DGBTFR4,DGBTMETC,DGBTMR,DGBTRATE,DGBTTCTY,DGBTFCTY,CHZFLG,Y1

KVAR       KILL VADM(4),VADM(5),VADM(6),VADM(7),VADM(8),VADM(9),VADM(10),VAEL(2),VAEL(4),VAEL(5),VAEL(7),VAEL(8),VAERR,VAPA(7),VAPA(8),VAPA(9),VAPA(10),DIC

 +1        KILL DGBTDEF,PROMPT,DLAYGO,J,DGBTDV1,DGBTRMK,K,DGBTREC,DGBTMD

 +2        QUIT 

HELP      ;

 +1        WRITE !!,"You may choose from the following: ",!!?5,"<I>nformation - to view the two informational screens",!?5,"<D>isplay - to view this claim",!?5,"<E>d it - to change this claim"

 +2        IF DGBTACCT=4!(DGBTACCT=5)

               WRITE !?5,"<P>rint - to print form 70-3542d (132 columns)"

           WRITE !?5,"<Q>uit - to exit from this option"

 +3        QUIT