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 |