Routine: FBAAIARD

Package	Total	Call Graph
Kernel	3	$$S^%ZTLOAD ($$FMTE,$$NOW)^XLFDT ($$LJ,$$RJ)^XLFSTR
Fee Basis	1	$$ITSTR^FBAAIARA
VA FileMan	1	^DIR

Package	Total	Caller Graph
Fee Basis	1	FBAAIARC

Name	Comments	DBIA/ICR reference
PRINT	; entry point for printing the report ; Variables assumed to exist from FBAAIARB: FBIAVEN, FBIABEG, FBIAEND, FBIATYPE, FBIAEXCEL, FBIAADJ, FBIAIGNORE
PX	;
PRINTX	;
RPTLN	; display one payment line item detail
RPTLNX	;
DIAGDISP(Z)	; For inpatient, display diagnosis codes and POA codes
PROCDISP(Z)	; For inpatient, display procedure codes
HDR	; report header
HDRX	;
EXCELHD	; print an Excel CSV header record (only 1 Excel CSV header should print for the whole report)
EXCELN(RPTG)	; write a line of CSV data
CSV(STRING,DATA)	; build the Excel data string for CSV format

Name	Field # of Occurrence
$$S^%ZTLOAD	HDR+52
^DIR	PX+1, HDR+5
$$ITSTR^FBAAIARA	PRINT+6
$$FMTE^XLFDT	RPTLN+10, RPTLN+13, RPTLN+20, RPTLN+39, HDR+22, HDR+23, EXCELN+9, EXCELN+11, EXCELN+16, EXCELN+31 , EXCELN+34
$$NOW^XLFDT	HDR+23
$$LJ^XLFSTR	RPTLN+7, RPTLN+8
$$RJ^XLFSTR	RPTLN+16, RPTLN+17, RPTLN+18, RPTLN+22, RPTLN+36

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"No data found for this report." Line Location: PRINT+8
Function Call: WRITE	Prompt: !!?5,"This report was halted during compilation by TaskManager Request." Line Location: PRINT+9
Function Call: WRITE	Prompt: !!?5,"* End of Report *" Line Location: PRINT+33
Function Call: WRITE	Prompt: !,$$LJ^XLFSTR(FBDODINV,20) Line Location: RPTLN+7
Function Call: WRITE	Prompt: ?21,$$LJ^XLFSTR(FBZPTNM,"16T") Line Location: RPTLN+8
Function Call: WRITE	Prompt: ?38,$E($P(RPTG,U,4),6,10) Line Location: RPTLN+9
Function Call: WRITE	Prompt: ?44,$$FMTE^XLFDT(FBZDOS,"2Z") Line Location: RPTLN+10
Function Call: WRITE	Prompt: ?54,$P(RPTG,U,5),?61,$P(RPTG,U,7) Line Location: RPTLN+12
Function Call: WRITE	Prompt: ?54,$$FMTE^XLFDT($P(RPTG,U,8),"2Z") Line Location: RPTLN+13
Function Call: WRITE	Prompt: ?54,$P(RPTG,U,12) Line Location: RPTLN+14
Function Call: WRITE	Prompt: ?64,$$RJ^XLFSTR($FN($P(RPTG,U,14),"",2),10) Line Location: RPTLN+16
Function Call: WRITE	Prompt: $$RJ^XLFSTR($FN($P(RPTG,U,15),"",2),10) Line Location: RPTLN+17
Function Call: WRITE	Prompt: $$RJ^XLFSTR($FN($P(RPTG,U,16),"",2),10) Line Location: RPTLN+18
Function Call: WRITE	Prompt: ?95,$E($P(RPTG,U,17),1,6) Line Location: RPTLN+19
Function Call: WRITE	Prompt: ?103,$$FMTE^XLFDT($P(RPTG,U,23),"2Z") Line Location: RPTLN+20
Function Call: WRITE	Prompt: ?113,$E($P(RPTG,U,24),1,8) Line Location: RPTLN+21
Function Call: WRITE	Prompt: ?122,$$RJ^XLFSTR($FN($P(RPTG,U,25),"",2),"10T") Line Location: RPTLN+22
Function Call: WRITE	Prompt: !?3,$P(RPTG,U,20) Line Location: RPTLN+25
Function Call: WRITE	Prompt: ?14,$P(RPTG,U,21) Line Location: RPTLN+26
Function Call: WRITE	Prompt: ?21,$P(RPTG,U,22) Line Location: RPTLN+27
Function Call: WRITE	Prompt: ?29,$S($P(RPTG,U,27):"VOIDED",1:"") Line Location: RPTLN+28
Function Call: WRITE	Prompt: ?40,"REJECTED" Line Location: RPTLN+30
Function Call: WRITE	Prompt: ?46,$P(RPTG,U,10) Line Location: RPTLN+31
Function Call: WRITE	Prompt: ?54,$P(RPTG,U,6) Line Location: RPTLN+32
Function Call: WRITE	Prompt: ?54,$E($P(RPTG,U,13),1,29) Line Location: RPTLN+33
Function Call: WRITE	Prompt: ?61,"REJECTED" Line Location: RPTLN+34
Function Call: WRITE	Prompt: ?84,$$RJ^XLFSTR($FN($P(RPTG,U,18),"",2),10) Line Location: RPTLN+36
Function Call: WRITE	Prompt: ?95,$E($P(RPTG,U,19),1,6) Line Location: RPTLN+37
Function Call: WRITE	Prompt: ?106,"CANCELLED ",$$FMTE^XLFDT($P(RPTG,U,26),"2Z"),"" Line Location: RPTLN+39
Function Call: WRITE	Prompt: !?3,"DX(POA): " Line Location: DIAGDISP+4
Function Call: WRITE	Prompt: !?12 Line Location: DIAGDISP+7
Function Call: WRITE	Prompt: DXP Line Location: DIAGDISP+8
Function Call: WRITE	Prompt: DELIM Line Location: DIAGDISP+9
Function Call: WRITE	Prompt: !?6,"PROC: " Line Location: PROCDISP+4
Function Call: WRITE	Prompt: !?12 Line Location: PROCDISP+7
Function Call: WRITE	Prompt: PRC Line Location: PROCDISP+8
Function Call: WRITE	Prompt: DELIM Line Location: PROCDISP+9
Function Call: WRITE	Prompt: @IOF Line Location: HDR+8
Function Call: WRITE	Prompt: $C(13) Line Location: HDR+11
Function Call: WRITE	Prompt: "IPAC Vendor Payment Report" Line Location: HDR+21
Function Call: WRITE	Prompt: ?44,"For Date Range ",$$FMTE^XLFDT(FBIABEG,"5DZ")," - ",$$FMTE^XLFDT(FBIAEND,"5DZ") Line Location: HDR+22
Function Call: WRITE	Prompt: ?96,$$FMTE^XLFDT($$NOW^XLFDT),?120,"Page: ",PAGE Line Location: HDR+23
Function Call: WRITE	Prompt: !?3,"Selected Invoice Types: ",ITSTR Line Location: HDR+24
Function Call: WRITE	Prompt: ?102,"Suspended Payments Only" Line Location: HDR+25
Function Call: WRITE	Prompt: !?3,"Vendor Name: ",FBVENAME Line Location: HDR+28
Function Call: WRITE	Prompt: " (ID# ",VENID,")" Line Location: HDR+31
Function Call: WRITE	Prompt: ?81,"Invoice Type: " Line Location: HDR+33
Function Call: WRITE	Prompt: "Outpatient/Civil Hospital Ancillary" Line Location: HDR+34
Function Call: WRITE	Prompt: "Civil Hospital Inpatient" Line Location: HDR+35
Function Call: WRITE	Prompt: "Pharmacy" Line Location: HDR+36
Function Call: WRITE	Prompt: !,"DoD Invoice Number",?21,"Patient Name",?38,"SSN" Line Location: HDR+40
Function Call: WRITE	Prompt: ?44,"Svc Dt Proc Rev" Line Location: HDR+41
Function Call: WRITE	Prompt: ?44,"Admit Dt Disch Dt" Line Location: HDR+42
Function Call: WRITE	Prompt: ?44,"Fill Dt Rx#" Line Location: HDR+43
Function Call: WRITE	Prompt: ?66,"Claimed",?79,"Paid",?90,"Adj Reason",?103,"Dt Paid",?113,"Check#",?123,"Disbursed" Line Location: HDR+44
Function Call: WRITE	Prompt: !?3,"Fee Inv#",?14,"Bch#",?21,"Oblig#" Line Location: HDR+45
Function Call: WRITE	Prompt: ?54,"Modifiers" Line Location: HDR+46
Function Call: WRITE	Prompt: ?46,"Adm Dx" Line Location: HDR+47
Function Call: WRITE	Prompt: ?54,"Drug Name" Line Location: HDR+48
Function Call: WRITE	Prompt: !,SEPLINE Line Location: HDR+49
Function Call: WRITE	Prompt: !!!?5,"* Report Halted by TaskManager Request *" Line Location: HDR+54
Function Call: WRITE	Prompt: FBH Line Location: EXCELHD+34
Function Call: WRITE	Prompt: !,FBZ Line Location: EXCELN+37
Routine Call	DIR Line Location: PX+1 HDR+5

