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
|