RCDPEM7 ;OIFO-BAYPINES/PJH - OVERDUE EFT AND ERA BULLETINS ; 6/7/19 7:24am
Source file <RCDPEM7.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Main entry point for overdue EFT/ERA bulletins
|
|
| ERASCAN | ;Scan ERA
|
|
| EFTSCAN | ;Scan EFT
|
|
| SUSPSCAN | ;
|
|
| BULLETIN | ;Create bulletins only if overdue EFT/ERA found
|
|
| B1 | ;
|
|
| SEND | ;Transmit mail message
|
|
| ERAL(X1,X2,X3,X4) | ;Format ERA Message line
|
|
| EFTL(X1,X2,X3,X4,X5) | ;Format EFT Message line
|
|
| ESUSPL(X1,X2,X3,X4,X5,X6,X7) | ;Format Suspense Message line
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^RC(342 - [#342] | GET1^DIQ |
| 344.01 | GET1^DIQ |
| ^RCY(344.61 - [#344.61] | GET1^DIQ |
