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: FBAAIARA

Package: Fee Basis

Routine: FBAAIARA


Information

FBAAIARA ;ALB/ESG - Fee IPAC Vendor DoD Invoice (Summary) Report Print ;1/16/2014

Source Information

Source file <FBAAIARA.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ; entry point for printing the report
; Variables assumed to exist from FBAAIAR: FBIAVEN, FBIABEG, FBIAEND, FBIATYPE, FBIAEXCEL
PX ;
PRINTX ;
EXCELN(FBVENAME,FBDODINV,RPTG) ; output one Excel line
; FBVENAME - vendor name
; FBDODINV - DoD invoice#
; RPTG - scratch global data string
HDR ; report header
HDRX ;
EXCELHD ; print an Excel CSV header record (only 1 Excel CSV header should print for the whole report)
CSV(STRING,DATA) ; build the Excel data string for CSV format
ITSTR(FBIATYPE) ; convert array of selected invoice types into a string for the report header
ITSTRX ;
COMPRX ; compile Pharmacy data (moved to this routine for space reasons)
COMPRXX ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"No data found for this report."
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !!?5,"This report was halted during compilation by TaskManager Request."
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,$$LJ^XLFSTR(FBDODINV,22)
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: $$RJ^XLFSTR("$"_$FN($P(RPTG,U,4),"",2),13)
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: $$RJ^XLFSTR("$"_$FN($P(RPTG,U,5),"",2),13)
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: $$RJ^XLFSTR("$"_$FN($P(RPTG,U,6),"",2),13)
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: ?64,$$LJ^XLFSTR($P(RPTG,U,7)_$S($P(RPTG,U,8):"+",1:""),10)
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: ?76,$$LJ^XLFSTR($P(RPTG,U,9)_$S($P(RPTG,U,10):"+",1:""),6)
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: ?84,$$LJ^XLFSTR($P(RPTG,U,11)_$S($P(RPTG,U,12):"+",1:""),7)
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: ?93,$$LJ^XLFSTR($$FMTE^XLFDT($P(RPTG,U,13),"2DZ")_$S($P(RPTG,U,14):"+",1:"")_$S($P(RPTG,U,15):"*",1:""),10)
  • Line Location: PRINT+28
Function Call: WRITE
  • Prompt: ?105,$$LJ^XLFSTR($P(RPTG,U,16)_$S($P(RPTG,U,17):"+",1:"")_$S($P(RPTG,U,18):"*",1:""),10)
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: $$RJ^XLFSTR("$"_$FN($P(RPTG,U,19),"",2),13)
  • Line Location: PRINT+30
Function Call: WRITE
  • Prompt: !?24,"----------- ----------- -----------",?117,"-----------"
  • Line Location: PRINT+39
Function Call: WRITE
  • Prompt: !?1,"$Totals for Vendor "
  • Line Location: PRINT+40
Function Call: WRITE
  • Prompt: $$RJ^XLFSTR("$"_$FN($P(RPTT,U,4),"",2),13)
  • Line Location: PRINT+41
Function Call: WRITE
  • Prompt: $$RJ^XLFSTR("$"_$FN($P(RPTT,U,5),"",2),13)
  • Line Location: PRINT+42
Function Call: WRITE
  • Prompt: $$RJ^XLFSTR("$"_$FN($P(RPTT,U,6),"",2),13)
  • Line Location: PRINT+43
Function Call: WRITE
  • Prompt: ?115,$$RJ^XLFSTR("$"_$FN($P(RPTT,U,19),"",2),13)
  • Line Location: PRINT+44
Function Call: WRITE
  • Prompt: !!,"Total Number of DoD Invoices for Vendor: ",$P(RPTT,U,1)
  • Line Location: PRINT+48
Function Call: WRITE
  • Prompt: !!?5,"*** End of Report ***"
  • Line Location: PRINT+54
Function Call: WRITE
  • Prompt: !,FBZ
  • Line Location: EXCELN+17
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: $C(13)
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: "IPAC Vendor DoD Invoice Report"
  • Line Location: HDR+19
Function Call: WRITE
  • Prompt: ?44,"For Date Range ",$$FMTE^XLFDT(FBIABEG,"5DZ")," - ",$$FMTE^XLFDT(FBIAEND,"5DZ")
  • Line Location: HDR+20
Function Call: WRITE
  • Prompt: ?96,$$FMTE^XLFDT($$NOW^XLFDT),?120,"Page: ",PAGE
  • Line Location: HDR+21
Function Call: WRITE
  • Prompt: !?3,"Selected Invoice Types: ",ITSTR
  • Line Location: HDR+22
Function Call: WRITE
  • Prompt: !?14,"Vendor Name: ",FBVENAME
  • Line Location: HDR+26
Function Call: WRITE
  • Prompt: " (ID# ",VENID,")"
  • Line Location: HDR+29
Function Call: WRITE
  • Prompt: !?26,"Total Amt",?39,"Total Amt",?52,"Total Amt",?64,"Fee Basis",?119,"Total Amt"
  • Line Location: HDR+33
Function Call: WRITE
  • Prompt: !,"DoD Invoice Number",?28,"Claimed",?44,"Paid",?53,"Adjusted",?64,"Invoice#",?76,"Batch#",?84,"Oblig#",?93,"Date Paid",?105,"Check#",?119,"Disbursed"
  • Line Location: HDR+34
Function Call: WRITE
  • Prompt: !,SEPLINE
  • Line Location: HDR+35
Function Call: WRITE
  • Prompt: !!!?5,"*** Report Halted by TaskManager Request ***"
  • Line Location: HDR+40
Function Call: WRITE
  • Prompt: FBH
  • Line Location: EXCELHD+14
Info |  Source |  Entry Points |  Interaction Calls