IBY528PO ;ALB/CJS - Post install routine for patch 528 ;5-APR-15
Source file <IBY528PO.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| START | ; CALL SECTIONS
|
|
| KEYS | ; Rename IBCNE IIV AUTO MATCH security key to IBCNE EIV MAINTENANCE
|
|
| ADDUSR | ; Add the user to the New Person file (#200)
|
|
| COMMENTS | ; copy historical comments (2.312, 1.08) into new field 2.312, 1.18 (COMMENT - SUBSCRIBER POLICY multiple)
; and then update historical comment record with "postmaster" (2.312, 1.18, .02) and ; date/time that historical comment copied into 2.312, 1.18 multiple |
|
| TYPE | ; add type of plan entries to #355.1
|
|
| SRCINF | ; add new source of information entry to #355.12
|
| Name | Field # of Occurrence |
|---|---|
| $$FIND1^DIC | KEYS+12, KEYS+20, ADDUSR+4 |
| ^DIE | KEYS+15, KEYS+23 |
| UPDATE^DIE | ADDUSR+10, COMMENTS+24 |
| ADSRCINF^IBY528PA | SRCINF+1 |
| ADTYPPLN^IBY528PA | TYPE+1 |
| $$NOW^XLFDT | COMMENTS+7 |
| $$RENAME^XPDKEY | KEYS+6 |
| $$NEWCP^XPDUTL | START+4 |
| BMES^XPDUTL | START+5, ADDUSR+4, ADDUSR+5, ADDUSR+7, ADDUSR+13, ADDUSR+14, ADDUSR+16, COMMENTS+3, COMMENTS+27, COMMENTS+28 , COMMENTS+29 |
| MES^XPDUTL | START+1, START+7, KEYS+2, KEYS+4, KEYS+7, KEYS+10, KEYS+13, KEYS+16, KEYS+19, KEYS+21 , KEYS+24 |
| FileNo | Call Tags |
|---|---|
| ^ORD(101 - [#101] | FIND1^DIC |
| ^DIC(19 - [#19] | FIND1^DIC |
| ^VA(200 - [#200] | FIND1^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(19 - [#19] | KEYS+15 |
| ^DIC(19.1 - [#19.1] | KEYS+4 |
| ^DPT - [#2] | COMMENTS+10, COMMENTS+11, COMMENTS+14, COMMENTS+15, COMMENTS+16, COMMENTS+23 |
| ^ORD(101 - [#101] | KEYS+23 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | KEYS+1~, KEYS+12*, KEYS+13, KEYS+15, KEYS+20*, KEYS+21, KEYS+23 |
| DATETIME | COMMENTS+4~, COMMENTS+7*, COMMENTS+21 |
| DD | ADDUSR+1~ |
| DIC | KEYS+1~, ADDUSR+1~ |
| DIC(0 | ADDUSR+8* |
| DIE | KEYS+1~, KEYS+14*, KEYS+22* |
| DLAYGO | ADDUSR+1~ |
| DO | ADDUSR+1~ |
| DR | KEYS+1~, KEYS+14*, KEYS+22* |
| ERROR | COMMENTS+5!, COMMENTS+25, COMMENTS+30! |
| ERROR("DIERR" | COMMENTS+26, COMMENTS+27, COMMENTS+28, COMMENTS+29 |
| FDA | COMMENTS+5! |
| FDA( | COMMENTS+21*, COMMENTS+22*, COMMENTS+23* |
| I | COMMENTS+4~, COMMENTS+15*, COMMENTS+16 |
| IBARR | ADDUSR+1~ |
| IBARR(200 | ADDUSR+9* |
| IBCOM | COMMENTS+4~, COMMENTS+14*, COMMENTS+17 |
| IBERR | ADDUSR+1~, ADDUSR+4, ADDUSR+12 |
| IBFLAG | KEYS+1~, KEYS+6*, KEYS+7 |
| IBIEN | ADDUSR+1~, ADDUSR+4*, ADDUSR+5 |
| IBIEN(1 | ADDUSR+12 |
| IBNAME | ADDUSR+1~, ADDUSR+3*, ADDUSR+4, ADDUSR+5, ADDUSR+7, ADDUSR+9, ADDUSR+13, ADDUSR+16 |
| IBNUM | COMMENTS+4~, COMMENTS+26*, COMMENTS+27, COMMENTS+28, COMMENTS+29 |
| IBO | COMMENTS+4~, COMMENTS+14*, COMMENTS+15, COMMENTS+17*, COMMENTS+18 |
| IBOPT | KEYS+1~, KEYS+11*, KEYS+12, KEYS+13, KEYS+16 |
| IBXCOM | COMMENTS+4~, COMMENTS+16*, COMMENTS+17 |
| IBY | START+2~, START+3*, START+4, START+5 |
| IENS | COMMENTS+4~, COMMENTS+20*, COMMENTS+21, COMMENTS+22, COMMENTS+23 |
| IPIEN | COMMENTS+4~, COMMENTS+6*, COMMENTS+10*, COMMENTS+11, COMMENTS+14, COMMENTS+15, COMMENTS+16, COMMENTS+20, COMMENTS+23 |
| PTIEN | COMMENTS+4~, COMMENTS+6*, COMMENTS+10*, COMMENTS+11, COMMENTS+14, COMMENTS+15, COMMENTS+16, COMMENTS+20, COMMENTS+23 |
| U | COMMENTS+11, COMMENTS+14, COMMENTS+23 |
| X | KEYS+1~, ADDUSR+1~ |
| Y | START+2~, START+4*, START+5, ADDUSR+1~ |
