Routine: FHNO6

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC KILL^XUSCLEAN
VA Fileman	2	NOW^%DTC ^DIC
Dietetics	1	(DTP,EN2)^FH

Package	Total	Caller Graph
Dietetics	1	FHNO11

Entry Points

External References

Name	Field # of Occurrence
NOW^%DTC	Q1+1
^%ZIS	L0
^%ZISC	L0+2
^DIC	F1+1, D2+1
DTP^FH	Q1+1
EN2^FH	L0+1
KILL^XUSCLEAN	KIL

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!?27,"SUPPLEMENTAL FEEDING COSTS",!! Line Location: FHNO6+3
Function Call: READ	Prompt: "Select by S=SUPPLEMENTAL FEEDING SITE or W=WARD: " Formatting: !! Timeout: DTIME Variable: XX Line Location: D0+0
Function Call: WRITE	Prompt: *7," Enter S or W" Line Location: D0+1
Function Call: READ	Prompt: "Select WARD (or ALL): " Formatting: !! Timeout: DTIME Variable: X Line Location: F1+0
Function Call: READ	Prompt: "Select SUPPLEMENTAL FEEDING SITE (or ALL): " Formatting: !! Timeout: DTIME Variable: X Line Location: D2+0
Function Call: READ	Prompt: "SUMMARY only? Y// " Formatting: !! Timeout: DTIME Variable: X Line Location: S0+0
Function Call: WRITE	Prompt: *7," Answer YES or NO" Line Location: S0+0
Function Call: WRITE	Prompt: ! Line Location: L0+0
Function Call: WRITE	Prompt: !!,"Total",?39,$J(T1,8,2),$J(T2,16,2),$J(T1+T2,16,2) Line Location: Q1+28
Function Call: WRITE	Prompt: ?39,$J(WPD/WP*100,8,0) Condition for execution: WPD Line Location: Q1+32
Function Call: WRITE	Prompt: ?55,$J(WPT/WP*100,8,0) Condition for execution: WPT Line Location: Q1+32
Function Call: WRITE	Prompt: ?71,$J(WPD+WPT/WP*100,8,0) Condition for execution: (WPD+WPT) Line Location: Q1+32
Function Call: WRITE	Prompt: ! Line Location: Q1+32
Function Call: WRITE	Prompt: !!,"Total",?39,$J(T1,8,2),$J(T2,16,2),$J(T1+T2,16,2) Line Location: SFO+34
Function Call: WRITE	Prompt: ?39,$J(WPD/WP*100,8,0) Condition for execution: WPD Line Location: SFO+38
Function Call: WRITE	Prompt: ?55,$J(WPT/WP*100,8,0) Condition for execution: WPT Line Location: SFO+38
Function Call: WRITE	Prompt: ?71,$J(WPD+WPT/WP*100,8,0) Condition for execution: (WPD+WPT) Line Location: SFO+38
Function Call: WRITE	Prompt: ! Line Location: SFO+38
Function Call: WRITE	Prompt: !!,"Grand Total",?39,$J(T1,8,2),$J(T2,16,2),$J(T1+T2,16,2) Line Location: GRD+9
Function Call: WRITE	Prompt: ?39,$J(WPD/WP*100,8,0) Condition for execution: WPD Line Location: GRD+13
Function Call: WRITE	Prompt: ?55,$J(WPT/WP*100,8,0) Condition for execution: WPT Line Location: GRD+13
Function Call: WRITE	Prompt: ?71,$J(WPD+WPT/WP*100,8,0) Condition for execution: (WPD+WPT) Line Location: GRD+13
Function Call: WRITE	Prompt: ! Line Location: GRD+13
Function Call: WRITE	Prompt: !!,"Grand Total",?39,$J(T1,8,2),$J(T2,16,2),$J(T1+T2,16,2) Line Location: OGRD+8
Function Call: WRITE	Prompt: ?39,$J(WPD/WP*100,8,0) Condition for execution: WPD Line Location: OGRD+12
Function Call: WRITE	Prompt: ?55,$J(WPT/WP*100,8,0) Condition for execution: WPT Line Location: OGRD+12
Function Call: WRITE	Prompt: ?71,$J(WPD+WPT/WP*100,8,0) Condition for execution: (WPD+WPT) Line Location: OGRD+12
Function Call: WRITE	Prompt: ! Line Location: OGRD+12
Function Call: WRITE	Prompt: !,PTIM,!!?11,"S U P P L E M E N T A L F E E D I N G C O S T S",?73,"Page ",PG Line Location: HDR+2
Function Call: WRITE	Prompt: !!,$S(FHOUT=1:"*OUTPATIENT",1:"INPATIENT*") Line Location: HDR+3
Function Call: WRITE	Prompt: ?(80-$L(Y)\2),Y Line Location: HDR+4
Function Call: WRITE	Prompt: ?(80-$L(Y)\2),Y Line Location: HDR+5
Function Call: WRITE	Prompt: !!?38,"DIETARY",?52,"THERAPEUTIC",?71,"TOTAL",!,"Supplemental Feeding",?28,"Cost Qty Total Qty Total Qty Total",! Line Location: HDR+6
Routine Call	DIC Line Location: F1+1 D2+1
Routine Call	%ZIS Line Location: L0

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^FH(114 - [#114]	Q1+20, SFO+27, GRD, OGRD
^FH(118 - [#118]	Q1+20, SFO+27, GRD, OGRD
^FH(119.6 - [#119.6]	D0+3, Q1+3, SFO+8
^FH(119.74 - [#119.74]	D0+2, Q1+6, SFO+11
^FHPT - [#115]	Q1+10, Q1+11, SFO+5, SFO+6, SFO+15, SFO+17
^FHPT("AW"	Q1+7
^FHPT("RM"	SFO+4, SFO+5
^TMP($J	Q1+1!, Q1+8, Q1+9, Q1+13, Q1+14, Q1+15, Q1+16, Q1+20, Q1+21, Q1+23 , Q1+24, Q1+25, Q1+26, Q1+29, SFO+1!, SFO+13, SFO+14, SFO+21, SFO+22, SFO+23 , SFO+24, SFO+27, SFO+28, SFO+29, SFO+30, SFO+31, SFO+32, SFO+35, GRD, GRD+2 , GRD+4, GRD+5, GRD+6, GRD+7, GRD+10, OGRD, OGRD+2, OGRD+3, OGRD+4, OGRD+5 , OGRD+6, OGRD+9, KIL!

Label References

Name	Line Occurrences
D0	D0+1
D2	D0+4, D2+1
F1	F1+1
GRD	Q1+33
HDR	Q1+23, Q1+26, Q1+28, SFO+29, SFO+32, SFO+34, GRD+4, GRD+7, GRD+9, OGRD+3 , OGRD+6, OGRD+8
KIL	D0, F1, D2, S0, L0, L0+1, L0+2
OGRD	SFO+39
Q1	L0+2
S0	D0+2, D0+3, F1+2, S0

Naked Globals

Name	Field # of Occurrence
^(	Q1+3, Q1+15, Q1+16, Q1+20, Q1+24, SFO+23, SFO+24, SFO+27, SFO+30, GRD , GRD+5, OGRD, OGRD+4
^("T"	Q1+26, SFO+32, GRD+7, OGRD+6
^(0	Q1+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	Q1+1
%ZIS	L0!*, L0+2!
%ZIS("A"	L0*
>> A1	Q1+26, Q1+27, SFO+32, SFO+33, GRD+7, GRD+8, OGRD+6, OGRD+7
>> A2	Q1+26, Q1+27, SFO+32, SFO+33, GRD+7, GRD+8, OGRD+6, OGRD+7
>> ADM	Q1+7*, Q1+10, Q1+11
>> CTR	Q1+29, SFO+35, GRD+10, OGRD+9
>> CU	Q1+20, Q1+24, Q1+26, Q1+27, SFO+27, SFO+30, SFO+32, SFO+33, GRD, GRD+5 , GRD+7, GRD+8, OGRD, OGRD+4, OGRD+6, OGRD+7
DIC	F1+1!, D2+1!
DIC(0	F1+1, D2+1
DT	SFO+4
DTIME	D0, F1, D2, S0
>> DTP	Q1+1*
>> FHDA15	SFO+6*, SFO+7
>> FHDA15SF	SFO+17*, SFO+18, SFO+19, SFO+23
>> FHDFN	Q1+7, Q1+10, Q1+11, SFO+4, SFO+5, SFO+6, SFO+15, SFO+17, SFO+25
>> FHDFNSV	SFO+2, SFO+25
>> FHI	SFO+4*, SFO+5
>> FHJ	SFO+5*, SFO+6, SFO+15, SFO+17
>> FHLOC	SFO+7*, SFO+8, SFO+9
>> FHLOX0	SFO+8*, SFO+10, SFO+11
>> FHLST	L0+1*
>> FHMEAL	SFO+7*
>> FHOUT	Q1+22, SFO+2, GRD+3*, HDR+3
>> FHPGM	L0+1*
>> FHSF	SFO+15*, SFO+16, SFO+17
>> FHSUM	Q1+1, Q1+2, Q1+9, Q1+14, Q1+15, Q1+33, SFO+1, SFO+3, SFO+14, SFO+22 , SFO+23, SFO+39
>> FHSUMHD	Q1+1, SFO+1, GRD+1, OGRD+1, HDR+4, HDR+5
IO	L0+2
IO("Q"	L0+1
IOF	FHNO6+3, HDR+1
IOP	L0!, L0+2!
IOSL	Q1+26, Q1+28, SFO+32, SFO+34, GRD+7, GRD+9, OGRD+6, OGRD+8
IOST	HDR+1
>> KK	Q1+3*, Q1+4, Q1+7
>> L	Q1+15, SFO+23
>> NAM	Q1+20, Q1+24, Q1+25, Q1+27, SFO+27, SFO+30, SFO+31, SFO+33, GRD, GRD+5 , GRD+6, GRD+8, OGRD, OGRD+4, OGRD+5, OGRD+7
>> NO	Q1+10*, Q1+11
>> P0	Q1+6, SFO+11
>> PD	Q1+12, Q1+13, Q1+14, Q1+15, Q1+16, SFO+19, SFO+21, SFO+22, SFO+23, SFO+24
>> PG	Q1+1, HDR+1, HDR+2
>> POP	L0
>> PTIM	Q1+1*, HDR+2
>> Q	Q1+15, Q1+16, SFO+23, SFO+24
>> REC	Q1+20, SFO+27, GRD, OGRD
>> SUM	S0+1*, Q1+2, Q1+6, SFO+3, SFO+11, HDR+4
>> T1	Q1+23, Q1+26, Q1+28, Q1+30, Q1+31, SFO+29, SFO+32, SFO+34, SFO+36, SFO+37 , GRD+4, GRD+7, GRD+9, GRD+11, GRD+12, OGRD+3, OGRD+6, OGRD+8, OGRD+10, OGRD+11
>> T2	Q1+23, Q1+26, Q1+28, Q1+30, Q1+31, SFO+29, SFO+32, SFO+34, SFO+36, SFO+37 , GRD+4, GRD+7, GRD+9, GRD+11, GRD+12, OGRD+3, OGRD+6, OGRD+8, OGRD+10, OGRD+11
>> TNOD	Q1+6, Q1+8, Q1+13, Q1+15, Q1+21, Q1+23, Q1+25, Q1+26, Q1+29, SFO+11* , SFO+13, SFO+21, SFO+23, SFO+28, SFO+29, SFO+31, SFO+32, SFO+35, GRD+2, GRD+4 , GRD+6, GRD+7, GRD+10, OGRD+2*, OGRD+3, OGRD+5, OGRD+6, OGRD+9, HDR+4
U	SFO+5, SFO+7, SFO+15, SFO+18
>> WP	Q1+29, Q1+30, Q1+32, SFO+35, SFO+36, SFO+38, GRD+10, GRD+11, GRD+13, OGRD+9 , OGRD+10, OGRD+12
>> WPD	Q1+29, Q1+31, Q1+32, SFO+35, SFO+37, SFO+38, GRD+10, GRD+12, GRD+13, OGRD+9 , OGRD+11, OGRD+12
>> WPT	Q1+29, Q1+31, Q1+32, SFO+35, SFO+37, SFO+38, GRD+10, GRD+12, GRD+13, OGRD+9 , OGRD+11, OGRD+12
>> WRD	D0+2, D0+3, F1, F1+1, D2, D2+1, S0, Q1+2, Q1+4, Q1+5 , SFO+3, SFO+9, SFO+10
>> X	F1, D2, D2+1, S0*, S0+1
>> X0	Q1+3*, Q1+5, Q1+6
>> XX	D0*, D0+1, D0+2, D0+3, D0+4, Q1+4, Q1+5, Q1+6, SFO+9, SFO+10 , SFO+11
>> Y	F1+1, D2+1, Q1+10, Q1+11, Q1+12, Q1+15, HDR+4, HDR+5
>> Z	Q1+15, Q1+16, Q1+20, Q1+25, Q1+26, SFO+23, SFO+24, SFO+27, SFO+31, SFO+32 , GRD, GRD+6, GRD+7, OGRD, OGRD+5, OGRD+6

Customize PDF page

Package: Dietetics

Routine: FHNO6

Information

Source Information

Call Graph

Call Graph Total: 6

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	; Print Supplemental Feeding Cost Report
F1
OGRD
HDR	; Print Header
S0
SFO	;process outpt SFs.
GRD
L0
KIL
D2
D0