IB20P240 ;ALB/RLC - Post-Init routine for IB*2.0*240; 8/19/2003
Source file <IB20P240.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; entry point for post-init process
|
|
| EN1 | ; root name ^IBE - files 350.1, 351.7, 355.1, 355.2, 355.97 and 363
|
|
| F3501 | ; for file 350.1 must also update fields .02 and .08, and cross-
; references "D" and "E". Also, need to change external value for ; set of codes in field .11 to Tricare for internal code 7. |
|
| F3551 | ; for file 355.1 must also update field .02, and "D" cross-reference
|
|
| F35510 | ; change references to Champus in description field
|
|
| F3552 | ; must also update field .02 from CHS to TRI and "C" cross-reference
|
|
| EN2 | ; root name ^IBA - file 355.3 change .03 field, along with "D", "ACCP"
; and "AGNA" cross references. Files 364.5 and 364.7 change references ; from Champus to Tricare in word-processing field |
|
| EN21 | ; update file 355.3
|
|
| EN22 | ; update files 364.5 and 364.7
|
|
| EN3 | ; root name ^DGCR - files 399.1 and 399.3
|
|
| EN4 | ; update .01 field in file 36
|
|
| EN5 | ; change all occurrences of CHAMPUS to TRICARE for IB Menu option
; text displays. |
|
| IBJD | ; change text display for menu option
|
|
| DESC | ; change any references from Champus to Tricare in the
; word-processing description multiple field |
|
| EN6 | ; search for all records in file 355.3 that contain internal code
; CH in field .15 (Electronic Plan Type) and change it to TR. ; The external value for this field has been changed from CHAMPUS ; to TRICARE. |
|
| FILE1 | ; file numbers with root name ^IBE that need to be updated
|
|
| FILE2 | ; file numbers with root name ^IBA that need to be updated
|
|
| FILE3 | ; file numbers with root name ^DGCR that need to be updated
|
| FileNo | Call Tags |
|---|---|
| ^DIC(19 - [#19] | Classic Fileman Calls |
| ^IBE(350.1 - [#350.1] | Classic Fileman Calls |
| ^IBE(355.1 - [#355.1] | Classic Fileman Calls |
| ^IBE(355.2 - [#355.2] | Classic Fileman Calls |
| ^IBA(355.3 - [#355.3] | Classic Fileman Calls |
| ^DIC(36 - [#36] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR( | EN3+4, EN3+6, EN3+7, EN3+14, EN3+19 |
| ^DIC(19 - [#19] | EN5+3, EN5+6, EN5+7, EN5+11, IBJD+2, DESC+2, DESC+4, DESC+5, DESC+9* |
| ^DIC(36 - [#36] | EN4+2, EN4+4, EN4+5 |
| ^IBA( | EN21+2, EN21+5, EN21+6, EN21+9, EN21+11, EN22+1, EN22+2, EN22+4, EN22+5, EN22+8* |
| ^IBA(355.3 - [#355.3] | EN6+5, EN6+6 |
| ^IBE( | EN1+3, EN1+5, EN1+6, EN1+17, EN1+20, F35510+1, F35510+3, F35510+4, F35510+8* |
| ^IBE(350.1 - [#350.1] | F3501+8, F3501+10 |
| ^IBE(355.1 - [#355.1] | F3551+5, F3551+9 |
| ^IBE(355.2 - [#355.2] | F3552+3, F3552+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CHID | EN1+2*, EN1+3*, EN1+4, EN1+5, EN1+22!, EN2+5*, EN2+6*, EN2+8!, EN21+1*, EN21+2* , EN21+3, EN21+5, EN21+12!, EN22+1, EN3+3*, EN3+4*, EN3+5, EN3+6, EN3+20!, EN4+1* , EN4+2*, EN4+3, EN4+4, EN4+10! |
| DA | EN1+5*, EN1+6, EN1+19!, F3501+11!, F3551+8!, F35510+1, F35510+3, F35510+4, F35510+8, EN21+4* , EN21+5*, EN21+6, EN21+12!, EN22+1*, EN22+2, EN22+4, EN22+5, EN22+8, EN22+9!, EN3+6* , EN3+7, EN3+16!, EN3+18!, EN3+20!, EN4+4*, EN4+5, EN4+9!, EN5+2*, EN5+6*, EN5+7 , EN5+11, EN5+17!, IBJD+2*, IBJD+6!, DESC+2, DESC+4, DESC+5, DESC+9, EN6+4*, EN6+5* , EN6+6, EN6+10! |
| DA1 | F3551+8!, F35510+2*, F35510+3*, F35510+4, F35510+8, F35510+9!, EN22+3*, EN22+4*, EN22+5, EN22+8 , EN22+9!, IBJD+6!, DESC+3*, DESC+4*, DESC+5, DESC+9 |
| DIE | EN1+18*, EN1+19!, F3501+9*, F3501+11!, F3551+6*, F3551+8!, F3552+4*, F3552+6!, EN21+10*, EN21+12! , EN3+15*, EN3+16!, EN3+18!, EN3+20!, EN4+8*, EN4+9!, EN5+14*, EN5+15!, IBJD+4*, IBJD+6! , EN6+9*, EN6+10! |
| DR | EN1+18*, EN1+19!, F3501+9*, F3501+11!, F3551+6*, F3551+8!, F3552+4*, F3552+6!, EN21+10*, EN21+12! , EN3+16*!, EN3+17*, EN3+18!, EN3+20!, EN4+8*, EN4+9!, EN5+14*, EN5+15!, IBJD+4*, IBJD+6! , EN6+9*, EN6+10! |
| FILENUM | EN1+1*, EN1+3, EN1+5, EN1+6, EN1+14, EN1+15, EN1+16, EN1+17, EN1+20, EN1+22! , F35510+1, F35510+3, F35510+4, F35510+8, EN2+3*, EN2+4, EN2+5, EN2+6, EN2+8!, EN21+2 , EN21+5, EN21+6, EN21+9, EN21+11, EN22+1, EN22+2, EN22+4, EN22+5, EN22+8, EN3+2* , EN3+4, EN3+6, EN3+7, EN3+9, EN3+14, EN3+16, EN3+19, EN3+20! |
| FLD01 | EN1+2*, EN1+7*, EN1+9, EN1+11, EN1+19!, EN1+22!, EN3+1*, EN3+8*, EN3+10*, EN3+16 , EN3+17, EN3+20!, EN4+1*, EN4+6*, EN4+7*, EN4+8, EN4+10!, EN5+5*, EN5+8*, EN5+9 , EN5+17! |
| FLD02 | EN1+2*, EN1+22!, F3501+3*, F3501+4*, F3501+5*, F3501+9, F3501+11!, F3551+1*, F3551+2, F3551+3* , F3551+4*, F3551+6, F3551+8!, F3552+1*, F3552+2*, F3552+4, F3552+6!, EN3+1*, EN3+9*, EN3+11* , EN3+16, EN3+20!, EN5+5*, EN5+11*, EN5+12, EN5+17! |
| FLD03 | EN21+1*, EN21+7*, EN21+8*, EN21+10, EN21+12!, EN3+1*, EN3+9*, EN3+12*, EN3+16, EN3+20! |
| FLD04 | EN3+1*, EN3+9*, EN3+13*, EN3+16, EN3+20! |
| FLD08 | EN1+2*, EN1+22!, F3501+6*, F3501+7*, F3501+9, F3501+11! |
| FN | EN1+1*, EN1+22!, EN2+3*, EN2+8!, EN3+2*, EN3+20! |
| NM | EN5+2*, EN5+3*, EN5+4, EN5+6, EN5+17!, IBJD+1*, IBJD+2, IBJD+6! |
| NODE0 | EN1+2*, EN1+6*, EN1+7, EN1+19!, EN1+22!, F3501+3, F3501+6, F3551+1, F3552+1, F3552+6! , EN21+1*, EN21+6*, EN21+7, EN21+12!, EN3+1*, EN3+7*, EN3+8, EN3+9, EN3+20!, EN4+1* , EN4+5*, EN4+6, EN4+10!, EN5+5*, EN5+7*, EN5+8, EN5+17!, EN6+4*, EN6+6*, EN6+10! |
| P | F35510+9!, EN5+5!, EN5+17!, IBJD+6! |
| P( | EN1+9*, F35510+6*, EN5+9*, EN5+12*, DESC+7* |
| PC | EN6+4*, EN6+6*, EN6+7, EN6+8*, EN6+9, EN6+10! |
| STRG1 | EN5+5*, EN5+9*, EN5+10*, EN5+14, EN5+17! |
| STRING | EN1+8*, EN1+9*, EN1+10*, EN1+11*, EN1+12*, EN1+13*, EN1+18, EN1+19!, F3501+9, F3501+11! , F3551+6, F3551+8!, F35510+2*, F35510+6*, F35510+7*, F35510+8, F35510+9!, F3552+4, EN22+3*, EN22+7* , EN22+8, EN22+9!, EN5+5*, EN5+12*, EN5+13*, EN5+14, EN5+17!, IBJD+3*, IBJD+4, IBJD+6! , DESC+3*, DESC+7*, DESC+8*, DESC+9 |
| U | EN+1*, EN1+7, F3501+3, F3501+6, F3551+1, F3552+1, EN21+7, EN3+8, EN3+9, EN4+6 , EN5+8, EN5+11, EN6+6 |
| WP | F3551+8!, F35510+2*, F35510+4*, F35510+5, F35510+6, F35510+9!, EN22+3*, EN22+5*, EN22+6, EN22+7 , EN22+9!, IBJD+6!, DESC+3*, DESC+5*, DESC+6, DESC+7 |
| X | EN1+9*, F3551+8!, F35510+6*, EN5+9*, EN5+12*, EN5+17!, DESC+7* |
