IBJTEP ;ALB/TJB - TP ERA/835 INFORMATION SCREEN ;20 Dec 2018 14:47:23
Source file <IBJTEP.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; -- main entry point for IBJT ERA 835 INFORMATION
|
|
| HDR | ; -- header code
|
|
| INIT | ; -- init variables and list array
|
|
| INITQ | ||
| HELP | ; -- help code
|
|
| EXIT | ; -- exit code
|
|
| EXPND | ; -- expand code
|
|
| PUSH(VAR,VALUE) | ;
|
|
| SET(LINE,DATA) | ; -- set arrays
; LINE = line number passed by reference ; DATA = string to add to displayed data |
|
| EOBDET(EPIEN,TYPE,EOBCT,IBEBERA,ERAIEN) | ; Add EOB detail to List Manager Array
; Input: EPIEN - Internal entry number to file 361.1 ; TYPE - 0 - EEOB associated with an ERA, 1 - Copied EOB created by split/edit or link payment ; EOBCT - Count# of this EOB within the ERA ; IBEBERA - Number of EOBs for this bill in this ERA ; ERAIEN - Internal entry number from file 344.4 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^RCY(344.4 - [#344.4] | GET1^DIQ, GETS^DIQ |
| 344.41 | GET1^DIQ |
| ^RC(345 - [#345] | FIND1^DIC, GET1^DIQ |
| ^RC(345.1 - [#345.1] | FIND1^DIC, GET1^DIQ |
| ^RC(346 - [#346] | FIND1^DIC, GET1^DIQ |
| ^IBM(361.1 - [#361.1] | GET1^DIQ, GETS^DIQ |
| 361.1101 | GET1^DIQ |
| ^DGCR(399 - [#399] | GET1^DIQ, GETS^DIQ |
| ^PSRX - [#52] | GET1^DIQ |
