Routine: ENWARD

Customize PDF page

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

Information

ENWARD ;(WASH ISC)/DH-Access to Electronic Work Orders ;1.6.97

Source Information

Source file <ENWARD.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
VA FileMan	3	^DIC YN^DICN ^DIE
Engineering	1	(P,SEL)^ENEWOD

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

Package	Total	Caller Graph
Engineering	2	ENWOEDIT-WARD ENWOSTATUS-WARD

Entry Points

Name	Comments	DBIA/ICR reference
WRDEDT	;Edit electronic work orders
WRDEDT2
WRDCK	;Display electronic work order
EXIT

External References

Name	Field # of Occurrence
^DIC	WRDEDT+2
YN^DICN	WRDEDT2
^DIE	WRDEDT+7
P^ENEWOD	WRDEDT2+1
SEL^ENEWOD	WRDCK+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This work order has been closed out.",*7 Line Location: WRDEDT+3
Function Call: WRITE	Prompt: !!,"This entry being edited by another user. Please try later.",*7 Line Location: WRDEDT+4
Function Call: WRITE	Prompt: !,"Print this work order" Line Location: WRDEDT2+0
Function Call: WRITE	Prompt: !,"Please answer 'Y'es or 'N'o." Line Location: WRDEDT2+0
Routine Call	DIC Line Location: WRDEDT+2
Routine Call	DIE Line Location: WRDEDT+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ENG(6920 - [#6920]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIE("B"	WRDEDT+6
^ENG(6920 - [#6920]	WRDEDT+3, WRDEDT+4, WRDEDT+7

Label References

Name	Line Occurrences
EXIT	WRDEDT+2
WRDEDT	WRDEDT+3, WRDEDT+4, WRDEDT2, WRDEDT2+2
WRDEDT2	WRDEDT2

Naked Globals

Name	Field # of Occurrence
^(5	WRDEDT+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	WRDEDT2*
DA	WRDEDT+2*, WRDEDT+3, WRDEDT+4, WRDEDT+5, EXIT!
DIC	WRDEDT+1*, EXIT!
DIC("S"	WRDEDT+1*, WRDEDT+2!
DIC(0	WRDEDT+1*
>> DIE	WRDEDT+6*
DR	WRDEDT+6*, EXIT!
EN	EXIT+1!
ENA	EXIT!
ENB	EXIT+1!
ENDSTAT	EXIT!
ENLOCK	WRDEDT+5~*, WRDEDT+7
ENNX	EXIT+1!
ENORIG	EXIT+1!
ENSHABR	EXIT!
ENSHKEY	EXIT!
ENWO	EXIT!
ENX	EXIT+1!
U	WRDEDT+3
>> Y	WRDEDT+2