Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: FBAAIAR2

Package: Fee Basis

Routine: FBAAIAR2


Information

FBAAIAR2 ;ALB/FA - Fee IPAC Vendor DoD Invoice Inquiry Report Print ;1/16/2014

Source Information

Source file <FBAAIAR2.m>

Call Graph

Call Graph

Call Graph Total: 4

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Fee Basis 1 FBAAIAR1  

Entry Points

Name Comments DBIA/ICR reference
PRINT(FBDODINV,FBFORMAT)
VTOT(FBDODINV,VNAME,FBFORMAT,PAGE,FBIASTOP) ; Print the totals by Dod Invoice Vendor
; Input: FBDODINV - DoD Invoice report was compiled for
; VNAME - Name of the
; FBFORMAT - 0 - CSV format (for Excel), 0 otherwise
; PAGE - Current page number
; FBIASTOP - Stop flag
; ^TMP("FBAAIAR1",$J) - Compiled report data
; Output: FBIASTOP - 1 - user stopped printing, 0 otherwise
; DoD Invoice Type Totals are printed
; Called From: PRINT
TYPETOT(FBDODINV,VNAME,FBFORMAT,ITYPE,PAGE,FBIASTOP) ; Print the totals by Invoice type
; Input: FBDODINV - DoD Invoice report was compiled for
; VNAME - Name of the
; FBFORMAT - 0 - CSV format (for Excel), 0 otherwise
; ITYPE - Invoice Type to print totals for
; PAGE - Current page number
; IASTOP - Stop flag
; ^TMP($J,"FBAAIAR1") - Compiled report data
; Output: IASTOP - 1 - user stopped printing, 0 otherwise
; Invoice Type Totals are printed
; Called From: PRINT
EXCELN(ITYPE,INVNUM,DATA) ; Output one Excel line
; Input: ITYPE - Invoice record type
; INVNUM - VistA Invoice number
; DATA - Invoice data
; Output: One line of invoice data is output in excel format
; Called From: PRINT
HDR(FBDODINV,VNAME,CRT,PAGE,IASTOP)
EXCELHD ; Print an Excel CSV header record
; (only 1 Excel CSV header should print for the entire report)
; Input: None
; Output: Header line printed for CSV format (excel)
; Called From:
CSV(STRING,DATA) ; Build the Excel data string for CSV format
; Input: STRING - Current string being built or ""
; DATA - New data to be added to the string
; Returns: STRING - Updated string with DATA added
; Called From: EXCELHD,EXCELN

External References

Name Field # of Occurrence
$$S^%ZTLOAD HDR+42
^DIR PRINT+23, PRINT+30, PRINT+84, HDR+18
$$FMTE^XLFDT PRINT+66, EXCELN+10, HDR+33
$$NOW^XLFDT HDR+33
$$LJ^XLFSTR PRINT+63, PRINT+66
$$RJ^XLFSTR PRINT+64, PRINT+67, PRINT+68, PRINT+69, VTOT+16, VTOT+17, VTOT+18, VTOT+19, TYPETOT+18, TYPETOT+19
, TYPETOT+20, TYPETOT+21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"No data found for this report."
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: !!?5,"This report was halted during compilation by TaskManager Request."
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: !,$$LJ^XLFSTR(INVNUM,22)
  • Line Location: PRINT+63
Function Call: WRITE
  • Prompt: ?25,$$RJ^XLFSTR(ITYPE,4)
  • Line Location: PRINT+64
Function Call: WRITE
  • Prompt: ?32,$P(IDATA,U,1)
  • Line Location: PRINT+65
Function Call: WRITE
  • Prompt: ?40,$$LJ^XLFSTR($$FMTE^XLFDT($P(IDATA,U,2),"2DZ"),10)
  • Line Location: PRINT+66
Function Call: WRITE
  • Prompt: ?50,$$RJ^XLFSTR("$"_$FN($P(IDATA,U,3),"",0),8)
  • Line Location: PRINT+67
Function Call: WRITE
  • Prompt: ?60,$$RJ^XLFSTR("$"_$FN($P(IDATA,U,4),"",0),8)
  • Line Location: PRINT+68
Function Call: WRITE
  • Prompt: ?70,$$RJ^XLFSTR("$"_$FN($P(IDATA,U,5),"",0),8)
  • Line Location: PRINT+69
Function Call: WRITE
  • Prompt: !!?5,"*** End of Report ***"
  • Line Location: PRINT+80
Function Call: WRITE
  • Prompt: !?1,"$Totals for Vendor: ",VNAME
  • Line Location: VTOT+14
Function Call: WRITE
  • Prompt: !,"---------",?50,"-------- -------- --------"
  • Line Location: VTOT+15
Function Call: WRITE
  • Prompt: !,"# ",$$RJ^XLFSTR($P(IDATA,U,4),7)
  • Line Location: VTOT+16
