RCXFMSC1 ;WISC/RFJ-fms cash receipt (cr) build lines ;1 Oct 97
Source file <RCXFMSC1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FMSLINES(RECEIPDA,RCTR) | ; receipda is the ien for the receipt in file 344
; return total(fund,revsrce,vendorid,fmstrantype) = dollar amount ; RCTR = 1 if extracting for a TR document, null or 0 if for CR |
|
| INTADMIN | ; check for interest and admin charges
|
|
| TOTAL(AMOUNT) | ; accumulate totals for summary document
|
|
| SETTMP | ; set the tmp global for detailed data by bill
; the tmp global is used by the 215 report (rcy215a) |
|
| GETTYPE(BILLDA,RCTR) | ; return a bills fms transaction type (which goes on the CRA code
; sheet) from the field 259 refund/reimbursement in file 430. ; If RCTR = 1, return TR code, otherwise return CR code |
|
| LINE(BILLDA) | ;
|
| FileNo | Call Tags |
|---|---|
| ^PRCA(430 - [#430] | GET1^DIQ |
