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

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)

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

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