Routine: ENWOD

Package	Total	Call Graph
Engineering	8	(COUNT,UNPOST)^ENBCPM8 KILLHS^ENEQHS PMHRS^ENEQPMR4 DEV^ENLIB TEST^ENWOCOMP ST^ENWOD1 TOP^ENWOD2 WO^ENWOUTL
Kernel	4	HOME^%ZIS ^%ZISC (PKILL,PSET)^%ZISP ^%ZTLOAD
VA FileMan	2	^DIE ^DIR
IFCAP	1	^PRCSP13

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

Package	Total	Caller Graph
Engineering	8	ENETRAN2 ENWO1 ENWOME ENWOME2 ENWONEW ENWONEW3 ENWOP ENWOREP

Entry Points

Name	Comments	DBIA/ICR reference
EDIT	; Work order display/edit (screen) option
EDIT1	; display/edit one work order ; input DA (ien of work order), DUZ (user number)
READ	;User interaction
ACTION	;Edit or display
D	;Display WO to CRT
A	;Display Accounting Data
P	;Print work order
PRT1
BAR	; print barcode of w.o. #
EXIT	;

External References

Name	Field # of Occurrence
HOME^%ZIS	READ+1, P+2
^%ZISC	PRT1+7
PKILL^%ZISP	PRT1+4
PSET^%ZISP	PRT1+1
^%ZTLOAD	P+2
^DIE	EDIT1+10, EDIT1+15, ACTION+29, ACTION+35
^DIR	ACTION+9
COUNT^ENBCPM8	EDIT1+23
UNPOST^ENBCPM8	ACTION+20
KILLHS^ENEQHS	ACTION+10
PMHRS^ENEQPMR4	EDIT1+19, ACTION+16
DEV^ENLIB	P+2
TEST^ENWOCOMP	ACTION+12
ST^ENWOD1	D+1, PRT1+2
TOP^ENWOD2	D+1, PRT1+2
WO^ENWOUTL	EDIT+1
^PRCSP13	A+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"ENTER/EDIT (1-33), D(DISPLAY), AC(ACCOUNT), P(PRINT)): EXIT// " Line Location: READ+1
Function Call: WRITE	Prompt: !,"Uneditable field.",*7 Line Location: READ+2
Function Call: WRITE	Prompt: !,"A transfer option must be used to change SHOP.",*7 Line Location: READ+3
Function Call: WRITE	Prompt: " ??",*7 Line Location: READ+5
Function Call: WRITE	Prompt: " ??",*7 Line Location: READ+6
Function Call: WRITE	Prompt: !,"This work order is being edited by another user. Please try again later." Line Location: ACTION+4
Function Call: WRITE	Prompt: $C(7),!,"NOTE: This work order has been closed." Line Location: ACTION+6
Function Call: WRITE	Prompt: !,"Security key ENEDCLWO is needed to edit closed work orders." Line Location: ACTION+7
Function Call: WRITE	Prompt: $C(7),!,"Another user is editing this equipment. Try editing the condition later." Line Location: ACTION+28
Function Call: WRITE	Prompt: !!,"Entry of a date will close this work order. Do this last." Line Location: ACTION+33
Function Call: WRITE	Prompt: @IOF Line Location: PRT1+4
Function Call: WRITE	Prompt: !,@IOBARON Line Location: BAR+1
Function Call: WRITE	Prompt: ENWO Line Location: BAR+1
Function Call: WRITE	Prompt: ENWO Line Location: BAR+1
Function Call: WRITE	Prompt: ENWO Line Location: BAR+1
Routine Call	%ZIS Line Location: READ+1 P+2
Routine Call	DIE Line Location: EDIT1+10 EDIT1+15 ACTION+29 ACTION+35
Routine Call	DIR Line Location: ACTION+9

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	A+1
^ENG(6910.2 - [#6910.2]	P+1
^ENG(6914 - [#6914]	ACTION+28, ACTION+30
^ENG(6920 - [#6920]	EDIT1+5, EDIT1+10, EDIT1+11, EDIT1+13, EDIT1+16, EDIT1+20, EDIT1+25, ACTION+3, ACTION+4, ACTION+5 , ACTION+10, ACTION+11, ACTION+12*, ACTION+13, ACTION+17, ACTION+26, A+2, A+3
^PRCS(410 - [#410]	A+4
^XUSEC("ENEDCLWO"	ACTION+7

Label References

Name	Line Occurrences
@(	ACTION+1
ACTION	EDIT1+5
BAR	PRT1+3
D	EDIT1+5
EDIT	EDIT+3
EDIT1	EDIT+2
EXIT	EDIT+1
READ	EDIT1+5, READ+2, READ+3, READ+5, READ+6

Naked Globals

Name	Field # of Occurrence
^("PRINT BAR CODES ON W.O."	P+1
^(4	A+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	EDIT+1, EDIT1+5, EDIT1+10, EDIT1+11, EDIT1+13, EDIT1+16, EDIT1+20, EDIT1+25, ACTION+3, ACTION+4 , ACTION+5, ACTION+10, ACTION+11, ACTION+12, ACTION+13, ACTION+17, ACTION+25, ACTION+26, ACTION+27, ACTION+28 , ACTION+30, A+2, A+3, A+5, A+7*, PRT1+5~
DIE	EDIT1+8~, EDIT1+9, ACTION+23~, ACTION+26, ACTION+31*
DIR	ACTION+9!
DIR("A"	ACTION+8*
DIR("B"	ACTION+8*
DIR(0	ACTION+8*
DR	EDIT1+8~, EDIT1+10, EDIT1+15, ACTION+23~, ACTION+24, ACTION+25, ACTION+26, ACTION+32, ACTION+34*
DTIME	READ+1
DUZ	ACTION+7
ENBARCD	EDIT1+2~, P+1*, PRT1+3
ENDA	ACTION+23~, ACTION+25*
ENDSTAT	EDIT1+2~, ACTION+24
ENEDIT	EDIT1+2~, EDIT1+3, EDIT1+5, EDIT1+6, ACTION+3, ACTION+22
ENFLG	A+2, A+3, A+9, A+10!
ENINV	EDIT1+2~
ENJ	EDIT1+2~
ENPMDT	EDIT1+18~, EDIT1+21, EDIT1+22, ACTION+15~, ACTION+18, ACTION+19
ENREOPEN	EDIT1+2~, EDIT1+4, EDIT1+10, ACTION+5, ACTION+21
ENWO	EDIT1+2~, BAR+1
ENWOACN	A+3*, A+4, A+5, A+8!
ENWOCLOD	EDIT1+2~, ACTION+11*, ACTION+34
ENWOOR	A+5*, A+7!
ENX	EDIT1+2~, EDIT1+5, READ+1, READ+2, READ+3, READ+4, READ+5, READ+6, ACTION+1, ACTION+24
>> I	EDIT1+21, ACTION+18, P+1*
IO	PRT1
IO("Q"	P+2
>> IOBAROFF	BAR+1
>> IOBARON	BAR+1
IOF	D+1, PRT1, PRT1+4
IOST	D+1, PRT1, PRT1+1, PRT1+4
PMTOT	EDIT1+18~, EDIT1+19, ACTION+15~, ACTION+16
>> POP	P+2
>> R	ACTION+10
TAG	ACTION+1~*
U	EDIT1+5, EDIT1+10, EDIT1+11, EDIT1+13, EDIT1+16, EDIT1+20, ACTION+5, ACTION+10, ACTION+11, ACTION+12 , ACTION+13, ACTION+17, ACTION+24, ACTION+26, A+2, A+3, P+1
X	EDIT1+18~, EDIT1+20, EDIT1+21, ACTION+15~, ACTION+17, ACTION+18, A+1*, P+2~
>> Y	EDIT+1, ACTION+9
>> ZTDESC	P+2*
>> ZTQUEUED	PRT1+7
>> ZTRTN	P+2*
>> ZTSAVE("DA"	P+2*
>> ZTSAVE("EN*"	P+2*
ZTSK	P+2!

Customize PDF page

Package: Engineering

Routine: ENWOD

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: