Routine: FHMADM3

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

Package	Total	Caller Graph
Dietetics	1	FHADM3

Entry Points

Name	Comments	DBIA/ICR reference
Q1	; Process Printing the Meal Report
QUIT	;
Q3
Q2	;
HDR	;Print page headers
FTOTALS	; Final Totals
TOTALS	;
LN
EN1	; Print Meal Report
EXIT
KIL
PRINT
N1	;Get specific records based on Communications Offices,Start/End Dates, etc
N2	;Get Communciation Offices
D2	;
DT	; Get From/To Dates
D1

External References

Name	Field # of Occurrence
^%DT	D1, D2+1
C^%DTC	Q3+1
DOW^%DTC	Q1+3
NOW^%DTC	Q1+4
^%ZIS	PRINT+1
^%ZISC	PRINT+3
^DIC	N2+2
DTP^FH	Q1+2, Q1+4, N1+10
EN2^FH	PRINT+2
KILL^XUSCLEAN	KIL

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "Print report for all Communications Offices Y or N: " Formatting: ! Timeout: DTIME Variable: ZCO Line Location: EN1+9
Function Call: WRITE	Prompt: !!,"The report requires a 132 column printer.",! Line Location: PRINT+0
Function Call: WRITE	Prompt: ! Line Location: PRINT+1
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: TOTALS+4
Function Call: WRITE	Prompt: !,"ALL Total",?10,"\|",SS(1),SS(2),SS(3),SS(4),SS(5),SS(6),SS(19)," \|",SS(7),SS(8),SS(9),SS(10),SS(11),SS(12),SS(20)," \|",SS(13),SS(14),SS(15),SS(16),SS(17),SS(18),SS(21)," \|",SS(22),! Line Location: FTOTALS+4
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+1
Function Call: WRITE	Prompt: !!,?1,NAME Line Location: HDR+2
Function Call: WRITE	Prompt: !!?(131-$L(DTE)\2),DTE Line Location: HDR+3
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+4
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+5
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+11
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+12
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+2
Function Call: WRITE	Prompt: *7," [End before Start?] " Line Location: D2+3
Routine Call	DIC Line Location: N2+2
Routine Call	%ZIS Line Location: PRINT+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^FH(117 - [#117]	N1+1, N1+3
^FH(119.73 - [#119.73]	EN1+7, Q2+2, Q2+3

Label References

Name	Line Occurrences
D1	D1, D1+1, D2+3
D2	D2+1, D2+2
DT	EN1+1
FTOTALS	QUIT+4
HDR	Q2+5, QUIT+3, N1+10
KIL	EN1+1, EN1+9, PRINT+1, PRINT+2, PRINT+3
LN	QUIT+5, TOTALS+4
N1	Q3+1
N2	EN1+9, N2+4
PRINT	N2+3
Q1	PRINT+3
Q2	Q2+2, Q2+3, Q2+7, Q2+8
Q3	Q2+6
QUIT	Q2+2, Q2+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	Q1+4
>> %DT	D1, D2+1
>> %DT("A"	D1, D2+1
%ZIS	PRINT+1!*, PRINT+3!
%ZIS("A"	PRINT+1*
>> CO	EN1+5, Q2+2, N2+2, N2+4
>> CON	N2+4*
>> CONAM	EN1+5, N2+4
>> CONAME	EN1+5, Q2+2, N2+4
>> CONUM	EN1+5, N1+1, N1+3*
>> CONUMX	Q2+2, Q2+7, N2+4
>> COUNT	EN1+5, Q2+3, N1+3
>> COXX	EN1+5, Q2+2, N1+1
>> D1	Q3+1*, N1+1, N1+3, N1+10
DIC	N2+1*, N2+5!
DIC("A"	N2+1*
DIC(0	N2+1*
>> DOW	Q1+3, Q2+6, Q3+1*, N1+11
DT	D1+1, D2+2
>> DTE	Q1+2*, HDR+3
DTIME	EN1+9
>> DTOUT	D1, D2+1
>> DTP	Q1+2, Q1+4, N1+10*, N1+11
>> EDT	Q1+2, Q3+1, D2+1*, D2+2, D2+3
>> FHLST	PRINT+2*
>> FHPGM	PRINT+2*
>> HDT	Q1+4*, HDR+1
IO	PRINT+3
IO("Q"	PRINT+2
IOF	HDR+1
IOP	PRINT+1!, PRINT+3!
IOSL	N1+10
IOST	HDR+1
>> K	EN1+4, TOTALS+2, FTOTALS+2, N1+5, N1+8*
>> L1	Q3, Q3+1, N1+5*
>> L2	N1+5*
>> N	N1+5*
>> N(	Q3, N1+5, N1+8*
>> N(1	N1+12
>> N(10	N1+12
>> N(11	N1+12
>> N(12	N1+12
>> N(13	N1+12
>> N(14	N1+12
>> N(15	N1+12
>> N(16	N1+12
>> N(17	N1+12
>> N(18	N1+5*, N1+12
>> N(19	N1+6, N1+12
>> N(2	N1+12
>> N(20	N1+6, N1+12
>> N(21	N1+6, N1+12
>> N(22	N1+6*, N1+12
>> N(3	N1+12
>> N(4	N1+12
>> N(5	N1+12
>> N(6	N1+12
>> N(7	N1+12
>> N(8	N1+12
>> N(9	N1+12
>> NAME	Q2+2, Q2+3, QUIT+2*, HDR+2
>> PG	Q1+4, HDR+1
>> POP	PRINT+1
>> S(	EN1+4, TOTALS+2, N1+8*
>> S(1	TOTALS+4
>> S(10	TOTALS+4
>> S(11	TOTALS+4
>> S(12	TOTALS+4
>> S(13	TOTALS+4
>> S(14	TOTALS+4
>> S(15	TOTALS+4
>> S(16	TOTALS+4
>> S(17	TOTALS+4
>> S(18	TOTALS+4
>> S(19	TOTALS+4
>> S(2	TOTALS+4
>> S(20	TOTALS+4
>> S(21	TOTALS+4
>> S(22	TOTALS+4
>> S(3	TOTALS+4
>> S(4	TOTALS+4
>> S(5	TOTALS+4
>> S(6	TOTALS+4
>> S(7	TOTALS+4
>> S(8	TOTALS+4
>> S(9	TOTALS+4
>> SDT	Q1+2, Q1+3, Q3+1, D1*, D1+1, D2+3
>> SS(	EN1+4, FTOTALS+2, N1+8*
>> SS(1	FTOTALS+4
>> SS(10	FTOTALS+4
>> SS(11	FTOTALS+4
>> SS(12	FTOTALS+4
>> SS(13	FTOTALS+4
>> SS(14	FTOTALS+4
>> SS(15	FTOTALS+4
>> SS(16	FTOTALS+4
>> SS(17	FTOTALS+4
>> SS(18	FTOTALS+4
>> SS(19	FTOTALS+4
>> SS(2	FTOTALS+4
>> SS(20	FTOTALS+4
>> SS(21	FTOTALS+4
>> SS(22	FTOTALS+4
>> SS(3	FTOTALS+4
>> SS(4	FTOTALS+4
>> SS(5	FTOTALS+4
>> SS(6	FTOTALS+4
>> SS(7	FTOTALS+4
>> SS(8	FTOTALS+4
>> SS(9	FTOTALS+4
U	D1, D2+1
>> X	EN1+1, Q1+3, Q3+1, D1, D2+1*
>> X1	Q3+1*
>> X2	Q3+1*
>> Y	Q1+3, Q2+6, N2+2, N2+3, N2+4, N2+5, D1, D2+1
>> Y0	N1+1, N1+3
>> Y1	N1+1, N1+3, N1+5
>> Y2	N1+1, N1+3
>> Z	TOTALS+2, FTOTALS+2, N1+5*
>> ZCO	EN1+5, EN1+9, Q2+2, Q2+3, Q2+7, Q2+8, N1+1, N1+3
>> ZOUT	EN1+7*, Q2+3, N1+1, N1+3
>> ZZCOUNT	EN1+7*

Customize PDF page

Package: Dietetics

Routine: FHMADM3

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: