IBJTAD ;ALB/TJB - TP ERA/835 ADDITIONAL INFORMATION SCREEN ;01-MAY-2015
Source file <IBJTAD.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; -- main entry point for IBJT ADDITIONAL 835 DATA
|
|
HDR | ; -- header code
|
|
INIT | ; -- init variables and list array
|
|
IN1 | ;
|
|
IN2 | ;
; Get IEN pointing back to 361.1 & Rendering/Servicing Provider information |
|
INITQ | ||
HELP | ; -- help code
|
|
EXIT | ; -- exit code
|
|
EXPND | ; -- expand code
|
|
CCS(DATA) | ; Build code array
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^RCY(344.4 - [#344.4] | GETS^DIQ |
344.41 | FIND^DIC |
^IBM(361.1 - [#361.1] | GETS^DIQ |