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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: FBAAIAR

Package: Fee Basis

Routine: FBAAIAR


Information

FBAAIAR ;ALB/ESG - FEE IPAC Vendor DoD Invoice (Summary) Report ;1/16/2014

Source Information

Source file <FBAAIAR.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 4 ^%ZISC  ($$FMADD,$$FMTE)^XLFDT  $$LJ^XLFSTR  EN^XUTMDEVQ  
Fee Basis 1 (COMPRX,PRINT)^FBAAIARA  
Registration 1 FIRST^VAUTOMA  
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 FBAA IPAC DoD INVOICE RPT  FBAAIARA  

Entry Points

Name Comments DBIA/ICR reference
EN ; main report entry point
P1
P2
P3
P4
P5
EX ; main report exit point
STOP() ; Determine if user wants to exit out of the option entirely
; 1=yes, get out entirely
; 0=no, just go back to the previous question
VENDSEL(FBIAVEN) ; user selection function for IPAC vendors
; FBIAVEN is an output array, pass by reference
; FBIAVEN(vendor ien) = vendor name selected
; Function value is 1 if at least 1 vendor was selected, 0 otherwise
DATES(FBIABEG,FBIAEND) ; capture the start date and end date from the user
; both are output parameters, pass by reference
; function value is 0/1 indicating if valid dates were selected
DATEX ;
TYPESEL(FBIATYPE) ; function for user selection of the types of invoices to search
; FBIATYPE is an output array, pass by reference
; FBIATYPE(type)="" where type can be OUT,RX,INP,ANC
; Function value is 1 if at least 1 invoice type was selected, 0 otherwise
FORMAT(FBIAEXCEL) ; capture the report format from the user (normal or CSV output)
; FBIAEXCEL=0 for normal output
; FBIAEXCEL=1 for CSV (comma separated values) for Excel output
; pass parameter by reference
DEVICE() ; Device Selection
COMPILE ; entry point for the compile to build the scratch global
; may be background task if job queued
COMPILX ;
COMPOUT ; compile Outpatient and Ancillary data
COMPOUTX ;
COMPIN ; compile Inpatient data
COMPINX ;
GET(FBVENAME,FBDODINV) ; gather totals and other data for all Fee line items for the given vendor and DoD invoice#
; update the established scratch global with information
GETX ;
CKMLT(VAL,VALPCE,MLTPCE,NOVPCE) ; check for multiple/missing data values
; Variable FBDISGD is assumed to contain the contents of the scratch global
; VAL - value from the payment file to check
; VALPCE - piece# from the scratch global to check for multiple values
; MLTPCE - piece# of the scratch global to set if multiple values found
; NOVPCE - piece# of the scratch global to set if no data exists in VAL (optional)

External References

Name Field # of Occurrence
^%ZISC COMPILE+10
^DIR STOP+11, DATES+14, DATES+24, TYPESEL+20, FORMAT+15, DEVICE+18
COMPRX^FBAAIARA COMPILE+7
PRINT^FBAAIARA COMPILE+9
FIRST^VAUTOMA VENDSEL+18
$$FMADD^XLFDT DATES+10
$$FMTE^XLFDT DATES+10, DATES+20
$$LJ^XLFSTR TYPESEL+11, TYPESEL+12, TYPESEL+13, TYPESEL+14
EN^XUTMDEVQ DEVICE+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: STOP+11
Function Call: WRITE
  • Prompt: @IOF,!,"IPAC Vendor DoD Invoice Report"
  • Line Location: VENDSEL+9
Function Call: WRITE
  • Prompt: !!,"This report will display summary information on all of the DoD invoices"
  • Line Location: VENDSEL+10
Function Call: WRITE
  • Prompt: !,"for the selected IPAC vendors, within the selected date range, and for"
  • Line Location: VENDSEL+11
Function Call: WRITE
  • Prompt: !,"the selected payment types."
  • Line Location: VENDSEL+12
