source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBECEA35.m@ 1766

Last change on this file since 1766 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.5 KB
Line 
1IBECEA35 ;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 ;
5CUS ; 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 ;
34GO ; - 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 ;
46CUSQ K IBCS
47 Q
48 ;
49 ;
50DISP(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 !
69DISPQ Q
Note: See TracBrowser for help on using the repository browser.