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

Package: Fee Basis

Routine: FBAAV01


Information

FBAAV01 ;AISC/GRR - ELECTRONICALLY TRANSMIT FEE DATA CONTINUED ;6/15/2009

Source Information

Source file <FBAAV01.m>

Entry Points

Name Comments DBIA/ICR reference
NEWMSG ;get new message number, reset line counter
  • ICR #5093
    • Status: Retired
    • Usage: Controlled Subscription
    XMIT ;send message, increment message counter
  • ICR #5093
    • Status: Retired
    • Usage: Controlled Subscription
    ROUT ;set up recipients for message
    INCRM ;increment message counter
    INCRL ;increment line counter
    STORE ;set message string
  • ICR #5093
    • Status: Retired
    • Usage: Controlled Subscription
    ADDRESS ;set up recipient array, FBXMFEE( for FEE router, FBXMNVP( for NVP router
  • ICR #5093
    • Status: Retired
    • Usage: Controlled Subscription
    ADDQ
    CKB3V
    CKB5V
    CKB9V
    CHKV
    STRING ; called from FBAAV0 to build 'B3' payment record; also called by DSIFPAY5 (FBCS) with DBIA# 5093
  • ICR #5093
    • Status: Retired
    • Usage: Controlled Subscription
    PADZ(X,Y) ;call to pad 'X' with leading zeros' to a field length of 'Y'
  • ICR #5093
    • Status: Retired
    • Usage: Controlled Subscription
    IPAC(K,L,M,N,FBIA,FBDODINV) ; set IPAC variables if being called from FBCS
    ; K - 162.03 subscript#1 - DFN
    ; L - 162.03 subscript#2 - vendor ien
    ; M - 162.03 subscript#3 - treatment date subfile ien
    ; N - 162.03 subscript#4 - service provided subfile ien
    ; Output:
    ; FBIA - formatted IPAC agreement ID# (pass by reference) - will be 10 characters in length
    ; FBDODINV - formatted DoD invoice# (pass by reference) - will be 22 characters in length
    IPACX ;

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,*7,"VENDOR: ",$$VNAME^FBNHEXP(FB2)," Not approved in Austin yet.",!,"Batch # ",FBAABN," CANNOT BE TRANSMITTED!!!"
    • Line Location: CHKV+0
    Info |  Source |  Entry Points |  Interaction Calls