Routine: ENPL3A

Information

ENPL3A ;(WASH ISC)/LKG-PRINT MINOR DESIGN/MISC PRIORITY SHEET ;4/29/94

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
VA FileMan	4	^DIC EN^DIQ1 ^DIWP ^DIWW
Engineering	2	(H,IN,J)^ENPL3 (D,EX,EX0)^ENPL3B
Kernel	2	(,HOME)^%ZIS ^%ZTLOAD

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	ENPLM03

Entry Points

Name	Comments	DBIA/ICR reference
A	;Entry point for printing Sheet
C
C1

External References

Name	Field # of Occurrence
^%ZIS	A+4
HOME^%ZIS	A+5
^%ZTLOAD	A+5
^DIC	A+2
EN^DIQ1	C+2, C1+6
^DIWP	C1+25
^DIWW	C1+26
H^ENPL3	C1+18
IN^ENPL3	C1+28
J^ENPL3	C
D^ENPL3B	C1+33
EX^ENPL3B	A+3, A+4
EX0^ENPL3B	C1+19, C1+27

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $E(IOST,1,2)="C-" Line Location: C+0
Function Call: WRITE	Prompt: !,?80-$L(X)\2,X Line Location: C+0
Function Call: WRITE	Prompt: !!,"Medical Center: ",ENM(4,DA,.01,"E") Line Location: C+3
Function Call: WRITE	Prompt: " (",$P(^(15),U),")" Line Location: C1+0
Function Call: WRITE	Prompt: !,"Project Title:",?60,"Project #",!,$P(ENN,U,3),?60,$P(ENN,U) Line Location: C1+1
Function Call: WRITE	Prompt: !!,"Category: ",ENM Line Location: C1+4
Function Call: WRITE	Prompt: !!,"TOTAL ESTIMATED: Construction Cost: ",$FN(ENM,",") Line Location: C1+8
Function Call: WRITE	Prompt: ?55,"Design Cost: ",$FN(ENM(6925,DA,220.1,"E"),",") Line Location: C1+9
Function Call: WRITE	Prompt: !!,"Activations FY: ",$P(ENM,U) Line Location: C1+10
Function Call: WRITE	Prompt: !,?2,"Additional FTEE Required:",?32,$J($FN($P(ENM,U,3)+0,",",2),11) Line Location: C1+11
Function Call: WRITE	Prompt: ?45,"Recurring PS $:",?68,$J($FN($P(ENM,U,4)+0,",",0),11) Line Location: C1+12
Function Call: WRITE	Prompt: !,?2,"Non-Recurring All Other $:",?29,$J($FN($P(ENM,U,6)+0,",",0),11) Line Location: C1+13
Function Call: WRITE	Prompt: ?45,"Equipment $:",?68,$J($FN($P(ENM,U,5)+0,",",0),11) Line Location: C1+14
Function Call: WRITE	Prompt: !,?2,"Travel .007 $:",?29,$J($FN($P(ENM,U,7)+0,",",0),11) Line Location: C1+15
Function Call: WRITE	Prompt: ?45,"Recurring all other $:",?68,$J($FN($P(ENM,U,2)+0,",",0),11) Line Location: C1+16
Function Call: WRITE	Prompt: !!,"Major/Minor Funded Projects to which Domino",!,?2,"#",?15,"Title",?70,"Type" Line Location: C1+17
Function Call: WRITE	Prompt: !,?2,X,?15,$P(ENL(X),U),?70,$P(ENL(X),U,2) Line Location: C1+18
Function Call: READ	Variable: X Timeout: DTIME Line Location: C1+19
Function Call: WRITE	Prompt: @IOF Line Location: C1+19
Function Call: WRITE	Prompt: !!,"Equipment Over $250K:" Line Location: C1+20
Function Call: WRITE	Prompt: !,?2,"Name: ",$P(ENM,U),?40,"A/R: ",$P(ENM,U,4),?50,"Qty: ",$P(ENM,U,2),?62,"$",$FN($P(ENM,U,2)*$P(ENM,U,3),",",0) Line Location: C1+22
Function Call: WRITE	Prompt: !!,"Brief Project Description: " Line Location: C1+23
Function Call: READ	Variable: X Timeout: DTIME Line Location: C1+27
Function Call: WRITE	Prompt: @IOF Line Location: C1+27
Function Call: WRITE	Prompt: !!,?70,"POINTS" Line Location: C1+28
Function Call: WRITE	Prompt: !,"1. Cited JCAHO/AALAC/CAP Accreditation Deficiency." Line Location: C1+29
Function Call: WRITE	Prompt: !,?6,"Date",?19,"Page",?29,"Name/Title" Line Location: C1+30
Function Call: WRITE	Prompt: !,?2,"(",ENA,")",?6,$P(ENF(1,ENA),U),?19,$P(ENF(1,ENA),U,2),?29,$P(ENF(1,ENA),U,3) Line Location: C1+31
Function Call: WRITE	Prompt: !,?70,$J($P($G(ENF),U)+0,2) Line Location: C1+32
Routine Call	%ZIS Line Location: A+4
Routine Call	%ZIS Line Location: A+5
Routine Call	DIC Line Location: A+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(4 - [#4]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ENG("PROJ" - [#6925]	C1, C1+3, C1+10, C1+21, C1+22, C1+25
^OFM(7336.8 - [#7336.8]	C1+3
^UTILITY($J	C1+23!, C1+26!

Label References

Name	Line Occurrences
A	A+5, A+7
C	A+6
C1	C+1

Naked Globals

Name	Field # of Occurrence
^(	C1+22, C1+25
^(15	C1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	A+4*
>> DA	C+1, C+3, C1+5, C1+7, C1+9
DIC	A+1, A+2!, C+1, C+2!, C1+5*, C1+6!
DIC("A"	A+2*
DIC("S"	A+1*
DIC(0	A+2*
DIQ	C+1, C+2!, C1+5, C1+6!
DIQ(0	C+1, C1+5
DIWF	C1+24*, C1+26!
DIWL	C1+24*, C1+26!
DIWR	C1+24*, C1+26!
DR	C+2!, C1+5, C1+6!
DTIME	C1+19, C1+27
>> DTOUT	A+3
>> DUOUT	A+3
>> ENA	C1+25, C1+26, C1+30, C1+31*
>> ENDA	A+4*, C1, C1+3, C1+5, C1+10, C1+21, C1+22, C1+25
>> ENF	C1+32
>> ENF(1	C1+31, C1+32!
ENL	C1+20!
ENL(	C1+18
ENM	C+1!, C1+3!, C1+4!, C1+7, C1+8, C1+9!, C1+10, C1+11, C1+12, C1+13 , C1+14, C1+15, C1+16!, C1+22, C1+23!, C1+24, C1+25
ENM(4	C+3
ENM(6925	C1+7, C1+9
>> ENN	A+4, C+1, C1+1, C1+2
IO	C
IO("Q"	A+5!
IOF	C, C1+19, C1+27
IOST	C, C1+19, C1+27
>> POP	A+4
U	C+1*, C1, C1+1, C1+2, C1+3, C1+10, C1+11, C1+12, C1+13, C1+14 , C1+15, C1+16, C1+18, C1+22, C1+31, C1+32
>> X	C, C1+18, C1+19, C1+21, C1+22, C1+25, C1+27
Y	A+3, A+4!
Y(0	A+4
ZTDESC	A+5*!
>> ZTQUEUED	C1+19, C1+27
ZTRTN	A+5*!
ZTSAVE	A+5!
ZTSAVE("ENDA"	A+5*
ZTSAVE("ENN"	A+5*
ZTSK	A+5!

Customize PDF page

Package: Engineering