Routine: FHORD9

Package	Total	Call Graph
Dietetics	5	EN2^FH GETGM^FHOMRBL1 (GETRM,GETSM)^FHOMRBLD DIV^FHOMUTL ^FHORD91
Kernel	3	^%ZIS ^%ZISC KILL^XUSCLEAN
VA Fileman	3	^%DT NOW^%DTC ^DIC

Package	Total	Caller Graph
Dietetics	3	FHORD11 FHORD93 FHPRO2

Entry Points

External References

Name	Field # of Occurrence
^%DT	F0
NOW^%DTC	FHORD9+5, Q1+1
^%ZIS	F0+2
^%ZISC	F0+4
^DIC	D0+1
EN2^FH	F0+3
GETGM^FHOMRBL1	Q1+10
GETRM^FHOMRBLD	Q1+12
GETSM^FHOMRBLD	Q1+9
DIV^FHOMUTL	FHORD9+6
^FHORD91	Q1+14
KILL^XUSCLEAN	KIL

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "Select PRODUCTION FACILITY: " Formatting: !! Timeout: DTIME Variable: X Line Location: D0+0
Function Call: READ	Prompt: "Effective Date/Time: " Formatting: !! Timeout: DTIME Variable: X Line Location: F0+0
Function Call: WRITE	Prompt: *7," Cannot be before TODAY!" Line Location: F0+1
Function Call: WRITE	Prompt: ! Line Location: F0+2
Routine Call	DIC Line Location: D0+1
Routine Call	%ZIS Line Location: F0+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^FH(119.71 - [#119.71]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^FH(111 - [#111]	REC+19, REC+20, SPEC+17, SPEC+18, GUEST+18
^FH(119.6 - [#119.6]	Q1+2, REC+10, REC+11, REC+12, REC+15, SPEC+7, SPEC+8, SPEC+9, SPEC+12, GUEST+10 , GUEST+11, GUEST+12, GUEST+15
^FH(119.71 - [#119.71]	FHORD9+7
^FH(119.72 - [#119.72]	WRD+1, REC+13, REC+14, SPEC+10, SPEC+11, GUEST+13, GUEST+14
^FH(119.73 - [#119.73]	PROSG+2
^FH(119.9 - [#119.9]	REC+16, SPEC+13, GUEST+16
^FHPT - [#115]	W3, W3+1, W3+3, W3+5, W3+6, U1, U1+1, U3, U3+1!, U3+2! , REC+25
^FHPT("AW"	WRD+4
^TMP($J	FHORD9+5!, Q1+1!, KIL!

Label References

Name	Line Occurrences
CNT	W3+7, W4
D0	D0+1
F0	FHORD9+7, F0, F0+1
KIL	FHORD9+6, D0, F0, F0+2, F0+3, F0+4
PROSG	Q1+13
Q1	F0+4
U1	W3+3, W3+4, W3+5, U3
U2	U1+1
U3	U3+1, U3+2, U3+3
W3	WRD+4
W4	W3+3, W3+4, W3+5
WRD	Q1+3, Q1+4

Naked Globals

Name	Field # of Occurrence
^(	Q1+2, U3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	FHORD9+5!, Q1+1!
>> %DT	F0*
%ZIS	F0+2!*, F0+4!
%ZIS("A"	F0+2*
>> A1	W3+3, U1, U1+1, U2, U3, U3+1, U3+2
>> ADM	WRD+4*, W3, W3+1, W3+3, W3+5, W3+6, U1, U1+1, U3, U3+1 , U3+2
>> CT	Q1+1*
D	Q1+1!
D(	WRD+1*
>> D2	WRD+1*
DIC	D0+1!*
DIC(0	D0+1*
DT	FHORD9+5*, F0+1
DTIME	D0, F0
>> FHDFN	WRD+4*, W3, W3+1, W3+3, W3+5, W3+6, U1, U1+1, U3, U3+1 , U3+2
>> FHDIET	REC+9, REC+16, REC+19, REC+20, SPEC+6, SPEC+13, SPEC+17, SPEC+18, GUEST+9, GUEST+16
>> FHDIETN	REC+18, REC+19, SPEC+16, SPEC+17, GUEST+17*, GUEST+18
>> FHDT	REC+1*, REC+6, SPEC+4, GUEST+6
>> FHI	REC+4, REC+6, REC+7, REC+10, SPEC+2, SPEC+4, SPEC+5, SPEC+7, GUEST+4*, GUEST+6 , GUEST+7, GUEST+10
>> FHIJKDAT	REC+7, REC+17, REC+18, SPEC+5, SPEC+14, SPEC+16, GUEST+7*, GUEST+17
>> FHJ	REC+4, REC+6, REC+7, SPEC+2, SPEC+4, SPEC+5, GUEST+4*, GUEST+6, GUEST+7
>> FHK	REC+6, REC+7, REC+25, SPEC+4, SPEC+5, GUEST+6*, GUEST+7
>> FHLD	W3+6, W3+8, W3+9, W3+10
>> FHLOC	REC+9, REC+10, REC+11, REC+12, REC+15, SPEC+6, SPEC+7, SPEC+8, SPEC+9, SPEC+12 , GUEST+9, GUEST+10, GUEST+11, GUEST+12, GUEST+15
>> FHLST	F0+3*
>> FHN	REC+4, REC+5, REC+6, REC+7, SPEC+2, SPEC+3, SPEC+4, SPEC+5, GUEST+4*, GUEST+5 , GUEST+6, GUEST+7
>> FHOR	W3+6*
>> FHORD	W3+2, W3+3, W3+4, W3+5, W3+6, U1, U1+1*
>> FHP	FHORD9+7, D0+1, WRD+1, REC+14, SPEC+11, GUEST+14
>> FHPDIET	REC+9, REC+20, REC+21, REC+22, SPEC+6, SPEC+18, SPEC+19, SPEC+20, GUEST+9, GUEST+18 , GUEST+19, GUEST+20
>> FHPGM	F0+3*
>> FHPLNM	PROSG+1, PROSG+2, REC+5, SPEC+1, SPEC+3, GUEST+3, GUEST+5
>> FHRDAT	REC+7, REC+8, SPEC+5, GUEST+7*, GUEST+8
>> FHREIEN	REC+17*, REC+25
>> FHSER	REC+9, REC+11, REC+12, REC+13, REC+14, REC+21, REC+22, REC+23, REC+26, REC+27 , REC+28, SPEC+6, SPEC+8, SPEC+9, SPEC+10, SPEC+11, SPEC+19, SPEC+20, SPEC+21, GUEST+9* , GUEST+11, GUEST+12, GUEST+13*, GUEST+14, GUEST+19, GUEST+20, GUEST+21
>> FHSITE	FHORD9+6, Q1+3, Q1+4, Q1+7*, Q1+9, Q1+10, Q1+12, PROSG+2, REC+15, SPEC+12 , GUEST+15
>> FHSITENM	Q1+8*
>> FHSTAT	SPEC+14*, SPEC+15
>> FHTIM	Q1+11*, Q1+12
>> FHTMPS	REC+3, REC+4, REC+6, REC+7, SPEC+1, SPEC+2, SPEC+4, SPEC+5, GUEST+3*, GUEST+4 , GUEST+6, GUEST+7
IO	F0+4
IO("Q"	F0+3
IOP	F0+2!, F0+4!
>> K	WRD+4, W3+7, W3+8, W3+9, W3+11, W3+12, W3+13, W4, CNT
>> K1	U1*
>> N1	WRD+1, W3+2, W3+7
>> N2	WRD+1*
>> NOW	Q1+1*
P	Q1+1!
P(	W3+8, W3+9, W3+11, W3+12, W3+13, W4, CNT, REC+21, REC+22, REC+23 , REC+26, REC+27, REC+28, SPEC+19, SPEC+20, SPEC+21, GUEST+19, GUEST+20, GUEST+21*
>> POP	F0+2
S	WRD+1!, WRD+2
S(	WRD+1*, WRD+3, W3+7
>> SP	WRD+3*, WRD+4
>> TF	W3+2*, W3+11, W3+13, W4
>> TIM	F0*, F0+1, Q1+9, Q1+10, Q1+11, W3+3, W3+4, U1, REC+1
U	Q1+4, PROSG+2, REC+8, REC+11, REC+12, REC+14, REC+15, REC+16, REC+17, REC+18 , REC+20, SPEC+8, SPEC+9, SPEC+11, SPEC+12, SPEC+13, SPEC+14, SPEC+16, SPEC+18, GUEST+8 , GUEST+11, GUEST+12, GUEST+14, GUEST+15, GUEST+16, GUEST+17, GUEST+18
>> WRD	Q1+2*, WRD+4
>> X	D0, F0, Q1+2, Q1+4, WRD+1, W3+6, W3+8
>> X0	W3+1*, W3+2
>> X1	WRD+1, WRD+3, W3+2, W3+3, W3+4, W3+6, W3+7, U1+1, U2
>> X2	U3*, U3+1, U3+2
>> Y	D0+1, F0
>> Z	W3+8*

Customize PDF page

Package: Dietetics

Routine: FHORD9

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
F0
Q1	; Calculate census
WRD	; Calculate census for ward
GUEST	;for guest meals.
U1
CNT
U3
U2
W4
W3
KIL
REC	;for recurring meals
PROSG	;process outpatient data from ^tmp($j global.
SPEC	;for special meals
D0