Routine: FHADM3

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

Package

Total

Call Graph

Kernel

^%ZIS ^%ZISC KILL^XUSCLEAN

Dietetics

(DTP,EN2)^FH ^FHMADM3

VA Fileman

^%DT (C,DOW,NOW)^%DTC

Package	Total	Caller Graph
Dietetics	1	FHADMR3

Package

Total

Caller Graph

Dietetics

FHADMR3

Name	Field # of Occurrence
^%DT	D1, D2
C^%DTC	Q1+5
DOW^%DTC	Q1+2
NOW^%DTC	Q1+3
^%ZIS	EN1+5
^%ZISC	EN1+7
DTP^FH	Q1+1, Q1+3, N1+4
EN2^FH	EN1+6
^FHMADM3	EN1+2
KILL^XUSCLEAN	KIL

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"The report requires a 132 column printer.",! Line Location: EN1+4
Function Call: WRITE	Prompt: ! Line Location: EN1+5
Function Call: WRITE	Prompt: !," Total",?10,"\|",S(1),S(2),S(3),S(4),S(5),S(6),S(19)," \|",S(7),S(8),S(9),S(10),S(11),S(12),S(20)," \|",S(13),S(14),S(15),S(16),S(17),S(18),S(21)," \|",S(22),! Line Location: Q1+7
Function Call: WRITE	Prompt: !,HDT,?50,"A D D I T I O N A L M E A L S",?125,"Page ",PG Line Location: HDR+0
Function Call: WRITE	Prompt: !!?(131-$L(DTE)\2),DTE Line Location: HDR+1
Function Call: WRITE	Prompt: !!,?10,"\|",?21,"B R E A K F A S T",?48,"\|",?64,"N O O N",?86,"\|",?99,"E V E N I N G",?124,"\| TOTAL" Line Location: HDR+2
Function Call: WRITE	Prompt: !,?10,"\| Opt. Emp. Paid OOD Vol. Grt. Total \| Opt. Emp. Paid OOD Vol. Grt. Total \| Opt. Emp. Paid OOD Vol. Grt. Total \|" Line Location: HDR+3
Function Call: WRITE	Prompt: !,"-----------------------------------------------------------------------------------------------------------------------------------" Line Location: LN+0
Function Call: WRITE	Prompt: !,$P("Sun Mon Tue Wed Thu Fri Sat"," ",DOW)," ",$E(DTP,1,6) Line Location: N1+5
Function Call: WRITE	Prompt: "\|",N(1),N(2),N(3),N(4),N(5),N(6),N(19)," \|",N(7),N(8),N(9),N(10),N(11),N(12),N(20)," \|",N(13),N(14),N(15),N(16),N(17),N(18),N(21)," \|",N(22) Line Location: N1+6
Function Call: WRITE	Prompt: ! Line Location: D1+0
Function Call: WRITE	Prompt: *7," [Must Start before Today!] " Line Location: D1+1
Function Call: WRITE	Prompt: *7," [Must End before Today!] " Line Location: D2+1
Function Call: WRITE	Prompt: *7," [End before Start?] " Line Location: D2+2
Routine Call	%ZIS Line Location: EN1+5

Name	Line Occurrences (* Changed, ! Killed)
^FH(117 - [#117]	N1
^FH(119.9 - [#119.9]	EN1+2

Name	Line Occurrences
D1	D1, D1+1, D2+2
D2	D2, D2+1
DT	EN1+3
HDR	Q1+3, N1+4
KIL	EN1+3, EN1+5, EN1+6, EN1+7
LN	Q1+7
N1	Q1+5
Q1	EN1+7

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	Q1+3
>> %DT	D1, D2
>> %DT("A"	D1, D2
%ZIS	EN1+5!*, EN1+7!
%ZIS("A"	EN1+5*
>> D1	Q1+5*, N1, N1+4
>> DOW	Q1+2, Q1+5, N1+5
DT	D1+1, D2+1
>> DTE	Q1+1*, HDR+1
>> DTOUT	D1, D2
>> DTP	Q1+1, Q1+3, N1+4*, N1+5
>> EDT	Q1+1, Q1+5, D2*, D2+1, D2+2
>> FHLST	EN1+6*
>> FHPGM	EN1+6*
>> HDT	Q1+3*, HDR
IO	EN1+7
IO("Q"	EN1+6
IOF	HDR
IOP	EN1+5!, EN1+7!
IOSL	N1+4
IOST	HDR
>> K	Q1+4, Q1+6, N1+1, N1+3
>> L1	Q1+5, N1, N1+1*
>> L2	N1+1*
>> N	N1+1*
>> N(	N1, N1+1, N1+3*
>> N(1	N1+6
>> N(10	N1+6
>> N(11	N1+6
>> N(12	N1+6
>> N(13	N1+6
>> N(14	N1+6
>> N(15	N1+6
>> N(16	N1+6
>> N(17	N1+6
>> N(18	N1+1*, N1+6
>> N(19	N1+2, N1+6
>> N(2	N1+6
>> N(20	N1+2, N1+6
>> N(21	N1+2, N1+6
>> N(22	N1+2*, N1+6
>> N(3	N1+6
>> N(4	N1+6
>> N(5	N1+6
>> N(6	N1+6
>> N(7	N1+6
>> N(8	N1+6
>> N(9	N1+6
>> PG	Q1+3, HDR
>> POP	EN1+5
S	Q1+4!
S(	Q1+4, Q1+6, N1+3*
S(1	Q1+7
S(10	Q1+7
S(11	Q1+7
S(12	Q1+7
S(13	Q1+7
S(14	Q1+7
S(15	Q1+7
S(16	Q1+7
S(17	Q1+7
S(18	Q1+7
S(19	Q1+7
S(2	Q1+7
S(20	Q1+7
S(21	Q1+7
S(22	Q1+7
S(3	Q1+7
S(4	Q1+7
S(5	Q1+7
S(6	Q1+7
S(7	Q1+7
S(8	Q1+7
S(9	Q1+7
>> SDT	Q1+1, Q1+2, Q1+5, D1*, D1+1, D2+2
U	EN1+2, D1, D2
>> X	EN1+3, Q1+2, Q1+5, D1, D2*
>> X1	Q1+5*
>> X2	Q1+5*
>> Y	Q1+2, D1, D2
>> Y1	N1*, N1+1
>> Z	Q1+6, N1+1

Customize PDF page

Package: Dietetics

Routine: FHADM3

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
Q1	; Process Printing the Meal Report
HDR
LN
EN1	; Print Meal Report ; Check for multidivisional site
KIL
N1
DT	; Get From/To Dates
D2
D1