Function Call: WRITE
  • Prompt: !
  • Line Location: VENDSEL+13
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: VENDSEL+20
Function Call: WRITE
  • Prompt: !
  • Line Location: DATES+14
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: DATES+15
Function Call: WRITE
  • Prompt: !
  • Line Location: DATES+24
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: DATES+25
Function Call: WRITE
  • Prompt: !
  • Line Location: TYPESEL+20
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: TYPESEL+31
Function Call: WRITE
  • Prompt: !
  • Line Location: FORMAT+15
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: FORMAT+16
Function Call: WRITE
  • Prompt: !!,"This report is 132 characters wide. Please choose an appropriate device.",!
  • Line Location: DEVICE+3
Function Call: WRITE
  • Prompt: !!,"For CSV output, turn logging or capture on now."
  • Line Location: DEVICE+5
Function Call: WRITE
  • Prompt: !,"To avoid undesired wrapping of the data saved to the file,"
  • Line Location: DEVICE+6
Function Call: WRITE
  • Prompt: !,"please enter ""0;256;99999"" at the ""DEVICE:"" prompt.",!
  • Line Location: DEVICE+7
Function Call: WRITE
  • Prompt: !!,"Report compilation has started with task# ",ZTSK,".",!
  • Line Location: DEVICE+18
Function Call: WRITE
  • Prompt: !!,"Compiling IPAC Vendor DoD Invoice Report. Please wait ... "
  • Line Location: COMPILE+4
