IBTRC ;ALB/AAS - CLAIMS TRACKING INSURANCE REVIEWS ; 27-JUN-1993
Source file <IBTRC.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; -- main entry point for IBT COMMUNICATIONS EDITOR from menu's
|
|
ENQ | ||
HDR | ; -- header code
|
|
INIT | ; -- init variables and list array
|
|
BLD | ; -- Build list of Insurnace contacts
|
|
SET(X) | ; -- set arrays
|
|
HELP | ; -- help code
|
|
EXIT | ; -- exit code
|
|
AUTHN(IBTRC,LNG) | ; -- return autorization number (356.2, 2.02) - length and append *
|
|
CREFN(IBTRC,LNG) | ; -- return call reference number (356.2, 2.01) - length and append *
|
|
TYPE(IBTRC) | ; -- compute default type of contact
|
|
TYPEQ | ||
TCODE(IBTRC) | ; -- return type code for entry
|
|
CONTCT(DA,Y) | ; -- screen for type of contact
; -- called by dic(s) on lookup of type of contact field in 356.2 |
|
CONTQ |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|