PRSXP48 ;LLH/WCIOFO-POST INSTALL UPDATE TO FEGLI CODES;3/26/99
Source file <PRSXP48.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| UPDTFEG | ; UPDATE NEW FEGLI CODES PER VACO.
; This entry point will delete all existing FEGLI codes ; from File 454 & then add new codes & descriptions that are changed ; by VACO-directive 99-119. |
|
| RSTRFEG | ;RESTORE OLD FEGLI CODES
; This entry point restores the FEGLI codes to pre VACO ; directive 99-119. Coded for testing and just in case need ; to return to the old codes |
|
| DELOLD | ; DELETE ALL OF THE OLD FEGLI CODES
; Loop thru PAID CODE FILES "FEGLI" entry ; to delete each entry and associated cross references. ; Inner loop ensures any duplicates are deleted. |
|
| ADDFEG(RESTORE) | ; ADD FEGLI codes
; Input: RESTORE - Flag determines label for codes/descriptions ; Use old codes if RESTORE=1, otherwise new codes. ; ; Loop thru new codes & descriptions at label NFEG or OFEG ; & add to PAID CODE FILES, "FEG" entry. |
|
| PICKCODE(RSTOR,LINE) | ;function returns text for FEGLI codes
; If RSTOR flag > 0 then get old codes otherwise get new. |
|
| MSSG | ;KIDS POST INSTALLATION MESSAGE.
|
|
| OFEG | ; old FEGLI Codes and Definitions
|
|
| NFEG | ; New FEGLI codes and Descriptions - post Patch 48
|
| FileNo | Call Tags |
|---|---|
| ^PRSP(454 - [#454] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PRSP(454 - [#454] | DELOLD+7, DELOLD+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CODE | ADDFEG+7~, ADDFEG+12*, ADDFEG+13 |
| DA | DELOLD+5~, DELOLD+8*, DELOLD+9*, ADDFEG+7~, ADDFEG+14* |
| DA(1 | DELOLD+10*, ADDFEG+9* |
| DD | ADDFEG+11! |
| DIC | ADDFEG+7~, ADDFEG+9* |
| DIC(0 | ADDFEG+13* |
| DIE | ADDFEG+7~, ADDFEG+9* |
| DIK | DELOLD+5~, DELOLD+10* |
| DLAYGO | ADDFEG+7~, ADDFEG+13* |
| DO | ADDFEG+11! |
| DR | ADDFEG+7~, ADDFEG+16* |
| >> I | ADDFEG+10* |
| LINE | PICKCODE~ |
| NEWCODE | ADDFEG+7~, ADDFEG+10*, ADDFEG+12, ADDFEG+15 |
| REC | DELOLD+5~, DELOLD+6*, DELOLD+7*, DELOLD+9 |
| RESTORE | ADDFEG~, ADDFEG+8*, ADDFEG+10 |
| RSTOR | PICKCODE~, PICKCODE+2 |
| TXT | ADDFEG+7~, ADDFEG+15* |
| X | ADDFEG+7~, ADDFEG+13* |
| >> Y | ADDFEG+14 |
| Name | Field # of Occurrence |
|---|---|
| $T(NFEG+LINE | PICKCODE+2 |
| $T(OFEG+LINE | PICKCODE+2 |
