Routine: IBJDF51

Information

IBJDF51 ;ALB/RB - CHAMPVA/TRICARE FOLLOW-UP REPORT (COMPILE) ;15-APR-00

Package	Total	Call Graph
Integrated Billing	7	$$CHK^IBCNS1 ($$CLMACT,$$DT)^IBJD $$VA^IBJD1 $$ACT^IBJDF2 EN^IBJDF52 (EN,INIT)^IBJDF53 $$STOP^IBOUTL
Kernel	2	^%ZISC $$FMDIFF^XLFDT
Registration	2	(DEM,KVA)^VADPT $$PRIM^VASITE
VA FileMan	2	$$GET1^DIQ EN^DIQ1

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Integrated Billing	2	IBJDF5 IBJDF61

Entry Points

Name	Comments	DBIA/ICR reference
ST	; - Tasked entry point.
ENQ
ENQ1
PAT(IBDA)	; - Find the claim patient and decide to include the claim. ; Input: IBDA=Pointer to the claim/AR in file #399/#430 plus all ; variable input in IBS* ; Output: Y=Sort key (name or last 4)_@@_patient IEN to file #2 ; ^ Patient name ^ Age ^ SSN ^ Patient IEN to file #2
PATC	; - Find all patient data.
PATQ
DIV(CLM)	;Find the default division of the bill.
QDIV
SID(DFN,INS)	; - Find the subscriber ID for a bill (if any). ; Input: DFN=Pointer to the patient in file #2 ; INS=Pointer to the patient's primary carrier in file #36 ; Output: Subscriber ID no. or null
SIDQ
PHDL	; - Print the header line for the Excel spreadsheet
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 15 chars.) or null
OTHQ
COM	; - Get bill comments.

External References

