Routine: FHORC3

Package	Total	Call Graph
Dietetics	3	(DTP,EN2,TR)^FH PID^FHDPA PATNAME^FHOMUTL
Kernel	3	^%ZIS ^%ZISC KILL^XUSCLEAN
VA Fileman	1	^%DT

Package

Total

Call Graph

Dietetics

(DTP,EN2,TR)^FH PID^FHDPA PATNAME^FHOMUTL

Kernel

^%ZIS ^%ZISC KILL^XUSCLEAN

VA Fileman

^%DT

Package	Total	Caller Graph
Dietetics	1	FHORC10

Package

Total

Caller Graph

Dietetics

FHORC10

Name	Field # of Occurrence
^%DT	D1, D2
^%ZIS	F1+2
^%ZISC	F1+4
DTP^FH	R4+9, P1
EN2^FH	F1+3
TR^FH	F0, F1
PID^FHDPA	P5+2
PATNAME^FHOMUTL	P5+1
KILL^XUSCLEAN	KIL

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "Break-down by Clinician? Y// " Formatting: !! Timeout: DTIME Variable: X Line Location: F0+0
Function Call: WRITE	Prompt: *7," Answer YES or NO" Line Location: F0+0
Function Call: READ	Prompt: "List Individual Patient Consults? N// " Formatting: !! Timeout: DTIME Variable: X Line Location: F1+0
Function Call: WRITE	Prompt: *7," Answer YES or NO" Line Location: F1+0
Function Call: WRITE	Prompt: ! Line Location: F1+2
Function Call: WRITE	Prompt: !?59,"Number Units",! Line Location: P1+0
Function Call: WRITE	Prompt: !,$P(X,"^",1) Line Location: P1+1
Function Call: WRITE	Prompt: " (FU)" Condition for execution: NX["F" Line Location: P1+1
Function Call: WRITE	Prompt: ?60,$J(D(NX),5,0),$J(D(NX)*W1,13,2) Line Location: P1+1
Function Call: WRITE	Prompt: ! Line Location: P1+4
Function Call: WRITE	Prompt: !!,NX Line Location: P2+0
Function Call: WRITE	Prompt: !?3,"TOTAL CONSULTS",?63,$J(I1,5,0),$J(I2,10,2) Line Location: P2+2
Function Call: WRITE	Prompt: !?3,$P(X,"^",1) Line Location: P3+0
Function Call: WRITE	Prompt: " (FU)" Condition for execution: D2["F" Line Location: P3+0
Function Call: WRITE	Prompt: ?63,$J(D(0),5,0),$J(D(0)*W1,10,2) Line Location: P3+0
Function Call: WRITE	Prompt: !?6,D(0),?17,BID,?27,$P(Y,"^",1) Line Location: P5+3
Function Call: WRITE	Prompt: ! Line Location: D1+0
Function Call: WRITE	Prompt: *7," [End before Start?] " Line Location: D2+1
Function Call: WRITE	Prompt: !?17,"D I E T E T I C C O N S U L T U N I T S",?71,"Page ",PG Line Location: HEAD+0
Function Call: WRITE	Prompt: !!?(78-$L(DTE)\2),DTE,! Line Location: HEAD+1
Routine Call	%ZIS Line Location: F1+2

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	P5+2
^FH(119.5 - [#119.5]	P1+1, P3
^FHPT - [#115]	R4+1
^FHPT("ADR"	R1, R2, R3, R4
^TMP($J	KIL!, Q1+1!, R4+6, R4+7, R4+8, R4+9, R4+10, R4+11*, P1+3, P2+1 , P4, P5
^VA(200 - [#200]	R4+6

Name	Line Occurrences
D1	D1, D2+1
D2	D2
DT	FHORC3+2
F0	F0
F1	F1
HEAD	P1, P1+2, P2, P3
KIL	FHORC3+2, F0, F1, F1+2, F1+3, F1+4
P1	R1
P2	P1+3
P3	P2+1
P4	P5
P5	P5+2, P5+3
Q1	F1+4
R1	R2
R2	R3
R3	R4
R4	R4+2, R4+3, R4+6, R4+8, R4+11

Name	Field # of Occurrence
^(	R4+9*, P2+1, P4, P5
^(0	R4+10*

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	D1, D2
>> %DT("A"	D1, D2
%ZIS	F1+2!*, F1+4!
%ZIS("A"	F1+2*
>> ADM	R2, R3, R4, R4+1
>> BID	P5+3
D	Q1+1!
D(	R4+5*, P1+1
D(0	P2+1, P3, P4, P5+3
>> D1	R4+3, R4+6, R4+7, R4+8, R4+9, R4+10, R4+11, P1+3, P2+1, P4 , P5
>> D2	R4+3, R4+4, R4+5, R4+7, R4+8, R4+9, R4+10, R4+11, P2+1*, P3 , P4, P5
>> DFN	P5+1, P5+2
>> DR	R3, R4, R4+1
>> DTE	P1*, HEAD+1
DTIME	F0, F1
>> DTOUT	D1, D2
>> DTP	R4+9, P1, P3+1, P4, P5
>> EDT	Q1+1, P1, D2*, D2+1
>> FHDFN	R1+1, R2, R3, R4, R4+1, R4+11, P5*
>> FHLST	F1+3*
>> FHPGM	F1+3*
>> FHX1	F0+1*, F1, F1+1, R4+6, P1+2
>> FHX2	F0+1, F1+1, R4+8, P3+1
>> I1	P1+1, P1+2, P2, P2+2, P3*
>> I2	P1+1, P1+2, P2, P2+2, P3*
IO	F1+4
IO("Q"	F1+3
IOF	HEAD
IOP	F1+2!, F1+4!
IOST	HEAD
>> K	P1+1, P1+3
>> L	R4+10, R4+11, P2+1
>> NAM	R4+6*
>> NX	P1+1, P1+3, P2
>> PG	P1, HEAD
>> POP	F1+2
>> S1	R4+4*
>> SDT	Q1+1, P1, D1*, D2+1
>> ST	R4+2*
U	FHORC3+2, F0, F1, D1, D2
>> W1	R4+9, R4+10, R4+11, P1+1, P3, P4, P5*
>> X	FHORC3+2, F0, F0+1, F1, F1+1, P1+1, P3, D1, D2
>> X1	Q1+1, R1, R2, R3, R4
>> X2	Q1+1*, R1
>> Y	R4+1, R4+2, R4+3, R4+4, R4+9, P5+2, P5+3, D1, D2

Customize PDF page

Package: Dietetics

Routine: FHORC3

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
F0
F1
Q1	; Print Consult Statistics
P1
R1
R2
R3
P4
P3
P5
P2
HEAD
KIL
R4
DT	; Get From/To Dates
D2
D1