| 1 | IBECEA35 ;ALB/CPM - Cancel/Edit/Add... TRICARE Support ; 09-AUG-96
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**52,240,361**;21-MAR-94;Build 9
|
|---|
| 3 | ;;Per VHA Directive 2004-038, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | CUS ; Process all TRICARE copayment charges.
|
|---|
| 6 | ;
|
|---|
| 7 | N X,IBCS,IBINS,IBPLAN
|
|---|
| 8 | ;
|
|---|
| 9 | ; - display TRICARE coverage
|
|---|
| 10 | S IBCS=$$CUS^IBACUS(DFN,DT)
|
|---|
| 11 | D DISP(DFN,IBCS)
|
|---|
| 12 | ;
|
|---|
| 13 | ; - collect parameters needed to create the charge
|
|---|
| 14 | S IBATYPN=$G(^IBE(350.1,IBATYP,0)),IBUNIT=1
|
|---|
| 15 | I IBATYPN["RX" D AMT^IBECEAU2 S IBDESC="TRICARE RX COPAY",IBFR=DT G GO
|
|---|
| 16 | I IBATYPN["OPT" D G GO
|
|---|
| 17 | .S IBLIM=DT D FR^IBECEAU2(0),AMT^IBECEAU2:IBY>0
|
|---|
| 18 | .S IBDESC="TRICARE OPT COPAY",(IBEVDT,IBTO)=IBFR,IBEVDA="*"
|
|---|
| 19 | I IBATYPN["INPT" D G GO
|
|---|
| 20 | .S IBDG=$$ADSEL^IBECEA31(DFN),IBDESC="TRICARE INPT COPAY"
|
|---|
| 21 | .I IBDG>0 D Q
|
|---|
| 22 | ..D AMT^IBECEAU2 Q:IBY'>0
|
|---|
| 23 | ..S IBSL="405:"_+IBDG,(IBEVDT,IBFR)=$P(IBDG,"^",2),IBEVDA="*"
|
|---|
| 24 | ..S IBTO=$$DIS^IBECEA31(IBSL),IBTO=$S(IBTO>DT:DT,1:IBTO)
|
|---|
| 25 | .W !!,"An admission was not available or not selected."
|
|---|
| 26 | .W !,"This transaction has been cancelled." S IBY=-1 Q
|
|---|
| 27 | .;
|
|---|
| 28 | .; - if I pursue this further...
|
|---|
| 29 | .S DIR(0)="Y",DIR("A")="Do you still wish to create an inpatient copayment charge"
|
|---|
| 30 | .S DIR("?")="Enter 'Y' or 'YES' to create a charge, or 'N', 'NO', or '^' to quit."
|
|---|
| 31 | .D ^DIR K DIR I 'Y!($D(DIRUT))!($D(DUOUT)) W !,"This transaction has been cancelled." S IBY=-1 Q
|
|---|
| 32 | ;
|
|---|
| 33 | ;
|
|---|
| 34 | GO ; - bill the charge
|
|---|
| 35 | I IBY<0 G CUSQ
|
|---|
| 36 | ;
|
|---|
| 37 | ; - okay to proceed?
|
|---|
| 38 | D PROC^IBECEAU4("add") I IBY<0 G CUSQ
|
|---|
| 39 | ;
|
|---|
| 40 | ; - create charge and pass to AR
|
|---|
| 41 | W !,"Billing the TRICARE patient copayment charge..."
|
|---|
| 42 | D ADD^IBECEAU3,AR^IBR:IBY>0 I IBY<0 G CUSQ
|
|---|
| 43 | ;
|
|---|
| 44 | S IBCOMMIT=1 W "completed."
|
|---|
| 45 | ;
|
|---|
| 46 | CUSQ K IBCS
|
|---|
| 47 | Q
|
|---|
| 48 | ;
|
|---|
| 49 | ;
|
|---|
| 50 | DISP(DFN,INS) ; Display TRICARE beneficiary insurance information.
|
|---|
| 51 | ; Input: DFN -- Pointer to the patient in file #2
|
|---|
| 52 | ; INS -- Pointer to the patient policy in file #2.312
|
|---|
| 53 | ;
|
|---|
| 54 | I '$G(INS) W *7,!!,"Please note that this patient does not have active TRICARE coverage!",! G DISPQ
|
|---|
| 55 | ;
|
|---|
| 56 | N IBINS,IBINS3,IBPLAN,IBS S IBS=0
|
|---|
| 57 | S IBINS=$G(^DPT(DFN,.312,INS,0)),IBINS3=$G(^(3))
|
|---|
| 58 | S IBPLAN=$G(^IBA(355.3,+$P(IBINS,"^",18),0))
|
|---|
| 59 | W !!," TRICARE coverage for ",$P($G(^DPT(DFN,0)),"^"),":"
|
|---|
| 60 | W !!," Insured Person: ",$E($P(IBINS,"^",17),1,20)
|
|---|
| 61 | W ?42,"Company: ",$P($G(^DIC(36,+IBINS,0)),"^")
|
|---|
| 62 | W !," Effective Date: ",$$DAT1^IBOUTL($P(IBINS,"^",8))
|
|---|
| 63 | W ?40,"Plan Name: ",$P(IBPLAN,"^",3)
|
|---|
| 64 | W !,"Expiration Date: ",$$DAT1^IBOUTL($P(IBINS,"^",4))
|
|---|
| 65 | W ?38,"Plan Number: ",$P(IBPLAN,"^",4),!
|
|---|
| 66 | I $P(IBINS3,"^",2)]"" S IBS=1 W " Service Branch: ",$P($G(^DIC(23,+$P(IBINS3,"^",2),0)),"^")
|
|---|
| 67 | I $P(IBINS3,"^",3)]"" S IBS=1 W ?37,"Service Rank: ",$P(IBINS3,"^",3)
|
|---|
| 68 | W:IBS !
|
|---|
| 69 | DISPQ Q
|
|---|
