Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls