IBE585PO ;DAL/JCH - Patch IB*2.0*585 Post Install ;22-JUN-17
Source file <IBE585PO.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;MAIN ENTRY POINT
|
|
| HDIS(FIL,DOMPTR,DOMAIN) | ; do HDIS "seeding"
|
|
| PSEED(FIL,DOMPTR,DOMAIN) | ||
| PSTDONE(MSG) | ; display FINISHED message
|
|
| PSTHALT(MSG) | ; display error message
|
|
| DUMSEED | ; New file 355.99 contains no data, can't be seeded unless there is at least one entry?
|
|
| INSREC(IBFILE,IBIEN,IBFDA,IBFDAIEN) | ; Insert IBIEN into file IBFILE with data in IBFDA
|
|
| DAT35599 | ; Data to populate the MASTER TYPE OF PLAN (#355.99) file
|
| Name | Field # of Occurrence |
|---|---|
| DD^%DT | PSEED+24 |
| FILE^DID | PSEED+10 |
| UPDATE^DIE | INSREC+4 |
| $$GETSTAT^HDISVF01 | PSEED+3, PSEED+28 |
| SETSTAT^HDISVF01 | PSEED+7 |
| $$GETIEN^HDISVF09 | EN+4 |
| $$SITE^VASITE | PSEED+13 |
| $$NOW^XLFDT | PSEED+24 |
| ^XMD | PSEED+32 |
| MES^XPDUTL | EN+6, PSTDONE+7, PSTHALT+6 |
| $$KSP^XUPARAM | EN+2 |
| $$PROD^XUPROD | PSEED+12 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBEMTOP(355.99 - [#355.99] | HDIS+4 |
| ^XMB("NETNAME" | PSEED+21 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ASTATUS | PSEED+1~, PSEED+3*, PSEED+4 |
| B | HDIS+1~, PSEED+24* |
| C | HDIS+1~ |
| DA | EN+1~ |
| DEMFAC | EN+1~, EN+2* |
| DIE | EN+1~ |
| DIFROM | PSEED+32~! |
| DOMAIN | EN+1~, EN+3*, EN+4, EN+6, EN+8, HDIS~, HDIS+5, PSEED~ |
| DOMPTR | EN+1~, EN+4, EN+5, EN+8, HDIS~, HDIS+5, PSEED~ |
| DR | EN+1~ |
| DUZ | PSEED+17 |
| FIL | EN+1~, EN+8*, HDIS~, PSEED~, PSEED+3, PSEED+4, PSEED+7, PSEED+10, PSEED+14, PSEED+26 , PSEED+28, PSEED+30, PSEED+33, PSTDONE+4 |
| FILNAM | PSEED+1~, PSEED+11*, PSEED+26, PSEED+30, PSTDONE+4 |
| FILNAM("NAME" | PSEED+11 |
| HDIMSG | HDIS+1~, PSTDONE+1~, PSTDONE+7, PSTHALT+6 |
| HDIMSG(1 | PSTDONE+2*, PSTHALT+1* |
| HDIMSG(2 | PSTDONE+3*, PSTHALT+2* |
| HDIMSG(3 | PSTDONE+4*, PSTHALT+3* |
| HDIMSG(4 | PSTDONE+5*, PSTHALT+4* |
| HDIMSG(5 | PSTDONE+6*, PSTHALT+5* |
| HDITEXT | PSEED+1~, PSEED+18! |
| HDITEXT(1 | PSEED+19* |
| HDITEXT(10 | PSEED+30* |
| HDITEXT(11 | PSEED+31* |
| HDITEXT(2 | PSEED+20*, PSEED+21* |
| HDITEXT(3 | PSEED+22* |
| HDITEXT(4 | PSEED+23*, PSEED+24* |
| HDITEXT(5 | PSEED+25* |
| HDITEXT(6 | PSEED+26* |
| HDITEXT(7 | PSEED+27* |
| HDITEXT(8 | PSEED+28* |
| HDITEXT(9 | PSEED+29* |
| IBDATA | DUMSEED+9~, DUMSEED+12*, DUMSEED+14, DUMSEED+15, DUMSEED+16 |
| IBDATLN | DUMSEED+9~, DUMSEED+12* |
| IBDERR | INSREC+2~, INSREC+5 |
| IBEFFDT | DUMSEED+13~ |
| IBFDA | DUMSEED+9~, DUMSEED+13~, DUMSEED+18, INSREC~, INSREC+6 |
| IBFDA( | DUMSEED+15*, DUMSEED+16* |
| IBFDAIEN | DUMSEED+13~, DUMSEED+18, INSREC~, INSREC+3* |
| IBFDAIEN(1 | DUMSEED+17*, INSREC+3* |
| IBFILE | INSREC~, INSREC+1 |
| IBIEN | INSREC~ |
| IBMFILE | DUMSEED+9~, DUMSEED+10*, DUMSEED+18 |
| IBMTOPI | DUMSEED+9~, DUMSEED+13~, DUMSEED+14*, DUMSEED+17, DUMSEED+18 |
| IBRSLT | DUMSEED+9~, DUMSEED+18* |
| IBSITE | PSEED+1~, PSEED+13*, PSEED+14, PSEED+16, PSEED+20, PSEED+30 |
| MSG | PSEED+1~, PSEED+4*, PSEED+33*, PSTDONE~, PSTDONE+3, PSTHALT~, PSTHALT+2 |
| SUCCESS | EN+1~, EN+4*, EN+5 |
| TMP | EN+1~, HDIS+1~, PSEED+1~ |
| U | PSEED+3, PSEED+28 |
| X | EN+1~ |
| X1 | EN+1~ |
| X2 | EN+1~ |
| XMDUZ | PSEED+1~, PSEED+16* |
| XMSUB | PSEED+1~, PSEED+14* |
| XMTEXT | PSEED+1~, PSEED+32* |
| XMY | PSEED+1~ |
| XMY( | PSEED+17* |
| XMY("G.HDIS E | RT NOTIFICATION@DOMAIN.EXT" , PSEED+15* |
| XMZ | PSEED+1~, PSEED+33 |
| XPROD | PSEED+1~, PSEED+12*, PSEED+14, PSEED+22 |
| XUMF | DUMSEED+9~, DUMSEED+11* |
| Y | EN+1~, PSEED+24~* |
| ZTDESC | EN+1~ |
| ZTDTH | EN+1~ |
| ZTRTN | EN+1~ |
| Name | Field # of Occurrence |
|---|---|
| $T(DAT35599+IBDATLN | DUMSEED+12 |
