Routine: IBEFUNC

Package	Total	Call Graph
Integrated Billing	5	($$COB,$$COBN,$$FT,$$INPAT,$$POLICY)^IBCEF $$EDIACTV^IBCEF4 $$MODLST^IBEFUNC2 ($$DISND,SCAN)^IBSDU $$EXPAND^IBTRE
CPT HCPCS Codes	1	$$MOD^ICPTMOD
VA FileMan	1	FIELD^DID

Package	Total	Caller Graph
Integrated Billing	198	IB DO NOT USE IB INACTIVE INS CO IB20P619 IBACUS2 IBACV IBACVA2 IBAECP1 IBAERR1 IBAERR2 IBAERR3 IBAGMR1 IBAMTBU IBAMTBU1 IBAMTBU2 IBAMTEDU IBAMTI IBAMTI1 IBAMTS IBAMTS1 IBAMTS3 IBAMTV IBAMTV1 IBAMTV3 IBAMTV31 IBAMTV32 IBAPDX IBARXEB IBARXEC4 IBARXEI IBARXEL IBARXEPE IBARXEPS IBARXEPV IBARXET IBARXEX IBATLM1 IBATOP IBCA2 IBCAPP IBCAPP2 IBCAPR IBCB1 IBCB11 IBCBB IBCBB0 IBCBB1 IBCBB11 IBCBB2 IBCBB21 IBCBB3 IBCBB8 IBCBB9 IBCCC2 IBCCCB IBCCCB0 IBCCPT IBCD2 IBCD3 IBCDP IBCE837A IBCECOB IBCECOB1 IBCECOB4 IBCECSA2 IBCEDC IBCEF1 IBCEF2 IBCEF22 IBCEF31 IBCEF4 IBCEF61 IBCEF72 IBCEF74 IBCEF76 IBCEF80 IBCEF84 IBCEFP IBCEFP1 IBCEM03 IBCEM3 IBCEMMR IBCEMQA IBCEMRAA IBCEMRAB IBCEMSR IBCEMSR2 IBCEMU1 IBCEMU3 IBCEOB IBCEOB0 IBCEOB00 IBCEOB01 IBCEPTR IBCERP2 IBCERP6 IBCEU IBCEU0 IBCEU1 IBCEU2 IBCEU3 IBCEU6 IBCEXTR1 IBCF IBCF2 IBCF22 IBCF23A IBCF33 IBCNADD IBCNCH IBCNCH3 IBCNES IBCNQ IBCNS1 IBCNS2 IBCNSBL IBCNSBL2 IBCNSC3 IBCNSCD2 IBCNSJ12 IBCNSJ53 IBCNSP IBCNSP2 IBCNSU1 IBCOIVM1 IBCONS2 IBCOPP2 IBCRBC IBCRBC1 IBCRBC11 IBCRBG IBCRBG1 IBCRBH1 IBCSC102 IBCSC10H IBCSC3 IBCSC4 IBCSC5B IBCSC5C IBCSC8 IBCSCH IBCSCH1 IBCU41 IBCU7 IBCU73 IBCU7A IBCU7U IBCU81 IBCVA1 IBECEA IBEMTF2 IBEMTO1 IBEPTC2 IBJTCA IBJTCA1 IBJTCA2 IBJTLA IBJTLA1 IBJTLB IBJTLB1 IBJTU1 IBMHSP1 IBMHVM IBNCPDP3 IBNCPDPR IBNCPEB IBOA31 IBOBL IBOHPT2 IBOLK IBOMTC1 IBOMTE1 IBOMTP1 IBOVOP1 IBRFIHL2 IBRREL IBRSUTL IBTRKR41 IBUCSP1 IBUCVM IBVCB IBXS36 IBXS8 IBXSA25 IBXSAH5 IBXSC32 IBXSC33 IBXSC82 IBXSC8H3 IBXX1 IBXX19 IBXX20 IBY320PO IBY416PO IBY727PO IBYOPOST ^DGCR(399 ^IBA(364.5 ^IBA(364.7
Income Verification Match	1	IVMUFNC2
Patient Data Exchange	1	VAQPSE02

Entry Points

Name	Comments	DBIA/ICR reference
ETXT(X)	; -- output error text from 350.8 ; -- input error code
ETXTQ
IGN(X,Y)	; ignore means test? for appt type on dates ; -- input x = mas appt type ; y = appt date ; output = true if this appt type should not be billed for ; Means Test billing (352.1,.04) for given date	ICR #324 Status: Active Usage: Private
DSP(X,Y)	; display on input screen? ; -- input X = mas appt type (P409.1) ; Y = date ; output = true if appt type X (352.1,.02) should be displayed as ; a potential billable visit (352.1,.06) on given date Y (352.1,.03)
RPT(X,Y)	; print on report? ; -- input X = mas appt type (P409.1) ; Y = date ; output = true if appt type X (352.1,.02) should be printed on 'Vets w/ Ins and Opt ; Visits' report (352.1,.05) on given date Y (352.1,.06)
NBDIS(X,Y)	; Is disposition non-billable? ; -- input X = disposition (P37) ; Y = date of appt ; output = true (1) if disposition should be ignored for ; Means test billing (352.2,.03) for given date
NBCSC(X,Y)	; Is clinic stop code non-billable? ; -- input X = clinic stop code (P40.7) ; Y = date of appt ; output = true (1) if clinic stop code should be ignored for ; Means test billing (352.3,.03) for given date
NBCL(X,Y)	; Is clinic non-billable? ; -- input X = clinic (P44) ; Y = date of appt ; output = true (1) if clinic should be ignored for ; Means test billing (352.4,.03) for given date
NBST(X,Y)	; Is clinic stop code non-billable for Third Party? ; -- input X = clinic stop code (P40.7), Y = appt date ; output = true (1) if stop non-billable for Third Party (352.3,.05) for given dt
NBCT(X,Y)	; Is clinic non-billable for Third Party? ; -- input X = clinic (P44), Y = appt dt ; output = true (1) if clinic non-billable for Third Party (352.4,.05) for given date
NABST(X,Y)	; Returns true (1) if stop code flagged to be ignored by Third Party auto biller (use DT)
NABCT(X,Y)	; Returns true (1) if clinic is flagged to be ignored by Third Party auto biller (use DT)
PT(DFN)	;returns (patient name^long pat id^short pat id) or null if not found
EXSET(X,D0,D1)	;returns external value of a set in file D0, field D1
BABCSC(DFN,IBDT)	; -- any billable Third Party visits in encounter file for patient ; -- Input dfn = patient, ibdt = date ; output = 1 if any billable stop on date OR 0 if none
BABQ
APPTCT(IBOE0)	; Determine if appt encounter/appt has valid status for billing ; Returns 1 if valid, 0 if not ; IBOE0 = the encounter's 0-node (input)
NCTCL(IBOE0)	; Determine if a clinic for an outpt encounter is non-count ; IBOE0 = the 0-node of the encounter
DISCT(IBOE,IBOE0)	; Determine if disposition has valid status for billing ; Returns 1 if valid, 0 if not valid ; IBOE = encounter ien ; IBOE0 = 0-node of encounter (optional)
NEEDMRA(IBIFN)	; Returns MRA NEEDED STATUS for bill
REQMRA(IBIFN)	; Determine from site parameter, ins assigned to bill and txmn ; rules if request for MRA is needed (MCRWNR must be current ins co) ; "R" = not needed due to next carrier not requiring it (txmn rules), ; "R1" = not needed due to MRA turned off at site ; 0 = not needed, 1 = needed
REQMRAQ
MCRWNR(IBINS)	;Returns whether the ins co IBINS is MEDICARE WNR (Will ; NOT Reimburse) 0=NO, 1=YES
WNRBILL(IBIFN,IBCOB)	; Returns whether the ins for COB seq IBCOB ; is MEDICARE will not reimburse
MCR(IBINS)	;Returns whether the ins co IBINS is MCR Will Reimburse ; 0=NO , 1=YES
MRATYPE(IBIEN,IBVAR)	; Returns: A = MEDICARE A B = MEDICARE B ; C = MEDICARE OTHER null = NOT MEDICARE ; for the plan associated with bill ien IBIEN OR grp plan IBIEN ; If IBVAR = "" or 'C', the data is from bill ien in IBIEN ; = 'P', the data is from grp policy ien in IBIEN ;
MCRONBIL(IBIFN,IBFLG,IBTRBIL)	; Returns 0 if MCR WNR not on bill IBIFN ; 1 if on bill, is on or before current ins ; 2 if on bill, but after current ins ; IBFLG = a COB number if second "^" piece of return data should be ; 1 if MCRWNR is the insurance at that COB sequence (optional) ; IBTRBIL = tricare for CL1A-5
TRI(IBIFN,Z)	;return 1 if rate type & coverage type-Tricare
PROFEE(IBIFN)	; Returns whether any rev codes for prof fees ; included on bill IBIFN 0 = not included, 1 = included, ; 2 = both inst and prof are included
GETMOD(IBIFN,IBCPT,EXT)	; Returns 'list' of modifiers for file 399 ; procedure for bill IBIFN and proc ien IBCPT ; in modifier seq order, separated by ',' ; If EXT = 1, return the actual modifier, not the ptr
MODLST(MODS,DESC,IBMOD)	; Returns string of actual mods ; MOVED
GETSPEC(FILE,FIELD)	; Get fld specifier for FIELD # in FILE ; Use to set DIC("P") for FILE^DICN

Name	Field # of Occurrence
FIELD^DID	GETSPEC+3
$$COB^IBCEF	REQMRA+7, REQMRA+22
$$COBN^IBCEF	REQMRA+8, WNRBILL+3, MCRONBIL+8
$$FT^IBCEF	REQMRA+31
$$INPAT^IBCEF	REQMRA+30
$$POLICY^IBCEF	MRATYPE+7
$$EDIACTV^IBCEF4	REQMRA+14
$$MODLST^IBEFUNC2	MODLST+2
$$DISND^IBSDU	DISCT+5
SCAN^IBSDU	BABCSC+12
$$EXPAND^IBTRE	EXSET+1
$$MOD^ICPTMOD	GETMOD+8

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	NEEDMRA+1, REQMRA+9, REQMRA+19, REQMRA+20, REQMRA+23, WNRBILL+5, TRI+4, TRI+5, PROFEE+5, PROFEE+8 , PROFEE+9, GETMOD+6
^DGCR(399.3 - [#399.3]	TRI+5
^DIC(36 - [#36]	MCRWNR+3, MCR+3, TRI+6
^DPT - [#2]	PT+1, PT+2
^IBA(355.3 - [#355.3]	MRATYPE+8
^IBE(350.8 - [#350.8]	ETXT+4
^IBE(352.1 - [#352.1]	IGN+7, DSP+7, RPT+7
^IBE(352.2 - [#352.2]	NBDIS+7
^IBE(352.3 - [#352.3]	NBCSC+7, NBST+5, NABST+2
^IBE(352.4 - [#352.4]	NBCL+7, NBCT+5, NABCT+2
^IBE(355.2 - [#355.2]	MCRWNR+4, MCR+4, TRI+7
^IBE(364.4 - [#364.4]	REQMRA+27, REQMRA+32
^SC - [#44]	NCTCL+2
^TMP("DIERR"	BABCSC+12!

Name	Line Occurrences
$$MCRWNR	REQMRA+11, REQMRA+24, WNRBILL+5
$$TRI	MCRONBIL+9
$$WNRBILL	MCRONBIL+9
BABQ	BABCSC+6
ETXTQ	ETXT+3
REQMRAQ	REQMRA+7, REQMRA+12, REQMRA+14, REQMRA+17, REQMRA+21, REQMRA+22

Name	Field # of Occurrence
^(	IGN+7, DSP+7, RPT+7, NBDIS+7, NBCSC+7, NBCL+7, NBST+5, NBCT+5, NABST+2, NABCT+2
^(0	GETMOD+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
COBINS	REQMRA+5~, REQMRA+9, REQMRA+11, REQMRA+20, REQMRA+21, REQMRA+23*, REQMRA+24, REQMRA+32
COBSEQ	REQMRA+5~, REQMRA+8*, REQMRA+9, REQMRA+17, REQMRA+20, REQMRA+23
D0	EXSET~, EXSET+1
D1	EXSET~, EXSET+1
DESC	MODLST~, MODLST+2
DFN	PT~, PT+1, PT+2, BABCSC~, BABCSC+6, BABCSC+8
DT	NABST+1, NABCT+1, REQMRA+28, REQMRA+29
EXT	GETMOD~, GETMOD+7, GETMOD+8
FIELD	GETSPEC~, GETSPEC+3
FILE	GETSPEC~, GETSPEC+3
IB0	REQMRA+5~, REQMRA+19, GETMOD+4~, GETMOD+6, GETMOD+7, GETMOD+8
IB00	REQMRA+5~, REQMRA+27*, REQMRA+28, REQMRA+29, REQMRA+32
IBCBK	BABCSC+4~, BABCSC+11*, BABCSC+12
IBCOB	WNRBILL~, WNRBILL+3, WNRBILL+4, WNRBILL+5
IBCPT	GETMOD~, GETMOD+6
IBDA	REQMRA+5~, REQMRA+27*, REQMRA+32
IBDT	BABCSC~, BABCSC+6, BABCSC+8
IBFILTER	BABCSC+4~, BABCSC+10*
IBFLG	MCRONBIL~, MCRONBIL+9
IBIEN	MRATYPE~, MRATYPE+7
IBIFN	NEEDMRA~, NEEDMRA+1, REQMRA~, REQMRA+7, REQMRA+8, REQMRA+9, REQMRA+19, REQMRA+20, REQMRA+22, REQMRA+23 , REQMRA+30, REQMRA+31, WNRBILL~, WNRBILL+3, WNRBILL+5, MCRONBIL~, MCRONBIL+8, MCRONBIL+9, TRI~, TRI+4 , TRI+5, PROFEE~, PROFEE+5, PROFEE+8, PROFEE+9, GETMOD~, GETMOD+6
IBINS	MCRWNR~, MCRWNR+3, MCR~, MCR+3, TRI+1~, TRI+4*, TRI+6
IBMOD	GETMOD+4~, GETMOD+5, GETMOD+10, GETMOD+11, MODLST~, MODLST+2
IBOE	DISCT~, DISCT+5
IBOE0	APPTCT~, APPTCT+4, NCTCL~, NCTCL+2, DISCT~, DISCT+5
IBOK	REQMRA+5~, REQMRA+7, REQMRA+11, REQMRA+12, REQMRA+14, REQMRA+17, REQMRA+21, REQMRA+22, REQMRA+24, REQMRA+27 , REQMRA+32*, REQMRAQ
IBON	MCRONBIL+7~, MCRONBIL+8, MCRONBIL+9, MCRONBIL+10
IBPLAN	MRATYPE+6~, MRATYPE+7*, MRATYPE+8
IBPRO	PROFEE+4~, PROFEE+5, PROFEE+7, PROFEE+9*, PROFEE+10
IBRTY	TRI+1~, TRI+5*, TRI+7
IBTRBIL	MCRONBIL~, TRI+3
IBVAL	BABCSC+4~, BABCSC+12
IBVAL("BDT"	BABCSC+8*
IBVAL("DFN"	BABCSC+8*
IBVAL("EDT"	BABCSC+8*
IBVAR	MRATYPE~, MRATYPE+7
IBX	PT+1~, PT+2, PT+3, PT+4, BABCSC+4~, BABCSC+5, BABQ, DISCT+4~, DISCT+5*, DISCT+6
IBZ	GETMOD+4~, GETMOD+5, GETMOD+6, GETSPEC+2~
IBZ("SPECIFIER"	GETSPEC+4
IBZ0	GETMOD+4~, GETMOD+6*
MODS	MODLST~, MODLST+2
Q	MCRONBIL+7~, MCRONBIL+8*, MCRONBIL+9
STAT	APPTCT+3~, APPTCT+4, APPTCT+5, APPTCT+7
U	ETXT+4, IGN+7, DSP+7, RPT+7, NBDIS+7, NBCSC+7, NBCL+7, NBST+5, NBCT+5, NABST+2 , NABCT+2, PT+1, PT+2, PT+3, PT+4, APPTCT+4, NCTCL+2, NEEDMRA+1, REQMRA+9, REQMRA+20 , REQMRA+23, REQMRA+28, REQMRA+29, REQMRA+32, MCRWNR+4, MCR+4, MRATYPE+8, TRI+5, TRI+7, GETMOD+7 , GETMOD+8
X	ETXT~, ETXT+2, ETXT+3, ETXT+4, IGN~, IGN+6, IGN+7, DSP~, DSP+6, DSP+7 , RPT~, RPT+6, RPT+7, NBDIS~, NBDIS+6, NBDIS+7, NBCSC~, NBCSC+6, NBCSC+7, NBCL~ , NBCL+6, NBCL+7, NBST~, NBST+4, NBST+5, NBCT~, NBCT+4, NBCT+5, NABST~, NABST+1 , NABST+2, NABCT~, NABCT+1, NABCT+2, PT+1~, PT+3, PT+4*, PT+5, EXSET~, EXSET+1
Y	ETXT+2~, ETXT+4, ETXTQ, IGN~, IGN+6, IGN+7, DSP~, DSP+6, DSP+7, RPT~ , RPT+6, RPT+7, NBDIS~, NBDIS+6, NBDIS+7, NBCSC~, NBCSC+6, NBCSC+7, NBCL~, NBCL+6 , NBCL+7, NBST~, NBST+4, NBST+5, NBCT~, NBCT+4, NBCT+5, NABST~, NABST+1, NABST+2 , NABCT~, NABCT+1, NABCT+2
Z	MCRWNR+2~, MCRWNR+3, MCRWNR+4, MCRWNR+5, MCR+2~, MCR+3, MCR+4, MCR+5, MCRONBIL+7~, MCRONBIL+9* , TRI~, TRI+4, PROFEE+4~, PROFEE+5, PROFEE+6, PROFEE+8, PROFEE+9, GETMOD+4~, GETMOD+7, GETMOD+8 , GETMOD+9, GETMOD+10
Z0	REQMRA+5~, REQMRA+30, REQMRA+32, MCRWNR+2~, MCRWNR+3, MCRWNR+4, MCR+2~, MCR+3, MCR+4, TRI+1~ , TRI+6*, TRI+7
Z1	REQMRA+5~, REQMRA+31, REQMRA+32, TRI+1~, TRI+2, TRI+3, TRI+7*, TRI+8

Customize PDF page

Package: Integrated Billing

Routine: IBEFUNC

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 200

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: