IBCECOB1 ;ALB/CXW - IB COB MANAGEMENT SCREEN/REPORT ;14-JUN-99
Source file <IBCECOB1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BLD | ; Build list entrypoint
|
|
| BLD1 | ;
|
|
| HIS(IBIFN) | ; COB history
|
|
| NMAT | ;No COB list
|
|
| SCRN | ;
|
|
| SET(X,CNT,IBIFN,IBDA,IBQ,IB364,IBX,IB) | ;set up list manager screen array
|
|
| FTYPE(Y) | ;type classification
|
|
| PTRESPI(IBEOB) | ; Function - Computes the Patient's Responsibility based on IBEOB
; of 361.1 for Claims/Bills with form type 3=UB ; Input IBEOB - a single EOB ien; Required ; Output - Function Returns IBPTRES - Patient Responsibility Amount for the EOB |
|
| ELIG(IBEOB) | ; Function to determine if an EOB entry is eligible for
; inclusion on the MRA or COB management worklist or not. ; IBEOB - ien into file 361.1 (required) ; Returns 1 if EOB should appear on the worklist ; Returns 0 if EOB should not appear on the worklist ; Returns -1 if EOB contains Message Storage Errors |
|
| ELIGX | ;
|
|
| WLRMV | ; REMOVE FROM EOB WORK LIST
; IBDA(IBDA)=IBIFN^IB364^ien of 361.1^user selection seq^user name~duz# |
|
| WLRMVF(IBIFN,METHOD,BKFL) | ;
; BFKL = 1 means background process, remove NOT initiated by a user |
| FileNo | Call Tags |
|---|---|
| ^IBM(361.1 - [#361.1] | EXTERNAL^DILFD |
| ^DGCR(399 - [#399] | Classic Fileman Calls, FIELD^DID, GET1^DIQ |
| ^DG(40.8 - [#40.8] | GET1^DIQ |
