| 1 | DGBTOA1 ;ALB/TT,ALB/MAC - BENEFICIARY TRAVEL OUTPUTS ;4/22/91 12:50
|
|---|
| 2 | ;;1.0;Beneficiary Travel;**2**;September 25, 2001
|
|---|
| 3 | D QUIT D DT^DICRW,ASK2^DGBTDIV G QUIT:Y<0 S VAUTNI=1,(DGBTBEG,DGBTEND)=0
|
|---|
| 4 | BEG W ! S %DT="AEX",%DT("A")="Enter beginning date: " D ^%DT S DGBTBG=Y,DGBTBEG=Y-.0001 G:X="^"!(X="") QUIT
|
|---|
| 5 | END W ! S %DT("A")="Enter ending date: " D ^%DT G:X="^" QUIT I Y<1 D HELP^%DTC G END
|
|---|
| 6 | S DGBTEND=Y_.9999
|
|---|
| 7 | I DGBTEND\1<DGBTBG W !!?5,"The ending date cannot be before the beginning date" G END
|
|---|
| 8 | D NOW^%DTC I DGBTEND-.9999>X!(DGBTBG>X) W !!?5,"Future dates are not allowed" G BEG
|
|---|
| 9 | SORT W !! S DIR("A")="Sort output by: ",DIR("B")="PATIENT",DIR(0)="SA^P:PATIENT;C:CARRIER;A:ACCOUNT;T:ACCOUNT TYPE"
|
|---|
| 10 | S DIR("?")="Select one from the above list",DIR("?",1)="Sort Bene Travel claims by one of the following:",DIR("?",2)=" A for Account",DIR("?",3)=" C for Carrier",DIR("?",4)=" P for Patient",DIR("?",5)=" T for Account Type"
|
|---|
| 11 | D ^DIR K DIR I $D(DTOUT)!($D(DUOUT))!(Y="^")!(Y<0) G QUIT
|
|---|
| 12 | S DGBTSL=$S(Y="A":"ACCT",Y="T":"TYP",Y="C":"CAR",1:"PAT") K Y D ACCT:DGBTSL="ACCT",TYP:DGBTSL="TYP",CAR:DGBTSL="CAR",PAT:DGBTSL="PAT" G:Y<0!(Y="^")!($D(DTOUT))!($D(DUOUT)) QUIT
|
|---|
| 13 | DISP ;
|
|---|
| 14 | S DIR("A",1)="",DIR("A")="Display Report (F)ULL or (T)OTALS ONLY: ",DIR("B")="FULL",DIR("?")="^D HELP^DGBTOA1",DIR(0)="SA^F:FULL;T:TOTALS"
|
|---|
| 15 | D ^DIR K DIR G QUIT:$D(DIRUT)
|
|---|
| 16 | S DGBTZ=$E(Y)
|
|---|
| 17 | S DGVAR="VAUTN#^DGBTBEG^DGBTBG^DGBTEND^DGBTSL^DGBTZ^VAUTD#",DGPGM="START^DGBTOA2" W ! D ZIS^DGBTUTQ I 'POP U IO D START^DGBTOA2
|
|---|
| 18 | QUIT K %,%DT,DFN,DGBT2,DGBT3,DGBT4,DGBTA,DGBTAT,DGBTB,DGBTBEG,DGBTBG,DGBTBY,DGBTC,DGBTCH,DGBTCL,DGBTCW,DGBTD,DGBTD1,DGBTDD,DGBTDN,DGBTDT,DGBTDV,DGBTEND,DGBTF,DGBTG,DGBTGT
|
|---|
| 19 | K DGBTI,DGBTIX,DGBTK,DGBTK9,DGBTK10,DGBTNO,DGBTO,DGBTOD,DGBTODV,DGBTOTX,DGBTP,DGBTPG,DGBTPTC,DGBTS,DGBTSD
|
|---|
| 20 | K DGBTSDT,DGBTSL,DGBTSSN,DGBTT,DGBTU,DGBTV,DGBTX,DGBTX1,DGBTXX,DGBTY,DGBTZ,DGPGM,DGSCR,DGVAR,DIC,DIR,DTOUT,DUOUT,K,K1,L1,M,POP,PRCABN,SSN,VA,VADAT,VADATE,VAERR,VAUTD
|
|---|
| 21 | K VAUTN,VAUTNI,VAUTSTR,VAUTVB,X,X2,Y,Z,^UTILITY($J)
|
|---|
| 22 | Q
|
|---|
| 23 | ;Selects the patient,account,carrier,account type (one,many,all).
|
|---|
| 24 | PAT S VAUTNI=2 D PATIENT^VAUTOMA
|
|---|
| 25 | Q
|
|---|
| 26 | ACCT S VAUTVB="VAUTN",DIC="^DGBT(392.3,",VAUTSTR="account",VAUTNI=2,DIC("S")="I $P(^(0),U,3)'>DGBTEND&('$P(^(0),U,4)!($P(^(0),U,4)>DGBTBG))" D FIRST^VAUTOMA
|
|---|
| 27 | Q
|
|---|
| 28 | CAR I '$P($G(^DG(43,1,"BT")),U,4) S VAUTVB="VAUTN",PRCABN=0,DIC="^PRC(440,",VAUTSTR="carrier",VAUTNI=2 D FIRST^VAUTOMA
|
|---|
| 29 | I $P($G(^DG(43,1,"BT")),U,4) S VAUTVB="VAUTN",PRCABN=0,DIC="^DGBT(392.31,",VAUTSTR="CoreFLS Carrier",VAUTNI=2 D FIRST^VAUTOMA
|
|---|
| 30 | Q
|
|---|
| 31 | TYP S DIR("A")="Would you like ALL Account Types",DIR(0)="Y",DIR("B")="NO",DIR("?")="Enter 'Yes' if you wish to include ALL Account Types or press Return to select individual Account Types."
|
|---|
| 32 | D ^DIR K DIR Q:$D(DTOUT)!($D(DUOUT))
|
|---|
| 33 | I Y=1 S VAUTN=1 Q
|
|---|
| 34 | S DIR("A")="Select ACCOUNT TYPE",DIR(0)="392.3,5"
|
|---|
| 35 | S DIR("?")="Enter the account type by which you would like to sort bene travel claims."
|
|---|
| 36 | D ^DIR Q:$D(DTOUT)!($D(DUOUT))
|
|---|
| 37 | S VAUTN=0,VAUTN(Y)="",DIR("A")="Select another ACCOUNT TYPE",$P(DIR(0),"^",1)=$P(DIR(0),"^",1)_"O"
|
|---|
| 38 | TYPMNY D ^DIR Q:$D(DUOUT)!($D(DTOUT))
|
|---|
| 39 | I X]"" S VAUTN(Y)="" D TYPMNY
|
|---|
| 40 | K DIR Q
|
|---|
| 41 | HELP W !!?10,"Choose either:",!?20,"F - To get FULL DISPLAY as well as TOTALS",!?20,"(Report contains Patient name, Date of claim, Patient ID, ",!?20,"Account, Carrier, Deductible, Amount payable)",!!?20,"T - To display TOTALS ONLY",!!
|
|---|
| 42 | Q
|
|---|
