Routine: FHPRF1A

Package	Total	Call Graph
Dietetics	1	DTP^FH
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Dietetics	1	FHPRF1

Entry Points

Name	Comments	DBIA/ICR reference
PRO
STRT

Name	Field # of Occurrence
NOW^%DTC	STRT
DTP^FH	STRT+1, STRT+7

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $E(IOST,1,2)="C-" Line Location: STRT+7
Function Call: WRITE	Prompt: !,DTP,?(L1-$L(Z)\2),Z Line Location: STRT+7
Function Call: WRITE	Prompt: !,FHSITENM Line Location: STRT+9
Function Call: WRITE	Prompt: !,?(L1-$L(Z)\2),Z,!!?(L1-$L(TIM)\2),TIM Line Location: STRT+10
Function Call: WRITE	Prompt: !!?(L1-31\2),"P R O D U C T I O N D I E T S",!! Line Location: STRT+11
Function Call: WRITE	Prompt: ?FHSP1 Line Location: STRT+25
Function Call: WRITE	Prompt: $P(S(X,K),"^",1) Line Location: STRT+27
Function Call: WRITE	Prompt: " Tray Cafe Total" Line Location: STRT+28
Function Call: WRITE	Prompt: !,LN,! Line Location: STRT+29
Function Call: WRITE	Prompt: !!,"TOTAL MEALS",?FHSP2 Line Location: STRT+31
Function Call: WRITE	Prompt: $J(Z,6)," " Line Location: STRT+32
Function Call: WRITE	Prompt: $J(N("T"),6),$J(N("C"),6),$J(N("T")+N("C"),7) Line Location: STRT+33
Function Call: WRITE	Prompt: !!!,"*** Includes other gratuitous/paid meals.",! Line Location: STRT+34
Function Call: WRITE	Prompt: !,$E($P($G(^FH(116.2,K,0)),"^",1),1,20),?FHSP2 Line Location: PRO+0
Function Call: WRITE	Prompt: $J(Z,6)," " Line Location: PRO+1
Function Call: WRITE	Prompt: $J(N("T"),6),$J(N("C"),6),$J(N("T")+N("C"),7) Line Location: PRO+2

Name	Line Occurrences (* Changed, ! Killed)
^FH(116.2 - [#116.2]	STRT+30, PRO
^FH(119.71 - [#119.71]	STRT+8
^FH(119.72 - [#119.72]	STRT+4
^TMP($J	STRT+4, STRT+30, STRT+32, PRO+1

Name	Line Occurrences
PRO	STRT+30

Name	Field # of Occurrence
>> %	STRT
D	STRT+3!, STRT+34!
>> D1	STRT+1
>> DOW	STRT+1
>> DTP	STRT+1, STRT+7
>> FHCNTX	STRT+12*, STRT+14, STRT+15, STRT+16, STRT+17, STRT+18, STRT+20, STRT+21, STRT+22, STRT+23 , STRT+24
>> FHP	STRT+8
>> FHSITENM	STRT+2*, STRT+9
>> FHSP1	STRT+13, STRT+14, STRT+15, STRT+16, STRT+17, STRT+18, STRT+25
>> FHSP2	STRT+19, STRT+20, STRT+21, STRT+22, STRT+23, STRT+24, STRT+31, PRO
IOF	STRT+7
IOST	STRT+7
>> K	STRT+27, STRT+30, PRO, PRO+1
>> K1	STRT+32, PRO+1
>> L1	STRT+3, STRT+4, STRT+5, STRT+7, STRT+10, STRT+11, STRT+29
LN	STRT+29*!
N	STRT+3!, STRT+34!
N(	STRT+32, PRO+1
N("C"	STRT+31, STRT+33, PRO, PRO+2
N("D"	STRT+31, STRT+33, PRO, PRO+2
N("G"	STRT+31, PRO
N("T"	STRT+31, STRT+33, PRO, PRO+2
>> N1	STRT+4*
>> N2	STRT+4*
>> N3	STRT+4*
>> NOW	STRT*, STRT+7
P	STRT+34!
>> P0	STRT+4*
>> P1	STRT+30*
S	STRT+3!, STRT+34!
S(	STRT+4*, STRT+12, STRT+27, STRT+32, PRO+1
>> TIM	STRT+1*, STRT+10
>> TYP	STRT+32, PRO+1
>> X	STRT+4, STRT+12, STRT+27, STRT+32, PRO+1*
>> Z	STRT+6, STRT+7, STRT+8, STRT+10, STRT+32, PRO+1