Routine: ENTIEQE

Customize PDF page

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

Information

ENTIEQE ;WOIFO/SAB - Edit Equipment Records (IT) ;2/4/2008

Source Information

Source file <ENTIEQE.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
VA FileMan	2	^DDS ^DIR
Engineering	1	GETEQ^ENUTL

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	ENIT INVENTORY EDIT

Entry Points

Name	Comments	DBIA/ICR reference
SELEQ	; select (and process) equipment for edit
EQP	; process one equipment item (edit) ; input ; ENDA - ien of equipment item ; output ; END - flag, true when entire process should stop
EQPX	; clean up

External References

Name	Field # of Occurrence
^DDS	EQP+14
^DIR	EQP+10
GETEQ^ENUTL	SELEQ+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!,"Record being edited by someone else. Try later." Line Location: EQP+9
Routine Call	DDS Line Location: EQP+14
Routine Call	DIR Line Location: EQP+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ENG(6914 - [#6914]	EQP+8, EQP+18

Label References

Name	Line Occurrences
EQP	SELEQ+5
EQPX	EQP+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	EQP+6~, EQP+13*
DDSFILE	EQP+6~, EQP+13*
DIC	SELEQ+7!
DIC("S"	SELEQ+5*
>> DILOCKTM	EQP+8
DIR	EQP+10!
DIR(0	EQP+10*
DIROUT	EQP+6~
DIRUT	EQP+6~
DR	EQP+6~, EQP+13*
DTOUT	EQP+6~, EQP+10, EQP+15
DUOUT	EQP+6~
END	SELEQ+1, SELEQ+5, SELEQ+7!, EQP+10, EQP+15*
ENDA	SELEQ+5*, SELEQ+7!, EQP+8, EQP+13, EQP+18
ENEQ	SELEQ+7!
ENSCR	SELEQ+2*, SELEQ+5, SELEQ+7!
Y	SELEQ+5, SELEQ+7!