PSO7P545 ;DAL/JCH - Post Install routine for patch PSO*7*545 ;12/3/2018
Source file <PSO7P545.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| POST | ;
|
|
| CONT1 | ;
|
|
| CONT2 | ;
; Attach options to menu |
|
| MENU | ; Attach options to PSO EPCS UTILITY menu
|
|
| MENUADD | ; Menu items to be added
|
|
| DEAPRGDT | ; Change the DEA migration purge date in XTMP to 90 days in the future
|
|
| PSOSEC | ; Add PSO EPCS GUI CONTEXT to active users holding the XUEPCSEDIT key and having the XU EPCS EDIT DATA option as a secondary menu.
; Active user defined as NOT Disuser'd, No Termination Date or Reason |
| Name | Field # of Occurrence |
|---|---|
| $$FIND1^DIC | PSOSEC+11 |
| FILE^DIE | PSOSEC+15 |
| $$GET1^DIQ | PSOSEC+16 |
| $$DT^XLFDT | PSOSEC+6 |
| $$FMADD^XLFDT | DEAPRGDT+7, PSOSEC+6 |
| PUT^XPAR | POST+1 |
| $$ADD^XPDMENU | MENU+4 |
| $$LKOPT^XPDMENU | PSOSEC+4, PSOSEC+5 |
| BMES^XPDUTL | MENU+5 |
| $$ACCESS^XQCHK | PSOSEC+9, PSOSEC+10 |
| OPTSTAT^XUTMOPT | POST+8, POST+12, CONT1+3, CONT1+7 |
| RESCH^XUTMOPT | POST+17, POST+18, CONT1+12, CONT1+13 |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| 200.03 | FIND1^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^XTMP( | DEAPRGDT+4, DEAPRGDT+9* |
| ^XTMP("PSODEAWB-3400101.0001" | DEAPRGDT+2 |
| ^XTMP("PSOEPCS-GUIMENU" | PSOSEC+6*, PSOSEC+16* |
| ^XUSEC( | PSOSEC+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BEGDT | DEAPRGDT+1~, DEAPRGDT+6*, DEAPRGDT+7 |
| BY | POST+3~, POST+16*, POST+17, CONT1+11*, CONT1+12 |
| CHECK | MENU+1~, MENU+4*, MENU+5 |
| CHOICE | MENU+1~, MENU+2*, MENU+3 |
| DIFROM | POST+4~ |
| DUZ | POST+3~, POST+5* |
| ENTRY | POST+3~, POST+13*, POST+14, POST+15, POST+16, CONT1+8*, CONT1+9, CONT1+10, CONT1+11 |
| ERR | POST+3~, POST+17, POST+18, CONT1+12, CONT1+13 |
| HANDPSO | DEAPRGDT+1~, DEAPRGDT+2*, DEAPRGDT+3, DEAPRGDT+4, DEAPRGDT+9 |
| MENU | MENU+1~, MENU+3*, MENU+4, MENU+5 |
| MIGHDR | DEAPRGDT+1~, DEAPRGDT+4*, DEAPRGDT+5, DEAPRGDT+6, DEAPRGDT+8*, DEAPRGDT+9 |
| NPFIL | PSOSEC+2~ |
| OFF | MENU+1~, MENU+2* |
| OPTION | MENU+1~, MENU+3*, MENU+4, MENU+5 |
| ORD | MENU+1~, MENU+3*, MENU+4 |
| PRGDT | DEAPRGDT+1~ |
| PSNWMENI | PSOSEC+2~, PSOSEC+4*, PSOSEC+9, PSOSEC+13 |
| PSODUZ | PSOSEC+2~, PSOSEC+7*, PSOSEC+9, PSOSEC+10, PSOSEC+11, PSOSEC+12, PSOSEC+16 |
| PSOEPKEY | PSOSEC+2~, PSOSEC+3*, PSOSEC+7 |
| PSOERR | PSOSEC+8~ |
| PSOERR("DIERR" | PSOSEC+16 |
| PSOFDA | PSOSEC+8~ |
| PSOFDA( | PSOSEC+13*, PSOSEC+14* |
| PSOMENI | PSOSEC+2~, PSOSEC+5*, PSOSEC+10 |
| PSOPTIEN | PSOSEC+8~, PSOSEC+11*, PSOSEC+12 |
| PSOPTIENS | PSOSEC+8~, PSOSEC+12*, PSOSEC+13, PSOSEC+14 |
| >> PURGDT | DEAPRGDT+7*, DEAPRGDT+8 |
| ROOT | POST+3~, POST+8!, POST+12!, POST+13, CONT1+3!, CONT1+7!, CONT1+8 |
| ROOT( | POST+14, POST+15, POST+16, CONT1+9, CONT1+10, CONT1+11 |
| ROOT(1 | POST+9, POST+13, CONT1+4, CONT1+8 |
| SYN | MENU+1~, MENU+3*, MENU+4 |
| TYPE | MENU+1~, MENU+2* |
| U | PSOSEC+6 |
| UPDATE | MENU+1~ |
| WHEN | POST+3~, POST+16*, POST+17, CONT1+11*, CONT1+12 |
| Name | Field # of Occurrence |
|---|---|
| $T(@TYPE+OFF | MENU+2 |
