Routine: FBAAIARB

Package	Total	Call Graph
Kernel	3	($$FMADD,$$FMTE)^XLFDT $$LJ^XLFSTR EN^XUTMDEVQ
Registration	1	FIRST^VAUTOMA
VA FileMan	1	^DIR

Package	Total	Caller Graph
Fee Basis	1	FBAA IPAC VENDOR PAYMENT RPT

Entry Points

Name	Comments	DBIA/ICR reference
EN	; main report entry point
P1
P2
P3
P4
P5
P6
P7
EX	; main report exit point
STOP()	; Determine if user wants to exit out of the option entirely ; 1=yes, get out entirely ; 0=no, just go back to the previous question
VENDSEL(FBIAVEN)	; user selection function for IPAC vendors ; FBIAVEN is an output array, pass by reference ; FBIAVEN(vendor ien) = vendor name selected ; Function value is 1 if at least 1 vendor was selected, 0 otherwise
DATES(FBIABEG,FBIAEND)	; capture the start date and end date from the user ; both are output parameters, pass by reference ; function value is 0/1 indicating if valid dates were selected
DATEX	;
TYPESEL(FBIATYPE)	; function for user selection of the types of invoices to search ; FBIATYPE is an output array, pass by reference ; FBIATYPE(type)="" where type can be OUT,RX,INP,ANC ; Function value is 1 if at least 1 invoice type was selected, 0 otherwise
SUSPADJ(FBIAADJ)	; capture only suspended payments? ; FBIAADJ=0 meaning NO user wants to include all payment lines ; FBIAADJ=1 meaning YES only include payments where Amount Paid is less than Amount Claimed ; pass parameter by reference
FORMAT(FBIAEXCEL)	; capture the report format from the user (normal or CSV output) ; FBIAEXCEL=0 for normal output ; FBIAEXCEL=1 for CSV (comma separated values) for Excel output ; pass parameter by reference
IGNCV(FBIAIGNORE)	; should we ignore cancelled, voided, or rejected line items? ; FBIAIGNORE=0 means don't ignore, include everything ; FBIAIGNORE=1 means yes ignore cancelled/voided/rejected line items ; pass parameter by reference
DEVICE()	; Device Selection

External References

