Routine: ENARS

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

ENARS ;(WIRMFO)/SAB-SEACH ARCHIVE LOG FOR EQUIPMENT ;2.24.97

Source Information

Source file <ENARS.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
VA FileMan	2	RECALL^DILFD ^DIR
Engineering	1	ID^ENAR2

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Engineering	1	ENAR

Entry Points

Name	Comments	DBIA/ICR reference
S	; entry point ; ask equipment entry #
EXIT	;

External References

Name	Field # of Occurrence
RECALL^DILFD	S+16
^DIR	S+4
ID^ENAR2	S+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!,"Equipment ENTRY #: ",ENEQ," is not valid",! Line Location: S+7
Function Call: WRITE	Prompt: $C(7),!,"Equipment ENTRY #: ",ENEQ," was not found in an archive set",! Line Location: S+9
Function Call: WRITE	Prompt: !!!!,"Equipment ENTRY #: ",ENEQ," was saved with record name " Line Location: S+13
Function Call: WRITE	Prompt: $P($G(^ENG(6919,ENDA,3,ENDA(1),0)),U) Line Location: S+14
Function Call: WRITE	Prompt: !,"in the archive set shown above.",! Line Location: S+15
Routine Call	DIR Line Location: S+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ENG(6919 - [#6919]	RECALL^DILFD

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ENG(6919 - [#6919]	S+8, S+12, S+14

Label References

Name	Line Occurrences
EXIT	S+4
S	S+7, S+9, S+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIC	EXIT+2!
DIE	EXIT+2!
DIR	S+4!, EXIT+1!
DIR("?"	S+3*
DIR("A"	S+2*
DIR(0	S+2*
DIROUT	EXIT+1!
DIRUT	S+4, EXIT+1!
DJL	EXIT+2!
DJLIN	EXIT+2!
DJN	EXIT+2!
DJNM	EXIT+2!
DJSW2	EXIT+2!
DTOUT	EXIT+1!
DUOUT	EXIT+1!
DUZ	S+16
DX	EXIT+2!
DY	EXIT+2!
ENDA	S+8*, S+9, S+12, S+14, S+16, EXIT+3!
ENDA(1	S+12*, S+14
ENEQ	S+5*, S+7, S+8, S+9, S+12, S+13, EXIT+3!
U	S+14
X	EXIT+1!
XY	EXIT+2!
Y	S+4, S+5, EXIT+1!