Routine: FBAAIARC

Package	Total	Call Graph
Fee Basis	3	PRINT^FBAAIARD ($$B9ADMIT,$$B9DISCHG)^FBAAV5 ($$ICD0,$$ICD9)^FBCSV1
CPT HCPCS Codes	2	$$CPT^ICPTCOD $$MOD^ICPTMOD
Kernel	1	^%ZISC
VA FileMan	1	$$GET1^DIQ

Name	Comments	DBIA/ICR reference
COMPILE	; entry point for the compile to build the scratch global ; may be background task if job queued
COMPILX	;
COMPOUT	; compile Outpatient and Ancillary data
COMPOUTX	;
MODS()	; Build a list of CPT modifiers for subfile 162.03 ; Assumes all variables are set from above
MODSX	;
ADJ(TYPE)	; Builds a string of Adjustment amounts and group-reason codes ; TYPE indicates which payment file to look at to obtain adjustment information ; TYPE=1: 162.03 Outpatient/Ancillary ; TYPE=2: 162.5 Inpatient ; TYPE=3: 162.11 Pharmacy
ADJX	;
COMPIN	; compile Inpatient data
COMPINX	;
DIAG()	; capture and format Dx codes and POA codes in a string
PROC()	; capture and format procedure codes into a string
COMPRX	; compile Pharmacy data
COMPRXX	;

Name	Field # of Occurrence
^%ZISC	COMPILE+10
$$GET1^DIQ	COMPOUT+39, COMPOUT+60, COMPIN+56, COMPRX+66
PRINT^FBAAIARD	COMPILE+9
$$B9ADMIT^FBAAV5	COMPIN+19
$$B9DISCHG^FBAAV5	COMPIN+36
$$ICD0^FBCSV1	PROC+6
$$ICD9^FBCSV1	COMPIN+38, DIAG+6
$$CPT^ICPTCOD	COMPOUT+37
$$MOD^ICPTMOD	MODS+6

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Compiling IPAC Vendor Payment Report. Please wait ... " Line Location: COMPILE+4