Name	Field # of Occurrence
^DIR	STOP+11, DATES+14, DATES+24, TYPESEL+20, SUSPADJ+16, FORMAT+15, IGNCV+16, DEVICE+20
FIRST^VAUTOMA	VENDSEL+17
$$FMADD^XLFDT	DATES+10
$$FMTE^XLFDT	DATES+10, DATES+20
$$LJ^XLFSTR	TYPESEL+11, TYPESEL+12, TYPESEL+13, TYPESEL+14
EN^XUTMDEVQ	DEVICE+18

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: STOP+11
Function Call: WRITE	Prompt: @IOF,!,"IPAC Vendor Payment Report" Line Location: VENDSEL+9
Function Call: WRITE	Prompt: !!,"This report will display detail information on paid line items by the" Line Location: VENDSEL+10
Function Call: WRITE	Prompt: !,"invoice type, DoD invoice number, and date of service." Line Location: VENDSEL+11
Function Call: WRITE	Prompt: ! Line Location: VENDSEL+12
Function Call: WRITE	Prompt: $C(7) Line Location: VENDSEL+19
Function Call: WRITE	Prompt: ! Line Location: DATES+14
Function Call: WRITE	Prompt: $C(7) Line Location: DATES+15
Function Call: WRITE	Prompt: ! Line Location: DATES+24
Function Call: WRITE	Prompt: $C(7) Line Location: DATES+25
Function Call: WRITE	Prompt: ! Line Location: TYPESEL+20
Function Call: WRITE	Prompt: $C(7) Line Location: TYPESEL+31
Function Call: WRITE	Prompt: ! Line Location: SUSPADJ+16
Function Call: WRITE	Prompt: $C(7) Line Location: SUSPADJ+17
Function Call: WRITE	Prompt: ! Line Location: FORMAT+15
Function Call: WRITE	Prompt: $C(7) Line Location: FORMAT+16
Function Call: WRITE	Prompt: ! Line Location: IGNCV+16
Function Call: WRITE	Prompt: $C(7) Line Location: IGNCV+17
Function Call: WRITE	Prompt: !!,"This report is 132 characters wide. Please choose an appropriate device.",! Line Location: DEVICE+3
Function Call: WRITE	Prompt: !!,"For CSV output, turn logging or capture on now." Line Location: DEVICE+5
Function Call: WRITE	Prompt: !,"To avoid undesired wrapping of the data saved to the file," Line Location: DEVICE+6
Function Call: WRITE	Prompt: !,"please enter ""0;256;99999"" at the ""DEVICE:"" prompt.",! Line Location: DEVICE+7
Function Call: WRITE	Prompt: !!,"Report compilation has started with task# ",ZTSK,".",! Line Location: DEVICE+20
Routine Call	DIR Line Location: STOP+11 DATES+14 DATES+24 TYPESEL+20 SUSPADJ+16 FORMAT+15 IGNCV+16 DEVICE+20

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^FBAAV - [#161.2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^FBAA(161.95 - [#161.95]	VENDSEL+18
^FBAAV - [#161.2]	VENDSEL+18

Label References

Name	Line Occurrences
$$DATES	P2
$$DEVICE	P7
$$FORMAT	P6
$$IGNCV	P5
$$STOP	P2, P3, P4, P5, P6, P7
$$SUSPADJ	P4
$$TYPESEL	P3
$$VENDSEL	P1
DATEX	DATES+15, DATES+25
EX	P1, P2, P3, P4, P5, P6, P7
P1	P2
P2	P3
P3	P4
P4	P5
P5	P6
P6	P7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIC	VENDSEL+5~, VENDSEL+14*
DIC("S"	VENDSEL+15*
DIR	STOP+4~, STOP+11!, DATES+4~, DATES+14!, DATES+24!, TYPESEL+5~, TYPESEL+20!, SUSPADJ+5~, SUSPADJ+16!, FORMAT+5~ , FORMAT+15!, IGNCV+5~, IGNCV+16!, DEVICE+1~
DIR("?"	STOP+9, STOP+10, DATES+11, DATES+12, DATES+13, DATES+21, DATES+22, DATES+23, SUSPADJ+10, SUSPADJ+11 , SUSPADJ+12, SUSPADJ+13, SUSPADJ+14, SUSPADJ+15, FORMAT+10, FORMAT+11, FORMAT+12, FORMAT+13, FORMAT+14, IGNCV+10 , IGNCV+11, IGNCV+12, IGNCV+13, IGNCV+14, IGNCV+15*
DIR("A"	STOP+7, DATES+9, DATES+19, TYPESEL+18, TYPESEL+19, SUSPADJ+8, FORMAT+8, IGNCV+8
DIR("B"	STOP+8, DATES+10, DATES+20, TYPESEL+18, TYPESEL+19!, SUSPADJ+9, FORMAT+9, IGNCV+9*
DIR(0	STOP+6, DATES+8, DATES+18, TYPESEL+10, TYPESEL+16, SUSPADJ+7, FORMAT+7, IGNCV+7, DEVICE+20*
DIROUT	STOP+4~, DATES+4~, TYPESEL+5~, SUSPADJ+5~, FORMAT+5~, IGNCV+5~
DIRUT	STOP+4~, STOP+12, DATES+4~, DATES+15, DATES+25, TYPESEL+5~, TYPESEL+9, TYPESEL+25, SUSPADJ+5~, SUSPADJ+17 , FORMAT+5~, FORMAT+16, IGNCV+5~, IGNCV+17
DT	DATES+10, DATES+20
DTOUT	STOP+4~, DATES+4~, TYPESEL+5~, TYPESEL+30, SUSPADJ+5~, FORMAT+5~, IGNCV+5~
DUOUT	STOP+4~, DATES+4~, TYPESEL+5~, TYPESEL+30, SUSPADJ+5~, FORMAT+5~, IGNCV+5~
FBIAADJ	EN+2~, P4, SUSPADJ~, SUSPADJ+6, SUSPADJ+18
FBIABEG	EN+2~, P2, DATES~, DATES+6, DATES+16, DATES+18
FBIAEND	EN+2~, P2, DATES~, DATES+6, DATES+26
FBIAEXCEL	EN+2~, P6, FORMAT~, FORMAT+6, FORMAT+17, DEVICE+3, DEVICE+4
FBIAIGNORE	EN+2~, P5, IGNCV~, IGNCV+6, IGNCV+18
FBIATYPE	EN+2~, P3, TYPESEL~, TYPESEL+6!, TYPESEL+18, TYPESEL+31
FBIATYPE(	TYPESEL+23, TYPESEL+26!, TYPESEL+27
FBIATYPE("ANC"	TYPESEL+14
FBIATYPE("INP"	TYPESEL+13
FBIATYPE("OUT"	TYPESEL+11
FBIATYPE("RX"	TYPESEL+12
FBIAVEN	EN+2~, P1, VENDSEL~, VENDSEL+6!, VENDSEL+18
FBIAVEN(	VENDSEL+18*
FBIAVEN(0	VENDSEL+19
FD	TYPESEL+5~, TYPESEL+11, TYPESEL+12, TYPESEL+13, TYPESEL+14, TYPESEL+15*, TYPESEL+16
G	TYPESEL+5~, TYPESEL+23*
IOF	VENDSEL+9
POP	DEVICE+1~, DEVICE+19
RET	VENDSEL+5~, VENDSEL+7, VENDSEL+19, VENDSEL+20, DATES+4~, DATES+5, DATES+15, DATES+25, DATEX+1, TYPESEL+5~ , TYPESEL+7, TYPESEL+30, TYPESEL+31, TYPESEL+32, SUSPADJ+5~, SUSPADJ+6, SUSPADJ+17, SUSPADJ+19, FORMAT+5~, FORMAT+6* , FORMAT+16, FORMAT+18, IGNCV+5~, IGNCV+6, IGNCV+17, IGNCV+19, DEVICE+1~, DEVICE+2, DEVICE+19*, DEVICE+21
U	VENDSEL+18, TYPESEL+16
V	VENDSEL+5~, VENDSEL+18*
VAUTNI	VENDSEL+5~, VENDSEL+16*
VAUTSTR	VENDSEL+5~, VENDSEL+16*
VAUTVB	VENDSEL+5~, VENDSEL+16*
X	STOP+4~, VENDSEL+5~, DATES+4~, TYPESEL+5~, SUSPADJ+5~, FORMAT+5~, IGNCV+5~, DEVICE+1~
Y	STOP+4~, STOP+12*, STOP+13, VENDSEL+5~, DATES+4~, DATES+15, DATES+16, DATES+25, DATES+26, TYPESEL+5~ , TYPESEL+9, TYPESEL+22, TYPESEL+25, TYPESEL+26, TYPESEL+27, SUSPADJ+5~, SUSPADJ+18, FORMAT+5~, FORMAT+17, IGNCV+5~ , IGNCV+18, DEVICE+1~
ZTDESC	DEVICE+1~, DEVICE+10*, DEVICE+18
ZTRTN	DEVICE+1~, DEVICE+9*, DEVICE+18
ZTSAVE	DEVICE+1~, DEVICE+18
ZTSAVE("FBIAADJ"	DEVICE+15*
ZTSAVE("FBIABEG"	DEVICE+12*
ZTSAVE("FBIAEND"	DEVICE+13*
ZTSAVE("FBIAEXCEL"	DEVICE+16*
ZTSAVE("FBIAIGNORE"	DEVICE+17*
ZTSAVE("FBIATYPE("	DEVICE+14*
ZTSAVE("FBIAVEN("	DEVICE+11*
ZTSK	DEVICE+1~, DEVICE+20

Customize PDF page

Package: Fee Basis

Routine: FBAAIARB

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

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: