Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: IBEFURT

Package: Integrated Billing

Routine: IBEFURT


Information

IBEFURT ;ALB/ARH - UTILITY: FIND RELATED THIRD PARTY BILLS ; 3/7/00

Source Information

Source file <IBEFURT.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Accounts Receivable 1 $$BN1^PRCAFN  
Integrated Billing 1 $$PTCOV^IBCNSU3  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBEFUR  

Entry Points

Name Comments DBIA/ICR reference
TPEVDT(DFN,EVDT,XRF) ; find all bills for a patient with a specific Event Date (399,.03)
TPPTF(PTF,XRF) ; find all bills for a specific PTF number (399,.08)
TPOPV(DFN,DT1,DT2,XRF) ; find all bills for a patient with any Opt Visit Dates within a range (399,43)
TPRX(DFN,RXN,RXDT,XRF) ; find all bills for a patient with a specific Rx fill (Rx number and fill date) (362.4,.01,.03)
SAVELN1(XRF,DATA) ; set bill into array: ^TMP("IBRBT",$J,XRF) = DATA (from $$LN1)
SAVELN2(IBIFN,XRF) ; set bills found into array: ^TMP("IBRBT",$J,XRF,IBIFN)= BILL FROM ^ BILL TO ^ CANCELLED (0/1) ^ AR BILL NUMBER ^ PAYER SEQUENCE ^ PAYER IS MEDICARE SUPPLEMENTAL (0/1) ^ PAYER NAME
LN1(IBIFN) ; based on the bill passed in returns: PATIENT HAS ANY RX COVERAGE ON FROM DATE OF BILL (0/1)
LN1Q
LN2(IBIFN) ; based on the bill passed in returns:
; BILL FROM ^ BILL TO ^ CANCELLED (0/1) ^ AR BILL NUMBER ^ PAYER SEQUENCE ^ PAYER IS MEDICARE SUPPLEMENTAL (0/1) ^ PAYER NAME
LN2Q
TPLAN(IBIFN) ; check if bills payer policy is a Med Supp or whatever type requires Third Party reimbursment to be applied to First Party charges on a 1-1 basis
; returns true if Bill Payer Policy's Type of Plan is Med Supp (399,136 > 2.312,18 > 355.3,.09 > 355.1,.03)
TPLANQ
RXTP(DFN,RXN,RXDT,SAVE) ; check if a particular Prescription fill has been billed on a Third Party bill, Rx # and fill date
; if SAVE is passed in then the list of bills for the Rx is returned in ^TMP("IBRBT",$J,SAVE,IBIFN)=data

External References

Name Field # of Occurrence
$$PTCOV^IBCNSU3 LN1+2
$$BN1^PRCAFN LN2+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] TPEVDT+2, TPEVDT+3, TPEVDT+5, TPPTF+2, TPOPV+2, TPOPV+4, TPRX+6, SAVELN2+1, LN1+1, LN1+2
, LN2+2, LN2+3, TPLAN+3
^DIC(36 - [#36] LN2+10
^DPT - [#2] TPLAN+4
^IBA(355.3 - [#355.3] TPLAN+5
^IBA(362.4 - [#362.4] TPRX+2, TPRX+3
^IBE(355.1 - [#355.1] TPLAN+5
^TMP( RXTP+3!, RXTP+4!
^TMP("IBRBT" SAVELN1+1*, SAVELN2+1*

Label References

Name Line Occurrences
$$LN2 SAVELN2+1
$$TPLAN LN2+9
LN1Q LN1+1
LN2Q LN2+2
SAVELN2 TPEVDT+5, TPPTF+2, TPOPV+4, TPRX+6
TPLANQ TPLAN+2, TPLAN+3, TPLAN+4
TPRX RXTP+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DATA SAVELN1~, SAVELN1+1
DFN TPEVDT~, TPEVDT+2, TPEVDT+5, TPOPV~, TPOPV+2, TPOPV+4, TPRX~, TPRX+2, TPRX+6, LN1+1~
, LN1+2*, TPLAN+2~, TPLAN+3*, TPLAN+4, RXTP~, RXTP+3
DT1 TPOPV~, TPOPV+1, TPOPV+2
DT2 TPOPV~, TPOPV+1*, TPOPV+2
EVDT TPEVDT~, TPEVDT+2
IB0 LN1+1~*, LN1+2, LN2+2~*, LN2+6, LN2+8
IBDT TPEVDT+1~, TPEVDT+2*, TPEVDT+3
IBIFN TPEVDT+1~, TPEVDT+3*, TPEVDT+5, TPPTF+1~, TPPTF+2*, TPOPV+1~, TPOPV+4*, TPRX+1~, TPRX+3*, TPRX+6
, SAVELN2~, SAVELN2+1, LN1~, LN1+1, LN1+2, LN2~, LN2+2, LN2+3, LN2+7, LN2+9
, TPLAN~, TPLAN+2, TPLAN+3
IBMP LN2+2~, LN2+3*, LN2+10
IBOPV TPOPV+1~, TPOPV+2*, TPOPV+4
IBRXDT TPRX+1~, TPRX+3*, TPRX+5
IBU LN2+2~, LN2+3*, LN2+4, LN2+5
IBX TPRX+1~, TPRX+2*, TPRX+3, LN1+1~*, LN1+2*, LN1Q, LN2+2~*, LN2+4*, LN2+5*, LN2+6*
, LN2+7*, LN2+8*, LN2+9*, LN2+10*, LN2Q, TPLAN+2~*, TPLAN+5*, TPLANQ, RXTP+2~*, RXTP+3*
, RXTP+5
IBX0 TPRX+1~, TPRX+3*
IBY LN1+1~, LN1+2*, LN2+2~, TPLAN+2~, TPLAN+4*, TPLAN+5*
PLAN TPLAN+2~, TPLAN+3*, TPLAN+4
PTF TPPTF~, TPPTF+2
RXDT TPRX~, TPRX+1*, TPRX+5, RXTP~, RXTP+3
RXN TPRX~, TPRX+2, RXTP~, RXTP+3
SAVE RXTP~, RXTP+2, RXTP+4
U TPEVDT+5, TPRX+3, TPRX+6, LN1+2, LN2+4, LN2+5, LN2+6, LN2+7, LN2+8, LN2+9
, LN2+10, TPLAN+3, TPLAN+4, TPLAN+5
XRF TPEVDT~, TPEVDT+5, TPPTF~, TPPTF+2, TPOPV~, TPOPV+4, TPRX~, TPRX+6, SAVELN1~, SAVELN1+1*
, SAVELN2~, SAVELN2+1*, RXTP+2~*, RXTP+3, RXTP+4
XRF1 RXTP+2~*, RXTP+3, RXTP+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All