Routine: IBJDF41

Package	Total	Call Graph
Integrated Billing	6	$$RXST^IBARXEU ($$CLMACT,$$DT)^IBJD ($$PYMT,$$VA)^IBJD1 ($$ELIG,EN)^IBJDF42 (EN,INIT)^IBJDF43 ($$DAT1,$$STOP)^IBOUTL
Kernel	2	^%ZISC $$FMDIFF^XLFDT
Registration	2	$$LST^DGMTU (DEM,ELIG,SVC)^VADPT
VA FileMan	1	($$GET1,GETS)^DIQ

Package	Total	Caller Graph
Integrated Billing	3	IBJDF4 IBJDF43 IBOA32

Entry Points

Name	Comments	DBIA/ICR reference
ST	; - Tasked entry point.
ENQ
ENQ1
PROC	; - Process data for report(s).
ACCBAL(DFN)	; Calculates the Account Balance for the Bill ; Input: DFN - Patient/Debtor internal number ; Output: BAL - Patient/Debtor Account Balance
PHDL	; - Print the header line for the Excel spreadsheet
PAT(X)	; - Find the AR patient and decide to include the AR. ; Input: X=AR pointer to file #430 and pre-set variables IBS* ; Output: Y=Sort key (name or last 4) ^ Patient pointer to file #2 ; ^ Name ^ SSN ^ Eligibilities ^ Date of death (if any) ; ^ Debtor pointer to file #340
PATC	; - Set patient eligibilities.
PATQ
RP(X)	; - Check if claim/receivable is under a repayment plan. ; Input: X=Bill pointer to file #430 ; Output: 0-Not on repay plan, 1-On repay plan, 2-On defaulted plan
MTRX(X)	; - Return patient's means test and/or RX copay status and most recent ; test dates for both. ; Input: X=Patient pointer to file #2 and opt. variable IBEXCEL ; Output: Y=Means test status ^ Date ^ RX copay status ^ Date
SREF(RFT,DAT,STS,DEF,IDX)	; Set the "referred to" information on the ; temporary global ^TMP
COM	; - Get bill comments.
IBEEOBCK(IBBN,DFN)	; Passed AR Bill, Patient ID ; Function will quit as soon as a 3rd party bill is located that has an associated EEOB
TPEVDT(DFN,EVDT)	; ; Function will quit as soon as a 3rd party bill is located that has an associated EEOB ; IB2.0473 - Use the 399,"APDT" (by patient) index instead of the 399,"D" index for efficiency
TPOPV(DFN,EVDT)	; ; Function will quit as soon as a 3rd party bill is located that has an associated EEOB
EEOBCK(IBBILL)
SUST(IBA)	;Look for suspended type for a suspended bill IB2568/DRF
ABBR(SUSP)	;Return abbreviation for suspended bill types IB2568/DRF
REPDATA(RPIEN,DAYS)	; - Return Repayment Plan information IB2.0694
GETPACT(DFN)	; get PACT act eligibility IB2.0841

Name	Field # of Occurrence
^%ZISC	ENQ+3
$$LST^DGMTU	MTRX+5
$$GET1^DIQ	PROC+70, SUST+5, SUST+6
GETS^DIQ	REPDATA+20
$$RXST^IBARXEU	MTRX+5
$$CLMACT^IBJD	PROC+5
$$DT^IBJD	PROC+69, PROC+70, MTRX+11, MTRX+13, COM+10
$$PYMT^IBJD1	PROC+13
$$VA^IBJD1	PROC+13
$$ELIG^IBJDF42	PROC+69
EN^IBJDF42	ST+29
EN^IBJDF43	PROC+22
INIT^IBJDF43	ST+24
$$DAT1^IBOUTL	MTRX+7, MTRX+9
$$STOP^IBOUTL	PROC+2
DEM^VADPT	PAT+9
ELIG^VADPT	PATC+1
SVC^VADPT	GETPACT+8
$$FMDIFF^XLFDT	PROC+11, PROC+72, COM+7, REPDATA+32

