FBRXFR ;WOIFO/SAB-FILE REMITTANCE REMARKS FOR PHARMACY PAYMENT ;7/17/2003
Source file <FBRXFR.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.11 ; 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(#)=FBRRMKC ; where ; # = 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.11 ; 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 PHARMACY INVOICE (#162.1),
; ADJUSTMENT (#162.11,37), ADJUSTMENT REASON (162.14, .01) ; to delete REMITTANCE REMARK (#162.11,38) entries associated ; with adjustment reasons being deleted. |