Name	Field # of Occurrence
^%ZISC	ENQ+3
$$GET1^DIQ	SID+7
EN^DIQ1	PAT+23, PAT+25
$$CHK^IBCNS1	OTH+9
$$CLMACT^IBJD	ST+44, ST+74
$$DT^IBJD	ST+88, ST+89, COM+7
$$VA^IBJD1	ST+79
$$ACT^IBJDF2	ST+67
EN^IBJDF52	ST+103
EN^IBJDF53	ST+57
INIT^IBJDF53	ST+18, ST+19
$$STOP^IBOUTL	ST+27
DEM^VADPT	PAT+14, PAT+21
KVA^VADPT	ENQ1+2
$$PRIM^VASITE	ST+84, QDIV
$$FMDIFF^XLFDT	ST+67, ST+93, COM+4

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
2.312	GET1^DIQ
^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+84
^DGCR(399 - [#399]	ST+29, ST+50, ST+61, ST+62, ST+75, PAT+12, PAT+13, PAT+17, DIV+1
^DIC(36 - [#36]	ST+63, OTH+8
^DPT - [#2]	SID+5, OTH+6
^IB - [#350]	ST+46, ST+75
^IBA(362.4 - [#362.4]	ST+51
^IBE(350.1 - [#350.1]	ST+47
^PRCA(430 - [#430]	ST+25, ST+28, ST+70, PAT+9
^PRCA(430.2 - [#430.2]	ST+90
^PRCA(433 - [#433]	COM+2, COM+3, COM+11, COM+12, COM+17
^RCD(340 - [#340]	PAT+19
^TMP("IBJDF5"	ST+1!, ST+98, ST+99, ST+100, ENQ!, COM+20*

Label References

Name	Line Occurrences
$$DIV	ST+38
$$OTH	ST+79
$$PAT	ST+55
$$SID	ST+78
COM	ST+92, ST+101
ENQ1	ENQ+1
OTHQ	OTH+5
PATC	PAT+33
PATQ	PAT+8, PAT+12, PAT+17, PAT+31, PAT+32, PAT+34
PHDL	ST+22
SIDQ	SID+4

Naked Globals

Name	Field # of Occurrence
^(	SID+5, OTH+6, COM+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AGE	PAT+5~, PAT+9, PAT+14, PAT+21*, PATC+1
ALL	PAT+5~, PAT+30*, PAT+32
ARZ	PAT+5~, PAT+9*, PAT+18
CLM	DIV~, DIV+1
COM	ENQ1+2!, COM+10!
COM(	COM+17*, COM+19, COM+20
COM(0	COM+10*
COM(1	COM+13, COM+14
COM1	ENQ1+2!, COM+10!
COM1(1	COM+11*, COM+13
COM1(2	COM+12*, COM+13
DA	PAT+5~, PAT+23, PAT+24, PAT+25, PAT+26
DAT	ST+93, ENQ1+2!, COM+1, COM+2, COM+6, COM+7, COM+10
DBTR	PAT+5~, PAT+18*, PAT+19, PAT+25
>> DEB(340	PAT+26
>> DEB(430	PAT+24
DFN	ST+78, ST+79, ENQ1+2!, PAT+5~, PAT+9, PAT+12, PAT+13, PAT+17, PAT+19, PAT+31 , PAT+32, PATC+1, SID~, SID+4, SID+5, SID+7, OTH~, OTH+5, OTH+6
DIC	PAT+5~, PAT+23, PAT+25
DIQ	PAT+5~, PAT+23, PAT+25
>> DIV	DIV+1, QDIV, QDIV+1
DOB	PAT+5~
DR	PAT+5~, PAT+23, PAT+25
DS	OTH~, OTH+5, OTH+9
DT	ST+67, ST+93, COM+4
END	PAT+5~, PAT+30*, PAT+33, PAT+34
IB	ST+1!, ENQ1!
IBA	ST+25*, ST+26, ST+28, ST+29, ST+38, ST+44, ST+50, ST+51, ST+55, ST+61 , ST+62, ST+67, ST+70, ST+74, ST+75, ENQ1!, COM+2
IBA1	ENQ1!, COM+1, COM+2, COM+3, COM+11, COM+12, COM+17, COM+20
IBAC	ST+44*, ST+45, ST+46, ST+49, ST+75, ST+76, ST+77, ENQ1+1!
IBAR	ST+28*, ST+30, ST+74, ST+80, ENQ1!
IBARD	ST+66, ST+67*, ENQ1!
IBBA	ST+70*, ST+71, ST+90, ST+100, ENQ1+1!
IBBN	ST+80*, ST+89, ST+100, ENQ1+1!, COM+20
IBBU	ST+75*, ST+76, ST+77, ENQ1!
IBC	ENQ1!, COM+3*, COM+4, COM+5, COM+6
IBCAT	ST+15, ST+17, ST+30, ST+31, ST+44, ST+74, ST+90, ST+98, ST+99, ST+100 , ENQ1!, COM+20
IBCAT(	ST+9*, ST+15, ST+30, ST+31
IBCAT(19	ST+5*
IBCAT(28	ST+12*
IBCAT(29	ST+11*
IBCAT(30	ST+8*
IBCAT(31	ST+4*
IBCAT(32	ST+10*
IBCAT1	ST+31*, ST+34, ST+36, ENQ1!
IBD	ST+93*, ST+94!, ENQ1!
IBDA	PAT~, PAT+8, PAT+9, PAT+12, PAT+13, PAT+17, PAT+23
IBDIV	ST+16, ST+18, ST+34, ST+37, ST+38, ST+40, ST+84, ST+94, ST+98, ST+99 , ST+100, ENQ1!, COM+20
IBDP	ST+74*, ST+88, ST+93, ST+96, ST+100, ENQ1+1!
>> IBEXCEL	ST+22, ST+57, ST+83, ST+103, COM+7
IBEXCEL1	ST+86, ST+87, ST+88, ST+89, ST+90, ST+91, ST+93, ST+94!, COM+7
IBFR	ST+76*, ST+79, ST+88, ST+96, ST+100, ENQ1+1!
IBI	ST+9, ST+60, ST+61, ST+62*, ST+63, ST+78, ST+79, ENQ1!, ENQ1+1!
IBIN	ST+60, ST+62, ST+63*, ST+87, ST+98, ST+99, ST+100, ENQ1+1!, COM+20
IBKEY	ST+96*, ST+98, ST+99, ST+100, ENQ1+1!, COM+20
IBOI	ST+79*, ST+87, ST+99, ENQ1+1!
IBOR	ST+80*, ST+89, ST+100, ENQ1+1!
IBPT	ST+55*, ST+78, ST+86, ST+96, ST+99, ENQ1!
IBQ	ST+1, ST+25, ST+26, ST+27, ST+103, ENQ1!
>> IBRPT	ST+55, ST+57
>> IBSAM	ST+71
>> IBSD	ST+17, ST+37, ST+40
>> IBSEL	ST+4, ST+5, ST+7, ST+10, ST+11, ST+12
>> IBSEL1	ST+53, ST+97
>> IBSH	ST+92, ST+101
>> IBSH1	COM+1, COM+2, COM+7
>> IBSH2	COM+4
IBSID	ST+78*, ST+89, ST+100, ENQ1+1!
>> IBSMN	ST+66
>> IBSMX	ST+66
>> IBSN	PAT+29
>> IBSNA	PAT+30
>> IBSNF	PAT+30
>> IBSNL	PAT+30
IBTO	ST+77*, ST+89, ST+96, ST+100, ENQ1+1!
IBTYP	ST+48, ST+50, ST+51*, ST+53, ST+91, ST+97, ENQ1+1!
IBVA	ST+79*, ST+86, ST+99, ENQ1+1!
IBZ	PAT+5~, PAT+13*
INI	PAT+5~, PAT+30*, PAT+31, PAT+33, PAT+34
INS	SID~, SID+4, SID+7, OTH~, OTH+5, OTH+7
J	ENQ1+2!
KEY	PAT+5~, PAT+24, PAT+29, PAT+34, PATC+1
NAME	PAT+5~, PAT+9, PAT+14, PAT+21, PAT+24, PAT+29, PATC+1
RCZ	PAT+5~, PAT+19*, PAT+20, PAT+22
SSN	PAT+5~, PAT+9, PAT+14, PAT+21, PAT+26, PAT+27*, PAT+29, PATC+1
U	ST+29, ST+30, ST+46, ST+47, ST+50, ST+63, ST+70, ST+74, ST+75, ST+76 , ST+77, ST+78, ST+80, ST+84, ST+86, ST+87, ST+88, ST+89, ST+90, ST+91 , ST+93, ST+94, ST+96, ST+99, ST+100, PATC+1, OTH+9, COM+5, COM+6, COM+11 , COM+12
VADM	PAT+6~
VADM(1	PAT+14, PAT+21
VADM(2	PAT+14, PAT+21
VADM(4	PAT+14, PAT+21
>> VAUTD	ST+40
>> VAUTD(	ST+18, ST+40
X	ST+46, ST+47, ST+48, ST+70, ST+74, ST+97, ST+98, ST+99, ST+100, ENQ1+2! , SID+4~, SID+5, SID+7, PHDL+1~, PHDL+2, PHDL+3, PHDL+4, PHDL+5, PHDL+6, OTH+5~ , OTH+6*, OTH+7, OTH+8, OTH+9, COM+20
X1	ENQ1+2!, OTH+5~, OTH+8, OTH+9, COM+10, COM+14, COM+17, COM+19, COM+20
X2	ENQ1+2!, COM+17*
Y	ENQ1+2!, PAT+6~, PAT+8, PAT+12, PAT+17, PAT+31, PAT+32, PAT+34, PATC+1, PATQ , SID+4~, SID+5, SID+7, SIDQ, OTH+5~, OTH+6, OTH+9*, OTHQ
Z	ENQ1+2!, PAT+6~, SID+4~, SID+5, SID+7, OTH+5~, OTH+6
>> ZTQUEUED	ENQ+1
>> ZTREQ	ENQ+1*

Customize PDF page

Package: Integrated Billing