Routine: ESPJOU

Information

ESPJOU ;DALISC/RWW - ENHANCED PRINT DAILY OPERATIONS JOURNAL;3/99

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
VA FileMan	5	^DIC DT^DICRW EN^DIQ1 ^DIWP ^DIWW
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Police and Security	2	SORT^ESPJOU1 ($$EOP,$$NOW)^ESPUTIL

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
Police and Security	2	ESP PRINT JOURNAL ESPJOU1

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
JOU
Q
START	;BEGINS THE PRINT OF THE DAILY JOURNAL
SEC1
DFM
DTO
SEC2
WATC
SEC3
SEC4
EXIT
HDR	;PRINT HEADING
HDR1	;PRINT CONSECUTIVE HEADERS
HDR4	;SECTION 4 HEADING
HDR2
TIME	; print from time multiple of file 916

External References

Name	Field # of Occurrence
^%ZIS	Q
HOME^%ZIS	Q+1
^%ZISC	SEC4+11
^%ZTLOAD	Q+1
^DIC	JOU+1
DT^DICRW	EN+1
EN^DIQ1	START+3, SEC2+5, WATC+4, TIME+2
^DIWP	SEC3+6, TIME+11
^DIWW	SEC3+8, TIME+13
SORT^ESPJOU1	SEC4+3
$$EOP^ESPUTIL	HDR+1, HDR1+1
$$NOW^ESPUTIL	HDR+10, HDR1+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"DATE not found. Please try again." Line Location: JOU+3
Function Call: WRITE	Prompt: !,"RECORD DOESN'T EXIST!" Line Location: START+3
Function Call: WRITE	Prompt: !,?28,"SECTION I - PERIOD COVERED" Line Location: SEC1+0
Function Call: WRITE	Prompt: !,?28 Line Location: SEC1+1
Function Call: WRITE	Prompt: "=" Line Location: SEC1+1
Function Call: WRITE	Prompt: !!,?19,"FROM: ",ESPF Line Location: DFM+0
Function Call: WRITE	Prompt: ?43,"TO: ",ESPT Line Location: DTO+0
Function Call: WRITE	Prompt: !!,?29,"SECTION II - ASSIGNMENTS" Line Location: SEC2+1
Function Call: WRITE	Prompt: !,?29 Line Location: SEC2+2
Function Call: WRITE	Prompt: "=" Line Location: SEC2+2
Function Call: WRITE	Prompt: ! Line Location: SEC2+3
Function Call: WRITE	Prompt: !,?15,$G(^UTILITY("DIQ1",$J,916.03,DA,.01,"E")) Line Location: WATC+2
Function Call: WRITE	Prompt: ?27,$G(^UTILITY("DIQ1",$J,916.31,DA,.01,"E")),?55,$G(^UTILITY("DIQ1",$J,916.31,DA,.03,"E")),! Line Location: WATC+5
Function Call: WRITE	Prompt: !,?24,"SECTION III - SPECIAL INSTRUCTIONS" Line Location: SEC3+2
Function Call: WRITE	Prompt: !,?24 Line Location: SEC3+3
Function Call: WRITE	Prompt: "=" Line Location: SEC3+3
Function Call: WRITE	Prompt: !!!!!,?7,"REVIEW (Chief, Police Service)",!! Line Location: SEC4+8
Function Call: WRITE	Prompt: ?7,"______________________________" Line Location: SEC4+9
Function Call: WRITE	Prompt: ?45,"Date: _________________________" Line Location: SEC4+10
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: !!!?22,"VA POLICE DAILY OPERATIONS JOURNAL",?70,"Page ",$J(PAGE,3) Line Location: HDR+4
Function Call: WRITE	Prompt: !?26,"(Automated VA Form 10-1433)" Line Location: HDR+5
Function Call: WRITE	Prompt: !?4,"VA Facility" Line Location: HDR+6
Function Call: WRITE	Prompt: ?61,"Date/Time Printed" Line Location: HDR+6
Function Call: WRITE	Prompt: !?4,$P($G(^DG(40.8,ESPFAC,0)),U,1) Line Location: HDR+8
Function Call: WRITE	Prompt: !?4,$S($D(^DIC(4,DUZ(2),0)):$P(^(0),U),1:"") Line Location: HDR+9
Function Call: WRITE	Prompt: ?61,$$NOW^ESPUTIL() Line Location: HDR+10
Function Call: WRITE	Prompt: @IOF,!!!?22,"VA POLICE DAILY OPERATIONS JOURNAL",?70,"Page ",$J(PAGE,3) Line Location: HDR1+2
Function Call: WRITE	Prompt: !?25,"(Automated VA Form 10-1433a)" Line Location: HDR1+3
Function Call: WRITE	Prompt: ?61,$$NOW^ESPUTIL() Line Location: HDR1+4
Function Call: WRITE	Prompt: !!?18,"FROM: ",ESPF Line Location: HDR1+5
Function Call: WRITE	Prompt: ?43,"TO: ",ESPT,! Line Location: HDR1+6
Function Call: WRITE	Prompt: !,?28,"SECTION IV - ENTRY SUMMARY" Line Location: HDR4+2
Function Call: WRITE	Prompt: !,?28 Line Location: HDR4+3
Function Call: WRITE	Prompt: "=" Line Location: HDR4+3
Function Call: WRITE	Prompt: !!,?4,"TIME",?14,"OFFICER",?27,"ACTIVITY" Line Location: HDR4+4
Function Call: WRITE	Prompt: !,?4 Line Location: HDR4+5
Function Call: WRITE	Prompt: "=" Line Location: HDR4+5
Function Call: WRITE	Prompt: !,?4,"TIME",?14,"OFFICER",?27,"ACTIVITY" Line Location: HDR2+1
Function Call: WRITE	Prompt: !,?4 Line Location: HDR2+2
Function Call: WRITE	Prompt: "=" Line Location: HDR2+2
Function Call: WRITE	Prompt: !,?4,$G(^UTILITY("DIQ1",$J,916.05,DA,.01,"E")) Line Location: TIME+4
Function Call: WRITE	Prompt: ?14,$E($P(NM,","),1,5),",",$E($P(NM,",",2)),$J($E($P($P(NM,",",2)," ",2)),2) Line Location: TIME+6
Function Call: WRITE	Prompt: ?27,$G(^UTILITY("DIQ1",$J,916.05,DA,2,"E")) Line Location: TIME+7
Function Call: WRITE	Prompt: ?4 Line Location: TIME+14
Function Call: WRITE	Prompt: "-" Line Location: TIME+14
Routine Call	%ZIS Line Location: Q
Routine Call	%ZIS Line Location: Q+1
Routine Call	DIC Line Location: JOU+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ESP(916 - [#916]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	HDR+8
^DIC(4 - [#4]	HDR+9
^ESP(916 - [#916]	SEC2+4, WATC+3, SEC3+4, SEC4+1, HDR+7, TIME+9
^TMP($J	SEC4+5, EXIT+1!
^UTILITY("DIQ1"	START+1!, START+3, SEC1+2, SEC2+5, WATC+2, WATC+4, WATC+5, EXIT+1!, TIME+2, TIME+4 , TIME+5, TIME+7
^UTILITY($J	SEC3!, TIME+8!

Label References

Name	Line Occurrences
EXIT	JOU+2, Q, Q+1, START+2, START+3, SEC2, WATC+6, SEC3+1, SEC3+7, SEC4 , SEC4+6, SEC4+7
HDR	START+2
HDR1	SEC2, WATC+1, SEC3+1, SEC3+5, SEC4+7, HDR4+1, TIME+3, TIME+10
HDR2	TIME+3
HDR4	SEC4
JOU	JOU+3
START	Q
TIME	SEC4+1, SEC4+5

Naked Globals

Name	Field # of Occurrence
^(	SEC3+4, SEC4+5, TIME+9
^(0	HDR+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EXIT!
%ZIS	Q*, EXIT!
CL	EXIT!
DA	START+3, SEC1+2, SEC2+5, WATC+2, WATC+4, WATC+5, EXIT!, TIME+2, TIME+4, TIME+5 , TIME+7
DIC	JOU, START+3, SEC2+5, WATC+4, EXIT!, TIME+2*
DIC("A"	JOU*
DIC(0	JOU*
DIQ	EXIT!
DIQ(0	START+3, SEC2+5, WATC+4, TIME+2
DIR	EXIT!
DIRUT	EXIT!
DIWF	SEC3, EXIT!, TIME+8
DIWL	SEC3, EXIT!, TIME+8
DIWR	SEC3, EXIT!, TIME+8
DR	START+3, SEC2+5, WATC+4, EXIT!, TIME+2
DTOUT	JOU+2, EXIT!
DUOUT	JOU+2, EXIT!
DUZ(2	HDR+9
END	START+2, SEC2, SEC2+4, WATC+1, WATC+6, SEC3+1, SEC3+4, SEC3+5, SEC3+7, SEC4 , SEC4+1, SEC4+5, SEC4+6, SEC4+7, EXIT!, HDR+1, HDR1+1*, HDR4+1, TIME+3, TIME+9 , TIME+10, TIME+12
ESPF	SEC1+2*, DFM, EXIT!, HDR1+5
ESPFAC	START+1~, HDR+7*, HDR+8
ESPID	JOU+4*, START+3, SEC2+4, SEC2+5, WATC+3, WATC+4, SEC3+4, SEC4+1, EXIT!, HDR+7 , TIME+2, TIME+9
>> ESPJOU1	SEC4+1, SEC4+2
ESPN	SEC2+4, SEC2+5, WATC+3, WATC+4, SEC3+4, SEC4+1, SEC4+5, EXIT!, TIME+2, TIME+9
ESPN1	WATC+3, WATC+4, EXIT!, TIME+9
ESPT	SEC1+2*, DTO, EXIT!, HDR1+6
ESPTI	SEC4+4, SEC4+5, EXIT!
ESPTIME	EXIT!
I	SEC1+1, SEC2+2, SEC3+3, EXIT!, HDR4+3, HDR4+5, HDR2+2, TIME+14*
IEN	SEC3, SEC3+4, EXIT!, TIME+8, TIME+9
IO	Q
IO("Q"	Q
IOF	HDR+1, HDR+2, HDR1+2
IOSL	SEC2, WATC+1, SEC3+1, SEC3+5, SEC4+7, HDR4+1, TIME+3, TIME+10
IOST	HDR+2
NAME	WATC*, EXIT!
NM	TIME+1~, TIME+5*, TIME+6
PAGE	START+2, EXIT!, HDR+1, HDR+3, HDR+4, HDR1+2*
PDUZ	WATC*, EXIT!
POP	Q, EXIT!
U	HDR+7, HDR+8, HDR+9
X	JOU+2, SEC3+4, EXIT!, HDR2, TIME+9*
Y	JOU+3, JOU+4, EXIT!
ZTDESC	Q+1*, EXIT!
ZTRTN	Q+1*, EXIT!
ZTSAVE	EXIT!
ZTSAVE("ESP*"	Q+1*

Customize PDF page

Package: Police and Security

Routine: ESPJOU

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: