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 |