Routine: FBAAIAR1

Package	Total	Call Graph
Kernel	2	^%ZISC EN^XUTMDEVQ
Fee Basis	1	PRINT^FBAAIAR2
VA FileMan	1	^DIR

Package	Total	Caller Graph
Fee Basis	1	FBAA IPAC DoD INVOICE INQUIRY

Entry Points

Name	Comments	DBIA/ICR reference
EN	;EP ; Main report entry point
DODISEL(FBDODINV)	; Ask for the DoD Invoice ; Input: None ; Output: FBDODINV - Selected DoD Invoice Number ; Returns: 1 - User quit out, 0 otherwise ; Called From: EN
FORMAT(FBFORMAT)	; Capture the report format from the user (normal or CSV output) ; Input: None ; Output: FBFORMAT - 1 - CSV Format, 0 otherwise ; Returns: 0 - User quit out, 1 otherwise ; Called From: EN
DEVICE(FBDODINV,FBFORMAT)	; Device Selection and Report compilation ; Input: FBDODINV - DoD invoice number to compile VistA invoices for ; FBFORMAT - 1 - CSV Format, 0 otherwise ; Output: Report is compiled if a device is selected ; Returns: 1 - User quit out, 0 otherwise ; Called From: EN
COMPILE	; Entry point for the compile to build the scratch global ; may be background task if job queued ; Input: FBDODINV - DoD Invoice number to use for selection ; FBFORMAT - 1 - CSV format, 0 otherwise ; Output: Report is compiled and output ; Called From: Report processing
COMPOUT(FBDODINV)
ROWDATAO(VNAME,PATIEN,VENIEN,IDTIEN,SVCIEN)
GETTYPEO(PATIEN,VENIEN,IDTIEN,SVCIEN,INV0,INV2)	; Determines if the invoice has been ; cancelled, rejected, purged or voided or some combination ; Input: PATIEN - Patient IEN ; VENIEN - Vendor IEN ; IDTIEN - Initial Treatment Date IEN ; SVCIEN - Service Provided IEN ; INV0 - 0 node of the outpatient invoice ; INV2 - 2 node of the outpatient invoice ; Returns: V - Voided ; C - Cancelled ; R - Rejected ; P - Purged ; "" - Otherwise ; or any combination of C/V/R/P ; Called From: ROWDATAO
COMPIN(FBDODINV)
GETTYPEI(INVIEN,INV0,INV2)	; Determines if the inpatient invoice has been ; cancelled, rejected or voided or some combination ; Input: INVIEN - IEN of the inpatient invoice ; INV0 - 0 node of the inpatient invoice ; INV2 - 2 node of the inpatient invoice ; INV5 - 5 node of the inpatient invoice ; Returns: V - Voided ; C - Cancelled ; R - Rejected ; "" - Otherwise ; or any combination of C/V/R ; Called From: COMPIN
COMPRX(FBDODINV)
GETTYPEP(PHIEN,RXIEN,INV2,ITYPE)	; Determines if the pharmacy invoice has any ; cancelled, rejected or voided prescriptions. ; Input: PHIEN - IEN of the pharmacy invoice ; RXIEN - Prescription IEN ; INV2 - 2 node of the pharmacy prescription invoice ; ITYPE - Current value for the pharmacy invoice ; Output: ITYPE - Updated value for the pharmacy invoice ; Called From: COMPRX
TOTS(VNAME,TYPE,INVNUM,DATA)	; Gather totals and other data for all invoices for ; the specified DoD invoice#. Update the scratch global with information ; Input: VNAME - Vendor Name ; TYPE - "OUT" - Outpatient Invoice ; "ANC" - Inpatient Ancillary Invoice ; "INP" - Inpatient Invoice ; "RX" - Pharmacy Invoice ; INVNUM - VistA Invoice Number ; DATA - ^TMP("FBAAIAR1",$J,VNAME,TYPE,INVNUM) ; ^TMP("FBAAIAR1",$J,VNAME) - Current DoD Invoice Vendor totals ; ^TMP("FBAAIAR1",$J,VNAME,TYPE) - Current Type totals ; Output: ^TMP("FBAAIAR1",$J,VNAME) - Updated DoD Invoice Vendor totals ; ^TMP("FBAAIAR1",$J,VNAME,TYPE) - Updated Type totals ; Called From: COMPIN, COMPOUT, COMPRX

External References

