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)
|
| Name | Field # of Occurrence |
|---|---|
| $$FIND1^DIC | NEWCANC+4 |
| FILE^DIE | SETPARAM+5, NEWCANC+12, UPDCANC+13 |
| UPDATE^DIE | NEWCANC+13 |
| $$EXTERNAL^DILFD | UPDCANC+8 |
| $$GET1^DIQ | INITMH+3 |
| MHVST^IBMHUT1 | INITMH+4 |
| BMES^XPDUTL | EN+1, EN+6, UPDCANC+7 |
| MES^XPDUTL | SETPARAM+2, SETPARAM+6, NEWCANC+2, NEWCANC+15, UPDCANC+2, UPDCANC+8, UPDCANC+15, INITMH+2, INITMH+5 |
| FileNo | Call Tags |
|---|---|
| ^IBE(350.3 - [#350.3] | EXTERNAL^DILFD, FIND1^DIC |
| ^IBE(350.9 - [#350.9] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBE(350.3 - [#350.3] | UPDCANC+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| FDA | SETPARAM+1~, NEWCANC+1~, NEWCANC+14!, UPDCANC+1~, UPDCANC+13! |
| FDA( | SETPARAM+3*, SETPARAM+4*, NEWCANC+5*, NEWCANC+6*, NEWCANC+7*, NEWCANC+8*, NEWCANC+9*, NEWCANC+10*, NEWCANC+11*, UPDCANC+11* , UPDCANC+12* |
| IBCNNM | NEWCANC+1~, NEWCANC+3*, NEWCANC+4, NEWCANC+5, UPDCANC+1~, UPDCANC+3*, UPDCANC+5, UPDCANC+7 |
| IBDATA | NEWCANC+1~, NEWCANC+3*, NEWCANC+6, NEWCANC+7, NEWCANC+8, NEWCANC+9, NEWCANC+10, NEWCANC+11, UPDCANC+1~, UPDCANC+3* , UPDCANC+4 |
| IBEDT | INITMH+1~, INITMH+3*, INITMH+4 |
| IBIEN | UPDCANC+1~, UPDCANC+5*, UPDCANC+6, UPDCANC+10 |
| IBMH | UPDCANC+1~, UPDCANC+4*, UPDCANC+8, UPDCANC+11 |
| IBREAS | NEWCANC+1~, NEWCANC+4*, NEWCANC+12, NEWCANC+13 |
| IBSDT | INITMH+1~, INITMH+3*, INITMH+4 |
| IENS | NEWCANC+1~, NEWCANC+4*, NEWCANC+5, NEWCANC+6, NEWCANC+7, NEWCANC+8, NEWCANC+9, NEWCANC+10, NEWCANC+11, UPDCANC+1~ , UPDCANC+10*, UPDCANC+11, UPDCANC+12 |
| Z | NEWCANC+1~, NEWCANC+3*, UPDCANC+1~, UPDCANC+3* |