FileNo	Call Tags
162.03	GET1^DIQ
162.11	GET1^DIQ
^FBAAI - [#162.5]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	COMPOUT+7, COMPOUT+8, COMPIN+16, COMPIN+17, COMPRX+32, COMPRX+33
^FB(161.91 - [#161.91]	ADJ+22
^FB(161.92 - [#161.92]	ADJ+21
^FB(161.94 - [#161.94]	DIAG+7
^FBAA(161.7 - [#161.7]	COMPOUT+53, COMPOUT+54, COMPIN+49, COMPIN+50, COMPRX+5, COMPRX+6, COMPRX+7, COMPRX+59, COMPRX+60
^FBAA(162.1 - [#162.1]	ADJ+16, COMPRX+10, COMPRX+11, COMPRX+21, COMPRX+22, COMPRX+23, COMPRX+24, COMPRX+25
^FBAAC - [#162]	COMPOUT+15, COMPOUT+17, COMPOUT+22, COMPOUT+23, COMPOUT+24, MODS+4, MODS+5, ADJ+14
^FBAAC("AK"	COMPOUT+4, COMPOUT+5, COMPOUT+6, COMPOUT+9, COMPOUT+14, COMPOUT+16
^FBAAI - [#162.5]	ADJ+15, COMPIN+5, COMPIN+6, COMPIN+7, COMPIN+8, DIAG+2, PROC+2
^FBAAI("AD"	COMPIN+3, COMPIN+4
^FBAAV - [#161.2]	COMPOUT+11, COMPOUT+13, COMPIN+12, COMPIN+14, COMPRX+17, COMPRX+19
^TMP("FBAAIARB"	COMPILE+3!, COMPILE+11!, COMPOUT+62, COMPOUT+63, COMPIN+58, COMPIN+59, COMPRX+68, COMPRX+69

Name	Line Occurrences
$$ADJ	COMPOUT+32, COMPIN+28, COMPRX+38
$$DIAG	COMPIN+37
$$MODS	COMPOUT+38
$$PROC	COMPIN+39
ADJX	ADJ+17
COMPIN	COMPILE+6
COMPOUT	COMPILE+5
COMPRX	COMPILE+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AMT	ADJ+12~, ADJ+20*, ADJ+24, ADJ+25
BCH	COMPRX+2~, COMPRX+7*, COMPRX+10, COMPRX+21
DATA	COMPOUT+2~, COMPOUT+33, COMPOUT+34, COMPOUT+35, COMPOUT+36, COMPOUT+37, COMPOUT+38, COMPOUT+39, COMPOUT+40, COMPOUT+41* , COMPOUT+42, COMPOUT+43, COMPOUT+44, COMPOUT+45, COMPOUT+46, COMPOUT+47, COMPOUT+48, COMPOUT+49, COMPOUT+50, COMPOUT+51 , COMPOUT+52, COMPOUT+53, COMPOUT+54, COMPOUT+55, COMPOUT+56, COMPOUT+57, COMPOUT+58, COMPOUT+59, COMPOUT+60, COMPOUT+62 , COMPIN+2~, COMPIN+29, COMPIN+30, COMPIN+31, COMPIN+32, COMPIN+33, COMPIN+34, COMPIN+35, COMPIN+36, COMPIN+37 , COMPIN+38, COMPIN+39, COMPIN+40, COMPIN+41, COMPIN+42, COMPIN+43, COMPIN+44, COMPIN+45, COMPIN+46, COMPIN+47 , COMPIN+48, COMPIN+49, COMPIN+50, COMPIN+51, COMPIN+52, COMPIN+53, COMPIN+54, COMPIN+55, COMPIN+56, COMPIN+58 , COMPRX+2~, COMPRX+39, COMPRX+40, COMPRX+41, COMPRX+42, COMPRX+43, COMPRX+44, COMPRX+45, COMPRX+46, COMPRX+47 , COMPRX+48, COMPRX+49, COMPRX+50, COMPRX+51, COMPRX+52, COMPRX+53, COMPRX+54, COMPRX+55, COMPRX+56, COMPRX+57 , COMPRX+58, COMPRX+59, COMPRX+60, COMPRX+61, COMPRX+62, COMPRX+63, COMPRX+64, COMPRX+65, COMPRX+66*, COMPRX+68
DFN	COMPIN+2~, COMPIN+15, COMPIN+16, COMPIN+17, COMPRX+2~, COMPRX+31, COMPRX+32, COMPRX+33
DX	DIAG+1~, DIAG+6*, DIAG+8
DXN	DIAG+1~, DIAG+5*, DIAG+6
FBDODINV	COMPOUT+2~, COMPOUT+25, COMPOUT+62, COMPIN+2~, COMPIN+9, COMPIN+58, COMPRX+2~, COMPRX+26*, COMPRX+68
FBDT	COMPOUT+2~, COMPOUT+4, COMPOUT+5, COMPOUT+6, COMPOUT+9, COMPOUT+14, COMPOUT+16, COMPOUT+35, COMPIN+2~, COMPIN+3* , COMPIN+4, COMPIN+31, COMPRX+2~, COMPRX+5, COMPRX+6*, COMPRX+7, COMPRX+41
FBIA	COMPRX+2~, COMPRX+14*, COMPRX+15
>> FBIAADJ	COMPOUT+29, COMPIN+25, COMPRX+30
>> FBIABEG	COMPOUT+4, COMPIN+3, COMPRX+5
>> FBIAEND	COMPOUT+5, COMPIN+4, COMPRX+6
>> FBIAIGNORE	COMPOUT+26, COMPOUT+27, COMPOUT+28, COMPIN+22, COMPIN+23, COMPIN+24, COMPRX+27, COMPRX+28, COMPRX+29
>> FBIATYPE("ANC"	COMPILE+5, COMPOUT+20
>> FBIATYPE("INP"	COMPILE+6
>> FBIATYPE("OUT"	COMPILE+5, COMPOUT+19
>> FBIATYPE("RX"	COMPILE+7
>> FBIAVEN(	COMPOUT+10, COMPIN+11, COMPRX+13
FBINVN	COMPRX+2~, COMPRX+16*, COMPRX+58
FBJ	COMPOUT+2~, COMPOUT+6, COMPOUT+7, COMPOUT+8, COMPOUT+9, COMPOUT+14, COMPOUT+15, COMPOUT+16, COMPOUT+17, COMPOUT+22 , COMPOUT+23, COMPOUT+24, COMPOUT+31, MODS+4, MODS+5, ADJ+14, ADJ+15, ADJ+16, COMPIN+2~, COMPIN+4 , COMPIN+5, COMPIN+6, COMPIN+7, COMPIN+8, COMPIN+18, DIAG+2, PROC+2, COMPRX+2~, COMPRX+10*, COMPRX+11 , COMPRX+21, COMPRX+22, COMPRX+23, COMPRX+24, COMPRX+25, COMPRX+34
FBK	COMPOUT+2~, COMPOUT+9, COMPOUT+10, COMPOUT+11, COMPOUT+13, COMPOUT+14, COMPOUT+15, COMPOUT+16, COMPOUT+17, COMPOUT+22 , COMPOUT+23, COMPOUT+24, COMPOUT+31, COMPOUT+33, MODS+4, MODS+5, ADJ+14, ADJ+16, COMPRX+2~, COMPRX+21 , COMPRX+22, COMPRX+23, COMPRX+24, COMPRX+25, COMPRX+34
FBL	COMPOUT+2~, COMPOUT+14*, COMPOUT+15, COMPOUT+16, COMPOUT+17, COMPOUT+22, COMPOUT+23, COMPOUT+24, COMPOUT+31, MODS+4 , MODS+5, ADJ+14
FBM	COMPOUT+2~, COMPOUT+16*, COMPOUT+17, COMPOUT+22, COMPOUT+23, COMPOUT+24, COMPOUT+31, MODS+4, MODS+5, ADJ+14
FBN	MODS+2~, MODS+4*, MODS+5
FBPTSSN	COMPOUT+2~, COMPOUT+8, COMPOUT+36, COMPIN+2~, COMPIN+17, COMPIN+32, COMPRX+2~, COMPRX+33*, COMPRX+42
FBRXINV	COMPRX+2~, COMPRX+11*, COMPRX+12, COMPRX+14, COMPRX+16
FBV	COMPIN+2~, COMPIN+10*, COMPIN+11, COMPIN+12, COMPIN+14, COMPIN+29
FBVEN	COMPRX+2~, COMPRX+12*, COMPRX+13, COMPRX+17, COMPRX+19, COMPRX+39
FBVENAME	COMPOUT+2~, COMPOUT+11, COMPOUT+12, COMPOUT+62, COMPOUT+63, COMPIN+2~, COMPIN+12, COMPIN+13, COMPIN+58, COMPIN+59 , COMPRX+2~, COMPRX+17, COMPRX+18, COMPRX+68, COMPRX+69
FBVENID	COMPOUT+2~, COMPOUT+13, COMPOUT+34, COMPOUT+63, COMPIN+2~, COMPIN+14, COMPIN+30, COMPIN+59, COMPRX+2~, COMPRX+19* , COMPRX+40, COMPRX+69
FBY0	COMPOUT+3~, COMPOUT+17, COMPOUT+18, COMPOUT+27, COMPOUT+29, COMPOUT+37, COMPOUT+46, COMPOUT+47, COMPOUT+52, COMPOUT+53 , COMPOUT+54, COMPOUT+55, COMPOUT+59, COMPIN+2~, COMPIN+5, COMPIN+10, COMPIN+15, COMPIN+20, COMPIN+23, COMPIN+25 , COMPIN+42, COMPIN+43, COMPIN+48, COMPIN+49, COMPIN+50, COMPIN+55, COMPRX+3~, COMPRX+22*, COMPRX+30, COMPRX+31 , COMPRX+35, COMPRX+50, COMPRX+51, COMPRX+52, COMPRX+53, COMPRX+59, COMPRX+60
FBY2	COMPOUT+3~, COMPOUT+22, COMPOUT+26, COMPOUT+56, COMPOUT+57, COMPOUT+58, COMPIN+2~, COMPIN+6, COMPIN+22, COMPIN+51 , COMPIN+52, COMPIN+53, COMPIN+54, COMPRX+3~, COMPRX+23*, COMPRX+27, COMPRX+28, COMPRX+61, COMPRX+62, COMPRX+63 , COMPRX+64, COMPRX+65
FBY3	COMPOUT+3~, COMPOUT+23*, COMPOUT+25
FBY5	COMPIN+2~, COMPIN+7*, COMPIN+9, COMPIN+38
FBY6	COMPRX+3~, COMPRX+24*, COMPRX+26
FBYREJ	COMPOUT+3~, COMPOUT+24, COMPOUT+28, COMPIN+2~, COMPIN+8, COMPIN+24, COMPRX+3~, COMPRX+25*, COMPRX+29
FBZADJ	COMPOUT+3~, COMPOUT+32, COMPOUT+48, COMPOUT+49, COMPOUT+50, COMPOUT+51, COMPIN+2~, COMPIN+28, COMPIN+44, COMPIN+45 , COMPRX+3~, COMPRX+38*, COMPRX+54, COMPRX+55, COMPRX+56, COMPRX+57
FBZDOS	COMPOUT+3~, COMPOUT+15, COMPOUT+37, COMPOUT+62, MODS+6, COMPIN+2~, COMPIN+19, COMPIN+20, COMPIN+21, COMPIN+38 , COMPIN+58, DIAG+6, PROC+6, COMPRX+3~, COMPRX+35, COMPRX+68
FBZIENS	COMPOUT+3~, COMPOUT+31, COMPOUT+39, COMPOUT+60, COMPOUT+62, COMPIN+2~, COMPIN+18, COMPIN+19, COMPIN+36, COMPIN+56 , COMPIN+58, COMPRX+3~, COMPRX+34*, COMPRX+66, COMPRX+68
FBZPTNM	COMPOUT+3~, COMPOUT+7, COMPOUT+62, COMPIN+2~, COMPIN+16, COMPIN+58, COMPRX+3~, COMPRX+32*, COMPRX+68
FBZTYPE	COMPOUT+3~, COMPOUT+21, COMPOUT+62, COMPIN+2~, COMPIN+27, COMPIN+58, COMPRX+3~, COMPRX+37*, COMPRX+68
FEEPROG	COMPOUT+3~, COMPOUT+18*, COMPOUT+19, COMPOUT+20, COMPOUT+21
G	ADJ+12~, ADJ+19*, ADJ+20, ADJ+21, ADJ+22
GLO	ADJ+12~, ADJ+13, ADJ+14, ADJ+15, ADJ+16, ADJ+17, ADJ+19
GRP	ADJ+12~, ADJ+21*, ADJ+23
MOD	MODS+2~, MODS+6*, MODS+7
MODIEN	MODS+2~, MODS+5*, MODS+6
P1	DIAG+1~, DIAG+2, DIAG+5, PROC+1~, PROC+2, PROC+5
P2	DIAG+1~, DIAG+2*, DIAG+5
PCE	DIAG+1~, DIAG+4, DIAG+5, PROC+1~, PROC+4, PROC+5
POA	DIAG+1~, DIAG+7*, DIAG+9
POAN	DIAG+1~, DIAG+5*, DIAG+7
PROC	PROC+1~, PROC+6*, PROC+7
PROCN	PROC+1~, PROC+5*, PROC+6
RET	MODS+2~, MODS+3, MODS+7, MODSX+1, ADJ+12~, ADJ+13, ADJ+24, ADJ+25, ADJ+26, ADJX+1 , DIAG+1~, DIAG+3, DIAG+10, DIAG+12, PROC+1~, PROC+3, PROC+7, PROC+9
RSN	ADJ+12~, ADJ+22*, ADJ+23
STOP	ADJ+12~, ADJ+13, ADJ+19, ADJ+27
TYPE	ADJ~, ADJ+14, ADJ+15, ADJ+16
U	COMPOUT+7, COMPOUT+8, COMPOUT+11, COMPOUT+13, COMPOUT+15, COMPOUT+18, COMPOUT+25, COMPOUT+26, COMPOUT+27, COMPOUT+28 , COMPOUT+29, COMPOUT+34, COMPOUT+35, COMPOUT+36, COMPOUT+37, COMPOUT+38, COMPOUT+39, COMPOUT+40, COMPOUT+41, COMPOUT+42 , COMPOUT+43, COMPOUT+44, COMPOUT+45, COMPOUT+46, COMPOUT+47, COMPOUT+48, COMPOUT+49, COMPOUT+50, COMPOUT+51, COMPOUT+52 , COMPOUT+53, COMPOUT+54, COMPOUT+55, COMPOUT+56, COMPOUT+57, COMPOUT+58, COMPOUT+59, COMPOUT+60, MODS+5, MODS+6 , ADJ+20, ADJ+21, ADJ+22, ADJ+24, ADJ+25, ADJ+26, COMPIN+9, COMPIN+10, COMPIN+12, COMPIN+14 , COMPIN+15, COMPIN+16, COMPIN+17, COMPIN+20, COMPIN+22, COMPIN+23, COMPIN+24, COMPIN+25, COMPIN+30, COMPIN+31 , COMPIN+32, COMPIN+33, COMPIN+34, COMPIN+35, COMPIN+36, COMPIN+37, COMPIN+38, COMPIN+39, COMPIN+40, COMPIN+41 , COMPIN+42, COMPIN+43, COMPIN+44, COMPIN+45, COMPIN+46, COMPIN+47, COMPIN+48, COMPIN+49, COMPIN+50, COMPIN+51 , COMPIN+52, COMPIN+53, COMPIN+54, COMPIN+55, COMPIN+56, DIAG+5, DIAG+7, PROC+5, COMPRX+12, COMPRX+14 , COMPRX+16, COMPRX+17, COMPRX+19, COMPRX+26, COMPRX+27, COMPRX+28, COMPRX+29, COMPRX+30, COMPRX+31, COMPRX+32 , COMPRX+33, COMPRX+35, COMPRX+40, COMPRX+41, COMPRX+42, COMPRX+43, COMPRX+44, COMPRX+45, COMPRX+46, COMPRX+47 , COMPRX+48, COMPRX+49, COMPRX+50, COMPRX+51, COMPRX+52, COMPRX+53, COMPRX+54, COMPRX+55, COMPRX+56, COMPRX+57 , COMPRX+58, COMPRX+59, COMPRX+60, COMPRX+61, COMPRX+62, COMPRX+63, COMPRX+64, COMPRX+65, COMPRX+66
X	ADJ+12~, ADJ+23*, ADJ+24, ADJ+26
Z	ADJ+12~, ADJ+19, DIAG+1~, DIAG+8, DIAG+9*, DIAG+10
>> ZTQUEUED	COMPILE+4, COMPILE+12
>> ZTREQ	COMPILE+12*

Customize PDF page

Package: Fee Basis

Routine: FBAAIARC

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: