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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: FBAAIARB

Package: Fee Basis

Routine: FBAAIARB


Information

FBAAIARB ;ALB/ESG - FEE IPAC Vendor Payment Report (Detail) ;2/4/2014

Source Information

Source file <FBAAIARB.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; main report entry point
P1
P2
P3
P4
P5
P6
P7
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
SUSPADJ(FBIAADJ) ; capture only suspended payments?
; FBIAADJ=0 meaning NO user wants to include all payment lines
; FBIAADJ=1 meaning YES only include payments where Amount Paid is less than Amount Claimed
; pass parameter by reference
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
IGNCV(FBIAIGNORE) ; should we ignore cancelled, voided, or rejected line items?
; FBIAIGNORE=0 means don't ignore, include everything
; FBIAIGNORE=1 means yes ignore cancelled/voided/rejected line items
; pass parameter by reference
DEVICE() ; Device Selection

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: STOP+11
Function Call: WRITE
  • Prompt: @IOF,!,"IPAC Vendor Payment Report"
  • Line Location: VENDSEL+9
Function Call: WRITE
  • Prompt: !!,"This report will display detail information on paid line items by the"
  • Line Location: VENDSEL+10
Function Call: WRITE
  • Prompt: !,"invoice type, DoD invoice number, and date of service."
  • Line Location: VENDSEL+11
Function Call: WRITE
  • Prompt: !
  • Line Location: VENDSEL+12
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: VENDSEL+19
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: SUSPADJ+16
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: SUSPADJ+17
Function Call: WRITE
  • Prompt: !
  • Line Location: FORMAT+15
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: FORMAT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: IGNCV+16
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: IGNCV+17
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+20

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBAAV - [#161.2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call