Routine Call
  • DIR
  • Line Location:
    • STOP+11
    • DATES+14
    • DATES+24
    • TYPESEL+20
    • FORMAT+15
    • DEVICE+18

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBAAV - [#161.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FBAA(161.7 - [#161.7] COMPOUT+27, COMPOUT+28, COMPIN+21, COMPIN+22, GET+28, GET+29, GET+50, GET+51, GET+72, GET+73
^FBAA(161.95 - [#161.95] VENDSEL+19
^FBAA(162.1 - [#162.1] GET+57, GET+58, GET+59, GET+60, GET+67
^FBAAC - [#162] COMPOUT+12, COMPOUT+16, COMPOUT+17, COMPOUT+18, GET+14, GET+15, GET+16, GET+23
^FBAAC("AK" COMPOUT+3, COMPOUT+4, COMPOUT+5, COMPOUT+6, COMPOUT+10, COMPOUT+11
^FBAAC("DODI" GET+13
^FBAAI - [#162.5] COMPIN+5, COMPIN+6, COMPIN+7, COMPIN+8, GET+36, GET+37, GET+38, GET+45
^FBAAI("AD" COMPIN+3, COMPIN+4
^FBAAI("DODI" GET+35
^FBAAV - [#161.2] VENDSEL+19, COMPOUT+8, COMPOUT+9, COMPIN+12, COMPIN+13
^TMP("FBAAIAR" COMPILE+3!, COMPILE+11!, COMPOUT+20, COMPOUT+31*, COMPIN+14, COMPIN+25*, GET+9, GET+10, GET+83*, GET+91*

Label References

Name Line Occurrences
$$DATES P2
$$DEVICE P5
$$FORMAT P4
$$STOP P2, P3, P4, P5
$$TYPESEL P3
$$VENDSEL P1
CKMLT GET+27, GET+28, GET+29, GET+30, GET+31, GET+49, GET+50, GET+51, GET+52, GET+53
, GET+71, GET+72, GET+73, GET+74, GET+75
COMPIN COMPILE+6
COMPOUT COMPILE+5
DATEX DATES+15, DATES+25
EX P1, P2, P3, P4, P5
GET COMPOUT+32, COMPIN+26
GETX GET+5, GET+6
P1 P2
P2 P3
P3 P4
P4 P5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADJTOT GET+3~, GET+8*, GET+23*, GET+45*, GET+67*, GET+81, GET+89
CLAIMED GET+3~, GET+8*, GET+20*, GET+42*, GET+64*, GET+79, GET+87
DATA COMPOUT+2~, COMPOUT+25*, COMPOUT+26*, COMPOUT+27*, COMPOUT+28*, COMPOUT+29*, COMPOUT+30*, COMPOUT+31, COMPIN+2~, COMPIN+19*
, COMPIN+20*, COMPIN+21*, COMPIN+22*, COMPIN+23*, COMPIN+24*, COMPIN+25
DIC VENDSEL+5~, VENDSEL+15*
DIC("S" VENDSEL+16*
DIR STOP+4~, STOP+11!, DATES+4~, DATES+14!, DATES+24!, TYPESEL+5~, TYPESEL+20!, FORMAT+5~, FORMAT+15!, DEVICE+1~
DIR("?" STOP+9*, STOP+10*, DATES+11*, DATES+12*, DATES+13*, DATES+21*, DATES+22*, DATES+23*, FORMAT+10*, FORMAT+11*
, FORMAT+12*, FORMAT+13*, FORMAT+14*
DIR("A" STOP+7*, DATES+9*, DATES+19*, TYPESEL+18*, TYPESEL+19*, FORMAT+8*
DIR("B" STOP+8*, DATES+10*, DATES+20*, TYPESEL+18*, TYPESEL+19!, FORMAT+9*
DIR(0 STOP+6*, DATES+8*, DATES+18*, TYPESEL+10*, TYPESEL+16*, FORMAT+7*, DEVICE+18*
DIROUT STOP+4~, DATES+4~, TYPESEL+5~, FORMAT+5~
DIRUT STOP+4~, STOP+12, DATES+4~, DATES+15, DATES+25, TYPESEL+5~, TYPESEL+9, TYPESEL+25, FORMAT+5~, FORMAT+16
DISBURSED GET+3~, GET+8*, GET+22*, GET+44*, GET+66*, GET+82, GET+90
DT DATES+10, DATES+20
DTOUT STOP+4~, DATES+4~, TYPESEL+5~, TYPESEL+30, FORMAT+5~
DUOUT STOP+4~, DATES+4~, TYPESEL+5~, TYPESEL+30, FORMAT+5~
FBDISGD GET+3~, GET+9*, GET+79*, GET+80*, GET+81*, GET+82*, GET+83, CKMLT+7*, CKMLT+8*
FBDODINV COMPOUT+2~, COMPOUT+19*, COMPOUT+20, COMPOUT+31, COMPOUT+32, COMPIN+2~, COMPIN+9*, COMPIN+14, COMPIN+25, COMPIN+26
, GET~, GET+6, GET+9, GET+13, GET+35, GET+57, GET+83
FBDT COMPOUT+2~, COMPOUT+3*, COMPOUT+4*, COMPOUT+5, COMPOUT+6, COMPOUT+10, COMPOUT+11, COMPOUT+25, COMPIN+2~, COMPIN+3*
, COMPIN+4*, COMPIN+19
FBG0 GET+3~, GET+14*, GET+18, GET+20, GET+21, GET+27, GET+28, GET+29, GET+30, GET+36*
, GET+40, GET+42, GET+43, GET+49, GET+50, GET+51, GET+58*, GET+64, GET+65, GET+72
, GET+73
FBG2 GET+3~, GET+15*, GET+17, GET+22, GET+31, GET+37*, GET+39, GET+44, GET+52, GET+53
, GET+59*, GET+61, GET+62, GET+66, GET+74, GET+75
FBGREJ GET+3~, GET+16*, GET+19, GET+38*, GET+41, GET+60*, GET+63
FBIABEG EN+2~, P2, DATES~, DATES+6*, DATES+16*, DATES+18, COMPOUT+3, COMPIN+3
FBIAEND EN+2~, P2, DATES~, DATES+6*, DATES+26*, COMPOUT+4, COMPIN+4
FBIAEXCEL EN+2~, P4, FORMAT~, FORMAT+6*, FORMAT+17*, DEVICE+3, DEVICE+4
FBIATYPE EN+2~, P3, TYPESEL~, TYPESEL+6!, TYPESEL+18, TYPESEL+31
FBIATYPE( TYPESEL+23*, TYPESEL+26!, TYPESEL+27*
FBIATYPE("ANC" TYPESEL+14, COMPILE+5, COMPOUT+15
FBIATYPE("INP" TYPESEL+13, COMPILE+6
FBIATYPE("OUT" TYPESEL+11, COMPILE+5, COMPOUT+14
FBIATYPE("RX" TYPESEL+12, COMPILE+7
FBIAVEN EN+2~, P1, VENDSEL~, VENDSEL+6!, VENDSEL+19
FBIAVEN( VENDSEL+19*, COMPOUT+7, COMPIN+11
FBIAVEN(0 VENDSEL+20
FBJ COMPOUT+2~, COMPOUT+5*, COMPOUT+6, COMPOUT+10, COMPOUT+11, COMPOUT+12, COMPOUT+16, COMPOUT+17, COMPOUT+18, COMPIN+2~
, COMPIN+4*, COMPIN+5, COMPIN+6, COMPIN+7, COMPIN+8
FBK COMPOUT+2~, COMPOUT+6*, COMPOUT+7, COMPOUT+8, COMPOUT+9, COMPOUT+10, COMPOUT+11, COMPOUT+12, COMPOUT+16, COMPOUT+17
, COMPOUT+18, COMPOUT+25
FBL COMPOUT+2~, COMPOUT+10*, COMPOUT+11, COMPOUT+12, COMPOUT+16, COMPOUT+17, COMPOUT+18
FBM COMPOUT+2~, COMPOUT+11*, COMPOUT+12, COMPOUT+16, COMPOUT+17, COMPOUT+18
FBTT GET+3~, GET+10*, GET+86*, GET+87*, GET+88*, GET+89*, GET+90*, GET+91
FBV COMPIN+2~, COMPIN+10*, COMPIN+11, COMPIN+12, COMPIN+13, COMPIN+19
FBVENAME COMPOUT+2~, COMPOUT+8*, COMPOUT+20, COMPOUT+31, COMPOUT+32, COMPIN+2~, COMPIN+12*, COMPIN+14, COMPIN+25, COMPIN+26
, GET~, GET+5, GET+9, GET+10, GET+83, GET+91
FBVENID COMPOUT+2~, COMPOUT+9*, COMPOUT+25, COMPIN+2~, COMPIN+13*, COMPIN+19
FBY0 COMPOUT+2~, COMPOUT+12*, COMPOUT+13, COMPOUT+22, COMPOUT+26, COMPOUT+27, COMPOUT+28, COMPOUT+29, COMPIN+2~, COMPIN+5*
, COMPIN+10, COMPIN+16, COMPIN+20, COMPIN+21, COMPIN+22
FBY2 COMPOUT+2~, COMPOUT+16*, COMPOUT+21, COMPOUT+30, COMPIN+2~, COMPIN+6*, COMPIN+15, COMPIN+23, COMPIN+24
FBY3 COMPOUT+2~, COMPOUT+17*, COMPOUT+19
FBY5 COMPIN+2~, COMPIN+7*, COMPIN+9
FBYREJ COMPOUT+2~, COMPOUT+18*, COMPOUT+23, COMPIN+2~, COMPIN+8*, COMPIN+17
FD TYPESEL+5~, TYPESEL+11*, TYPESEL+12*, TYPESEL+13*, TYPESEL+14*, TYPESEL+15*, TYPESEL+16
FEEPROG COMPOUT+2~, COMPOUT+13*, COMPOUT+14, COMPOUT+15
G TYPESEL+5~, TYPESEL+23*
IOF VENDSEL+9
K GET+3~, GET+13*, GET+14, GET+15, GET+16, GET+23, GET+35*, GET+36, GET+37, GET+38
, GET+45, GET+57*, GET+58, GET+59, GET+60, GET+67, GET+71
L GET+3~, GET+13*, GET+14, GET+15, GET+16, GET+23, GET+57*, GET+58, GET+59, GET+60
, GET+67
M GET+3~, GET+13*, GET+14, GET+15, GET+16, GET+23
MLTPCE CKMLT~, CKMLT+7
N GET+3~, GET+13*, GET+14, GET+15, GET+16, GET+23
NOVPCE CKMLT~, CKMLT+8
P GET+3~, GET+23*, GET+45*, GET+67*
PAID GET+3~, GET+8*, GET+21*, GET+43*, GET+65*, GET+80, GET+88
POP DEVICE+1~, DEVICE+17
RET VENDSEL+5~, VENDSEL+7*, VENDSEL+20*, VENDSEL+21, DATES+4~, DATES+5*, DATES+15*, DATES+25*, DATEX+1, TYPESEL+5~
, TYPESEL+7*, TYPESEL+30*, TYPESEL+31*, TYPESEL+32, FORMAT+5~, FORMAT+6*, FORMAT+16*, FORMAT+18, DEVICE+1~, DEVICE+2*
, DEVICE+17*, DEVICE+19
U VENDSEL+19, TYPESEL+16, COMPOUT+8, COMPOUT+9, COMPOUT+13, COMPOUT+19, COMPOUT+21, COMPOUT+22, COMPOUT+23, COMPOUT+25
, COMPOUT+26, COMPOUT+27, COMPOUT+28, COMPOUT+29, COMPOUT+30, COMPIN+9, COMPIN+10, COMPIN+12, COMPIN+13, COMPIN+15
, COMPIN+16, COMPIN+17, COMPIN+19, COMPIN+20, COMPIN+21, COMPIN+22, COMPIN+23, COMPIN+24, GET+17, GET+18
, GET+19, GET+20, GET+21, GET+22, GET+23, GET+27, GET+28, GET+29, GET+30, GET+31
, GET+39, GET+40, GET+41, GET+42, GET+43, GET+44, GET+45, GET+49, GET+50, GET+51
, GET+52, GET+53, GET+61, GET+62, GET+63, GET+64, GET+65, GET+66, GET+67, GET+72
, GET+73, GET+74, GET+75, GET+79, GET+80, GET+81, GET+82, GET+86, GET+87, GET+88
, GET+89, GET+90, CKMLT+7, CKMLT+8
V VENDSEL+5~, VENDSEL+19*
VAL CKMLT~, CKMLT+7, CKMLT+8
VALPCE CKMLT~, CKMLT+7
VAUTNI VENDSEL+5~, VENDSEL+17*
VAUTSTR VENDSEL+5~, VENDSEL+17*
VAUTVB VENDSEL+5~, VENDSEL+17*
X STOP+4~, VENDSEL+5~, DATES+4~, TYPESEL+5~, FORMAT+5~, DEVICE+1~
Y STOP+4~, STOP+12*, STOP+13, VENDSEL+5~, DATES+4~, DATES+15, DATES+16, DATES+25, DATES+26, TYPESEL+5~
, TYPESEL+9, TYPESEL+22, TYPESEL+25, TYPESEL+26, TYPESEL+27, FORMAT+5~, FORMAT+17, DEVICE+1~
ZTDESC DEVICE+1~, DEVICE+10*, DEVICE+16
>> ZTQUEUED COMPILE+4, COMPILE+12
>> ZTREQ COMPILE+12*
ZTRTN DEVICE+1~, DEVICE+9*, DEVICE+16
ZTSAVE DEVICE+1~, DEVICE+16
ZTSAVE("FBIABEG" DEVICE+12*
ZTSAVE("FBIAEND" DEVICE+13*
ZTSAVE("FBIAEXCEL" DEVICE+15*
ZTSAVE("FBIATYPE(" DEVICE+14*
ZTSAVE("FBIAVEN(" DEVICE+11*
ZTSK DEVICE+1~, DEVICE+18
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All