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

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 $$S^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  ($$LJ,$$RJ)^XLFSTR  
Fee Basis 1 GET^FBAAIAR  
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: 2

Package Total Caller Graph
Fee Basis 2 FBAAIAR  FBAAIARD  

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 ;

External References

Name Field # of Occurrence
$$S^%ZTLOAD HDR+38
^DIR PX+1, HDR+5
GET^FBAAIAR COMPRX+37
$$FMTE^XLFDT PRINT+28, EXCELN+14, HDR+20, HDR+21
$$NOW^XLFDT HDR+21
$$LJ^XLFSTR PRINT+21, PRINT+25, PRINT+26, PRINT+27, PRINT+28, PRINT+29
$$RJ^XLFSTR PRINT+22, PRINT+23, PRINT+24, PRINT+30, PRINT+41, PRINT+42, PRINT+43, PRINT+44

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
Routine Call
  • DIR
  • Line Location:
    • PX+1
    • HDR+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FBAA(161.7 - [#161.7] COMPRX+4, COMPRX+5, COMPRX+6, COMPRX+32, COMPRX+33
^FBAA(162.1 - [#162.1] COMPRX+9, COMPRX+10, COMPRX+19, COMPRX+20, COMPRX+21, COMPRX+22, COMPRX+23
^FBAAV - [#161.2] COMPRX+16, COMPRX+17
^TMP("FBAAIAR" PRINT+7, PRINT+12, PRINT+15, PRINT+16, PRINT+35, HDR+28, COMPRX+25, COMPRX+36*

Label References

Name Line Occurrences
$$CSV EXCELN+5, EXCELN+6, EXCELN+7, EXCELN+8, EXCELN+9, EXCELN+10, EXCELN+11, EXCELN+12, EXCELN+13, EXCELN+14
, EXCELN+15, EXCELN+16, EXCELHD+2, EXCELHD+3, EXCELHD+4, EXCELHD+5, EXCELHD+6, EXCELHD+7, EXCELHD+8, EXCELHD+9
, EXCELHD+10, EXCELHD+11, EXCELHD+12, EXCELHD+13
$$ITSTR PRINT+6
EXCELHD HDR+16
EXCELN PRINT+18
HDR PRINT+7, PRINT+8, PRINT+10, PRINT+14, PRINT+20, PRINT+38, PRINT+47, PRINT+53
HDRX HDR+5, HDR+16, HDR+38
ITSTRX ITSTR+4
PRINTX PRINT+10, PRINT+51, PRINT+53
PX PRINT+7, PRINT+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BCH COMPRX+2~, COMPRX+6*, COMPRX+9, COMPRX+19, COMPRX+32, COMPRX+33
CRT PRINT+3~, PRINT+4*, PX+1, HDR+5, HDR+8, HDR+11
DATA CSV~, CSV+1*, CSV+2, COMPRX+2~, COMPRX+30*, COMPRX+31*, COMPRX+32*, COMPRX+33*, COMPRX+34*, COMPRX+35*
, COMPRX+36
DIR PRINT+3~, PX+1!, HDR+2~, HDR+5!
DIR(0 PX+1*, HDR+5*
DIROUT PRINT+3~, HDR+2~
DIRUT PRINT+3~, HDR+2~
DTOUT PRINT+3~, HDR+2~
DUOUT PRINT+3~, HDR+2~
FBDODINV PRINT+3~, PRINT+15*, PRINT+16, PRINT+18, PRINT+21, EXCELN~, EXCELN+7, COMPRX+2~, COMPRX+24*, COMPRX+25
, COMPRX+36, COMPRX+37
FBDT COMPRX+2~, COMPRX+4*, COMPRX+5*, COMPRX+6, COMPRX+30
FBH EXCELHD+1~, EXCELHD+2*, EXCELHD+3*, EXCELHD+4*, EXCELHD+5*, EXCELHD+6*, EXCELHD+7*, EXCELHD+8*, EXCELHD+9*, EXCELHD+10*
, EXCELHD+11*, EXCELHD+12*, EXCELHD+13*, EXCELHD+14
FBIA COMPRX+2~, COMPRX+13*, COMPRX+14
>> FBIABEG HDR+20, COMPRX+4
>> FBIAEND HDR+20, COMPRX+5
>> FBIAEXCEL PRINT+5, PRINT+10, PRINT+14, PRINT+18, PRINT+33, HDR+16
FBIASTOP PRINT+3~, PRINT+6*, PRINT+10, PRINT+12, PRINT+14, PRINT+15, PRINT+20, PRINT+33, PRINT+38, PRINT+47
, PRINT+51, PRINT+53, HDR+5*, HDR+39*
FBIATYPE PRINT+6, ITSTR~
FBIATYPE( ITSTR+6
FBIATYPE("ANC" ITSTR+4
FBIATYPE("INP" ITSTR+4
FBIATYPE("OUT" ITSTR+4
FBIATYPE("RX" ITSTR+4
>> FBIAVEN( COMPRX+12
FBINVN COMPRX+2~, COMPRX+15*, COMPRX+31
FBJ COMPRX+2~, COMPRX+9*, COMPRX+10, COMPRX+19, COMPRX+20, COMPRX+21, COMPRX+22, COMPRX+23
FBK COMPRX+2~, COMPRX+19*, COMPRX+20, COMPRX+21, COMPRX+22, COMPRX+23
FBRXINV COMPRX+2~, COMPRX+10*, COMPRX+11, COMPRX+13, COMPRX+15
FBVEN COMPRX+2~, COMPRX+11*, COMPRX+12, COMPRX+16, COMPRX+17, COMPRX+30
FBVENAME PRINT+3~, PRINT+12*, PRINT+15, PRINT+16, PRINT+18, PRINT+35, EXCELN~, EXCELN+5, HDR+25, HDR+26
, HDR+28, COMPRX+2~, COMPRX+16*, COMPRX+25, COMPRX+36, COMPRX+37
FBVENID COMPRX+2~, COMPRX+17*, COMPRX+30
FBY0 COMPRX+2~, COMPRX+20*
FBY2 COMPRX+2~, COMPRX+21*, COMPRX+26, COMPRX+27, COMPRX+34, COMPRX+35
FBY6 COMPRX+2~, COMPRX+22*, COMPRX+24
FBYREJ COMPRX+2~, COMPRX+23*, COMPRX+28
FBZ EXCELN+4~, EXCELN+5*, EXCELN+6*, EXCELN+7*, EXCELN+8*, EXCELN+9*, EXCELN+10*, EXCELN+11*, EXCELN+12*, EXCELN+13*
, EXCELN+14*, EXCELN+15*, EXCELN+16*, EXCELN+17
IOF HDR+8
IOSL PRINT+5*, PRINT+20, PRINT+38, PRINT+47, PRINT+53
IOST PRINT+4
ITSTR PRINT+3~, PRINT+6*, HDR+22, ITSTR+2~, ITSTR+3*, ITSTR+4*, ITSTR+8*, ITSTRX+1
ITX ITSTR+2~, ITSTR+6*, ITSTR+7
PAGE PRINT+3~, PRINT+6*, HDR+5, HDR+8, HDR+11, HDR+13*, HDR+21
RPTG PRINT+3~, PRINT+13!, PRINT+16*, PRINT+18, PRINT+22, PRINT+23, PRINT+24, PRINT+25, PRINT+26, PRINT+27
, PRINT+28, PRINT+29, PRINT+30, EXCELN~, EXCELN+6, EXCELN+8, EXCELN+9, EXCELN+10, EXCELN+11, EXCELN+12
, EXCELN+13, EXCELN+14, EXCELN+15, EXCELN+16, HDR+27
RPTT PRINT+3~, PRINT+35*, PRINT+41, PRINT+42, PRINT+43, PRINT+44, PRINT+48
SEPLINE PRINT+3~, PRINT+6*, HDR+35
STRING CSV~, CSV+2*, CSV+3
TXT ITSTR+2~, ITSTR+7*, ITSTR+8
U PRINT+22, PRINT+23, PRINT+24, PRINT+25, PRINT+26, PRINT+27, PRINT+28, PRINT+29, PRINT+30, PRINT+41
, PRINT+42, PRINT+43, PRINT+44, PRINT+48, EXCELN+6, EXCELN+8, EXCELN+9, EXCELN+10, EXCELN+11, EXCELN+12
, EXCELN+13, EXCELN+14, EXCELN+15, EXCELN+16, HDR+27, HDR+28, COMPRX+11, COMPRX+13, COMPRX+15, COMPRX+16
, COMPRX+17, COMPRX+24, COMPRX+26, COMPRX+27, COMPRX+28, COMPRX+30, COMPRX+31, COMPRX+32, COMPRX+33, COMPRX+34
, COMPRX+35
VENID HDR+2~, HDR+27*, HDR+28*, HDR+29
X PRINT+3~, HDR+2~
Y PRINT+3~, HDR+2~, HDR+5
Z HDR+2~, HDR+28*
>> ZTQUEUED PX+1, HDR+38
>> ZTSTOP PRINT+8, HDR+39*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All