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 |