Name	Field # of Occurrence
^%ZISC	COMPILE+14
^DIR	DODISEL+16, FORMAT+16, DEVICE+24
PRINT^FBAAIAR2	COMPILE+13
EN^XUTMDEVQ	DEVICE+19

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"IPAC Vendor DoD Invoice Number Inquiry Report" Line Location: DODISEL+8
Function Call: WRITE	Prompt: !!,"This report will display all of the VistA invoices for the " Line Location: DODISEL+9
Function Call: WRITE	Prompt: !,"selected DoD Invoice Number." Line Location: DODISEL+10
Function Call: WRITE	Prompt: ! Line Location: DODISEL+11
Function Call: WRITE	Prompt: ! Line Location: DODISEL+16
Function Call: WRITE	Prompt: *7 Line Location: DODISEL+19
Function Call: WRITE	Prompt: ! Line Location: FORMAT+16
Function Call: WRITE	Prompt: *7 Line Location: FORMAT+19
Function Call: WRITE	Prompt: !!,"This report is 80 characters wide. Please choose an appropriate device.",! Line Location: DEVICE+9
Function Call: WRITE	Prompt: !!,"For CSV output, turn logging or capture on now." Line Location: DEVICE+11
Function Call: WRITE	Prompt: !,"To avoid undesired wrapping of the data saved to the file," Line Location: DEVICE+12
Function Call: WRITE	Prompt: !,"please enter ""0;256;99999"" at the ""DEVICE:"" prompt.",! Line Location: DEVICE+13
Function Call: WRITE	Prompt: !!,"Report compilation has started with task# ",ZTSK,".",! Line Location: DEVICE+22
Function Call: WRITE	Prompt: !!,"Compiling IPAC Vendor DoD Invoice Inquiry Report. Please wait ... " Line Location: COMPILE+8
Routine Call	DIR Line Location: DODISEL+16 FORMAT+16 DEVICE+24

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^FBAA(162.1 - [#162.1]	COMPRX+10, COMPRX+13, COMPRX+19, COMPRX+21, COMPRX+22, GETTYPEP+8
^FBAAC - [#162]	ROWDATAO+13, ROWDATAO+14, ROWDATAO+15, GETTYPEO+17, GETTYPEO+18
^FBAAC("DODI"	COMPOUT+9, COMPOUT+13, COMPOUT+18, COMPOUT+22
^FBAAI - [#162.5]	COMPIN+11, COMPIN+12, COMPIN+13, GETTYPEI+14
^FBAAI("DODI"	COMPIN+9
^FBAAV - [#161.2]	COMPOUT+15, COMPIN+15, COMPRX+15
^TMP("FBAAIAR1"	COMPILE+7!, COMPILE+15!, ROWDATAO+26, COMPIN+22, COMPRX+34, TOTS+16, TOTS+21, TOTS+22, TOTS+27*

Label References

Name	Line Occurrences
$$DEVICE	EN+5
$$DODISEL	EN+3
$$FORMAT	EN+4
$$GETTYPEI	COMPIN+17
$$GETTYPEO	ROWDATAO+20
COMPIN	COMPILE+10
COMPOUT	COMPILE+9
COMPRX	COMPILE+11
GETTYPEP	COMPRX+23
ROWDATAO	COMPOUT+26
TOTS	ROWDATAO+27, COMPIN+23, COMPRX+35

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AMTA	COMPRX+6~, COMPRX+12, COMPRX+28, COMPRX+33
AMTC	COMPRX+6~, COMPRX+12, COMPRX+26, COMPRX+31
AMTP	COMPRX+6~, COMPRX+12, COMPRX+27, COMPRX+32
CURTOT	TOTS+15~, TOTS+16, TOTS+17, TOTS+18, TOTS+19, TOTS+20, TOTS+21, TOTS+22, TOTS+23, TOTS+24 , TOTS+25, TOTS+26, TOTS+27
DATA	COMPOUT+6~, ROWDATAO+12~, ROWDATAO+20, ROWDATAO+21, ROWDATAO+22, ROWDATAO+23, ROWDATAO+24, ROWDATAO+26, ROWDATAO+27, COMPIN+6~ , COMPIN+17, COMPIN+18, COMPIN+19, COMPIN+20, COMPIN+21, COMPIN+22, COMPIN+23, COMPRX+6~, COMPRX+29, COMPRX+30 , COMPRX+31, COMPRX+32, COMPRX+33*, COMPRX+34, COMPRX+35, TOTS~, TOTS+17, TOTS+18, TOTS+19, TOTS+23 , TOTS+24, TOTS+25
DATEP	COMPRX+6~, COMPRX+8, COMPRX+25, COMPRX+30
DIR	DODISEL+6~, DODISEL+16!, FORMAT+6~, FORMAT+16!, DEVICE+6~
DIR("?"	DODISEL+14, DODISEL+15, FORMAT+11, FORMAT+12, FORMAT+13, FORMAT+14, FORMAT+15*
DIR("A"	DODISEL+13, FORMAT+9
DIR("B"	FORMAT+10*
DIR(0	DODISEL+12, FORMAT+8, DEVICE+23*
DIROUT	DODISEL+6~, FORMAT+6~
DIRUT	DODISEL+6~, DODISEL+17, FORMAT+6~, FORMAT+17
DTOUT	DODISEL+6~, FORMAT+6~
DUOUT	DODISEL+6~, FORMAT+6~
FBDODINV	EN+2~, EN+3, EN+5, DODISEL~, DODISEL+20*, DEVICE~, COMPILE+9, COMPILE+10, COMPILE+11, COMPILE+13 , COMPOUT~, COMPOUT+9, COMPOUT+13, COMPOUT+18, COMPOUT+22, COMPIN~, COMPIN+9, COMPRX~, COMPRX+10, COMPRX+19
FBFORMAT	EN+2~, EN+4, EN+5, FORMAT~, FORMAT+20*, DEVICE~, DEVICE+8, COMPILE+13
IDTIEN	COMPOUT+6~, COMPOUT+16, COMPOUT+17, COMPOUT+18, COMPOUT+19, COMPOUT+22, COMPOUT+26, ROWDATAO~, ROWDATAO+13, ROWDATAO+14 , ROWDATAO+15, ROWDATAO+20, ROWDATAO+25, GETTYPEO~, GETTYPEO+17
INIEN	COMPIN+6~, COMPIN+7, COMPIN+8, COMPIN+9, COMPIN+10, COMPIN+11, COMPIN+12, COMPIN+13, COMPIN+17
INV0	ROWDATAO+12~, ROWDATAO+13, ROWDATAO+16, ROWDATAO+17, ROWDATAO+20, ROWDATAO+21, ROWDATAO+22, ROWDATAO+23, ROWDATAO+24, GETTYPEO~ , GETTYPEO+20, COMPIN+6~, COMPIN+11, COMPIN+14, COMPIN+16, COMPIN+17, COMPIN+19, COMPIN+20, COMPIN+21, GETTYPEI~ , GETTYPEI+16, COMPRX+6~, COMPRX+21*, COMPRX+26, COMPRX+27, COMPRX+28
INV2	ROWDATAO+12~, ROWDATAO+14, ROWDATAO+20, GETTYPEO~, GETTYPEO+19, COMPIN+6~, COMPIN+12, COMPIN+17, COMPIN+18, GETTYPEI~ , GETTYPEI+15, COMPRX+6~, COMPRX+22*, COMPRX+23, COMPRX+24, GETTYPEP~, GETTYPEP+10, GETTYPEP+12
INV3	ROWDATAO+12~, ROWDATAO+15*
INV5	COMPIN+6~, COMPIN+13*
INVIEN	GETTYPEI~, GETTYPEI+14
INVNUM	ROWDATAO+12~, ROWDATAO+16, ROWDATAO+26, ROWDATAO+27, COMPIN+6~, COMPIN+16, COMPIN+22, COMPIN+23, COMPRX+6~, COMPRX+16* , COMPRX+34, COMPRX+35, TOTS~
IOF	DODISEL+8
ITYPE	ROWDATAO+17, ROWDATAO+18, ROWDATAO+19, COMPIN+6~, COMPRX+6~, GETTYPEP~, GETTYPEP+9, GETTYPEP+11, GETTYPEP+13*
ITYPE2	COMPRX+6~, COMPRX+8*, COMPRX+23, COMPRX+29
PATIEN	COMPOUT+6~, COMPOUT+7, COMPOUT+8, COMPOUT+9, COMPOUT+10, COMPOUT+13, COMPOUT+18, COMPOUT+22, COMPOUT+26, ROWDATAO~ , ROWDATAO+13, ROWDATAO+14, ROWDATAO+15, ROWDATAO+20, GETTYPEO~, GETTYPEO+17, GETTYPEO+18
PHIEN	COMPRX+7~, COMPRX+8, COMPRX+9, COMPRX+10, COMPRX+11, COMPRX+13, COMPRX+19, COMPRX+21, COMPRX+22, COMPRX+23 , GETTYPEP~, GETTYPEP+8
POP	DEVICE+6~, DEVICE+20
RET	DODISEL+6~, DODISEL+7, DODISEL+18, DODISEL+21, FORMAT+6~, FORMAT+7, FORMAT+18, FORMAT+21, DEVICE+6~, DEVICE+7* , DEVICE+20*, DEVICE+25
RXIEN	COMPRX+7~, COMPRX+17, COMPRX+18, COMPRX+19, COMPRX+20, COMPRX+21, COMPRX+22, COMPRX+23, GETTYPEP~, GETTYPEP+8
RXINV	COMPRX+7~, COMPRX+13*, COMPRX+14, COMPRX+16
SVCIEN	COMPOUT+6~, COMPOUT+20, COMPOUT+21, COMPOUT+22, COMPOUT+23, COMPOUT+26, ROWDATAO~, ROWDATAO+13, ROWDATAO+14, ROWDATAO+15 , ROWDATAO+20, ROWDATAO+25, GETTYPEO~, GETTYPEO+17
TYPE	ROWDATAO+12~, ROWDATAO+19*, ROWDATAO+26, ROWDATAO+27, TOTS~, TOTS+22, TOTS+27
U	COMPOUT+15, ROWDATAO+16, ROWDATAO+17, ROWDATAO+21, ROWDATAO+22, ROWDATAO+23, ROWDATAO+24, GETTYPEO+19, GETTYPEO+20, COMPIN+14 , COMPIN+15, COMPIN+16, COMPIN+18, COMPIN+19, COMPIN+20, COMPIN+21, GETTYPEI+15, GETTYPEI+16, COMPRX+14, COMPRX+15 , COMPRX+16, COMPRX+24, COMPRX+26, COMPRX+27, COMPRX+28, COMPRX+30, COMPRX+31, COMPRX+32, COMPRX+33, GETTYPEP+10 , GETTYPEP+12, TOTS+17, TOTS+18, TOTS+19, TOTS+20, TOTS+23, TOTS+24, TOTS+25, TOTS+26
VAL	GETTYPEO+15~, GETTYPEO+16, GETTYPEO+17, GETTYPEO+18, GETTYPEO+19, GETTYPEO+20, GETTYPEO+21, GETTYPEI+12~, GETTYPEI+13, GETTYPEI+14* , GETTYPEI+15, GETTYPEI+16, GETTYPEI+17
VENIEN	COMPOUT+6~, COMPOUT+11, COMPOUT+12, COMPOUT+13, COMPOUT+14, COMPOUT+15, COMPOUT+18, COMPOUT+22, COMPOUT+26, ROWDATAO~ , ROWDATAO+13, ROWDATAO+14, ROWDATAO+15, ROWDATAO+20, GETTYPEO~, GETTYPEO+17, GETTYPEO+18
VNAME	COMPOUT+6~, COMPOUT+15, COMPOUT+26, ROWDATAO~, ROWDATAO+26, ROWDATAO+27, COMPIN+6~, COMPIN+15, COMPIN+22, COMPIN+23 , COMPRX+7~, COMPRX+15*, COMPRX+34, COMPRX+35, TOTS~, TOTS+16, TOTS+21, TOTS+22, TOTS+27
X	DODISEL+6~, FORMAT+6~, DEVICE+6~
XX	ROWDATAO+12~, ROWDATAO+25, ROWDATAO+26, COMPIN+6~, COMPIN+14, COMPIN+15, COMPRX+7~, COMPRX+14, COMPRX+15, COMPRX+24 , COMPRX+25
Y	DODISEL+6~, DODISEL+17, DODISEL+20, FORMAT+6~, FORMAT+20, DEVICE+6~
ZTDESC	DEVICE+6~, DEVICE+16*, DEVICE+19
>> ZTQUEUED	COMPILE+8, COMPILE+16
>> ZTREQ	COMPILE+16*
ZTRTN	DEVICE+6~, DEVICE+15*, DEVICE+19
ZTSAVE	DEVICE+6~, DEVICE+19
ZTSAVE("FBDODINV"	DEVICE+17*
ZTSAVE("FBFORMAT"	DEVICE+18*
ZTSK	DEVICE+6~, DEVICE+21, DEVICE+22

Customize PDF page

Package: Fee Basis

Routine: FBAAIAR1

Information

Source Information

Call Graph

Call Graph Total: 4

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: