Routine: FHPRF1

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

Package	Total	Caller Graph
Dietetics	3	FHORD92 FHPRF2 FHPRO1

Entry Points

External References

Name	Field # of Occurrence
^%DT	FHPRF1+5, D1, Q2+1
C^%DTC	Q2+4, DAT+1, DAT+2, DAT+3
DOW^%DTC	Q2+2
^%ZIS	R1
^%ZISC	R1+2
^DIC	R0+1
EN2^FH	R1+1
GETGM^FHOMRBL1	Q1+7
GETRM^FHOMRBLD	Q1+9
GETSM^FHOMRBLD	Q1+6
DIV^FHOMUTL	FHPRF1+6
^FHPRF1A	Q1+12
KILL^XUSCLEAN	KIL

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "Forecast Date: " Formatting: !! Timeout: DTIME Variable: X Line Location: D1+0
Function Call: READ	Prompt: "Select PRODUCTION FACILITY: " Formatting: !! Timeout: DTIME Variable: X Line Location: R0+0
Function Call: WRITE	Prompt: ! Line Location: R1+0
Routine Call	DIC Line Location: R0+1
Routine Call	%ZIS Line Location: R1

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)
^DG(41.9 - [#41.9]	WRD, W1, ADD+5
^FH(111 - [#111]	RECUR+9, RECUR+10, SPEC+7, SPEC+8, GUEST+17, GUEST+18
^FH(119.6 - [#119.6]	BLD+4, B2, RECUR+11, RECUR+12, RECUR+13, SPEC+9, SPEC+10, SPEC+11, GUEST+10, GUEST+11 , GUEST+12
^FH(119.71 - [#119.71]	D1+1
^FH(119.72 - [#119.72]	ADD+2, ADD+3, ADD+4, ADD+6*, PER, BLD+2, RECUR+14, RECUR+15, SPEC+12, SPEC+13 , GUEST+13, GUEST+14
^FH(119.73 - [#119.73]	PROSG+2
^FH(119.9 - [#119.9]	GUEST+8
^TMP($J	Q2+2!, Q2+3, Q2+5, Q3, Q3+1, Q3+2!, ADD, ADD+5, PER, BLD+1! , BLD+2, B1, B1+1, B2, RECUR+16, RECUR+17, RECUR+18, RECUR+19, RECUR+20, RECUR+21* , RECUR+22, RECUR+23, SPEC+14, SPEC+15, SPEC+16, SPEC+17, SPEC+18, SPEC+19, SPEC+20, SPEC+21 , GUEST+15, GUEST+16, GUEST+19, GUEST+20, GUEST+21, GUEST+22, GUEST+23, GUEST+24, KIL!

Label References

Name	Line Occurrences
ADD	Q2+5
B1	BLD+4
B2	B1, B1+1
BLD	Q2+2
D1	D1
DAT	Q2+2
KIL	FHPRF1+6, D1, R0, R1, R1+1, R1+2
PER	Q3
PROSG	Q1+10
Q1	R1+2
Q2	Q1+1
Q3	Q1+1
R0	R0+1
R1	D1+1
W1	WRD+1
WRD	Q2+3

Naked Globals

Name	Field # of Occurrence
^(	Q3, ADD, PER, BLD+2, BLD+4, B2
^(0	ADD+2, ADD+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	FHPRF1+5, D1, Q2+1*
%ZIS	R1!*, R1+2!
%ZIS("A"	R1*
>> A	WRD, WRD+2, WRD+3*
>> B	WRD, WRD+2, WRD+3*
>> C2	W1, W1+1, ADD+3, ADD+4, ADD+5*, ADD+6
>> C3	W1*, W1+1
>> CT	WRD, WRD+1, WRD+2, ADD, ADD+3
D	Q2+4!, Q3+2!, DAT+1!
D(	Q3+1, WRD, PER, DAT+2
>> D1	D1, Q1+3, Q1+6, Q1+7, Q1+8, Q1+9, Q1+11*, Q2+2, ADD+2, ADD+3 , DAT+1, DAT+3, RECUR+1
>> D2	Q2+4, ADD+5, DAT+1, DAT+2, DAT+3
DC	Q2+4!, DAT+1!
DC(	W1, DAT+3*
DIC	R0+1!*
DIC(0	R0+1*
>> DOW	Q2+2*, PER
DT	FHPRF1+5, Q2+1, Q2+4, ADD+3, ADD+4, ADD+6
DTIME	D1, R0
>> FHD1SAV	Q1+3*, Q1+11
>> FHDIET	RECUR+6, RECUR+9, RECUR+10, SPEC+5, SPEC+7, SPEC+8, GUEST+5, GUEST+8
>> FHDIETN	GUEST+9*, GUEST+17, GUEST+18
>> FHDT	RECUR+1*, RECUR+5, SPEC+4, GUEST+4
>> FHI	RECUR+3, RECUR+5, RECUR+7, RECUR+11, SPEC+2, SPEC+4, SPEC+6, SPEC+9, GUEST+2*, GUEST+4 , GUEST+6, GUEST+10
>> FHIJKDAT	RECUR+7, RECUR+8, RECUR+9, SPEC+6, SPEC+7, GUEST+6*, GUEST+7, GUEST+9
>> FHJ	RECUR+3, RECUR+5, RECUR+7, SPEC+2, SPEC+4, SPEC+6, GUEST+2*, GUEST+4, GUEST+6
>> FHK	RECUR+5, RECUR+7, SPEC+4, SPEC+6, GUEST+4*, GUEST+6
>> FHLOC	RECUR+6, RECUR+11, RECUR+12, RECUR+13, SPEC+5, SPEC+9, SPEC+10, SPEC+11, GUEST+5, GUEST+10 , GUEST+11, GUEST+12
>> FHLST	R1+1*
>> FHN	RECUR+3, RECUR+4, RECUR+5, RECUR+7, SPEC+2, SPEC+3, SPEC+4, SPEC+6, GUEST+2*, GUEST+3 , GUEST+4, GUEST+6
>> FHP	D1+1, R0+1, BLD+2, RECUR+15, SPEC+13, GUEST+14
>> FHPDIET	RECUR+6, RECUR+10, RECUR+18, RECUR+19, RECUR+20, RECUR+21, RECUR+22, RECUR+23, SPEC+5, SPEC+8 , SPEC+16, SPEC+17, SPEC+18, SPEC+19, SPEC+20, SPEC+21, GUEST+5, GUEST+18, GUEST+19, GUEST+20 , GUEST+21, GUEST+22, GUEST+23, GUEST+24
>> FHPGM	R1+1*
>> FHPLNM	PROSG+1, PROSG+2, RECUR+4, SPEC+3, GUEST+3
>> FHSER	RECUR+6, RECUR+12, RECUR+13, RECUR+14, RECUR+15, RECUR+16, RECUR+17, RECUR+18, RECUR+19, RECUR+20 , RECUR+21, SPEC+5, SPEC+10, SPEC+11, SPEC+12, SPEC+13, SPEC+14, SPEC+15, SPEC+16, SPEC+17 , SPEC+18, SPEC+19, GUEST+5, GUEST+11, GUEST+12, GUEST+13, GUEST+14, GUEST+15, GUEST+16, GUEST+19 , GUEST+20, GUEST+21, GUEST+22
>> FHSITE	FHPRF1+6, Q1+4*, Q1+6, Q1+7, Q1+9, BLD+4, PROSG+2
>> FHSITENM	Q1+5*
>> FHTMPS	RECUR+2, RECUR+3, RECUR+5, RECUR+7, SPEC+1, SPEC+2, SPEC+4, SPEC+6, GUEST+1*, GUEST+2 , GUEST+4, GUEST+6
IO	R1+2
IO("Q"	R1+1
IOP	R1!, R1+2!
>> K	Q3+1, WRD, W1, PER, DAT+2, DAT+3
>> K1	BLD+4*, B2
>> L2	B2*
>> N1	W1*, W1+1
>> P0	Q2+5, Q3, ADD, ADD+2, ADD+3, ADD+4, ADD+5, ADD+6, PER, BLD+2*
>> POP	R1
>> S0	Q3, WRD, WRD+2, PER*
>> S1	Q2+3, Q2+5, Q3, WRD, WRD+1, WRD+2, WRD+3, W1, W1+1, W1+2 , ADD, ADD+1, ADD+3, PER
>> S2	WRD*, WRD+2
>> S3	WRD*, WRD+1, WRD+2
>> S4	WRD*, WRD+2
>> T0	ADD*
U	BLD+4, PROSG+2, RECUR+8, RECUR+9, RECUR+10, RECUR+12, RECUR+13, RECUR+15, SPEC+7, SPEC+8 , SPEC+10, SPEC+11, SPEC+13, GUEST+7, GUEST+8, GUEST+9, GUEST+11, GUEST+12, GUEST+14, GUEST+18
>> W1	Q2+3, WRD, W1, ADD, ADD+5*
>> X	FHPRF1+5, D1, R0, Q2+1, Q2+2, Q2+4, DAT+1, DAT+2, DAT+3, BLD+2 , BLD+4*, B1, B1+1
>> X1	Q2+4, DAT+1, DAT+2, DAT+3
>> X2	Q2+4, DAT+1, DAT+2, DAT+3
>> Y	FHPRF1+5, D1, R0+1, Q2+1, Q2+2, WRD*
>> Y0	W1*
>> Z	ADD, PER, B1, B1+1, B2
>> Z1	B1, B1+1, B2
>> ZW	B2*

Customize PDF page

Package: Dietetics

Routine: FHPRF1

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
Q1	; Process Census Forecast
Q3
Q2	; Calculate Service Point census forecast
R0
R1
RECUR	;recurring meals
GUEST	;guest meals
WRD
PER
DAT	; Build list of dates
B2
ADD
B1
W1
KIL
BLD	; Build list of MAS wards and %'s for each Service Point
PROSG	;process outpatient data from ^tmp($j global
SPEC	;special meals
D1