Routine: ENFAR2

Information

ENFAR2 ;WIRMFO/SAB-FIXED ASSET RPT, CAPITALIZED EQUIPMENT SUMMARY; 7/19/96

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA FileMan	4	DD^%DT NOW^%DTC $$GET1^DIQ ^DIR
Kernel	3	(,HOME)^%ZIS ^%ZISC (,$$S)^%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	ENFAR2

Entry Points

Name	Comments	DBIA/ICR reference
EN	; ; ask type of breakdown
QEN	; queued entry
EXIT
HD	; header

External References

Name	Field # of Occurrence
DD^%DT	QEN+22
NOW^%DTC	QEN+22
^%ZIS	EN+9
HOME^%ZIS	EN+13
^%ZISC	QEN+48
^%ZTLOAD	EN+13
$$S^%ZTLOAD	QEN+8, HD+1
$$GET1^DIQ	QEN+4, QEN+16
^DIR	EN+4, QEN+47, HD+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report searches the entire equipment file and may take some" Line Location: EN+7
Function Call: WRITE	Prompt: !,"time to complete. Consider queuing this report to run after-hours." Line Location: EN+8
Function Call: WRITE	Prompt: !,?12,ENFUND,?22,ENSGL Line Location: QEN+32
Function Call: WRITE	Prompt: ?30,$J($P(ENT(ENSN,ENFUND,ENSGL),U),5) Line Location: QEN+33
Function Call: WRITE	Prompt: ?38,"$",$J($FN($P(ENT(ENSN,ENFUND,ENSGL),U,2),",",2),16) Line Location: QEN+34
Function Call: WRITE	Prompt: !,?30,"-----",?38,"-----------------" Line Location: QEN+41
Function Call: WRITE	Prompt: !,?30,$J($P(ENTF,U),5),?38,"$",$J($FN($P(ENTF,U,2),",",2),16),! Line Location: QEN+42
Function Call: WRITE	Prompt: !,?30,"-----",?38,"-----------------" Line Location: QEN+44
Function Call: WRITE	Prompt: !,?16,"STATION TOTAL" Line Location: QEN+45
Function Call: WRITE	Prompt: ?30,$J($P(ENTS,U),5),?38,"$",$J($FN($P(ENTS,U,2),",",2),16) Line Location: QEN+46
Function Call: WRITE	Prompt: @IOF Line Location: HD+3
Function Call: WRITE	Prompt: !,"CAPITALIZED NX EQUIP. SUMMARY FOR STATION: ",ENSN Line Location: HD+5
Function Call: WRITE	Prompt: ?49,ENDT,?72,"page ",ENPG Line Location: HD+6
Function Call: WRITE	Prompt: !,ENL Line Location: HD+7
Function Call: WRITE	Prompt: !!,?20,"STANDARD",?38,"TOTAL" Line Location: HD+8
Function Call: WRITE	Prompt: !,?20,"GENERAL",?30,"ITEM",?38,"ASSET" Line Location: HD+9
Function Call: WRITE	Prompt: !,?12,"FUND",?20,"LEDGER",?30,"COUNT",?38,"VALUE" Line Location: HD+10
Function Call: WRITE	Prompt: !,?12,"------",?20,"--------",?30,"-----",?38,"-----------------" Line Location: HD+11
Routine Call	DIR Line Location: EN+4 QEN+47 HD+2
Routine Call	%ZIS Line Location: EN+9
Routine Call	%ZIS Line Location: EN+13

FileNo	Call Tags
^DIC(6910 - [#6910]	GET1^DIQ
^ENG(6914 - [#6914]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ENG(6914 - [#6914]	QEN+6, QEN+9, QEN+11, QEN+12, QEN+13, QEN+19
^ENG(6914.6 - [#6914.6]	QEN+15

Label References

Name	Line Occurrences
EXIT	EN+4, EN+9, EN+10
HD	QEN+25, QEN+31, QEN+40, QEN+43

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	QEN+22
>> %ZIS	EN+9*
DIR	EN+4!, QEN+47!, EXIT+1!, HD+2!
DIR("A"	EN+2*
DIR("B"	EN+3*
DIR(0	EN+2, QEN+47, HD+2*
DIROUT	EXIT+1!
DIRUT	EN+4, EXIT+1!
DIWF	EXIT+1!
DIWL	EXIT+1!
DTOUT	EXIT+1!
DUOUT	EXIT+1!
ENBYFUND	EN+5*, QEN+5, QEN+15, QEN+39, EXIT+2!
ENC	QEN+3, QEN+7, QEN+8, EXIT+2!
END	QEN+3, QEN+6, QEN+8, QEN+24, QEN+25, QEN+27, QEN+30, QEN+31, QEN+40, QEN+43 , QEN+47, EXIT+3!, HD+1, HD+2
ENDA	QEN+6*, QEN+9, QEN+11, QEN+12, QEN+13, QEN+16, QEN+19, EXIT+2!
ENDT	QEN+22*, EXIT+3!, HD+6
ENFUND	QEN+5, QEN+15, QEN+18, QEN+19, QEN+27*, QEN+30, QEN+32, QEN+33, QEN+34, QEN+35 , QEN+36, EXIT+2!
ENL	QEN+23*, EXIT+3!, HD+7
ENPG	QEN+22, EXIT+3!, HD+2, HD+3, HD+4, HD+6
ENSGL	QEN+16, QEN+17, QEN+18, QEN+19, QEN+29, QEN+30, QEN+32, QEN+33, QEN+34, QEN+35 , QEN+36, EXIT+2!
ENSN	QEN+14, QEN+18, QEN+19, QEN+24, QEN+27, QEN+30, QEN+33, QEN+34, QEN+35, QEN+36 , EXIT+2!, HD+5
ENSND	QEN+4*, QEN+14, EXIT+2!
ENT	QEN+3!, EXIT+2!
ENT(	QEN+18, QEN+19, QEN+24, QEN+27, QEN+30, QEN+33, QEN+34, QEN+35, QEN+36
ENTF	QEN+28, QEN+35, QEN+36*, QEN+37, QEN+38, QEN+42, EXIT+2!
ENTS	QEN+26, QEN+37, QEN+38*, QEN+46, EXIT+2!
ENY8	QEN+9*, QEN+10, QEN+20!
ENY9	QEN+13*, QEN+14, QEN+15, QEN+20!
IO	QEN+1
IO("Q"	EN+10
IOF	HD+3
IOM	QEN+23
IOSL	QEN+31, QEN+40, QEN+43
IOST	QEN+47, HD+2, HD+3
>> POP	EN+9
U	QEN+10, QEN+11, QEN+12, QEN+14, QEN+15, QEN+18, QEN+19, QEN+33, QEN+34, QEN+35 , QEN+36, QEN+37, QEN+38, QEN+42, QEN+46
X	QEN+15*, EXIT+1!
Y	EN+5, QEN+22*, EXIT+1!, HD+2
>> ZTDESC	EN+12*
>> ZTQUEUED	QEN+8, EXIT, HD+1
>> ZTREQ	EXIT*
>> ZTRTN	EN+11*
>> ZTSAVE("ENBYFUND"	EN+11*
ZTSK	EN+13!
>> ZTSTOP	QEN+8, HD+1

Customize PDF page

Package: Engineering