Routine: FBAAIAR

Package	Total	Call Graph
Kernel	4	^%ZISC ($$FMADD,$$FMTE)^XLFDT $$LJ^XLFSTR EN^XUTMDEVQ
Fee Basis	1	(COMPRX,PRINT)^FBAAIARA
Registration	1	FIRST^VAUTOMA
VA FileMan	1	^DIR

Package	Total	Caller Graph
Fee Basis	2	FBAA IPAC DoD INVOICE RPT FBAAIARA

Entry Points

Name	Comments	DBIA/ICR reference
EN	; main report entry point
P1
P2
P3
P4
P5
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
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
DEVICE()	; Device Selection
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	;
COMPIN	; compile Inpatient data
COMPINX	;
GET(FBVENAME,FBDODINV)	; gather totals and other data for all Fee line items for the given vendor and DoD invoice# ; update the established scratch global with information
GETX	;
CKMLT(VAL,VALPCE,MLTPCE,NOVPCE)	; check for multiple/missing data values ; Variable FBDISGD is assumed to contain the contents of the scratch global ; VAL - value from the payment file to check ; VALPCE - piece# from the scratch global to check for multiple values ; MLTPCE - piece# of the scratch global to set if multiple values found ; NOVPCE - piece# of the scratch global to set if no data exists in VAL (optional)

External References

