DGBTEND ;ALB/SCK - BENEFICIARY TRAVEL CLEAN-UP VARIABLES ROUTINE ; 12/15/92 3/19/93
;;1.0;Beneficiary Travel;**18,20,39**;September 25, 2001;Build 6
;
END I $G(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))!($G(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 S X=$$UP^XLFSTR(X),ENDMENU=1 G DELETE:Y["Q"!($D(DIRUT)) D 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:$G(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 D:%=1 DELSP G:%=2 PATIENT^DGBTE G:%=-1 DELETE1 I %<1 D HELP1^DGBTE G DELETE
DELETE1 I '$D(^DGBT(392,DGBTDT,"A"))!($G(DGBTTOUT)=-1),'$G(DGBTOLD) W !,"This claim is incomplete and is now being deleted....." S DGBTTOUT="",DIK="^DGBT(392,",DA=DGBTDT D ^DIK ;PAVEL - DGBT*1*20
G:$G(DGBTTOUT)=-1 QUIT D KVAR ;G PATIENT^DGBTE
QUIT K PRCABN,DGBTMD,DGBTTOUT,ANS,DGBTREC,ERR,RETURN,DTOUT,DUOUT,MILEAGEFEE,MODEOFTRANS,NOLINE,NOSHOW,PREAUTH,QUIT,SPEQUIP,TOTALMILES,TOTINVOICE,VENDOR,VACNT,EXTRACREW,ELIGTYP
K DISYS,DIU,DIW,DISTCITY,DGBTINTO,DGBTDL,DGBTCCT,BASERATE,AUTHORIZED,%,WAITTIME,XX,DISTZIP,DGBTOLD,RXDATA,CITYSTZIP,DGBTQ,DGQUERY,DGBTERR,DTOUT,DUOUT,RETURN,LOCRET
K TOTRIPS,TRIP,WAIVER,ONEWAY,RT,MONTOT,LSTMTDT,MOSTENC,MSYS,STDT,RDVMSG,MDATA,PDATA,RTRIP,SDATE,EDATE,EMONTH,DIRUT,DAYFLG
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,DGBTCMTY,DTOUT,DUOUT,FDA,DGBTOTHER ; created w/ patch 35
K DA,DFN,DIC,DIE,DINUM,DR,S,Y,X,X2,I,J,VA,VADM,VAEL,VAPA,DGBTADDR,VADAT,VADATE,VAUTD,VAUTNALL,VAUTSTR,DIK ;*39 kill dgbtaddr array
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),VAPA(36),DIC ;*39 kill vapa(36), county
K DGBTDEF,PROMPT,DLAYGO,J,DGBTDV1,DGBTRMK,K,DGBTREC,DGBTMD,DGBTSP,DGBTINST,DGARRAY,DG,DGBTAP,DGBTCMTY,DGBTCORE,DGBTCC,DGBTCCREQ,DGBTCCAMT,DGBTCCMODE,DGBTCT,DGBTDCV1,DGBTRDV,DEDUCT
K DGBTCP,DGBTDCM,DGBTDCV,DGBTDE,DGBTDPM,DGBTDPV,DGBTFAB,DGBTFR1,DGBTFR2,DGBTFR3,DGBTMAL,DGBTME,DGBTML,NETINC,PRCFLAG,POP,RXCP,RXCPTS,VACNTRY
K DGBTMLFB,DGBTMLT,DGBTMR1,DGBTOWRT,DGBTRET,DGBTT01,DGBTT02,DGBTT03,DGBTT04,FLAGS,FILE,FIELDS,MTDATA,MTIEN,MTT,OWRTP,DUOUT,DGBTFDA,ERRMSG,X,PAYMENT,SPCOMPLETE,Z
K DIV,DIUDISTCITY,DISTL1,DISTL2,DISTST,DGBTOLD,DEPZIP,DEPST,DEPL2,DEPL1,DEPCITY,D0,ENDMENU,DGBTX1,DGBTDEP,DGBTERR,DTOUT,DUOUT,TOTRIPS,TRIP,WAIVER,ONEWAY,RT,MONTOT,LSTMTDT,MOSTENC,MSYS,STDT
K DGBTRAY,DGBTWAIVER,SDOE0,SDSTOP,DGBTMTTH,DGBTRXTH,DGBTNSC,DGBTDYFL,DGBTSCAP,DGBTCPAP,DGBTQAP,DGBTQ1,ACCT,D,PATCHNBR,DGBTREF,DGINC,DGBTQ,DGBTQ1
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
;
DELSP ;this will delete the Special Mode Claim
I $G(DGBTCMTY)="S" W !,"This claim is now being deleted....." S DGBTTOUT="",DIK="^DGBT(392,",DA=DGBTDT D ^DIK G PATIENT^DGBTE
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGBTEND 4133 printed Oct 16, 2024@17:41:37 Page 2
DGBTEND ;ALB/SCK - BENEFICIARY TRAVEL CLEAN-UP VARIABLES ROUTINE ; 12/15/92 3/19/93
+1 ;;1.0;Beneficiary Travel;**18,20,39**;September 25, 2001;Build 6
+2 ;
END IF $GET(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))!($GET(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
SET X=$$UP^XLFSTR(X)
SET ENDMENU=1
if Y["Q"!($DATA(DIRUT))
GOTO DELETE
if Y="I"
DO SCREEN^DGBTE
+5 SET DGBTX1=$SELECT(X="D":"SCREEN^DGBTCD",X="E":"SCREEN^DGBTCE",X="P":"START^DGBTCR",1:"")
IF DGBTX1]""
DO @DGBTX1
if $GET(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 %=1
DO DELSP
if %=2
GOTO PATIENT^DGBTE
if %=-1
GOTO DELETE1
IF %<1
DO HELP1^DGBTE
GOTO DELETE
DELETE1 ;PAVEL - DGBT*1*20
IF '$DATA(^DGBT(392,DGBTDT,"A"))!($GET(DGBTTOUT)=-1)
IF '$GET(DGBTOLD)
WRITE !,"This claim is incomplete and is now being deleted....."
SET DGBTTOUT=""
SET DIK="^DGBT(392,"
SET DA=DGBTDT
DO ^DIK
+1 ;G PATIENT^DGBTE
if $GET(DGBTTOUT)=-1
GOTO QUIT
DO KVAR
QUIT KILL PRCABN,DGBTMD,DGBTTOUT,ANS,DGBTREC,ERR,RETURN,DTOUT,DUOUT,MILEAGEFEE,MODEOFTRANS,NOLINE,NOSHOW,PREAUTH,QUIT,SPEQUIP,TOTALMILES,TOTINVOICE,VENDOR,VACNT,EXTRACREW,ELIGTYP
+1 KILL DISYS,DIU,DIW,DISTCITY,DGBTINTO,DGBTDL,DGBTCCT,BASERATE,AUTHORIZED,%,WAITTIME,XX,DISTZIP,DGBTOLD,RXDATA,CITYSTZIP,DGBTQ,DGQUERY,DGBTERR,DTOUT,DUOUT,RETURN,LOCRET
+2 KILL TOTRIPS,TRIP,WAIVER,ONEWAY,RT,MONTOT,LSTMTDT,MOSTENC,MSYS,STDT,RDVMSG,MDATA,PDATA,RTRIP,SDATE,EDATE,EMONTH,DIRUT,DAYFLG
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,DGBTCMTY,DTOUT,DUOUT,FDA,DGBTOTHER
+2 ;*39 kill dgbtaddr array
KILL DA,DFN,DIC,DIE,DINUM,DR,S,Y,X,X2,I,J,VA,VADM,VAEL,VAPA,DGBTADDR,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 ;*39 kill vapa(36), county
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),VAPA(36),DIC
+1 KILL DGBTDEF,PROMPT,DLAYGO,J,DGBTDV1,DGBTRMK,K,DGBTREC,DGBTMD,DGBTSP,DGBTINST,DGARRAY,DG,DGBTAP,DGBTCMTY,DGBTCORE,DGBTCC,DGBTCCREQ,DGBTCCAMT,DGBTCCMODE,DGBTCT,DGBTDCV1,DGBTRDV,DEDUCT
+2 KILL DGBTCP,DGBTDCM,DGBTDCV,DGBTDE,DGBTDPM,DGBTDPV,DGBTFAB,DGBTFR1,DGBTFR2,DGBTFR3,DGBTMAL,DGBTME,DGBTML,NETINC,PRCFLAG,POP,RXCP,RXCPTS,VACNTRY
+3 KILL DGBTMLFB,DGBTMLT,DGBTMR1,DGBTOWRT,DGBTRET,DGBTT01,DGBTT02,DGBTT03,DGBTT04,FLAGS,FILE,FIELDS,MTDATA,MTIEN,MTT,OWRTP,DUOUT,DGBTFDA,ERRMSG,X,PAYMENT,SPCOMPLETE,Z
+4 KILL DIV,DIUDISTCITY,DISTL1,DISTL2,DISTST,DGBTOLD,DEPZIP,DEPST,DEPL2,DEPL1,DEPCITY,D0,ENDMENU,DGBTX1,DGBTDEP,DGBTERR,DTOUT,DUOUT,TOTRIPS,TRIP,WAIVER,ONEWAY,RT,MONTOT,LSTMTDT,MOSTENC,MSYS,STDT
+5 KILL DGBTRAY,DGBTWAIVER,SDOE0,SDSTOP,DGBTMTTH,DGBTRXTH,DGBTNSC,DGBTDYFL,DGBTSCAP,DGBTCPAP,DGBTQAP,DGBTQ1,ACCT,D,PATCHNBR,DGBTREF,DGINC,DGBTQ,DGBTQ1
+6 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
+4 ;
DELSP ;this will delete the Special Mode Claim
+1 IF $GET(DGBTCMTY)="S"
WRITE !,"This claim is now being deleted....."
SET DGBTTOUT=""
SET DIK="^DGBT(392,"
SET DA=DGBTDT
DO ^DIK
GOTO PATIENT^DGBTE
+2 QUIT
