Routine: FBPAID3

Package	Total	Call Graph
VA FileMan	4	C^%DTC (FILE,UPDATE)^DIE ^DIK ($$GET1,GETS)^DIQ
Fee Basis	1	PRCFBREC^FBPAID3A
Integrated Billing	1	$$INSUR^IBBAPI
Registration	1	ELIG^VADPT

Package	Total	Caller Graph
Fee Basis	3	FB PAID TO IB FBPAID FBPAID3A

Name	Field # of Occurrence
C^%DTC	CLEANUP+10
FILE^DIE	SETFB2IB+24
UPDATE^DIE	SETFB2IB+17
^DIK	DELFB2IB+8
$$GET1^DIQ	IBALLWD+9, EPFBTOIB+21
GETS^DIQ	GETFB2IB+15, GETFBINV+21, GETFBINV+56, GETFBPAY+11, GETFBPAY+17, GETFBPAY+24
PRCFBREC^FBPAID3A	SCRUB2IB+44
$$INSUR^IBBAPI	SCRUB2IB+30, SCRUB2IB+37
ELIG^VADPT	FBSC+7

FileNo	Call Tags
^FBAA(161.4 - [#161.4]	GET1^DIQ
^FB(161.9 - [#161.9]	Classic Fileman Calls, GET1^DIQ, GETS^DIQ
162.01	GETS^DIQ
162.02	GETS^DIQ
162.03	GETS^DIQ
^FBAAI - [#162.5]	GETS^DIQ
162.579	GETS^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^FB(161.9 - [#161.9]	EPFBTOIB+15, EPFBTOIB+20, EPFBTOIB+23, EPFBTOIB+25, EPFBTOIB+30, EPFBTOIB+33, CLEANUP+13, CLEANUP+15
^FBAA(161.4 - [#161.4]	IBALLWD+8
^FBAAI - [#162.5]	GETFBINV+52
^TMP($J	EPFBTOIB+10!, EPFBTOIB+30*, EPFBTOIB+32!, SCRUB2IB+15

Name	Line Occurrences
$$FBSC	SCRUB2IB+19
$$GETFB2IB	SCRUB2IB+16
$$GETFBINV	SCRUB2IB+27
$$GETFBPAY	SCRUB2IB+34
$$SETFB2IB	ADDONE+19
CLEANUP	EPFBTOIB+9
DELFB2IB	CLEANUP+15, SCRUB2IB+51, SCRUB2IB+58, SCRUB2IB+64
SCRUB2IB	EPFBTOIB+31

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%H	CLEANUP+6~
DA	CLEANUP+6~, DELFB2IB+5~, DELFB2IB+7*
DFN	FBSC+4~, FBSC+6*, FBSC+7
DIE	CLEANUP+6~
DIK	CLEANUP+6~, DELFB2IB+5~, DELFB2IB+6*
DR	CLEANUP+6~
DT	EPFBTOIB+7
FBARRY	ADDONE+8~, ADDONE+19, SCRUB2IB+6~, SCRUB2IB+16, SCRUB2IB+44, SETFB2IB~, GETFB2IB~, GETFB2IB+35!
FBARRY("FBICN"	ADDONE+13, ADDONE+16, SCRUB2IB+23, SETFB2IB+14, GETFB2IB+24*
FBARRY("IBICN"	SETFB2IB+21, GETFB2IB+29*
FBARRY("LI NU	MBER" , ADDONE+14, SCRUB2IB+24, SETFB2IB+16, SETFB2IB+19, GETFB2IB+27
FBARRY("NPI A	DDED INTERNAL" , GETFB2IB+31, DDED" , SETFB2IB+22, GETFB2IB+30
FBARRY("PATIE	NT INTERNAL" , SCRUB2IB+17, GETFB2IB+21*
FBARRY("PATIENT"	ADDONE+10, SETFB2IB+12, GETFB2IB+20
FBARRY("PROCE	SS DATE INTERNAL" , GETFB2IB+26, SS DATE" , ADDONE+18, SETFB2IB+15, GETFB2IB+25*
FBARRY("PROGR	AM INTERNAL" , SCRUB2IB+22, GETFB2IB+23*
FBARRY("PROGRAM"	ADDONE+11, SETFB2IB+13, GETFB2IB+22
FBARRY("PROVI	DER TYPE" , SETFB2IB+20, GETFB2IB+28*
FBARRY("TXY A	DDED INTERNAL" , GETFB2IB+33, DDED" , SETFB2IB+23, GETFB2IB+32
FBCHECK	SCRUB2IB+6~, SCRUB2IB+44
FBCHECK(0	SCRUB2IB+13*
FBDATE	ADDONE~, ADDONE+18, EPFBTOIB+6~, EPFBTOIB+14, EPFBTOIB+15, EPFBTOIB+17, EPFBTOIB+20, EPFBTOIB+23, EPFBTOIB+24, EPFBTOIB+25 , EPFBTOIB+26, EPFBTOIB+27, EPFBTOIB+28, EPFBTOIB+30, EPFBTOIB+31, EPFBTOIB+32, EPFBTOIB+33, CLEANUP~, CLEANUP+8, SCRUB2IB~ , SCRUB2IB+15
FBDATE2	SCRUB2IB+6~
FBDATEIN	EPFBTOIB~, EPFBTOIB+12, EPFBTOIB+26
FBDFN	FBSC~, FBSC+6
FBERR	IBALLWD+5~, ADDONE+8~, SETFB2IB+8~, GETFB2IB+7~, GETFBINV+7~
FBERR("DIERR"	IBALLWD+10, SETFB2IB+26, SETFB2IB+29, GETFB2IB+16, GETFBINV+22, GETFBINV+57
FBERR1	GETFBPAY+7~
FBERR1("DIERR"	GETFBPAY+12, GETFBPAY+18, GETFBPAY+25
FBFDA	SETFB2IB+8~
FBFDA(	SETFB2IB+12, SETFB2IB+13, SETFB2IB+14, SETFB2IB+15, SETFB2IB+16, SETFB2IB+19, SETFB2IB+20, SETFB2IB+21, SETFB2IB+22, SETFB2IB+23
FBFLDS	GETFB2IB+7~, GETFBINV+7~, GETFBINV+11, GETFBINV+21, GETFBPAY+7~, GETFBPAY+23, GETFBPAY+24
FBFLDS2	GETFBINV+7~, GETFBINV+53*, GETFBINV+56
>> FBICN	SCRUB2IB+23*, SCRUB2IB+27, SCRUB2IB+34
FBIEN	IBALLWD+5~, IBALLWD+8, IBALLWD+9, ADDONE~, ADDONE+13, ADDONE+14, ADDONE+16, EPFBTOIB+6~, EPFBTOIB+19, EPFBTOIB+20* , EPFBTOIB+21, CLEANUP+4~, CLEANUP+14, CLEANUP+15, SETFB2IB~, SETFB2IB+11, SETFB2IB+18, SETFB2IB+19, SETFB2IB+20, SETFB2IB+21 , SETFB2IB+22, SETFB2IB+23, SETFB2IB+28, GETFB2IB~, GETFB2IB+15, GETFB2IB+17, GETFB2IB+20, GETFB2IB+21, GETFB2IB+22, GETFB2IB+23 , GETFB2IB+24, GETFB2IB+25, GETFB2IB+26, GETFB2IB+27, GETFB2IB+28, GETFB2IB+29, GETFB2IB+30, GETFB2IB+31, GETFB2IB+32, GETFB2IB+33 , DELFB2IB~, DELFB2IB+7
FBIEN(1	ADDONE+13
FBIEN(2	ADDONE+13
FBIEN(3	ADDONE+13
FBIEN2	SCRUB2IB+6~, SCRUB2IB+11, SCRUB2IB+15, SCRUB2IB+16, SCRUB2IB+20, SCRUB2IB+31, SCRUB2IB+38, SCRUB2IB+41, SCRUB2IB+43, SCRUB2IB+44
FBIEN3	EPFBTOIB+6~, EPFBTOIB+29, EPFBTOIB+30
FBIENRET	SETFB2IB+8~
FBIENRET(1	SETFB2IB+27, SETFB2IB+28
FBIENS	GETFB2IB+7~, GETFBPAY+7~, GETFBPAY+10, GETFBPAY+11, GETFBPAY+14, GETFBPAY+16, GETFBPAY+17, GETFBPAY+19, GETFBPAY+22*, GETFBPAY+24 , GETFBPAY+27, GETFBPAY+29, GETFBPAY+30, GETFBPAY+31, GETFBPAY+32, GETFBPAY+33, GETFBPAY+34, GETFBPAY+35, GETFBPAY+36, GETFBPAY+37 , GETFBPAY+38, GETFBPAY+39, GETFBPAY+40, GETFBPAY+41, GETFBPAY+42, GETFBPAY+43, GETFBPAY+44, GETFBPAY+45, GETFBPAY+46, GETFBPAY+47 , GETFBPAY+48
FBINSRET	SCRUB2IB+6~, SCRUB2IB+30, SCRUB2IB+37
FBINVARY	GETFBINV~
FBINVARY("ATT	ENDING NAME" , GETFBINV+29, ENDING NPI" , GETFBINV+30, ENDING TXY" , GETFBINV+31*
FBINVARY("BAT	CH NUMBER" , GETFBINV+27*
FBINVARY("CONTRACT"	GETFBINV+28*
FBINVARY("LIN	E ITEM NUMBER" , GETFBINV+59*
FBINVARY("LIR	ENDER NAME" , GETFBINV+46!, GETFBINV+60, ENDER NPI" , GETFBINV+47!, GETFBINV+61, ENDER TXY" , GETFBINV+48!, GETFBINV+62*
FBINVARY("OPE	RATING NAME" , GETFBINV+32, RATING NPI" , GETFBINV+33
FBINVARY("REF	ERRING NAME" , GETFBINV+39, ERRING NPI" , GETFBINV+40
FBINVARY("REN	DERING NAME" , GETFBINV+34, DERING NPI" , GETFBINV+35, DERING TXY" , GETFBINV+36*
FBINVARY("SER	VICING ADDRESS" , GETFBINV+41, VICING CITY" , GETFBINV+42, VICING NAME" , GETFBINV+37, VICING NPI" , GETFBINV+38, VICING STATE INT" , GETFBINV+43* , VICING ZIP" , GETFBINV+44*
FBINVARY("TRE	ATMENT FROM DATE" , GETFBINV+25, ATMENT TO DATE" , GETFBINV+26
FBINVARY("VEN	DOR INTERNAL" , GETFBINV+24*
FBINVIEN	GETFBINV~, GETFBINV+21, GETFBINV+24, GETFBINV+25, GETFBINV+26, GETFBINV+27, GETFBINV+28, GETFBINV+29, GETFBINV+30, GETFBINV+31 , GETFBINV+32, GETFBINV+33, GETFBINV+34, GETFBINV+35, GETFBINV+36, GETFBINV+37, GETFBINV+38, GETFBINV+39, GETFBINV+40, GETFBINV+41 , GETFBINV+42, GETFBINV+43, GETFBINV+44, GETFBINV+52, GETFBINV+56, GETFBINV+59, GETFBINV+60, GETFBINV+61, GETFBINV+62
FBLINUM	SCRUB2IB+6~, SCRUB2IB+24*
FBLIPRV	GETFBINV+7~, GETFBINV+51, GETFBINV+52, GETFBINV+56, GETFBINV+59, GETFBINV+60, GETFBINV+61, GETFBINV+62
FBNXT	SCRUB2IB+6~
FBOK	ADDONE+8~, ADDONE+19, ADDONE+20, EPFBTOIB+6~, SCRUB2IB+16, SCRUB2IB+25, SCRUB2IB+27, SCRUB2IB+28, SCRUB2IB+34, SCRUB2IB+35 , SCRUB2IB+40, SETFB2IB+8~, SETFB2IB+10, SETFB2IB+27, SETFB2IB+28, SETFB2IB+29, SETFB2IB+30, GETFB2IB+7~, GETFB2IB+9, GETFB2IB+16* , GETFB2IB+17*, GETFB2IB+19, GETFB2IB+35, GETFB2IB+37
FBOLDATE	CLEANUP+4~, CLEANUP+11, CLEANUP+13, CLEANUP+15
FBPAT	ADDONE~, ADDONE+10, SCRUB2IB+6~, SCRUB2IB+17, SCRUB2IB+18, SCRUB2IB+19, SCRUB2IB+20, SCRUB2IB+21, SCRUB2IB+30, SCRUB2IB+31 , SCRUB2IB+37, SCRUB2IB+38, SCRUB2IB+41, SCRUB2IB+43, SCRUB2IB+44, SCRUB2IB+46, SCRUB2IB+47*, SCRUB2IB+49, SCRUB2IB+51, SCRUB2IB+52 , SCRUB2IB+54, SCRUB2IB+56, SCRUB2IB+57, SCRUB2IB+59, SCRUB2IB+62, SCRUB2IB+63, SCRUB2IB+65
FBPATARY	SCRUB2IB+6~
FBPATARY(	SCRUB2IB+19, SCRUB2IB+20, SCRUB2IB+21, SCRUB2IB+30, SCRUB2IB+31, SCRUB2IB+37, SCRUB2IB+38, SCRUB2IB+41*, SCRUB2IB+43, SCRUB2IB+44 , SCRUB2IB+47, SCRUB2IB+49, SCRUB2IB+51, SCRUB2IB+52!, SCRUB2IB+54, SCRUB2IB+56, SCRUB2IB+57, SCRUB2IB+59!, SCRUB2IB+62, SCRUB2IB+63 , SCRUB2IB+65!
FBPAYARY	GETFBPAY~
FBPAYARY("ATT	ENDING NAME" , GETFBPAY+30, ENDING NPI" , GETFBPAY+31, ENDING TXY" , GETFBPAY+32*
FBPAYARY("BAT	CH NUMBER" , GETFBPAY+27*
FBPAYARY("CONTRACT"	GETFBPAY+29*
FBPAYARY("LI	NUMBER" , GETFBPAY+28, RENDERING NAME" , GETFBPAY+42, RENDERING NPI" , GETFBPAY+43, RENDERING TXY" , GETFBPAY+44
FBPAYARY("OPE	RATING NAME" , GETFBPAY+33, RATING NPI" , GETFBPAY+34
FBPAYARY("REF	ERRING NAME" , GETFBPAY+40, ERRING NPI" , GETFBPAY+41
FBPAYARY("REN	DERING NAME" , GETFBPAY+35, DERING NPI" , GETFBPAY+36, DERING TXY" , GETFBPAY+37*
FBPAYARY("SER	VICING ADDRESS" , GETFBPAY+45, VICING CITY" , GETFBPAY+46, VICING NAME" , GETFBPAY+38, VICING NPI" , GETFBPAY+39, VICING STATE INT" , GETFBPAY+47* , VICING ZIP" , GETFBPAY+48*
FBPAYARY("TRE	ATMENT DATE" , GETFBPAY+19*
FBPAYARY("VEN	DOR INTERNAL" , GETFBPAY+14*
FBPAYIEN	GETFBPAY~, GETFBPAY+10, GETFBPAY+16, GETFBPAY+22, GETFBPAY+28
FBPROG	ADDONE~, ADDONE+11, ADDONE+12, ADDONE+15, SCRUB2IB+22*, SCRUB2IB+26, SCRUB2IB+33
FBQUIT	EPFBTOIB+6~, EPFBTOIB+13, EPFBTOIB+17, EPFBTOIB+18, EPFBTOIB+21, EPFBTOIB+22, EPFBTOIB+24, GETFBINV+7~, GETFBINV+9, GETFBINV+22 , GETFBINV+23, GETFBINV+57, GETFBINV+58, GETFBINV+63, GETFBPAY+7~, GETFBPAY+9, GETFBPAY+12, GETFBPAY+13, GETFBPAY+18, GETFBPAY+21 , GETFBPAY+25*, GETFBPAY+26, GETFBPAY+49
FBRECARY	SCRUB2IB+6~, SCRUB2IB+27, SCRUB2IB+34, SCRUB2IB+44
FBRECARY("CONTRACT"	SCRUB2IB+41, SCRUB2IB+42
FBRECARY("TRE	ATMENT DATE" , SCRUB2IB+36, ATMENT FROM DATE" , SCRUB2IB+29
FBRET	GETFB2IB+7~, GETFBINV+7~, GETFBPAY+7~
FBRET(	GETFB2IB+17, GETFB2IB+20, GETFB2IB+21, GETFB2IB+22, GETFB2IB+23, GETFB2IB+24, GETFB2IB+25, GETFB2IB+26, GETFB2IB+27, GETFB2IB+28 , GETFB2IB+29, GETFB2IB+30, GETFB2IB+31, GETFB2IB+32, GETFB2IB+33, GETFBINV+24, GETFBINV+25, GETFBINV+26, GETFBINV+27, GETFBINV+28 , GETFBINV+29, GETFBINV+30, GETFBINV+31, GETFBINV+32, GETFBINV+33, GETFBINV+34, GETFBINV+35, GETFBINV+36, GETFBINV+37, GETFBINV+38 , GETFBINV+39, GETFBINV+40, GETFBINV+41, GETFBINV+42, GETFBINV+43, GETFBINV+44, GETFBPAY+14, GETFBPAY+19, GETFBPAY+27, GETFBPAY+29 , GETFBPAY+30, GETFBPAY+31, GETFBPAY+32, GETFBPAY+33, GETFBPAY+34, GETFBPAY+35, GETFBPAY+36, GETFBPAY+37, GETFBPAY+38, GETFBPAY+39 , GETFBPAY+40, GETFBPAY+41, GETFBPAY+42, GETFBPAY+43, GETFBPAY+44, GETFBPAY+45, GETFBPAY+46, GETFBPAY+47, GETFBPAY+48
FBRET2	GETFBINV+7~
FBRET2(	GETFBINV+59, GETFBINV+60, GETFBINV+61, GETFBINV+62
FBRETRN	IBALLWD+5~, IBALLWD+7, IBALLWD+9, IBALLWD+10, IBALLWD+11, IBALLWD+12
FBTEST	EPFBTOIB+6~
FBTODAY	EPFBTOIB+6~, EPFBTOIB+7*, EPFBTOIB+9
FBTRTDT	SCRUB2IB+6~, SCRUB2IB+29, SCRUB2IB+30, SCRUB2IB+31, SCRUB2IB+36, SCRUB2IB+37, SCRUB2IB+38
FBX	FBSC+4~, FBSC+5, FBSC+7, FBSC+8
FBXIEN	SCRUB2IB+6~, SCRUB2IB+50, SCRUB2IB+51, SCRUB2IB+55, SCRUB2IB+56, SCRUB2IB+57, SCRUB2IB+58, SCRUB2IB+59, SCRUB2IB+60, SCRUB2IB+62 , SCRUB2IB+63, SCRUB2IB+64, SCRUB2IB+65
U	FBSC+7
VAEL	FBSC+4~
VAEL(3	FBSC+7
VAERR	FBSC+4~
X	CLEANUP+6~, CLEANUP+11
X1	CLEANUP+6~, CLEANUP+8*
X2	CLEANUP+6~, CLEANUP+9*

Name	Comments	DBIA/ICR reference
IBALLWD()
ADDONE(FBPROG,FBIEN,FBPAT,FBDATE)	;EP FROM FBPAID ; INPUT : FBPROG : "3" FOR OUTPATIENT, "9" FOR INPATIENT ; FBIEN : AN ARRAY SET UP FROM THE PARSING ROUTINE IN FBPAID1 ; FBPAT : POINTER TO THE PATIENT FILE ; FBDATE : DATE OF MM MESSAGE FROM CENTRAL FEE PROCESSING
EPFBTOIB(FBDATEIN)	;EP FROM FB PAID TO IB OPTION ; INPUT : FBDATEIN - OPTIONAL and not supplied by the OPTION if sent ; this should be 'DATE OF LAST GOOD RUN' ; - all dates after this date will be re-processed in the ; FEE BASIS PAID TO IB file ;
CLEANUP(FBDATE)	;delete entries from 161.9 older than 180 days from FBDATE ; INPUT : FBDATE - Today's date
SCRUB2IB(FBDATE)	; process entries in 161.9 for this process date
SETFB2IB(FBIEN,FBARRY)
GETFB2IB(FBIEN,FBARRY)
DELFB2IB(FBIEN)
FBSC(FBDFN)	; returns 1 if service connection indicated, 0 otherwise (based on VAEL(3)) ; INPUT : FBDFN - ien to the PATIENT file
GETFBINV(FBINVIEN,FBINVARY)
GETFBPAY(FBPAYIEN,FBPAYARY)

Customize PDF page

Package: Fee Basis

Routine: FBPAID3

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: