PSO736PO ;BIR/KML - Patch 736 Post Install routine ;8/28/23
Source file <PSO736PO.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| POST | ; post installation to assign new domain, TCP/IP and port values for oneVA to VDIF
|
|
| SET | ; edit and save the values in HL LOGICAL LINK file entry for PSORRXSEND according to environment type
|
|
| SETORIG(PSOLNK) | ; create ^XTMP("PSO736RR") in case of data rollback
|
|
| ERROR | ; an error condition needs to be reported
|
|
| ; Sends Mailman message
|
||
| SETTXT(TXT) | ; Setting Plain Text
|
| FileNo | Call Tags |
|---|---|
| ^HLCS(870 - [#870] | FIND1^DIC, GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("PSO736PO" | SET+3!, SETTXT+1* |
| ^XTMP("PSO736RR" | SETORIG+2!, SETORIG+6*, SETORIG+7*, SETORIG+8*, SETORIG+9* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | SETORIG+1~ |
| DIC | SETORIG+1~ |
| DIE | SETORIG+1~ |
| DIFROM | MAIL+1~ |
| DR | SETORIG+1~ |
| DUZ | MAIL+3 |
| ERR | SET+1~ |
| ERR("DIERR" | SET+18, ERROR+3 |
| FDA | SET+1~ |
| FDA(870 | SET+14*, SET+15*, SET+16* |
| LIEN | SET+1~, SET+7*, SET+8*, SET+9, SET+14, SET+15, SET+16 |
| NOENTRY | SET+1~, SET+7*, SET+9*, ERROR+3 |
| PSOLDIP | SETORIG+1~, SETORIG+5*, SETORIG+9 |
| PSOLDNS | SET+5*, SETORIG+1~, SETORIG+4*, SETORIG+8 |
| PSOLDPRT | SET+5*, SETORIG+1~, SETORIG+3*, SETORIG+7 |
| PSOLINK | SET+1~, SET+4*, SET+6 |
| PSOLNK | SETORIG~, SETORIG+3, SETORIG+4, SETORIG+5 |
| PSOPORT | SET+1~, SET+12*, SET+16 |
| PSOSERV | SET+1~, SET+11*, SET+14, SET+15 |
| PSSLINE | SET+1~, SET+7*, SETTXT+1* |
| TEXT | SET+1~, SET+19*, SET+20, ERROR+1*, ERROR+2, ERROR+3*, ERROR+4, ERROR+5*, ERROR+6 |
| TXT | SETTXT~, SETTXT+1 |
| VAL | SET+1~, SET+7*, SET+8 |
| X | SETORIG+1~ |
| XMDUZ | MAIL+1~, MAIL+4* |
| XMSUB | MAIL+1~, MAIL+3* |
| XMTEXT | MAIL+1~, MAIL+4* |
| XMY | MAIL+1~ |
| XMY( | MAIL+3* |
| Y | SETORIG+1~ |
