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 |
