Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PRSXP48

Package: PAID

Routine: PRSXP48


Information

PRSXP48 ;LLH/WCIOFO-POST INSTALL UPDATE TO FEGLI CODES;3/26/99

Source Information

Source file <PRSXP48.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 FILE^DICN  ^DIE  ^DIK  
Kernel 1 MES^XPDUTL  

Entry Points

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

External References

Name Field # of Occurrence
FILE^DICN ADDFEG+13
^DIE ADDFEG+17
^DIK DELOLD+11
MES^XPDUTL MSSG+1, MSSG+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRSP(454 - [#454] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRSP(454 - [#454] DELOLD+7, DELOLD+9

Label References

Name Line Occurrences
$$PICKCODE ADDFEG+10
ADDFEG UPDTFEG+5, RSTRFEG+5
DELOLD UPDTFEG+5, RSTRFEG+5
MSSG UPDTFEG+5

Local Variables

Legend:

>> 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

Marked Items

Name Field # of Occurrence
$T(NFEG+LINE PICKCODE+2
$T(OFEG+LINE PICKCODE+2
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All