Routine: FHADM21

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

Package

Total

Call Graph

Dietetics

(DTP,EN2)^FH DT^FHADM2 ^FHMADM21

Kernel

^%ZIS ^%ZISC KILL^XUSCLEAN

VA Fileman

(C,DOW,NOW)^%DTC

Package	Total	Caller Graph
Dietetics	2	FHADM2 FHADMR2

Package

Total

Caller Graph

Dietetics

FHADM2 FHADMR2

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"The report requires a 132 column printer.",! Line Location: EN2+4
Function Call: WRITE	Prompt: ! Line Location: EN2+5
Function Call: WRITE	Prompt: !?4,"Total",?15,"\|",S(1),S(2),S(3),"\|",S(4),S(5),S(6),"\|",S(7),S(8),S(9),"\|",S(10),"\|",S(11),S(13),S(16),"\|",S(17),"\|",S(18),"\|",S(19),S(20),S(21),! Line Location: Q1+7
Function Call: WRITE	Prompt: !,HDT,?44,"S E R V E D M E A L S W O R K S H E E T",?125,"Page ",PG Line Location: HDR+0
Function Call: WRITE	Prompt: !!?(131-$L(DTE)\2),DTE Line Location: HDR+1
Function Call: WRITE	Prompt: !!,?15,"\|",?32,"MEALS SERVED ON INPATIENT BASIS",?79,"\|",?82,"MEALS SERVED TO OTHERS",?105,"\| TOTAL\| SERVED TRAYS DATA" Line Location: HDR+2
Function Call: WRITE	Prompt: !,?15,"\|",?19,"DOMICILIARY",?34,"\| NURSING HOME CU",?53,"\|",?59,"HOSPITAL",?72,"\| TOTAL\|",?98,"\| TOTAL\| MEALS\|" Line Location: HDR+3
Function Call: WRITE	Prompt: !,?15,"\| Inp. Abs. Meal\| Inp. Abs. Meal\| Inp. Abs. Meal\| \| Outp. Paid Grat.\| \| \| Cafe NPO Trays" Line Location: HDR+4
Function Call: WRITE	Prompt: !,?15,"\| A B C \| D E F \| G H I \| J \| K M Q \| \| R \| T U V" Line Location: HDR+5
Function Call: WRITE	Prompt: ! Line Location: LN+0
Function Call: WRITE	Prompt: "-" Line Location: LN+0
Function Call: WRITE	Prompt: !,$P("Sun Mon Tue Wed Thu Fri Sat"," ",DOW)," ",DTP Line Location: N1+9
Function Call: WRITE	Prompt: ?15,"\|",N(1),N(2),N(3),"\|",N(4),N(5),N(6),"\|",N(7),N(8),N(9),"\|",N(10),"\|",N(11),N(13),N(16),"\|",N(17),"\|",N(18),"\|",N(19),N(20),N(21) Line Location: N1+10
Routine Call	%ZIS Line Location: EN2+5

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

Name	Line Occurrences
HDR	Q1+2, N1+8
KIL	EN2+3, EN2+5, EN2+6, EN2+7
LN	Q1+7
N1	Q1+4
Q1	EN2+7

Name	Field # of Occurrence
^(1	N1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN2+3, Q1+2
%ZIS	EN2+5!*, EN2+7!
%ZIS("A"	EN2+5*
>> D1	Q1+4*, N1, N1+8
>> DOW	Q1+1, Q1+4, N1+9
DT	EN2+3*
>> DTE	Q1*, HDR+1
>> DTP	Q1, Q1+2, N1+8*, N1+9
>> EDT	Q1, Q1+4
>> FHLST	EN2+6*
>> FHPGM	EN2+6*
>> HDT	Q1+2*, HDR
IO	EN2+7
IO("Q"	EN2+6
IOF	HDR
IOP	EN2+5!, EN2+7!
IOSL	N1+8
IOST	HDR
>> K	Q1+3, Q1+5, Q1+6, LN, N1+1, N1+2, N1+6, N1+7
>> L	N1+1, N1+2
>> L1	Q1+4*
N	N1+1!
N(	Q1+5, Q1+6, N1+1, N1+2, N1+6, N1+7*
N(1	Q1+8, N1+4, N1+10
N(10	Q1+8, N1+4*, N1+5, N1+10
N(11	Q1+8, N1+5, N1+10
N(12	N1+5
N(13	Q1+8, N1+5*, N1+10
N(14	N1+5
N(15	N1+5
N(16	Q1+8, N1+5*, N1+10
N(17	Q1+8, N1+5*, N1+10
N(18	Q1+8, N1+5*, N1+10
N(19	Q1+8, N1+3, N1+5, N1+10
N(2	Q1+8, N1+4, N1+10
N(20	Q1+8, N1+3*, N1+5, N1+10
N(21	Q1+8, N1+5*, N1+10
N(3	Q1+8, N1+4*, N1+10
N(4	Q1+8, N1+4, N1+10
N(5	Q1+8, N1+4, N1+10
N(6	Q1+8, N1+4*, N1+10
N(7	Q1+8, N1+4, N1+10
N(8	Q1+8, N1+4, N1+10
N(9	Q1+8, N1+4*, N1+10
>> ND	Q1+4, Q1+5, Q1+8, N1+5
>> PG	Q1+2, HDR
>> POP	EN2+5
S	Q1+3!
S(	Q1+3, Q1+5, Q1+6, N1+6
S(1	Q1+7
S(10	Q1+7
S(11	Q1+7
S(13	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(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, Q1+1, Q1+4
>> TD	Q1+4, Q1+6, N1+5
U	EN2+2
>> X	EN2+3, Q1+1*, Q1+4
>> X1	Q1+4*
>> X2	Q1+4*
>> Y	Q1+1
>> Y0	N1*, N1+1
>> Y1	N1*, N1+2, N1+3

Customize PDF page

Package: Dietetics

Routine: FHADM21

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
Q1
HDR
LN
EN2	; Print Meals Report ; Check for multidivisional site
KIL	; Kill all used Variables
N1