FBAAFR ;WOIFO/SAB-FILE REMITTANCE REMARKS FOR MEDICAL/ANC PAYMENT ;7/16/2003
Source file <FBAAFR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FILERR(FBIENS,FBRRMK) | ; File Remittance Remakrs
|
|
| GETADJI(ADJI,FBDA) | ; get correct DA from ADJUSTMENT multiple
|
|
| LOADRR(FBIENS,FBRRMK) | ; Load Remittance Remarks
; Input ; FBIENS - required, internal entry numbers for subfile 162.03 ; in standard format as specified for FileMan DBS calls ; FBRRMK - required, array passed by reference ; array to load adjustments into ; Output ; FBRRMK - the FBRRMK input array passed by reference will be modified ; format ; FBRRMK(ADJI,#)=FBRRMKC ; where ; ADJI = ADJUSTMENT REASON IEN ; # = sequentially assigned number starting with 1 ; FBRRMKC = remittance remark (internal value file 162.93) ; if no remarks are on file then the array will be undefined |
|
| RRL(FBIENS) | ; Remittance Remarks List Extrinsic Function
; Input ; FBIENS - required, internal entry numbers for subfile 162.03 ; in standard format as specified for FileMan DBS calls ; Result ; string containing sorted list (by external code) of remarks ; format ; FBRRMKCE 1, FBRRMKCE 2 ; where ; FBRRMKCE = remittance remark code (external value) |
|
| KILLRR(X,DA) | ; Called from FEE BASIS PAYMENT (#162),
; ADJUSTMENT (#162.03,52), ADJUSTMENT REASON (162.07, .01) ; to delete remittance remarks associated with adjustment ; reasons being deleted. |
|
| FILERRCP(FBIENS,FBRRMK) | ; File Remittance Remakrs
|