Name	Line Occurrences
Function Call: WRITE	Prompt: !,IBEXCEL1 Line Location: PROC+74
Function Call: WRITE	Prompt: !,X Line Location: PHDL+6

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^RCRP(340.5 - [#340.5]	GETS^DIQ
^PRCA(433 - [#433]	GET1^DIQ
^PRCA(433.001 - [#433.001]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	TPEVDT+6, TPEVDT+7, TPOPV+4, EEOBCK+10
^IB - [#350]	IBEEOBCK+8
^IB("ABIL"	IBEEOBCK+7
^IBM(361.1 - [#361.1]	EEOBCK+9, EEOBCK+12, EEOBCK+13
^PRCA(430 - [#430]	ST+26, PROC+3, PROC+17, PROC+30, PROC+35, PROC+39, PROC+44, ACCBAL+6, ACCBAL+7, ACCBAL+8 , PAT+7, RP+5
^PRCA(430.2 - [#430.2]	PROC+69
^PRCA(433 - [#433]	COM+5, COM+6, COM+14, COM+15, COM+21, COM+22, SUST+5, SUST+6, SUST+7
^RCD(340 - [#340]	PAT+8
^TMP("IBJDF4"	ST+1!, ENQ!, PROC+29, PROC+62, PROC+76, PROC+77, PROC+78, SREF+19, SREF+20, SREF+21 , SREF+22, COM+2, COM+26, COM+28, COM+31

Name	Line Occurrences
$$ABBR	PROC+70
$$ACCBAL	PROC+77
$$EEOBCK	TPEVDT+7, TPOPV+6
$$GETPACT	PROC+77
$$IBEEOBCK	PROC+65
$$MTRX	PROC+70, PROC+77
$$PAT	PROC+9
$$REPDATA	RP+6
$$RP	PROC+51
$$SUST	PROC+7
$$TPEVDT	IBEEOBCK+9
$$TPOPV	IBEEOBCK+10
COM	PROC+71, PROC+80
ENQ	ST+18
ENQ1	ENQ+1
PATC	PAT+14, PAT+15
PATQ	PAT+6, PAT+8, PAT+9, PAT+12, PAT+13, PAT+16, PAT+17
PHDL	ST+15
PROC	ST+27
SREF	PROC+34, PROC+38, PROC+42, PROC+47, PROC+55

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
B0	ACCBAL+4~, ACCBAL+7*
B7	ACCBAL+4~, ACCBAL+8*, ACCBAL+9
BAL	ACCBAL+4~, ACCBAL+5, ACCBAL+9, ACCBAL+10
BILL	ACCBAL+4~, ACCBAL+5, ACCBAL+6, ACCBAL+7, ACCBAL+8
COM	ENQ1+2!, COM+13!
COM(	COM+22*, COM+27, COM+28
COM(0	COM+13*, COM+26
COM(1	COM+16, COM+17
COM1	ENQ1+2!, COM+13!
COM1(1	COM+14*, COM+16
COM1(2	COM+15*, COM+16
DAT	ENQ1+2!, PROC+72, SREF~, SREF+21, COM+4, COM+5, COM+9, COM+10, COM+13
DATA	REPDATA+18~, REPDATA+20
DATA(	REPDATA+21, REPDATA+22, REPDATA+23, REPDATA+24, REPDATA+26, REPDATA+28, REPDATA+29, REPDATA+31, REPDATA+32
DAYS	REPDATA~, REPDATA+32
DBTR	PAT+5~, PAT+7*, PAT+8, PATC+5
DEATH	PAT+5~, PAT+10*, PATC+4
DEF	SREF~, SREF+10*, SREF+17
DFN	ENQ1+2!, PROC+10, PROC+13, PROC+14, PROC+65, PROC+70, PROC+77, ACCBAL~, ACCBAL+6, PAT+5~ , PAT+9, PAT+12, PAT+13, PATC+4, IBEEOBCK~, IBEEOBCK+9, IBEEOBCK+10, TPEVDT~, TPEVDT+3, TPEVDT+6 , TPEVDT+7, TPOPV~, TPOPV+4, GETPACT~, GETPACT+7
DT	PROC+11, PROC+72, COM+7, REPDATA+32
EVDT	TPEVDT~, TPEVDT+3, TPEVDT+7, TPOPV~, TPOPV+4
I	ACCBAL+4~, ACCBAL+9*
IB	ST+1!, ST+18*, ST+19, ST+20, ST+21, ST+26, ENQ1!, PROC+7, PROC+28, PROC+70
IB0	ENQ1!, PROC+28*, PROC+34, PROC+38, PROC+42, PROC+47, PROC+55, PROC+78, COM+2, COM+26 , COM+28, COM+31
IBA	ST+25, ST+26, ENQ1!, PROC+1, PROC+3, PROC+5, PROC+7, PROC+9, PROC+13, PROC+17 , PROC+30, PROC+35, PROC+39, PROC+44, PROC+51, COM+5, SUST~, SUST+2*, SUST+5
IBA1	ENQ1!, COM+4, COM+5, COM+6, COM+14, COM+15, COM+21, COM+22, COM+26, COM+28
IBADM	ENQ1!, PROC+17, PROC+20, PROC+70, PROC+78
IBAGE	ENQ1!, PROC+11*, PROC+12
IBAI	ENQ1+1!, PROC+29, PROC+32, PROC+37, PROC+41, PROC+46, PROC+53, PROC+54, PROC+60, PROC+62
IBAIQ	ENQ1+1!, PROC+29, PROC+31, PROC+33
IBAR	ENQ1!, PROC+3*, PROC+4, PROC+11, PROC+13, PROC+70
IBAR1	ENQ1!
IBBA	ENQ1!, PROC+17, PROC+19, PROC+24, PROC+70, PROC+78
IBBILL	EEOBCK~, EEOBCK+8, EEOBCK+9, EEOBCK+10, EEOBCK+12
IBBN	ENQ1!, PROC+13, PROC+65, PROC+70, PROC+78, COM+31, IBEEOBCK~, IBEEOBCK+7
IBBU	ENQ1!
IBC	ENQ1!, COM+6*, COM+7, COM+8, COM+9
IBCAT	ST+1!, ST+22, ST+23, ENQ1!, PROC+4*, PROC+5, PROC+69, PROC+78, COM+31
IBCAT(	ST+7, ST+8, ST+11, ST+12, ST+23, PROC+4
IBCAT(1	ST+6*
IBCAT(18	ST+7*
IBCAT(2	ST+5*
IBCAT1	ENQ1!
IBD	PROC+72*, PROC+73, PROC+74!
IBDT	IBEEOBCK+4~, IBEEOBCK+8*, IBEEOBCK+9, IBEEOBCK+10
IBEEOB	IBEEOBCK+4~, IBEEOBCK+5, IBEEOBCK+7, IBEEOBCK+9, IBEEOBCK+10, IBEEOBCK+12, TPEVDT+4~, TPEVDT+5, TPEVDT+6, TPEVDT+7* , TPEVDT+8, TPOPV+2~, TPOPV+3, TPOPV+4, TPOPV+6, TPOPV+7
IBELIG	ENQ1+1!
IBEXCEL	ST+15, ST+29, ENQ1+1!, PROC+22, PROC+68, MTRX+6, MTRX+10, COM+1, COM+10, COM+24 , COM+30
IBEXCEL1	PROC+69, PROC+70, PROC+73, PROC+74!, COM+10
IBFLG	ENQ1+1!, PROC+57, COM+2, COM+26*, COM+30
IBIDX	ENQ1+1!, PROC+28, PROC+34, PROC+38, PROC+42, PROC+47, PROC+55, PROC+57, PROC+78, COM+1 , COM+2, COM+26, COM+28, COM+31
IBIFN	TPEVDT+4~, TPEVDT+5, TPEVDT+6, TPEVDT+7, TPOPV+2~, TPOPV+4*, TPOPV+6
IBINT	ENQ1+1!, PROC+17, PROC+20, PROC+70, PROC+78
IBIO	ENQ1+1!
IBN	ENQ1+1!, PROC+17*, PROC+19, PROC+20
IBOUT	EEOBCK+7~, EEOBCK+12, EEOBCK+14*, EEOBCK+15
IBPA	ENQ1+1!, PROC+17, PROC+20, PROC+70, PROC+78
IBPAT	ENQ1+1!, PROC+14*, PROC+29, PROC+62, PROC+76, PROC+77, PROC+78, SREF+19, SREF+20, SREF+21 , SREF+22, COM+2, COM+26, COM+28, COM+31
IBPD	ENQ1+1!, PROC+13*, PROC+70, PROC+72, PROC+78
IBPT	ENQ1+2!, PROC+9*, PROC+10, PROC+14, PROC+69, PROC+77
IBQ	ST+2, ST+18, ST+26, ST+29, ENQ1+2!, PROC+1, PROC+2
IBREF	IBEEOBCK+4~, IBEEOBCK+7*, IBEEOBCK+8
IBRFD	ENQ1+2!, PROC+30, PROC+31, PROC+34, PROC+35, PROC+36, PROC+38, PROC+39, PROC+40, PROC+42 , PROC+44, PROC+45, PROC+47
IBRFT	ENQ1+2!, PROC+28, PROC+32, PROC+37, PROC+41, PROC+46, PROC+53, PROC+54*, PROC+70
IBRP	ENQ1+2!, PROC+51*, PROC+52, PROC+53, PROC+54, PROC+55
>> IBRPT	PROC+22, PROC+31, PROC+36, PROC+40, PROC+45
>> IBSAM	PROC+24
>> IBSEL	ST+5, ST+6, ST+7, ST+8, ST+10
>> IBSELST	PROC+8
>> IBSH	PROC+71, PROC+80
>> IBSH1	COM+4, COM+5, COM+10
>> IBSH2	COM+7
>> IBSMN	PROC+12
>> IBSMX	PROC+12
>> IBSN	PAT+11
>> IBSNA	PAT+13, PAT+14
>> IBSNF	PAT+12, PAT+15, PAT+16
>> IBSNL	PAT+15, PAT+17
IBSRC	ENQ1+2!, PROC+33
>> IBSTA	ST+19, ST+20, PROC+8, PROC+70
>> IBSUSTYP	PROC+6, PROC+7, PROC+8, PROC+70, PROC+78
IBVA	ENQ1+2!, PROC+13*, PROC+60, PROC+69, PROC+77
IBVAL	EEOBCK+7~, EEOBCK+13*, EEOBCK+14
IDX	SREF~, SREF+10, SREF+19, SREF+20, SREF+21, SREF+22
IDX1	SREF+9~, SREF+20*, SREF+21, SREF+22
IENS	REPDATA+18~, REPDATA+19*, REPDATA+20, REPDATA+21, REPDATA+22, REPDATA+23, REPDATA+24
KEY	PAT+5~, PAT+11*, PAT+12, PAT+16, PAT+17, PATC+4
LPAMT	REPDATA+18~, REPDATA+26*, REPDATA+27
LPDT	REPDATA+18~, REPDATA+26*, REPDATA+27
MTST	MTRX+4~, MTRX+5*, MTRX+7, MTRX+11
NAME	PAT+5~, PAT+10*, PAT+11, PATC+4
PAT	PAT+5~, PAT+6, PATC+4, PATC+5*, PATQ
PDEF	REPDATA+18~, REPDATA+28, REPDATA+32, REPDATA+35
PDUE	REPDATA+18~, REPDATA+28, REPDATA+30, REPDATA+34, REPDATA+35
RES	REPDATA+18~, REPDATA+19, REPDATA+20, REPDATA+21, REPDATA+22, REPDATA+23, REPDATA+25, REPDATA+27, REPDATA+35*, REPDATA+36
RFT	SREF~, SREF+11, SREF+12, SREF+13, SREF+14, SREF+15
RPIEN	RP+3~, RP+5*, RP+6, REPDATA~, REPDATA+19
RXST	MTRX+4~, MTRX+5*, MTRX+8, MTRX+9, MTRX+12, MTRX+13
SREF	SREF+9~, SREF+11, SREF+12, SREF+13, SREF+14, SREF+16, SREF+17, SREF+22
SSN	PAT+5~, PAT+10*, PAT+11, PATC+4
ST	SUST+1~, SUST+3, SUST+6, SUST+7, SUST+8, SUST+10
STATUS	REPDATA+18~, REPDATA+24*, REPDATA+35
STIEN	SUST+1~, SUST+6*
STS	SREF~, SREF+19, SREF+20, SREF+21, SREF+22
SUSP	ABBR~, ABBR+1*, ABBR+2, ABBR+3, ABBR+4, ABBR+5, ABBR+6, ABBR+7, ABBR+8, ABBR+9 , ABBR+10, ABBR+11, ABBR+12, ABBR+13, ABBR+15, ABBR+16, ABBR+17
TMPDT	REPDATA+18~, REPDATA+26*
TRANS	SUST+1~, SUST+5*, SUST+6, SUST+7
U	PROC+4, PROC+10, PROC+11, PROC+13, PROC+14, PROC+19, PROC+20, PROC+30, PROC+69, PROC+70 , PROC+73, PROC+77, PROC+78, PAT+7, PAT+8, PATC+4, PATC+5, RP+5, RP+7, RP+9 , COM+8, COM+9, COM+14, COM+15, SUST+6, SUST+7, REPDATA+22, REPDATA+23, REPDATA+25, REPDATA+27 , REPDATA+35, GETPACT+9
VADM	PAT+5~
VADM(1	PAT+10
VADM(2	PAT+10
VADM(6	PAT+10
VAEL	PAT+5~
VAEL(1	PATC+1, PATC+2
VASV	GETPACT+6~
VASV(15	GETPACT+9
X	ST+7, ST+8, ST+11, ST+12, ENQ1+2!, PROC+18, PROC+19, PROC+20, PHDL+1~, PHDL+2 , PHDL+3, PHDL+4, PHDL+5*, PHDL+6, PAT~, PAT+6, PAT+7, RP~, RP+5, MTRX~ , MTRX+5
X1	ENQ1+2!, PAT+5~, PAT+8, PAT+9, PATC+2, COM+13, COM+17, COM+22, COM+26, COM+27 , COM+28
X2	ENQ1+2!, PAT+5~, PATC+1, PATC+2, PATC+4, COM+20, COM+21, COM+22
Y	ENQ1+2!, MTRX+4~, MTRX+5, MTRX+7, MTRX+8, MTRX+9, MTRX+11, MTRX+12, MTRX+13*, MTRX+14
Z	ENQ1+2!, RP+3~, RP+6, RP+7, RP+9, EEOBCK+7~, EEOBCK+12, EEOBCK+13, REPDATA+18~, REPDATA+26* , REPDATA+28*, REPDATA+29, REPDATA+31, REPDATA+32
>> ZTQUEUED	ENQ+1
>> ZTREQ	ENQ+1*

Customize PDF page

Package: Integrated Billing

Routine: IBJDF41

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: