Routine: FHNO41

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC KILL^XUSCLEAN
VA Fileman	3	NOW^%DTC ^DIC ^DIR
Dietetics	2	(DTP,EN2,TR)^FH (DPLL,LL3,LL4)^FHLABEL

Package	Total	Caller Graph
Dietetics	1	FHNO10

Entry Points

External References

Name	Field # of Occurrence
NOW^%DTC	Q1+1
^%ZIS	N3+6
^%ZISC	N3+8
^DIC	N2+1
^DIR	N3+3
DTP^FH	Q1+1
EN2^FH	N3+7
TR^FH	N3
DPLL^FHLABEL	L0+3
LL3^FHLABEL	LL+3, LL+11
LL4^FHLABEL	LL+4, LL+11
KILL^XUSCLEAN	KIL

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "Select SUPPLEMENTAL FEEDING SITE (or ALL): " Formatting: !! Timeout: DTIME Variable: X Line Location: N2+0
Function Call: READ	Prompt: "Do you want Labels? N// " Formatting: !! Timeout: DTIME Variable: X Line Location: N3+0
Function Call: WRITE	Prompt: *7," Enter YES or NO" Line Location: N3+0
Function Call: WRITE	Prompt: ! Line Location: N3+6
Function Call: WRITE	Prompt: !!?(45-$L(D3)\2),"*** ",D3," TOTAL ***" Line Location: Q1+7
Function Call: WRITE	Prompt: !!," Qty Item",?33,"Cost Vehicle Other Total",! Line Location: Q1+8
Function Call: WRITE	Prompt: !,$J(D(K),6)," ",$P(Y,"^",1),?31,$J(C3,6,2) Line Location: Q1+9
Function Call: WRITE	Prompt: ?($S(CT:40,1:49)),$J(D(K)C3,6,2),?57,$J(D(K)C3,6,2) Line Location: Q1+9
Function Call: WRITE	Prompt: !!?8,"Grand Total",?39,$J(C(1),7,2),?48,$J(C(0),7,2),?56,$J(C(0)+C(1),7,2) Line Location: Q1+10
Function Call: WRITE	Prompt: ! Line Location: Q3+0
Function Call: WRITE	Prompt: !!,"--- ",$P(^FH(119.6,K,0),"^",1)," ---",?33,"Cost Vehicle Other Total",! Line Location: Q4+0
Function Call: WRITE	Prompt: ?($S(CT1:40,1:49)),$J(FHDX1(X1)C3,6,2),?57,$J(FHDX1(X1)C3,6,2) Line Location: Q4+6
Function Call: WRITE	Prompt: !!,?8,"Total for ",$P($G(^FH(119.6,K,0)),"^",1),?39,$J(FHCX1(1),7,2),?48,$J(FHCX1(0),7,2),?56,$J(FHCX1(0)+FHCX1(1),7,2) Line Location: Q4+8
Function Call: WRITE	Prompt: !?(80-$L(X)\2),X,?73,"Page ",PG,!!?32,DTP,! Line Location: HDR+2
Function Call: WRITE	Prompt: !!?(S2-$L(X)\2),X Line Location: L0+4
Function Call: WRITE	Prompt: !!?(S2-$L(D3)\2),D3,!! Line Location: L0+5
Function Call: WRITE	Prompt: !,$J(D(K),4)," ",$P(^FH(118,K,0),"^",1) Line Location: L0+6
Function Call: WRITE	Prompt: ! Line Location: L0+7
Function Call: WRITE	Prompt: !!?(S2-$L(X1)\2),X1,!!,WRD,?(S2-$L(DTP)),DTP,!! Line Location: L3+4
Function Call: WRITE	Prompt: !!! Condition for execution: LAB=2 Line Location: L3+4
Routine Call	DIC Line Location: N2+1
Routine Call	DIR Line Location: N3+3
Routine Call	%ZIS Line Location: N3+6

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^FH(114 - [#114]	C3
^FH(118 - [#118]	Q1+9, Q4+3, Q4+4, Q4+5, L0+6, L3, L3+2
^FH(119.6 - [#119.6]	Q1+3, Q4, Q4+3, Q4+8, L0+2, L3
^FH(119.74 - [#119.74]	FHNO41+3, Q1+5, L0+5
^FH(119.9 - [#119.9]	Q1+2
^TMP($J	Q1+1!, Q1+3*, Q1+6, L0+2, KIL!

Label References

Name	Line Occurrences
C3	Q1+9, Q4+5
HDR	Q1+5, Q1+7, Q1+9, Q4, Q4+3, Q4+5, Q4+7
KIL	N2, N3, N3+6, N3+7, N3+8
L0	Q1+4
L3	L0+2
LL	L3+3
N2	N2+1
N3	FHNO41+3, N2, N3
Q1	N3+8
Q4	Q1+6

Naked Globals

Name	Field # of Occurrence
^(	Q1+3, Q4+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	Q1+1
%ZIS	N3+6!*, N3+8!
%ZIS("A"	N3+6*
>> C(	Q1+9*
>> C(0	Q1+9*, Q1+10
>> C(1	Q1+9*, Q1+10
>> C1	Q1+6, Q4+1, L0+1, L0+4, L3+1, L3+4, LL+6
>> C3	Q1+9, Q4+5, Q4+6, C3*
>> CHK	L3+2*
>> COUNT	L0*
>> CT	Q1+9*
>> CT1	Q4+5*, Q4+6
D	Q1+6!, L0+1!
D(	Q1+9, Q4+4, L0+6, L3+1
>> D1	FHNO41+3, N2, N2+1*, Q1+3, Q1+5, L0+5
>> D2	Q1+3*
>> D3	Q1+5, Q1+7, HDR+2, L0+5
DIC	N2+1!*
DIC(0	N2+1*
DIR	N3+3!
DIR("A"	N3+3*
DIR("B"	N3+3*
DIR(0	N3+3*
>> DIRUT	N3+4
DTIME	N2, N3
>> DTP	Q1+1*, HDR+2, L3+4, LL+8
>> FHC3X1(1	Q4+2, Q4+5
>> FHCOL	LL+1*, LL+2
>> FHCX1(	Q4+5*
>> FHCX1(0	Q4+2*, Q4+8
>> FHCX1(1	Q4+2*, Q4+8
FHDX1	Q4+2!
FHDX1(	Q4+4*, Q4+5, Q4+6
>> FHLABST	LL+2*
>> FHLBFLG	N3+2, N3+4
>> FHLST	N3+7*
>> FHPGM	N3+7*
>> FHTAB	LL+7*, LL+8
IO	N3+8
IO("Q"	N3+7
IOF	HDR+1
IOP	N3+6!, N3+8!
>> IOS	Q1+2
IOSL	Q1+7, Q1+9, Q4, Q4+3, Q4+5, Q4+7
IOST	HDR+1
>> K	Q1+3, Q1+6, Q1+9, Q4, Q4+3, Q4+8, L0+2, L0+6, L0+7, L3
>> L	Q4+3, L0+2, L3
>> LAB	N3+1, N3+2, N3+6, Q1+2, Q1+4, L0, L0+3, L3+3, L3+4, LL+1 , LL+3, LL+4, LL+7, LL+9, LL+10, LL+11
LABSTART	N3+3!, N3+5, LL+2
>> LINE	L0*
>> LN	L0+4, L0+6, L0+7*
>> LNA	LL+8*, LL+9, LL+10
>> LNB	LL+8*, LL+9, LL+10
>> P0	Q1+3, Q1+6, L0+2*
>> PCL1	LL+3, LL+4, LL+9, LL+10
>> PCL2	LL+3, LL+4, LL+9, LL+10
>> PCL3	LL+3, LL+4, LL+9, LL+10
>> PCL4	LL+3, LL+4, LL+9, LL+10
>> PCL5	LL+3, LL+4, LL+9, LL+10
>> PCL6	LL+3, LL+4, LL+9, LL+10
>> PCL7	LL+4, LL+10
>> PCL8	LL+4, LL+10
>> PG	Q1+5, HDR+1, HDR+2
>> POP	N3+6
>> S1	L0*, L0+7
>> S2	L0*, L0+4, L0+5, L3+4
>> SPC	LL+7*, LL+8
>> WRD	L0+2*, L3+4, LL+8
>> X	N2, N3, N3+1, Q1+3, Q4+3, HDR+2, L0+4, L3
>> X1	Q4+3, Q4+4, Q4+5, Q4+6, L3, L3+1, L3+2*, L3+4, LL+8
>> X2	Q4+3, Q4+4, L3, L3+1, L3+4, LL+6
>> Y	N2+1, N3+5, Q1+9, Q4+5, C3

Customize PDF page

Package: Dietetics

Routine: FHNO41

Information

Source Information

Call Graph

Call Graph Total: 8

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
Q1	; Process Printing Bulk Nourishments
Q3
HDR	; Print Header
LL	;
L3
L0
KIL
C3
N2
N3
Q4