FBAAV01 ;AISC/GRR - ELECTRONICALLY TRANSMIT FEE DATA CONTINUED ;6/15/2009
Source file <FBAAV01.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
NEWMSG | ;get new message number, reset line counter
|
|
XMIT | ;send message, increment message counter
|
|
ROUT | ;set up recipients for message
|
|
INCRM | ;increment message counter
|
|
INCRL | ;increment line counter
|
|
STORE | ;set message string
|
|
ADDRESS | ;set up recipient array, FBXMFEE( for FEE router, FBXMNVP( for NVP router
|
|
ADDQ | ||
CKB3V | ||
CKB5V | ||
CKB9V | ||
CHKV | ||
STRING | ; called from FBAAV0 to build 'B3' payment record; also called by DSIFPAY5 (FBCS) with DBIA# 5093
|
|
PADZ(X,Y) | ;call to pad 'X' with leading zeros' to a field length of 'Y'
|
|
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 | ;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|