FBPAID3 ;DSS/SCR - Utilities to support FEE BASIS PAID TO IB Process ;3/28/1012
Source file <FBPAID3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| IBALLWD() | ||
| ADDONE(FBPROG,FBIEN,FBPAT,FBDATE) | ;EP FROM FBPAID
; INPUT : FBPROG : "3" FOR OUTPATIENT, "9" FOR INPATIENT ; FBIEN : AN ARRAY SET UP FROM THE PARSING ROUTINE IN FBPAID1 ; FBPAT : POINTER TO THE PATIENT FILE ; FBDATE : DATE OF MM MESSAGE FROM CENTRAL FEE PROCESSING |
|
| EPFBTOIB(FBDATEIN) | ;EP FROM FB PAID TO IB OPTION
; INPUT : FBDATEIN - OPTIONAL and not supplied by the OPTION if sent ; this should be 'DATE OF LAST GOOD RUN' ; - all dates after this date will be re-processed in the ; FEE BASIS PAID TO IB file ; |
|
| CLEANUP(FBDATE) | ;delete entries from 161.9 older than 180 days from FBDATE
; INPUT : FBDATE - Today's date |
|
| SCRUB2IB(FBDATE) | ; process entries in 161.9 for this process date
|
|
| SETFB2IB(FBIEN,FBARRY) | ||
| GETFB2IB(FBIEN,FBARRY) | ||
| DELFB2IB(FBIEN) | ||
| FBSC(FBDFN) | ; returns 1 if service connection indicated, 0 otherwise (based on VAEL(3))
; INPUT : FBDFN - ien to the PATIENT file |
|
| GETFBINV(FBINVIEN,FBINVARY) | ||
| GETFBPAY(FBPAYIEN,FBPAYARY) |
| FileNo | Call Tags |
|---|---|
| ^FBAA(161.4 - [#161.4] | GET1^DIQ |
| ^FB(161.9 - [#161.9] | Classic Fileman Calls, GET1^DIQ, GETS^DIQ |
| 162.01 | GETS^DIQ |
| 162.02 | GETS^DIQ |
| 162.03 | GETS^DIQ |
| ^FBAAI - [#162.5] | GETS^DIQ |
| 162.579 | GETS^DIQ |
