PSO772PI ;BIRM/KML - PSO*7*772 Post-install routine ;12/4/2024
Source file <PSO772PI.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; MAIN ENTRY POINT
|
|
| VERSIONS | ; Add new standard versions to the SPMP ASAP RECORD DEFINITION FILE (#58.4)
|
|
| PROTOCOL() | ; populate the SCREEN field (#101,24) of the PSO SPMP3 MENU protocol with the M code enhancement
; returns back 1 for error state or 0 for successful file |
|
| MAIL(XMSUB) | ;Send mail message
|
|
| REPORT(TEXT,ACTION,LINE) | ; report any errors during web service setup
; Input - ; TEXT - text to report to end-user ; ACTION - what was being processed ; LINE - line number for the mail message passed in by reference |
|
| 1 | ||
| 2 | ||
| REMOVE(DA,DIK) | ; delete an entry from file or sub-file
; inputs - ; DA - Entry number in the subfile to delete (or top-file entry) ; DA(1) - Entry number at the next higher file level ; DIK - global root of the file from which to delete an entry |
|
| VALROUTINES() | ; confirm that the post-install routines exist
|
|
| DELROUTINES | ; delete post-install routines
|
|
| VERLST | ; list of versions to be added during install of PSO*7*772
|
| FileNo | Call Tags |
|---|---|
| ^ORD(101 - [#101] | FIND1^DIC |
| 58.4001 | FIND1^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("DEL" | DELROUTINES+2 |
| ^%ZOSF("TEST" | VALROUTINES+3, DELROUTINES+2 |
| ^PS(58.4 - [#58.4] | VERSIONS+9, VERSIONS+11*, VERSIONS+12* |
| ^TMP("PSO772PI" | EN+1!, 1+2*, 1+4*, 2+2*, 2+4* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACTION | REPORT~, REPORT+5, REPORT+6, REPORT+7 |
| COMPONENTS | VERSIONS+1~, VERSIONS+3*, VERSIONS+5, VERSIONS+13 |
| D | VERSIONS+1~, VERSIONS+2* |
| DA | REMOVE~ |
| DAVIEN | VERSIONS+1~, VERSIONS+6*, VERSIONS+8, VERSIONS+9*, VERSIONS+10, VERSIONS+11 |
| DAVIEN(1 | VERSIONS+8* |
| DIFROM | MAIL+6~ |
| DIK | REMOVE~ |
| DUZ | MAIL+5 |
| E | VERSIONS+1~, VERSIONS+2* |
| ERR | VERSIONS+1~ |
| ERROR | EN+2~, EN+3* |
| I | VALROUTINES+1~, VALROUTINES+3*, DELROUTINES+1~, DELROUTINES+2* |
| L | VERSIONS+1~, VERSIONS+2* |
| LINE | REPORT~, 1+1*, 1+2, 1+3*, 1+4, 2+1*, 2+2, 2+3*, 2+4 |
| LINENUM | EN+2~, EN+4*, VERSIONS+13, PROTOCOL+6, PROTOCOL+7 |
| NEW | VERSIONS+1~, VERSIONS+4*, VERSIONS+9*, VERSIONS+11 |
| NXT | VERSIONS+1~, VERSIONS+3* |
| PRERROR | PROTOCOL+2~, PROTOCOL+6 |
| PRFDA | PROTOCOL+2~, PROTOCOL+5 |
| PRFDA(101 | PROTOCOL+4* |
| PRIEN | PROTOCOL+2~, PROTOCOL+3*, PROTOCOL+4 |
| ROUTINES | EN+2~, EN+5*, EN+6 |
| S | VERSIONS+1~, VERSIONS+2* |
| TAG | VERSIONS+1~, VERSIONS+5*, VERSIONS+10 |
| TEXT | REPORT~, 1, 1+2, 2 |
| V | VERSIONS+1~, VERSIONS+2* |
| VAL | VALROUTINES+1~, VALROUTINES+2*, VALROUTINES+3*, VALROUTINES+4 |
| VERNODE | VERSIONS+1~, VERSIONS+9* |
| VERSION | VERSIONS+1~, VERSIONS+5*, VERSIONS+6, VERSIONS+13 |
| X | VERSIONS+1~, MAIL+1~, VALROUTINES+1~, VALROUTINES+3*, DELROUTINES+1~, DELROUTINES+2* |
| XMDUN | MAIL+1~ |
| XMDUZ | MAIL+1~, MAIL+2* |
| XMMG | MAIL+1~ |
| XMROU | MAIL+1~ |
| XMSTRIP | MAIL+1~ |
| XMSUB | MAIL~ |
| XMTEXT | MAIL+1~, MAIL+3* |
| XMY | MAIL+1~ |
| XMY( | MAIL+5* |
| XMY("G.PSO SP | MP NOTIFICATIONS" , MAIL+4* |
| XMYBLOB | MAIL+1~ |
| XMZ | MAIL+1~ |
| Name | Field # of Occurrence |
|---|---|
| $T(VERLST+NXT | VERSIONS+3 |
