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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBJDF41

Package: Integrated Billing

Routine: IBJDF41


Information

IBJDF41 ;ALB/RB - FIRST PARTY FOLLOW-UP REPORT (COMPILE) ;15-APR-00

Source Information

Source file <IBJDF41.m>

Call Graph

Call Graph

Call Graph Total: 12

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)^VADPT  
Accounts Receivable 1 $$REPDATA^RCBECHGA  
VA FileMan 1 $$GET1^DIQ  

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: 3

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 #399/#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
; IB*2.0*473 - 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 IB*2*568/DRF
ABBR(SUSP) ;Return abbreviation for suspended bill types IB*2*568/DRF

External References

Name Field # of Occurrence
^%ZISC ENQ+3
$$LST^DGMTU MTRX+5
$$GET1^DIQ PROC+70
$$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
$$REPDATA^RCBECHGA RP+4
DEM^VADPT PAT+9
ELIG^VADPT PATC+1
$$FMDIFF^XLFDT PROC+11, PROC+72, COM+7

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ

Global Variables Directly Accessed

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
^PRCA(430.2 - [#430.2] PROC+69
^PRCA(433 - [#433] COM+5, COM+6, COM+14, COM+15, COM+21, COM+22, SUST+4, SUST+5
^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*

Label References

Name Line Occurrences
$$ABBR PROC+70
$$ACCBAL PROC+77
$$EEOBCK TPEVDT+7, TPOPV+6
$$IBEEOBCK PROC+65
$$MTRX PROC+70, PROC+77
$$PAT PROC+9
$$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
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
DT PROC+11, PROC+72, COM+7
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+4
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
KEY PAT+5~, PAT+11*, PAT+12, PAT+16, PAT+17, PATC+4
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
RFT SREF~, SREF+11, SREF+12, SREF+13, SREF+14, SREF+15
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+5*, SUST+6*, SUST+7
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+14
TRANS SUST+1~, SUST+4*, SUST+5
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, COM+8, COM+9, COM+14
COM+15, SUST+5
VADM PAT+5~
VADM(1 PAT+10
VADM(2 PAT+10
VADM(6 PAT+10
VAEL PAT+5~
VAEL(1 PATC+1, PATC+2
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+4, 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+4*, RP+5, RP+6, EEOBCK+7~, EEOBCK+12*, EEOBCK+13
>> ZTQUEUED ENQ+1
>> ZTREQ ENQ+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All