Function Call: WRITE
  • Prompt: ?50,$$RJ^XLFSTR("$"_$FN($P(IDATA,U,1),"",0),8)
  • Line Location: VTOT+17
Function Call: WRITE
  • Prompt: ?60,$$RJ^XLFSTR("$"_$FN($P(IDATA,U,2),"",0),8)
  • Line Location: VTOT+18
Function Call: WRITE
  • Prompt: ?70,$$RJ^XLFSTR("$"_$FN($P(IDATA,U,3),"",0),8)
  • Line Location: VTOT+19
Function Call: WRITE
  • Prompt: !?1,"$Totals for DoD Invoice # by Type: ",ETYPE
  • Line Location: TYPETOT+16
Function Call: WRITE
  • Prompt: !?25,"---- ",?50,"-------- -------- --------"
  • Line Location: TYPETOT+17
Function Call: WRITE
  • Prompt: !?20,"Tot# ",$$RJ^XLFSTR($P(IDATA,U,4),4)
  • Line Location: TYPETOT+18
Function Call: WRITE
  • Prompt: ?50,$$RJ^XLFSTR("$"_$FN($P(IDATA,U,1),"",0),8)
  • Line Location: TYPETOT+19
Function Call: WRITE
  • Prompt: ?60,$$RJ^XLFSTR("$"_$FN($P(IDATA,U,2),"",0),8)
  • Line Location: TYPETOT+20
Function Call: WRITE
  • Prompt: ?70,$$RJ^XLFSTR("$"_$FN($P(IDATA,U,3),"",0),8)
  • Line Location: TYPETOT+21
Function Call: WRITE
  • Prompt: !
  • Line Location: TYPETOT+22
Function Call: WRITE
  • Prompt: !,FBZ
  • Line Location: EXCELN+14
Function Call: WRITE
  • Prompt: @IOF,$C(13)
  • Line Location: HDR+23
Function Call: WRITE
  • Prompt: ?20,"IPAC Vendor DoD Invoice Inquiry Report"
  • Line Location: HDR+31
Function Call: WRITE
  • Prompt: !,?1,"For DoD Invoice # ",FBDODINV
  • Line Location: HDR+32
Function Call: WRITE
  • Prompt: ?48,$$FMTE^XLFDT($$NOW^XLFDT),?71,"Page: ",PAGE
  • Line Location: HDR+33
Function Call: WRITE
  • Prompt: !,?1,"For Vendor: ",VNAME
  • Line Location: HDR+34
Function Call: WRITE
  • Prompt: !?42,"Date",?52,"Amount",?63,"Amount",?72,"Amount"
  • Line Location: HDR+37
Function Call: WRITE
  • Prompt: !,"Invoice #",?25,"Type",?31,"C/V/R",?42,"Paid",?52,"Claimed",?63,"Paid",?72,"Adjusted"
  • Line Location: HDR+38
Function Call: WRITE
  • Prompt: !,SEPLINE
  • Line Location: HDR+39
Function Call: WRITE
  • Prompt: !!!?5,"*** Report Halted by TaskManager Request ***"
  • Line Location: HDR+44
Function Call: WRITE
  • Prompt: FBH
  • Line Location: EXCELHD+13
