Routine: ENEQMED3

Package	Total	Call Graph
VA FileMan	5	DD^%DT $$GET1^DID ^DIR ^DIWP ^DIWW
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

Package	Total	Caller Graph
Engineering	1	ENEQMED2

Entry Points

Name	Comments	DBIA/ICR reference
EN	; ; Input Variables ; ^TMP($J,"ENFLD",field number) modified fields array ; ^TMP($J,"ENSEL",equip ien) selected equipment array ; ^TMP($J,"ENCOM", word processing array for comments ; ^TMP($J,"ENSPEX", word processing array for spex ; ^TMP($J,"ENLCK",equip ien) equipment that couldn't be locked/updated
QEN	; queued entry
EXIT
HD	; header

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"PM DATA" Line Location: QEN+7
Function Call: WRITE	Prompt: !,"COMMENTS" Line Location: QEN+8
Function Call: WRITE	Prompt: !,"SPEX" Line Location: QEN+14
Function Call: WRITE	Prompt: !,$$GET1^DID(6914,ENFLD,"","LABEL"),?35 Line Location: QEN+21
Function Call: WRITE	Prompt: $S(ENVALE]"":$E(ENVALE,1,40),1:"(individually specified for each item)") Line Location: QEN+22
Function Call: WRITE	Prompt: !!,ENHDR2 Line Location: QEN+27
Function Call: WRITE	Prompt: !," Some of the selected equipment could not be updated because it" Line Location: QEN+28
Function Call: WRITE	Prompt: !," was being edited by another process. This equipment will need" Line Location: QEN+29
Function Call: WRITE	Prompt: !," to be edited to make the desired changes." Line Location: QEN+30
Function Call: WRITE	Prompt: ! Line Location: QEN+33
Function Call: WRITE	Prompt: ?(ENI#6*12),ENDA Line Location: QEN+34
Function Call: WRITE	Prompt: !!,ENHDR2 Line Location: QEN+38
Function Call: WRITE	Prompt: ! Line Location: QEN+42
Function Call: WRITE	Prompt: ?(ENI#6*12),ENDA Line Location: QEN+43
Function Call: WRITE	Prompt: @IOF Line Location: HD+2
Function Call: WRITE	Prompt: "Multiple Edit of Equipment Report",?50,ENDT,?70,"page ",ENPG Line Location: HD+5
Function Call: WRITE	Prompt: !,ENDASH,! Line Location: HD+6
Function Call: WRITE	Prompt: !,ENHDR2,! Line Location: HD+7
Routine Call	DIR Line Location: HD+1
Routine Call	%ZIS Line Location: EN+7
Routine Call	%ZIS Line Location: EN+13

FileNo	Call Tags
^ENG(6914 - [#6914]	GET1^DID

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	QEN+6, QEN+11, QEN+17, QEN+20, QEN+24, QEN+32, QEN+40, QEN+41, EXIT!

Name	Line Occurrences
EXIT	QEN+23
HD	QEN+4, QEN+6, QEN+26, QEN+33, QEN+37, QEN+42

Name	Field # of Occurrence
^(	QEN+11, QEN+17

Name	Field # of Occurrence
>> %ZIS	EN+7*
DA	EXIT+1!
DIC	EXIT+1!
DIQ	EXIT+1!
DIR	HD+1!
DIR(0	HD+1*
DIROUT	EXIT+1!
DIRUT	EXIT+1!
DIWF	QEN+9, QEN+13!, QEN+15, QEN+19!
DIWL	QEN+9, QEN+13!, QEN+15, QEN+19!
DIWR	QEN+9, QEN+13!, QEN+15, QEN+19!
DR	EXIT+1!
DT	QEN+2
DTOUT	EXIT+1!
DUOUT	EXIT+1!
END	QEN+2, QEN+6, QEN+23, QEN+32, QEN+33, QEN+40, QEN+42, EXIT+2!, HD+1
ENDA	QEN+31, QEN+32, QEN+34, QEN+39, QEN+40, QEN+41, QEN+43, EXIT+2!
ENDASH	QEN+4*, EXIT+2!, HD+6
ENDIQ	EXIT+2!
ENDT	QEN+2*, EXIT+2!, HD+5
ENFLD	QEN+5, QEN+6, QEN+7, QEN+8, QEN+14, QEN+20, QEN+21, EXIT+2!
ENHDR2	QEN+3, QEN+25, QEN+27, QEN+36*, QEN+38, EXIT+2!, HD+7
ENI	QEN+10, QEN+11, QEN+16, QEN+17, QEN+31, QEN+33, QEN+34, QEN+35, QEN+39, QEN+42 , QEN+43, QEN+44, EXIT+2!
ENPG	QEN+2, EXIT+2!, HD+1, HD+2, HD+3, HD+5
ENVALE	QEN+20*, QEN+22, EXIT+2!
IO	QEN+1
IO("Q"	EN+8
IOF	HD+2
IOM	QEN+4
IOSL	QEN+6, QEN+26, QEN+33, QEN+37, QEN+42
IOST	HD+1, HD+2
>> POP	EN+7
U	QEN+20
X	QEN+11, QEN+13!, QEN+17, QEN+19!, EXIT+1!
Y	QEN+2*, EXIT+1!, HD+1
>> ZTDESC	EN+9*
>> ZTQUEUED	EXIT
>> ZTREQ	EXIT*
>> ZTRTN	EN+9*
>> ZTSAVE("^TMP($J,""ENCOM"","	EN+11*
>> ZTSAVE("^TMP($J,""ENFLD"","	EN+10*
>> ZTSAVE("^TMP($J,""ENLCK"","	EN+12*
>> ZTSAVE("^TMP($J,""ENSEL"","	EN+10*
>> ZTSAVE("^TMP($J,""ENSPEX"","	EN+11*
ZTSK	EN+13!