RCXFMST1 ;ALB/TMK-EDI Lockbox fms transfer (tr) cd sht gen ;31 Mar 03
Source file <RCXFMST1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETTR(RCRECTDA,RCGECSDA) | ; extract transfer data for TR code sheet for
; a receipt in rcrectda ; rcgecsda is the ien for the gcs stack file 2100.1 for rebuilds |
|
| QUIT | ||
| BUILDTR(RCTRANS,RCDETAIL,RCGECSDA,TRANNUMB,RCRECTDA) | ; generate a tr code
; sheet for transferring dollars out of 528704/8NZZ |
|
| DEC(COUNT,FISCALYR,TRANNUMB,AMOUNT) | ; Add decrease from 528704/8NZZ
; Returns LINE with decrease TR info ; FISCALYR/TRANNUMB from above ; COUNT = line counter ; AMOUNT = amount to be transferred |
|
| TRFUND() | ; Determine if fund should be 5287 or 528704, based on date
|