Name	Line Occurrences (* Changed, ! Killed)
^TMP("FBAAIARB"	PRINT+8, PRINT+13, PRINT+14, PRINT+18, PRINT+19, PRINT+20, PRINT+21, RPTLN+1, HDR+30

Name	Line Occurrences
$$CSV	EXCELHD+2, EXCELHD+3, EXCELHD+4, EXCELHD+5, EXCELHD+6, EXCELHD+7, EXCELHD+8, EXCELHD+9, EXCELHD+10, EXCELHD+11 , EXCELHD+12, EXCELHD+13, EXCELHD+14, EXCELHD+15, EXCELHD+16, EXCELHD+17, EXCELHD+18, EXCELHD+19, EXCELHD+20, EXCELHD+21 , EXCELHD+22, EXCELHD+23, EXCELHD+24, EXCELHD+25, EXCELHD+26, EXCELHD+27, EXCELHD+28, EXCELHD+29, EXCELHD+30, EXCELHD+31 , EXCELHD+32, EXCELHD+33, EXCELN+5, EXCELN+6, EXCELN+7, EXCELN+8, EXCELN+9, EXCELN+10, EXCELN+11, EXCELN+12 , EXCELN+13, EXCELN+14, EXCELN+15, EXCELN+16, EXCELN+17, EXCELN+18, EXCELN+19, EXCELN+20, EXCELN+21, EXCELN+22 , EXCELN+23, EXCELN+24, EXCELN+25, EXCELN+26, EXCELN+27, EXCELN+28, EXCELN+29, EXCELN+30, EXCELN+31, EXCELN+32 , EXCELN+33, EXCELN+34, EXCELN+35, EXCELN+36
DIAGDISP	RPTLN+44
EXCELHD	HDR+16
EXCELN	RPTLN+4
HDR	PRINT+8, PRINT+9, PRINT+11, PRINT+16, PRINT+32, RPTLN+6, DIAGDISP+2, PROCDISP+2
HDRX	HDR+5, HDR+16, HDR+52
PRINTX	PRINT+11, PRINT+30, PRINT+32
PROCDISP	RPTLN+45
PX	PRINT+8, PRINT+9
RPTLN	PRINT+22

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CRT	PRINT+3~, PRINT+4*, PX+1, HDR+5, HDR+8, HDR+11
DATA	CSV~, CSV+1*, CSV+2
DELIM	DIAGDISP+1~, DIAGDISP+3, DIAGDISP+5, DIAGDISP+6, DIAGDISP+9, PROCDISP+1~, PROCDISP+3, PROCDISP+5, PROCDISP+6, PROCDISP+9
DIR	PRINT+3~, PX+1!, HDR+2~, HDR+5!
DIR(0	PX+1, HDR+5
DIROUT	PRINT+3~, HDR+2~
DIRUT	PRINT+3~, HDR+2~
DTOUT	PRINT+3~, HDR+2~
DUOUT	PRINT+3~, HDR+2~
DXP	DIAGDISP+1~, DIAGDISP+6*, DIAGDISP+7, DIAGDISP+8
FBDODINV	PRINT+3~, PRINT+18*, PRINT+19, PRINT+20, PRINT+21, RPTLN+1, RPTLN+7, EXCELN+8
FBH	EXCELHD+1~, EXCELHD+2, EXCELHD+3, EXCELHD+4, EXCELHD+5, EXCELHD+6, EXCELHD+7, EXCELHD+8, EXCELHD+9, EXCELHD+10* , EXCELHD+11, EXCELHD+12, EXCELHD+13, EXCELHD+14, EXCELHD+15, EXCELHD+16, EXCELHD+17, EXCELHD+18, EXCELHD+19, EXCELHD+20 , EXCELHD+21, EXCELHD+22, EXCELHD+23, EXCELHD+24, EXCELHD+25, EXCELHD+26, EXCELHD+27, EXCELHD+28, EXCELHD+29, EXCELHD+30 , EXCELHD+31, EXCELHD+32, EXCELHD+33*, EXCELHD+34
>> FBIAADJ	HDR+25
>> FBIABEG	HDR+22
>> FBIAEND	HDR+22
>> FBIAEXCEL	PRINT+5, PRINT+11, PRINT+16, RPTLN+4, HDR+16
FBIASTOP	PRINT+3~, PRINT+6, PRINT+11, PRINT+13, PRINT+14, PRINT+16, PRINT+18, PRINT+19, PRINT+20, PRINT+21 , PRINT+30, PRINT+32, RPTLN+6, RPTLN+44, RPTLN+45, DIAGDISP+2, PROCDISP+2, HDR+5, HDR+53*
>> FBIATYPE	PRINT+6
FBVENAME	PRINT+3~, PRINT+13*, PRINT+14, PRINT+18, PRINT+19, PRINT+20, PRINT+21, RPTLN+1, HDR+27, HDR+28 , HDR+30, EXCELN+5
FBZ	EXCELN+1~, EXCELN+5, EXCELN+6, EXCELN+7, EXCELN+8, EXCELN+9, EXCELN+10, EXCELN+11, EXCELN+12, EXCELN+13* , EXCELN+14, EXCELN+15, EXCELN+16, EXCELN+17, EXCELN+18, EXCELN+19, EXCELN+20, EXCELN+21, EXCELN+22, EXCELN+23 , EXCELN+24, EXCELN+25, EXCELN+26, EXCELN+27, EXCELN+28, EXCELN+29, EXCELN+30, EXCELN+31, EXCELN+32, EXCELN+33 , EXCELN+34, EXCELN+35, EXCELN+36*, EXCELN+37
FBZDOS	PRINT+3~, PRINT+19*, PRINT+20, PRINT+21, RPTLN+1, RPTLN+10, EXCELN+9
FBZIENS	PRINT+3~, PRINT+21*, RPTLN+1
FBZPTNM	PRINT+3~, PRINT+20*, PRINT+21, RPTLN+1, RPTLN+8, EXCELN+10
FBZTYPE	PRINT+3~, PRINT+14*, PRINT+18, PRINT+19, PRINT+20, PRINT+21, RPTLN+1, RPTLN+12, RPTLN+13, RPTLN+14 , RPTLN+30, RPTLN+31, RPTLN+32, RPTLN+33, RPTLN+34, RPTLN+41, HDR+18, EXCELN+2
HTYP	HDR+2~, HDR+18*, HDR+32, HDR+34, HDR+35, HDR+36, HDR+41, HDR+42, HDR+43, HDR+46 , HDR+47, HDR+48
IOF	HDR+8
IOM	DIAGDISP+7, PROCDISP+7
IOSL	PRINT+5*, PRINT+32, RPTLN+6, DIAGDISP+2, PROCDISP+2
IOST	PRINT+4
ITSTR	PRINT+3~, PRINT+6*, HDR+24
P	DIAGDISP+1~, DIAGDISP+5, DIAGDISP+6, DIAGDISP+9, PROCDISP+1~, PROCDISP+5, PROCDISP+6, PROCDISP+9
PAGE	PRINT+3~, PRINT+6, HDR+5, HDR+8, HDR+11, HDR+13, HDR+23
PRC	PROCDISP+1~, PROCDISP+6*, PROCDISP+7, PROCDISP+8
RPTG	PRINT+3~, PRINT+15!, RPTLN+1*, RPTLN+4, RPTLN+9, RPTLN+12, RPTLN+13, RPTLN+14, RPTLN+16, RPTLN+17 , RPTLN+18, RPTLN+19, RPTLN+20, RPTLN+21, RPTLN+22, RPTLN+25, RPTLN+26, RPTLN+27, RPTLN+28, RPTLN+30 , RPTLN+31, RPTLN+32, RPTLN+33, RPTLN+34, RPTLN+36, RPTLN+37, RPTLN+39, RPTLN+44, RPTLN+45, HDR+29 , EXCELN~, EXCELN+6, EXCELN+11, EXCELN+12, EXCELN+13, EXCELN+14, EXCELN+15, EXCELN+16, EXCELN+17, EXCELN+18 , EXCELN+19, EXCELN+20, EXCELN+21, EXCELN+22, EXCELN+23, EXCELN+24, EXCELN+25, EXCELN+26, EXCELN+27, EXCELN+28 , EXCELN+29, EXCELN+30, EXCELN+31, EXCELN+32, EXCELN+33, EXCELN+34, EXCELN+35, EXCELN+36
SEPLINE	PRINT+3~, PRINT+6*, HDR+49
STRING	CSV~, CSV+2*, CSV+3
U	RPTLN+9, RPTLN+12, RPTLN+13, RPTLN+14, RPTLN+16, RPTLN+17, RPTLN+18, RPTLN+19, RPTLN+20, RPTLN+21 , RPTLN+22, RPTLN+25, RPTLN+26, RPTLN+27, RPTLN+28, RPTLN+30, RPTLN+31, RPTLN+32, RPTLN+33, RPTLN+34 , RPTLN+36, RPTLN+37, RPTLN+39, RPTLN+44, RPTLN+45, HDR+29, HDR+30, EXCELN+6, EXCELN+11, EXCELN+12 , EXCELN+13, EXCELN+14, EXCELN+15, EXCELN+16, EXCELN+17, EXCELN+18, EXCELN+19, EXCELN+20, EXCELN+21, EXCELN+22 , EXCELN+23, EXCELN+24, EXCELN+25, EXCELN+26, EXCELN+27, EXCELN+28, EXCELN+29, EXCELN+30, EXCELN+31, EXCELN+32 , EXCELN+33, EXCELN+34, EXCELN+35, EXCELN+36
VENID	HDR+2~, HDR+29, HDR+30, HDR+31
X	PRINT+3~, HDR+2~, EXCELN+1~, EXCELN+2*, EXCELN+3
Y	PRINT+3~, HDR+2~, HDR+5, EXCELN+1~, EXCELN+3*, EXCELN+7
Z	DIAGDISP~, DIAGDISP+5, DIAGDISP+6, DIAGDISP+9, PROCDISP~, PROCDISP+5, PROCDISP+6, PROCDISP+9
>> ZTQUEUED	PX+1, HDR+52
>> ZTSTOP	PRINT+9, HDR+53*

Customize PDF page

Package: Fee Basis

Routine: FBAAIARD

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: