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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: IBJDF61

Package: Integrated Billing

Routine: IBJDF61


Information

IBJDF61 ;ALB/RB - MISC. BILLS FOLLOW-UP REPORT (COMPILE) ;15-APR-00

Source Information

Source file <IBJDF61.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Integrated Billing 8 $$CHK^IBCNS1  ($$CLMACT,$$DT)^IBJD  $$PYMT^IBJD1  $$ACT^IBJDF2  $$DIV^IBJDF51  EN^IBJDF62  (EN,INIT)^IBJDF63  $$STOP^IBOUTL  
Kernel 2 ^%ZISC  $$FMDIFF^XLFDT  
Registration 2 DEM^VADPT  $$PRIM^VASITE  
VA FileMan 1 EN^DIQ1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBJDF6  

Entry Points

Name Comments DBIA/ICR reference
ENQ1
OTHQ
PHDL ; - Print the header line for the Excel spreadsheet
PDQ
ST ; - Tasked entry point.
PTDB(X) ; - Find Patient/Debtor and decide to include the AR.
; Input: X=Pointer to the AR in file #430 plus all IBS* variables
; Output: Y=Sort key (name or last 4) and Patient/Debtor IEN(file #2)
; ^ Patient/Debtor name (1st 25 chars) ^ Age ^ SSN
; ^ Processed by (File #200) ^ Current VA Employee? (*=Yes)
ENQ
VAEMP(SSN) ; - Check if the Patient/Debtor is a current VA Employee
; Input: SSN - Patient/Debtor Social Security Number
COM ; - Get bill comments.
OTH(DFN,INS,DS) ; - Find a patient's other valid insurance carrier (if any).
; Input: DFN=Pointer to the patient in file #2
; INS=Pointer to the patient's primary carrier in file #36
; DS=Date of service for validity check
; Output: Valid insurance carrier (first 22 chars.) or null
PDC

External References

Name Field # of Occurrence
^%ZISC ENQ+3
EN^DIQ1 PTDB+22, PTDB+25
$$CHK^IBCNS1 OTH+9
$$CLMACT^IBJD ST+63
$$DT^IBJD ST+83, ST+84, COM+9
$$PYMT^IBJD1 ST+72
$$ACT^IBJDF2 ST+48
$$DIV^IBJDF51 ST+39
EN^IBJDF62 ST+90
EN^IBJDF63 ST+55
INIT^IBJDF63 ST+20, ST+21
$$STOP^IBOUTL ST+29
DEM^VADPT PTDB+17
$$PRIM^VASITE ST+80
$$FMDIFF^XLFDT ST+48, ST+87, COM+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,IBEXCEL1
  • Line Location: ST+88
Function Call: WRITE
  • Prompt: !,X
  • Line Location: PHDL+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCD(340 - [#340] Classic Fileman Calls
^PRCA(430 - [#430] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] ST+80
^DGCR(399 - [#399] ST+32, ST+33, ST+61, ST+64, PTDB+14, PTDB+15
^DIC(36 - [#36] ST+62, OTH+8
^DPT - [#2] OTH+6
^IB - [#350] ST+64
^PRCA(430 - [#430] ST+27, ST+30, ST+51, PTDB+9
^PRCA(430.2 - [#430.2] ST+81
^PRCA(433 - [#433] COM+4, COM+5, COM+13, COM+14, COM+19
^PRSPC - [#450] VAEMP+6
^PRSPC("SSN" VAEMP+5
^TMP( COM+23*
^TMP("IBJDF6D" ST+1!, ST+73, ST+74*, ST+75*, ENQ!
^TMP("IBJDF6P" ST+1!, ST+68, ST+69*, ST+70*, ENQ!

Label References

Name Line Occurrences
$$OTH ST+66
$$PTDB ST+44
$$VAEMP PDC
COM ST+77, ST+86
ENQ1 ENQ+1
OTHQ OTH+5
PDC PTDB+31
PDQ PTDB+8, PTDB+13, PTDB+21, PTDB+29, PTDB+30, PTDB+32
PHDL ST+24

Naked Globals

Name Field # of Occurrence
^( OTH+6, COM+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AGE PTDB+5~, PTDB+10*, PTDB+17*, PDC
ALL PTDB+5~, PTDB+16*, PTDB+27*, PTDB+30
ARZ PTDB+5~, PTDB+9*, PTDB+23
CAT PTDB+5~, PTDB+9*, PTDB+13, PTDB+21
COM ENQ1+1!, COM+1~, COM+12!
COM( COM+19*, COM+21, COM+23
COM(0 COM+12*
COM(1 COM+15*, COM+16*
COM1 ENQ1+2!, COM+1~, COM+12!
COM1(1 COM+13*, COM+15
COM1(2 COM+14*, COM+15
DA PTDB+5~, PTDB+22*, PTDB+24, PTDB+25*, PTDB+26
DAT ST+87, ENQ1+2!, COM+1~, COM+3*, COM+4, COM+8*, COM+9, COM+12
DEB PTDB+5~
DEB(340 PTDB+26
DEB(430 PTDB+24
DFN ST+62*, ST+66, ENQ1+2!, PTDB+5~, PTDB+9*, PTDB+13, PTDB+15*, PTDB+21, PTDB+23*, PTDB+25
, PTDB+29, PTDB+30, PTDB+34, OTH~, OTH+5, OTH+6
DIC PTDB+5~, PTDB+22*, PTDB+25*
DIQ PTDB+5~, PTDB+22*, PTDB+25*
DR PTDB+5~, PTDB+22*, PTDB+25*
DS OTH~, OTH+5, OTH+9
DT ST+48, ST+87, COM+6
END PTDB+5~, PTDB+16*, PTDB+27*, PTDB+31, PTDB+32
IB ST+1!
IBA ST+27*, ST+28, ST+30, ST+32, ST+33, ST+39, ST+44, ST+48, ST+51, ST+61
, ST+63, ST+64, ST+72, ENQ1!, COM+4
IBA1 ENQ1!, COM+1~, COM+3*, COM+4*, COM+5, COM+13, COM+14, COM+19, COM+23
IBAR ST+30*, ST+31, ST+59, ST+63, ENQ1!
IBARD ST+47, ST+48*, ENQ1!
IBBA ST+51*, ST+52, ST+70, ST+75, ST+85, ENQ1!
IBBN ST+59*, ST+70, ST+75, ST+83, ENQ1+1!, COM+23
IBC COM+1~, COM+5*, COM+6, COM+7, COM+8
IBCAT ST+1!, ST+17*, ST+19, ST+31*, ST+32, ST+63, ST+68, ST+69, ST+70, ST+73
, ST+74, ST+75, ST+81, ENQ1!, COM+23
IBCAT( ST+17, ST+31, ST+32
IBCAT(10 ST+6*
IBCAT(12 ST+13*
IBCAT(13 ST+10*
IBCAT(14 ST+11*
IBCAT(15 ST+9*
IBCAT(16 ST+8*
IBCAT(17 ST+14*
IBCAT(20 ST+12*
IBCAT(21 ST+4*
IBCAT(6 ST+7*
IBCAT(7 ST+5*
IBCAT1 ST+32*, ST+33, ST+36, ST+60, ENQ1!, COM+22
IBCLM ST+58*, ST+60, ST+63*, ST+64, ST+65, ENQ1+1!
IBD ST+87*, ST+88!, ENQ1!
IBDIV ST+18*, ST+20*, ST+36*, ST+38*, ST+39*, ST+41, ST+68, ST+69, ST+70, ST+73
, ST+74, ST+75, ST+80*, ST+81, ENQ1!, COM+23
IBDP ST+59*, ST+63*, ST+64, ST+70, ST+75, ST+83, ST+87, ENQ1+1!
IBEXCEL ST+24, ST+55, ST+67, ST+77, ST+90, ENQ1+1!, COM+9
IBEXCEL1 ST+81*, ST+82*, ST+83*, ST+84*, ST+85*, ST+87, ST+88*!, COM+9*
IBFR ST+58*, ST+65*, ST+66, ST+70, ST+84, ENQ1+1!
IBGLB COM+1~, COM+22*, COM+23
IBI ST+60, ST+61*, ST+62, ENQ1!
IBIN ST+58*, ST+62*, ST+66, ST+68, ST+69, ST+70, ST+81, ENQ1!, COM+23
IBLP ST+58*, ST+72*, ST+75, ST+85, ENQ1+1!
IBOI ST+58*, ST+66*, ST+69, ST+83, ENQ1!
IBOR ST+59*, ST+70, ST+75, ST+84, ENQ1+1!
IBPTDB ST+44*, ST+62, ST+68, ST+69, ST+70, ST+73, ST+74, ST+75, ST+82, ST+83
, ENQ1+1!, COM+23
IBQ ST+1*, ST+27, ST+28, ST+29*, ST+90, ENQ1!
IBR ST+64*, ST+65, ENQ1!
>> IBRPT ST+44, ST+47, ST+52, ST+55
>> IBSAM ST+52
>> IBSDA PTDB+27
>> IBSDF PTDB+27
>> IBSDL PTDB+27
>> IBSDV ST+19, ST+38, ST+41
>> IBSEL ST+4, ST+5, ST+6, ST+7, ST+8, ST+9, ST+10, ST+11, ST+12, ST+13
, ST+14
>> IBSH ST+77, ST+86
>> IBSH1 COM+3, COM+4, COM+9
>> IBSH2 COM+6
>> IBSMN ST+47
>> IBSMX ST+47
>> IBSN PTDB+18
>> IBSNA PTDB+16
>> IBSNF PTDB+16
>> IBSNL PTDB+16
IBTO ST+58*, ST+65*, ST+70, ST+84, ENQ1+1!
IBTYP ENQ1+1!
IBZ PTDB+5~, PTDB+15*
IEN VAEMP+4~, VAEMP+5*, VAEMP+6
INI PTDB+5~, PTDB+16*, PTDB+27*, PTDB+29, PTDB+31, PTDB+32
INS OTH~, OTH+7
J ENQ1+2!
KEY PTDB+5~, PTDB+18*, PTDB+24*, PTDB+32, PTDB+34*, PDC
NAME PTDB+5~, PTDB+10*, PTDB+17*, PTDB+18, PTDB+24*, PDC
PRC PTDB+5~, PTDB+10*, PTDB+24*, PDC
SSN PTDB+5~, PTDB+10*, PTDB+17*, PTDB+18, PTDB+26*, PDC, VAEMP~, VAEMP+4, VAEMP+5
U ST+31, ST+33, ST+51, ST+59, ST+62, ST+63, ST+64, ST+65, ST+68, ST+69
, ST+70, ST+72, ST+73, ST+74, ST+75, ST+80, ST+81, ST+82, ST+83, ST+84
, ST+85, ST+87, ST+88, PDC, VAEMP+6, OTH+9, COM+7, COM+8, COM+13, COM+14
, COM+23
VA PTDB+6~
VADM PTDB+6~
VADM(1 PTDB+17
VADM(2 PTDB+17
VADM(4 PTDB+17
VAERR PTDB+6~
>> VAUTD ST+41
>> VAUTD( ST+20, ST+41
X ST+51*, ENQ1+2!, PTDB~, PTDB+8, PTDB+9, PTDB+14, PTDB+15, PTDB+22, PHDL+1~, PHDL+2*
, PHDL+3*, PHDL+4*, PHDL+5, OTH+6*, OTH+7, OTH+8, OTH+9
X1 ENQ1+2!, OTH+8*, OTH+9, COM+1~, COM+12*, COM+16*, COM+19, COM+21*, COM+23
X2 ENQ1+2!, COM+1~, COM+19*
Y ENQ1+2!, PTDB+6~, PTDB+8*, PTDB+13*, PTDB+21*, PTDB+29*, PTDB+30*, PTDB+32*, PDC*, PDQ
, OTH+5~*, OTH+6, OTH+9*, OTHQ
Z ENQ1+2!, OTH+6*
>> 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 |  Naked Globals |  Local Variables |  All