Name	Field # of Occurrence
^%ZISC	COMPILE+10
^DIR	STOP+11, DATES+14, DATES+24, TYPESEL+20, FORMAT+15, DEVICE+18
COMPRX^FBAAIARA	COMPILE+7
PRINT^FBAAIARA	COMPILE+9
FIRST^VAUTOMA	VENDSEL+18
$$FMADD^XLFDT	DATES+10
$$FMTE^XLFDT	DATES+10, DATES+20
$$LJ^XLFSTR	TYPESEL+11, TYPESEL+12, TYPESEL+13, TYPESEL+14
EN^XUTMDEVQ	DEVICE+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: STOP+11
Function Call: WRITE	Prompt: @IOF,!,"IPAC Vendor DoD Invoice Report" Line Location: VENDSEL+9
Function Call: WRITE	Prompt: !!,"This report will display summary information on all of the DoD invoices" Line Location: VENDSEL+10
Function Call: WRITE	Prompt: !,"for the selected IPAC vendors, within the selected date range, and for" Line Location: VENDSEL+11
Function Call: WRITE	Prompt: !,"the selected payment types." Line Location: VENDSEL+12
Function Call: WRITE	Prompt: ! Line Location: VENDSEL+13
Function Call: WRITE	Prompt: $C(7) Line Location: VENDSEL+20
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: FORMAT+15
Function Call: WRITE	Prompt: $C(7) Line Location: FORMAT+16
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+18
Function Call: WRITE	Prompt: !!,"Compiling IPAC Vendor DoD Invoice Report. Please wait ... " Line Location: COMPILE+4
Routine Call	DIR Line Location: STOP+11 DATES+14 DATES+24 TYPESEL+20 FORMAT+15 DEVICE+18

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.7 - [#161.7]	COMPOUT+27, COMPOUT+28, COMPIN+21, COMPIN+22, GET+28, GET+29, GET+50, GET+51, GET+72, GET+73
^FBAA(161.95 - [#161.95]	VENDSEL+19
^FBAA(162.1 - [#162.1]	GET+57, GET+58, GET+59, GET+60, GET+67
^FBAAC - [#162]	COMPOUT+12, COMPOUT+16, COMPOUT+17, COMPOUT+18, GET+14, GET+15, GET+16, GET+23
^FBAAC("AK"	COMPOUT+3, COMPOUT+4, COMPOUT+5, COMPOUT+6, COMPOUT+10, COMPOUT+11
^FBAAC("DODI"	GET+13
^FBAAI - [#162.5]	COMPIN+5, COMPIN+6, COMPIN+7, COMPIN+8, GET+36, GET+37, GET+38, GET+45
^FBAAI("AD"	COMPIN+3, COMPIN+4
^FBAAI("DODI"	GET+35
^FBAAV - [#161.2]	VENDSEL+19, COMPOUT+8, COMPOUT+9, COMPIN+12, COMPIN+13
^TMP("FBAAIAR"	COMPILE+3!, COMPILE+11!, COMPOUT+20, COMPOUT+31, COMPIN+14, COMPIN+25, GET+9, GET+10, GET+83, GET+91

Label References

Name	Line Occurrences
$$DATES	P2
$$DEVICE	P5
$$FORMAT	P4
$$STOP	P2, P3, P4, P5
$$TYPESEL	P3
$$VENDSEL	P1
CKMLT	GET+27, GET+28, GET+29, GET+30, GET+31, GET+49, GET+50, GET+51, GET+52, GET+53 , GET+71, GET+72, GET+73, GET+74, GET+75
COMPIN	COMPILE+6
COMPOUT	COMPILE+5
DATEX	DATES+15, DATES+25
EX	P1, P2, P3, P4, P5
GET	COMPOUT+32, COMPIN+26
GETX	GET+5, GET+6
P1	P2
P2	P3
P3	P4
P4	P5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADJTOT	GET+3~, GET+8, GET+23, GET+45, GET+67, GET+81, GET+89
CLAIMED	GET+3~, GET+8, GET+20, GET+42, GET+64, GET+79, GET+87
DATA	COMPOUT+2~, COMPOUT+25, COMPOUT+26, COMPOUT+27, COMPOUT+28, COMPOUT+29, COMPOUT+30, COMPOUT+31, COMPIN+2~, COMPIN+19* , COMPIN+20, COMPIN+21, COMPIN+22, COMPIN+23, COMPIN+24*, COMPIN+25
DIC	VENDSEL+5~, VENDSEL+15*
DIC("S"	VENDSEL+16*
DIR	STOP+4~, STOP+11!, DATES+4~, DATES+14!, DATES+24!, TYPESEL+5~, TYPESEL+20!, FORMAT+5~, FORMAT+15!, DEVICE+1~
DIR("?"	STOP+9, STOP+10, DATES+11, DATES+12, DATES+13, DATES+21, DATES+22, DATES+23, FORMAT+10, FORMAT+11 , FORMAT+12, FORMAT+13, FORMAT+14*
DIR("A"	STOP+7, DATES+9, DATES+19, TYPESEL+18, TYPESEL+19, FORMAT+8
DIR("B"	STOP+8, DATES+10, DATES+20, TYPESEL+18, TYPESEL+19!, FORMAT+9*
DIR(0	STOP+6, DATES+8, DATES+18, TYPESEL+10, TYPESEL+16, FORMAT+7, DEVICE+18*
DIROUT	STOP+4~, DATES+4~, TYPESEL+5~, FORMAT+5~
DIRUT	STOP+4~, STOP+12, DATES+4~, DATES+15, DATES+25, TYPESEL+5~, TYPESEL+9, TYPESEL+25, FORMAT+5~, FORMAT+16
DISBURSED	GET+3~, GET+8, GET+22, GET+44, GET+66, GET+82, GET+90
DT	DATES+10, DATES+20
DTOUT	STOP+4~, DATES+4~, TYPESEL+5~, TYPESEL+30, FORMAT+5~
DUOUT	STOP+4~, DATES+4~, TYPESEL+5~, TYPESEL+30, FORMAT+5~
FBDISGD	GET+3~, GET+9, GET+79, GET+80, GET+81, GET+82, GET+83, CKMLT+7, CKMLT+8*
FBDODINV	COMPOUT+2~, COMPOUT+19, COMPOUT+20, COMPOUT+31, COMPOUT+32, COMPIN+2~, COMPIN+9, COMPIN+14, COMPIN+25, COMPIN+26 , GET~, GET+6, GET+9, GET+13, GET+35, GET+57, GET+83
FBDT	COMPOUT+2~, COMPOUT+3, COMPOUT+4, COMPOUT+5, COMPOUT+6, COMPOUT+10, COMPOUT+11, COMPOUT+25, COMPIN+2~, COMPIN+3* , COMPIN+4*, COMPIN+19
FBG0	GET+3~, GET+14, GET+18, GET+20, GET+21, GET+27, GET+28, GET+29, GET+30, GET+36 , GET+40, GET+42, GET+43, GET+49, GET+50, GET+51, GET+58*, GET+64, GET+65, GET+72 , GET+73
FBG2	GET+3~, GET+15, GET+17, GET+22, GET+31, GET+37, GET+39, GET+44, GET+52, GET+53 , GET+59*, GET+61, GET+62, GET+66, GET+74, GET+75
FBGREJ	GET+3~, GET+16, GET+19, GET+38, GET+41, GET+60*, GET+63
FBIABEG	EN+2~, P2, DATES~, DATES+6, DATES+16, DATES+18, COMPOUT+3, COMPIN+3
FBIAEND	EN+2~, P2, DATES~, DATES+6, DATES+26, COMPOUT+4, COMPIN+4
FBIAEXCEL	EN+2~, P4, FORMAT~, FORMAT+6, FORMAT+17, DEVICE+3, DEVICE+4
FBIATYPE	EN+2~, P3, TYPESEL~, TYPESEL+6!, TYPESEL+18, TYPESEL+31
FBIATYPE(	TYPESEL+23, TYPESEL+26!, TYPESEL+27
FBIATYPE("ANC"	TYPESEL+14, COMPILE+5, COMPOUT+15
FBIATYPE("INP"	TYPESEL+13, COMPILE+6
FBIATYPE("OUT"	TYPESEL+11, COMPILE+5, COMPOUT+14
FBIATYPE("RX"	TYPESEL+12, COMPILE+7
FBIAVEN	EN+2~, P1, VENDSEL~, VENDSEL+6!, VENDSEL+19
FBIAVEN(	VENDSEL+19*, COMPOUT+7, COMPIN+11
FBIAVEN(0	VENDSEL+20
FBJ	COMPOUT+2~, COMPOUT+5, COMPOUT+6, COMPOUT+10, COMPOUT+11, COMPOUT+12, COMPOUT+16, COMPOUT+17, COMPOUT+18, COMPIN+2~ , COMPIN+4, COMPIN+5, COMPIN+6, COMPIN+7, COMPIN+8
FBK	COMPOUT+2~, COMPOUT+6*, COMPOUT+7, COMPOUT+8, COMPOUT+9, COMPOUT+10, COMPOUT+11, COMPOUT+12, COMPOUT+16, COMPOUT+17 , COMPOUT+18, COMPOUT+25
FBL	COMPOUT+2~, COMPOUT+10*, COMPOUT+11, COMPOUT+12, COMPOUT+16, COMPOUT+17, COMPOUT+18
FBM	COMPOUT+2~, COMPOUT+11*, COMPOUT+12, COMPOUT+16, COMPOUT+17, COMPOUT+18
FBTT	GET+3~, GET+10, GET+86, GET+87, GET+88, GET+89, GET+90, GET+91
FBV	COMPIN+2~, COMPIN+10*, COMPIN+11, COMPIN+12, COMPIN+13, COMPIN+19
FBVENAME	COMPOUT+2~, COMPOUT+8, COMPOUT+20, COMPOUT+31, COMPOUT+32, COMPIN+2~, COMPIN+12, COMPIN+14, COMPIN+25, COMPIN+26 , GET~, GET+5, GET+9, GET+10, GET+83, GET+91
FBVENID	COMPOUT+2~, COMPOUT+9, COMPOUT+25, COMPIN+2~, COMPIN+13, COMPIN+19
FBY0	COMPOUT+2~, COMPOUT+12, COMPOUT+13, COMPOUT+22, COMPOUT+26, COMPOUT+27, COMPOUT+28, COMPOUT+29, COMPIN+2~, COMPIN+5 , COMPIN+10, COMPIN+16, COMPIN+20, COMPIN+21, COMPIN+22
FBY2	COMPOUT+2~, COMPOUT+16, COMPOUT+21, COMPOUT+30, COMPIN+2~, COMPIN+6, COMPIN+15, COMPIN+23, COMPIN+24
FBY3	COMPOUT+2~, COMPOUT+17*, COMPOUT+19
FBY5	COMPIN+2~, COMPIN+7*, COMPIN+9
FBYREJ	COMPOUT+2~, COMPOUT+18, COMPOUT+23, COMPIN+2~, COMPIN+8, COMPIN+17
FD	TYPESEL+5~, TYPESEL+11, TYPESEL+12, TYPESEL+13, TYPESEL+14, TYPESEL+15*, TYPESEL+16
FEEPROG	COMPOUT+2~, COMPOUT+13*, COMPOUT+14, COMPOUT+15
G	TYPESEL+5~, TYPESEL+23*
IOF	VENDSEL+9
K	GET+3~, GET+13, GET+14, GET+15, GET+16, GET+23, GET+35, GET+36, GET+37, GET+38 , GET+45, GET+57*, GET+58, GET+59, GET+60, GET+67, GET+71
L	GET+3~, GET+13, GET+14, GET+15, GET+16, GET+23, GET+57, GET+58, GET+59, GET+60 , GET+67
M	GET+3~, GET+13*, GET+14, GET+15, GET+16, GET+23
MLTPCE	CKMLT~, CKMLT+7
N	GET+3~, GET+13*, GET+14, GET+15, GET+16, GET+23
NOVPCE	CKMLT~, CKMLT+8
P	GET+3~, GET+23, GET+45, GET+67*
PAID	GET+3~, GET+8, GET+21, GET+43, GET+65, GET+80, GET+88
POP	DEVICE+1~, DEVICE+17
RET	VENDSEL+5~, VENDSEL+7, VENDSEL+20, VENDSEL+21, DATES+4~, DATES+5, DATES+15, DATES+25, DATEX+1, TYPESEL+5~ , TYPESEL+7, TYPESEL+30, TYPESEL+31, TYPESEL+32, FORMAT+5~, FORMAT+6, FORMAT+16, FORMAT+18, DEVICE+1~, DEVICE+2* , DEVICE+17*, DEVICE+19
U	VENDSEL+19, TYPESEL+16, COMPOUT+8, COMPOUT+9, COMPOUT+13, COMPOUT+19, COMPOUT+21, COMPOUT+22, COMPOUT+23, COMPOUT+25 , COMPOUT+26, COMPOUT+27, COMPOUT+28, COMPOUT+29, COMPOUT+30, COMPIN+9, COMPIN+10, COMPIN+12, COMPIN+13, COMPIN+15 , COMPIN+16, COMPIN+17, COMPIN+19, COMPIN+20, COMPIN+21, COMPIN+22, COMPIN+23, COMPIN+24, GET+17, GET+18 , GET+19, GET+20, GET+21, GET+22, GET+23, GET+27, GET+28, GET+29, GET+30, GET+31 , GET+39, GET+40, GET+41, GET+42, GET+43, GET+44, GET+45, GET+49, GET+50, GET+51 , GET+52, GET+53, GET+61, GET+62, GET+63, GET+64, GET+65, GET+66, GET+67, GET+72 , GET+73, GET+74, GET+75, GET+79, GET+80, GET+81, GET+82, GET+86, GET+87, GET+88 , GET+89, GET+90, CKMLT+7, CKMLT+8
V	VENDSEL+5~, VENDSEL+19*
VAL	CKMLT~, CKMLT+7, CKMLT+8
VALPCE	CKMLT~, CKMLT+7
VAUTNI	VENDSEL+5~, VENDSEL+17*
VAUTSTR	VENDSEL+5~, VENDSEL+17*
VAUTVB	VENDSEL+5~, VENDSEL+17*
X	STOP+4~, VENDSEL+5~, DATES+4~, TYPESEL+5~, FORMAT+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, FORMAT+5~, FORMAT+17, DEVICE+1~
ZTDESC	DEVICE+1~, DEVICE+10*, DEVICE+16
>> ZTQUEUED	COMPILE+4, COMPILE+12
>> ZTREQ	COMPILE+12*
ZTRTN	DEVICE+1~, DEVICE+9*, DEVICE+16
ZTSAVE	DEVICE+1~, DEVICE+16
ZTSAVE("FBIABEG"	DEVICE+12*
ZTSAVE("FBIAEND"	DEVICE+13*
ZTSAVE("FBIAEXCEL"	DEVICE+15*
ZTSAVE("FBIATYPE("	DEVICE+14*
ZTSAVE("FBIAVEN("	DEVICE+11*
ZTSK	DEVICE+1~, DEVICE+18

Customize PDF page

Package: Fee Basis

Routine: FBAAIAR

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: