IBCNES4 ;ALB/JNM - eIV elig/Benefit screen ; 06/08/2016
Source file <IBCNES4.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| EN | ; entry point for IBCNB ELIG PAYER SUMMARY action protocol
 | 
|
| ENX | ;
 | 
|
| HDR | ; -- header code
 | 
|
| INIT0(IBVF,IBVIENS,IBSUBID,IBNOLBL) | ; -- Used by IBCNBCD to fetch data
 | 
|
| INIT(IBSUBID) | ; -- init variables and list array
 | 
|
| INITX | ;
 | 
|
| INIT2(IBVF) | ; allows changing IBVF just for this routine
 | 
|
| WAITING | ;
 | 
|
| NODATA | ; display no data found
 | 
|
| GETQUAL(QREC) | ; Return Communication Qualifier text
 | 
|
| SET2(LABEL,DATA,IBVV,COLUMN) | ; Update previous line at COL2
 | 
|
| SET4(LABEL,DATA) | ; print on column 4 if data is not blank
 | 
|
| SET1(LABEL,DATA,IBVV,COLUMN) | ; Set next line at COL1
 | 
|
| SETSTART | ;
 | 
|
| SETX | ;
 | 
|
| HELP | ; -- help code
 | 
|
| EXIT | ; -- exit code
 | 
|
| EXPND | ; -- expand code
 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
  | 
| FileNo | Call Tags | 
|---|---|
| 2.312 | GET1^DIQ | 
| ^IBE(365.021 - [#365.021] | GET1^DIQ |