IBY784PO ;YMG/EDE - IB*2.0*784 POST INSTALL;DEC 07 2023
Source file <IBY784PO.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; entry point
|
|
SETPARAM | ; populate fields 350.9/71.03 and 350.9/71.04
|
|
NEWCANC | ; add new cancellation reason to file 350.3
|
|
UPDCANC | ; update field .07 in file 350.3
|
|
INITMH | ; initialize file 351.83
|
|
REASDAT | ; Cancellation reasons (350.3) to update
|
|
REASDAT1 | ; New cancellation reasons (350.3)
|
FileNo | Call Tags |
---|---|
^IBE(350.3 - [#350.3] | EXTERNAL^DILFD, FIND1^DIC |
^IBE(350.9 - [#350.9] | GET1^DIQ |