; Check Invoice for EDI
; Input
; FBFPPSC0 - old FPPS CLAIM ID
; FBFPPSC1 - new FPPS CLAIM ID
; FBAAIN - invoice number
; FBIENSE - optional, iens of line on invoice that was already edited
; Result
; Lines on invoice may be updated (FPPS CLAIM ID, FPPS LINE ITEM)
; Medical Invoice Line List
; Input
; FBAAIN - invoice #
; FBMILL - array, passed by reference
; Result
;
; Output
; FBMILL - input array will be updated to contain
; FBMILL(0)=FBC
; FBMILL(FBI)=FBIENS
; Where
; FBC = number of lines on invoice
; FBI = integer number
; FBIENS = internal entry number of line item (subfile 162.03),
; fileman DBS format
;
; Enter/Edit IPAC information for all payment types (FB*3.5*123)
; FBDD - required input. Either 162.03 for Outpatient/Ancillary, or 162.1 for Pharmacy, or 162.5 for Inpatient
; FBDA - required input. This is the DA(n) array specifying the record to be edited. Note in the case of Inpatient
; invoices, there is no array but rather the ien to file 162.5.
; WHICH- Optional input. Null to ask both IPAC Agreement and DOD Invoice Number
; 1 - Just ask for IPAC Agreement
; 2 - Just ask for DOD Invoice #
; Output
; FBIA - ien to file 161.95 - IPAC agreement ien. Pass by reference to get this value back if needed. Note the FBIA
; value will be retrieved from the database in this subroutine.
; FBDODINV - DoD invoice#. Pass by reference to get this value back if needed. Note the FBDODINV value will be
; retrieved from the database in this subroutine.