Routine Call
  • DIR
  • Line Location:
    • PRINT+23
    • PRINT+30
    • PRINT+84
    • HDR+18

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("FBAAIAR1" PRINT+18, PRINT+38, PRINT+46, PRINT+50, PRINT+54, PRINT+56, VTOT+13, TYPETOT+15

Label References

Name Line Occurrences
$$CSV EXCELN+7, EXCELN+8, EXCELN+9, EXCELN+10, EXCELN+11, EXCELN+12, EXCELN+13, EXCELHD+6, EXCELHD+7, EXCELHD+8
EXCELHD+9, EXCELHD+10, EXCELHD+11, EXCELHD+12
EXCELHD HDR+28
EXCELN PRINT+59
HDR PRINT+19, PRINT+26, PRINT+33, PRINT+43, PRINT+62, PRINT+79, VTOT+12, TYPETOT+13
TYPETOT PRINT+72
VTOT PRINT+75

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CRT PRINT+12~, PRINT+15*, PRINT+19, PRINT+21, PRINT+26, PRINT+28, PRINT+33, PRINT+43, PRINT+62, PRINT+79
, PRINT+82, VTOT+12, TYPETOT+13, HDR~, HDR+16, HDR+22
DATA EXCELN~, EXCELN+9, EXCELN+10, EXCELN+11, EXCELN+12, EXCELN+13, CSV~, CSV+5*, CSV+6
DIR PRINT+12~, HDR+13~, HDR+18!
DIR(0 PRINT+22*, PRINT+29*, PRINT+83*, HDR+17*
DIROUT PRINT+12~, HDR+13~
DIRUT PRINT+12~, HDR+13~
DTOUT PRINT+12~, HDR+13~
DUOUT PRINT+12~, HDR+13~
ETYPE TYPETOT+11~, TYPETOT+14*, TYPETOT+16
FBDODINV PRINT~, PRINT+19, PRINT+26, PRINT+33, PRINT+43, PRINT+62, PRINT+72, PRINT+75, PRINT+79, VTOT~
, VTOT+12, TYPETOT~, TYPETOT+13, HDR~, HDR+32
FBFORMAT PRINT~, PRINT+16, PRINT+33, PRINT+43, PRINT+59, PRINT+61, PRINT+72, PRINT+75, PRINT+78, VTOT~
, VTOT+11, TYPETOT~, TYPETOT+12, HDR+28
FBH EXCELHD+5~, EXCELHD+6*, EXCELHD+7*, EXCELHD+8*, EXCELHD+9*, EXCELHD+10*, EXCELHD+11*, EXCELHD+12*, EXCELHD+13
FBIASTOP PRINT+12~, PRINT+17*, PRINT+19, PRINT+26, PRINT+33, PRINT+34, PRINT+37, PRINT+43, PRINT+45, PRINT+47
, PRINT+49, PRINT+51, PRINT+53, PRINT+61, PRINT+62, PRINT+71, PRINT+72, PRINT+74, PRINT+75, PRINT+76
, PRINT+78, PRINT+79, VTOT~, VTOT+11, VTOT+12, TYPETOT~, TYPETOT+12, TYPETOT+13, HDR+16, HDR+19*
, HDR+43*
FBZ EXCELN+6~, EXCELN+7*, EXCELN+8*, EXCELN+9*, EXCELN+10*, EXCELN+11*, EXCELN+12*, EXCELN+13*, EXCELN+14
IASTOP HDR~
IDATA PRINT+12~, PRINT+56*, PRINT+59, PRINT+65, PRINT+66, PRINT+67, PRINT+68, PRINT+69, VTOT+10~, VTOT+13*
, VTOT+16, VTOT+17, VTOT+18, VTOT+19, TYPETOT+11~, TYPETOT+15*, TYPETOT+18, TYPETOT+19, TYPETOT+20, TYPETOT+21
INVDOD PRINT+12~
INVNUM PRINT+12~, PRINT+48*, PRINT+49, PRINT+50*, PRINT+51, PRINT+54, PRINT+56, PRINT+59, PRINT+63, EXCELN~
, EXCELN+7
IOF HDR+23
IOSL PRINT+16*, PRINT+61, PRINT+78, VTOT+11, TYPETOT+12
IOST PRINT+15
ITYPE PRINT+12~, PRINT+44*, PRINT+45, PRINT+46*, PRINT+47, PRINT+50, PRINT+54, PRINT+56, PRINT+59, PRINT+64
, PRINT+72, TYPETOT~, TYPETOT+14, TYPETOT+15, EXCELN~, EXCELN+8
LVNAME PRINT+13~, PRINT+14*, PRINT+40*, PRINT+79
PAGE PRINT+13~, PRINT+17*, PRINT+19, PRINT+26, PRINT+33, PRINT+43, PRINT+62, PRINT+72, PRINT+75, PRINT+79
, VTOT~, VTOT+12, TYPETOT~, TYPETOT+13, HDR~, HDR+16, HDR+22, HDR+25*, HDR+33
SEPLINE PRINT+13~, PRINT+17*, HDR+39
STRING CSV~, CSV+6*, CSV+7
U PRINT+65, PRINT+66, PRINT+67, PRINT+68, PRINT+69, VTOT+16, VTOT+17, VTOT+18, VTOT+19, TYPETOT+18
, TYPETOT+19, TYPETOT+20, TYPETOT+21, EXCELN+9, EXCELN+10, EXCELN+11, EXCELN+12, EXCELN+13
VENID HDR+13~
VNAME PRINT+13~, PRINT+14*, PRINT+19, PRINT+26, PRINT+36*, PRINT+37, PRINT+38*, PRINT+39, PRINT+40, PRINT+43
, PRINT+46, PRINT+50, PRINT+54, PRINT+56, PRINT+62, PRINT+72, PRINT+75, VTOT~, VTOT+12, VTOT+13
, VTOT+14, TYPETOT~, TYPETOT+15, HDR~, HDR+34
X PRINT+13~, HDR+13~
XX PRINT+13~, PRINT+52*, PRINT+53, PRINT+54*, PRINT+55, PRINT+56
Y PRINT+13~, HDR+13~, HDR+19
Z HDR+13~
>> ZTQUEUED PRINT+21, PRINT+28, PRINT+82, HDR+42
>> ZTSTOP PRINT+25, HDR+43*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All