Routine: FHPRO1

Package	Total	Call Graph
Dietetics	4	(DTP,EN2,TR)^FH E1^FHPRC1 Q2^FHPRF1 ^FHPRO2
Kernel	3	^%ZIS ^%ZISC KILL^XUSCLEAN
VA Fileman	3	^%DT (C,DOW)^%DTC ^DIC

Package	Total	Caller Graph
Dietetics	1	FHPRO5

Entry Points

External References

Name	Field # of Occurrence
^%DT	F1, F2
C^%DTC	F2+6, FOR+2
DOW^%DTC	C1+1
^%ZIS	L0+1
^%ZISC	L0+3
^DIC	F0+1, CL+5
DTP^FH	F2+7, F2+8, C1+3
EN2^FH	L0+2
TR^FH	R0, CL+4, R1+2, R2, R3, R4, R5, R7, R8, R10 , R9
E1^FHPRC1	F1+1, F2+3, F2+7
Q2^FHPRF1	FOR+4
^FHPRO2	L0+3
KILL^XUSCLEAN	KIL

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "Select PRODUCTION FACILITY: " Formatting: !! Timeout: DTIME Variable: X Line Location: F0+0
Function Call: READ	Prompt: "Use CENSUS or FORECAST? (C OR F): " Formatting: !! Timeout: DTIME Variable: FHP6 Line Location: R0+0
Function Call: WRITE	Prompt: *7," Enter C or F" Line Location: R0+0
Function Call: WRITE	Prompt: ! Line Location: F1+0
Function Call: WRITE	Prompt: *7,!!,"No MENU CYCLE Defined for that Date!" Line Location: F1+1
Function Call: WRITE	Prompt: *7,!!,"MENU CYCLE DAY Not Defined for that Date!" Line Location: F1+2
Function Call: WRITE	Prompt: ! Line Location: F2+0
Function Call: WRITE	Prompt: !!,"***End Date must be on or after Start Date!!!" Line Location: F2+1
Function Call: WRITE	Prompt: *7,!!,"No MENU CYCLE Defined for that Date!" Line Location: F2+3
Function Call: WRITE	Prompt: *7,!!,"MENU CYCLE DAY Not Defined for that Date!" Line Location: F2+4
Function Call: WRITE	Prompt: *7,!!,"No MENU CYCLE Defined for Date: ",DTP Line Location: F2+7
Function Call: WRITE	Prompt: *7,!!,"No MENU CYCLE Defined for Date: ",DTP Line Location: F2+8
Function Call: WRITE	Prompt: *7,!!,"You may select B for Breakfast, N for Noon, E for Evening, B-N for Breakfast to Noon, N-E for Noon to Evening, or any combination separated by a hyphen, or ALL for all meals" Line Location: R1+4
Function Call: WRITE	Prompt: *7,!,"Select B for Breakfast, N for Noon, or E for Evening, or any combination of BNE, or ALL for all meals" Line Location: R1+5
Function Call: WRITE	Prompt: 7,!!," NO MENU DEFINED FOR THIS MEAL *" Line Location: R1+8
Function Call: READ	Prompt: "Do you want PRODUCTION Summary? (Y/N) N// " Formatting: !! Timeout: DTIME Variable: FHP1 Line Location: R2+0
Function Call: WRITE	Prompt: *7," Enter YES or NO" Line Location: R2+0
Function Call: READ	Prompt: "Do you want MEAL SERVICE Summary? (Y/N) N// " Formatting: !! Timeout: DTIME Variable: FHP2 Line Location: R3+0
Function Call: WRITE	Prompt: *7," Enter YES or NO" Line Location: R3+0
Function Call: READ	Prompt: "Do you want RECIPE PREPARATION Sheet? (Y/N) N// " Formatting: !! Timeout: DTIME Variable: FHP3 Line Location: R4+0
Function Call: WRITE	Prompt: *7," Enter YES or NO" Line Location: R4+0
Function Call: READ	Prompt: "Do you want STOREROOM REQUISITION Sheet? (Y/N) N// " Formatting: !! Timeout: DTIME Variable: FHP4 Line Location: R5+0
Function Call: WRITE	Prompt: *7," Enter YES or NO" Line Location: R5+0
Function Call: READ	Prompt: "Do you want PRINTED RECIPES? (Y/N) N// " Formatting: !! Timeout: DTIME Variable: FHP5 Line Location: R7+0
Function Call: WRITE	Prompt: *7," Enter YES or NO" Line Location: R7+0
Function Call: READ	Prompt: "Do you want Advance Food Prep? (Y/N) N// " Formatting: !! Timeout: DTIME Variable: FHP8 Line Location: R8+0
Function Call: WRITE	Prompt: *7," Enter YES or NO" Line Location: R8+0
Function Call: READ	Prompt: "Do you want Storeroom Requisition for AFP? (Y/N) N// " Formatting: !! Timeout: DTIME Variable: FHP10 Line Location: R10+0
Function Call: WRITE	Prompt: *7," Enter YES or NO" Line Location: R10+0
Function Call: READ	Prompt: "Do you want Printed Recipes for AFP? (Y/N) N// " Formatting: !! Timeout: DTIME Variable: FHP9 Line Location: R9+0
Function Call: WRITE	Prompt: *7," Enter YES or NO" Line Location: R9+0
Function Call: WRITE	Prompt: !!,"The report requires a 132 column printer.",! Line Location: L0+0
Function Call: WRITE	Prompt: ! Line Location: L0+1
Function Call: WRITE	Prompt: !?5,"Forecast Census for ",FHDAY,"DAY, ",DTP," : ",S1," // " Line Location: C1+4
Function Call: WRITE	Prompt: *7," Must be a number less than 9999" Line Location: C1+6
Routine Call	DIC Line Location: F0+1 CL+5
Routine Call	%ZIS Line Location: L0+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^FH(116 - [#116]	F1+2, F2+4, F2+8, R1+6
^FH(116.3 - [#116.3]	R1+7
^FH(119.71 - [#119.71]	FHPRO1+8
^FH(119.72 - [#119.72]	FOR+7
^FH(119.73 - [#119.73]	CL+7
^TMP("FH"	FHPRO1+4!, KIL!
^TMP($J	FHPRO1+4!, FOR+5, FOR+6, KIL!

Label References

Name	Line Occurrences
C1	FOR+8, C1+6
CEFO	FHPRO1+8
CHKML	R1+3
CL	CL+5
F0	F0+1
F1	R0+1, CL+7, F1, F1+1, F1+2
F2	F2, F2+1, F2+3, F2+4, F2+10
FOR	R9+2
KIL	F0, R0, CL+4, CL+6, F1, F2, R1+2, R2, R3, R4 , R5, R7, R8, R10, R9, R9+3, L0+1, L0+2, L0+3
R0	R0
R1	R1+4
R10	R10
R2	R2
R3	R3
R4	R4
R5	R5
R7	R7
R8	R8
R9	R9

Naked Globals

Name	Field # of Occurrence
^(0	R1+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	F1, F2
>> %DT("A"	F1, F2
%ZIS	L0+1!*, L0+3!
%ZIS("A"	L0+1*
>> D1	F1, F2+1, F2+5, F2+7, F2+9, R1+7, FOR, FOR+3, FOR+9*
DIC	F0+1!, CL+1!, CL+5
DIC("S"	CL+2*
DIC(0	F0+1, CL+5
>> DOW	C1+1*, C1+2
DTIME	F0, R0, CL+3, R1+1, R2, R3, R4, R5, R7, R8 , R10, R9, C1+4
>> DTOUT	F1, F2
>> DTP	F2+7, F2+8, C1+3, C1+4
>> FHALL	FHPRO1+6*
>> FHCY	F1+1, F1+2, F2+3, F2+4, F2+7, F2+8, R1+6
>> FHD1SAV	FOR*, FOR+2, FOR+9
>> FHD1SV	F2+5*, F2+6, F2+9
>> FHDA	F1+2, F2+4, F2+8, R1+6, R1+7
>> FHDAY	C1+2*, C1+4
>> FHDT2	F2+2*, F2+6, FOR+2
>> FHDTI	F2+6, FOR+2
>> FHDTTO	FOR+3*, C1+1, C1+3
>> FHERRDT	F2+2, F2+7, F2+8*, F2+10
>> FHLST	L0+2*
>> FHMLCM	CHKML+2*, CHKML+3
>> FHMLFLG	R1+4, CHKML+1, CHKML+3
>> FHP	FHPRO1+8, F0+1, CL+2, CL+7
>> FHP1	R2, R2+1
>> FHP10	R10, R10+1
>> FHP2	R3, R3+1
>> FHP3	R4, R4+1
>> FHP4	R5, R5+1
>> FHP5	R7, R7+1
>> FHP6	R0, R0+1, R9+2
>> FHP8	R8, R8+1
>> FHP9	R9, R9+1
>> FHPFLG	FHPRO1+7, FHPRO1+8
>> FHPGM	L0+2*
>> FHQUIT	R9+3, FOR, FOR+2, FOR+5, C1+5
FHSITE	FHPRO1+5, CL+1!, CL+4, CL+5, CL+6, CL+7, FOR+1
FHSITENM	CL+1!, CL+5*
IO	L0+3
IO("Q"	L0+2
IOP	L0+1!, L0+3!
>> LL	R1+7*
M2	R0+1!
M2(	C1+7, C1+8
>> MEAL	R1+1, R1+2, R1+4, CHKML+2, CHKML+3
>> P0	FOR+5*, FOR+6, FOR+7, C1+7, C1+8
>> POP	L0+1
>> S1	FOR+6*, C1+4, C1+6
U	CL+5
X	F0, R0, CL+1!, CL+3, CL+4, CL+5, F1, F2, F2+6, F2+7 , R1+2, R1+7, R2, R3, R4, R5, R7, R8, R10, R9 , FOR+2, FOR+3, C1+1, C1+4, C1+5, C1+6*, C1+7, C1+8
>> X1	F1, F2+2, F2+6, F2+7, FOR+2*
>> X2	F2+6, FOR+2
>> Y	F0+1, CL+5, F1, F2, F2+1, F2+2, C1+1

Customize PDF page

Package: Dietetics

Routine: FHPRO1

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

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
F1
F2
R7
R0
R1	;R !!,"Select MEAL (B,N,E, or combination of BNE, or ALL): ALL// ",MEAL:DTIME G:'$T!(MEAL["^") KIL S:MEAL="" MEAL="ALL" S X=MEAL D TR^FH S MEAL=X S:$P("ALL",MEAL,1)="" MEAL="A"
R2
CL	;Ask for Communication Office if census is selected.
L0
R3
R8
CEFO	;Census and Forcast
R10
FOR
R5
KIL
R4
C1	;
R9
CHKML	;check meal