Routine: FHMADM4

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

Package	Total	Caller Graph
Dietetics	1	FHADM4

Entry Points

Name	Comments	DBIA/ICR reference
Q1	; Process Printing Staffing Report
QUIT	;
Q3	;
Q2	;Print Averages
Q4	;
FTOTALS	;Print Final Totals
LN
EN1	; Enter/Edit Staffing Data
EN2	; Print Staffing Data Report
M1	; Get total Meals ; S Y1=$G(^FH(117,D1,0)) Q:Y1="" I '$D(^FH(117,D1,1)) Q S Y2=$G(^FH(117,D1,1)) Q
KIL
PRINT
N1	;Get specific records
N2	;Get Communications Offices
E1
HDR	;Print page headers

External References

Name	Field # of Occurrence
^%DT	E1
C^%DTC	E1+3, Q4+3
DOW^%DTC	Q1+2
NOW^%DTC	EN1+1, Q1+3
^%ZIS	PRINT+1
^%ZISC	PRINT+3
^DIC	N2+2
^DIE	E1+4
DTP^FH	Q1+1, Q1+3, N1+5
EN2^FH	PRINT+2
DT^FHMADM2	EN2+1
KILL^XUSCLEAN	KIL

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: E1+0
Function Call: WRITE	Prompt: 7,!!,"* Date must not be in the future!",! Line Location: E1+1
Function Call: READ	Prompt: "Print report all Communications Offices Y or N: " Formatting: ! Timeout: DTIME Variable: ZCO Line Location: EN2+7
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: !?7,"Total",?15 Line Location: Q4+5
Function Call: WRITE	Prompt: $J(S(K),$E(X,1)+1,$E(X,2)) Line Location: Q4+5
Function Call: WRITE	Prompt: !?7,"Avg.",?15 Line Location: Q2+1
Function Call: WRITE	Prompt: $J(S(K)/ND,$E(X,1)+1,$E(X,2)) Line Location: Q2+1
Function Call: WRITE	Prompt: !?7,"% Paid",?68 Line Location: Q2+2
Function Call: WRITE	Prompt: $J(S(K)/S(22)*100,$E(X,1)+1,0) Line Location: Q2+2
Function Call: WRITE	Prompt: !!?7,"Adjustment for Unscheduled and Intermittent",!!?7,"UNS/INT Total " Line Location: Q2+3
Function Call: WRITE	Prompt: $J(TOT,5,1)," FTEE",!?7,"Adjusted Measured FTEE " Line Location: Q2+3
Function Call: WRITE	Prompt: $J(TOT,5,1)," FTEE",!?7,"Adjusted Measured FTEE " Line Location: Q2+3
Function Call: WRITE	Prompt: $J(TOT,5,1)," FTEE",!?7,"Adjusted Measured FTEE " Line Location: Q2+3
Function Call: WRITE	Prompt: !!?7,"Man Minutes/Meal: ",$J(MAN/FHTOT,0,0) Line Location: Q2+4
Function Call: WRITE	Prompt: ! Line Location: Q2+5
Function Call: WRITE	Prompt: !?6,"All Total",?13 Line Location: FTOTALS+2
Function Call: WRITE	Prompt: $J(SS(K),$E(X,1)+1,$E(X,2)) Line Location: FTOTALS+2
Function Call: WRITE	Prompt: !?6,"All Avg.",?15 Line Location: FTOTALS+4
Function Call: WRITE	Prompt: $J(SS(K)/SSND,$E(X,1)+1,$E(X,2)) Line Location: FTOTALS+4
Function Call: WRITE	Prompt: !?6,"All % Paid",?68 Line Location: FTOTALS+5
Function Call: WRITE	Prompt: $J(SS(K)/SS(22)*100,$E(X,1)+1,0) Line Location: FTOTALS+5
Function Call: WRITE	Prompt: !!?6,"All Adjustment for Unscheduled and Intermittent",!!?6,"All UNS/INT Total " Line Location: FTOTALS+6
Function Call: WRITE	Prompt: $J(TOT,5,1)," FTEE",!?6,"All Adjusted Measured FTEE " Line Location: FTOTALS+6
Function Call: WRITE	Prompt: $J(SSTOT,6,1) Line Location: FTOTALS+7
Function Call: WRITE	Prompt: !?6,"All Avg Measured FTEE ",$J(SSTOT/ND,5,1) Line Location: FTOTALS+7
Function Call: WRITE	Prompt: !!?6,"Man Minutes/Meal: ",$J(SMAN/SFHTOT,0,0) Line Location: FTOTALS+8
Function Call: WRITE	Prompt: ! Line Location: FTOTALS+9
Function Call: WRITE	Prompt: !?4,HDT,?44,"S T A F F I N G D A T A W O R K S H E E T",?122,"Page ",PG Line Location: HDR+1
Function Call: WRITE	Prompt: !!,?1,NAME Line Location: HDR+2
Function Call: WRITE	Prompt: !!?(132-$L(DTE)\2),DTE Line Location: HDR+3
Function Call: WRITE	Prompt: !!?15,"\| DAILY\| CLIN\|ADMIN\| SUPP\| SUPV\| MEAS\| POT \| OFF \|WOP\| OT\|UNS\|INT\| PAID\|COP\| AL\| SL\|OTH\|LND\|CMP\|TRN\|VOL\|BOR\|TOTAL" Line Location: HDR+4
Function Call: WRITE	Prompt: !?15,"\| FTEE\| FTEE\| FTEE\| FTEE\| FTEE\| FTEE\| HRS \| HRS \|HRS\|HRS\|HRS\|HRS\| HRS \|HRS\|HRS\|HRS\|HRS\|HRS\|HRS\|HRS\|HRS\|HRS\| HRS" Line Location: HDR+5
Function Call: WRITE	Prompt: !?4,"----------------------------------------------------------------------------------------------------------------------------" Line Location: LN+0
Function Call: WRITE	Prompt: !?4,$P("Sun Mon Tue Wed Thu Fri Sat"," ",DOW)," ",$E(DTP,1,6)," " Line Location: N1+9
Function Call: WRITE	Prompt: "\|",N(K) Line Location: N1+10
Routine Call	DIE Line Location: E1+4
Routine Call	DIC Line Location: N2+2
Routine Call	%ZIS Line Location: PRINT+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^FH(117 - [#117]	M1+7
^FH(117.1 - [#117.1]	E1+2*, E1+3, N1+1, N1+2
^FH(119.73 - [#119.73]	EN2+6, Q3+2, Q3+3

Label References

Name	Line Occurrences
E1	E1, E1+1
EN1	E1+4
FTOTALS	QUIT+5
HDR	Q3+5, QUIT+4, N1+5
KIL	E1, EN2+1, PRINT+1, PRINT+2, PRINT+3
LN	QUIT+6, QUIT+7, Q4+4
M1	N1+11
N1	Q4+3
N2	EN2+7, N2+4
PRINT	N2+3
Q1	PRINT+3
Q2	Q4+4
Q3	Q3+2, Q3+3, Q3+7, Q3+8
Q4	Q3+6
QUIT	Q3+2, Q3+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN1+1, Q1+3
>> %DT	E1*
>> %DT("A"	E1*
%ZIS	PRINT+1!*, PRINT+3!
%ZIS("A"	PRINT+1*
AV	Q1+4!
>> CO	EN2+3, Q3+2, N2+2, N2+4
>> CON	N2+4*
>> CONAM	EN2+3, N2+4
>> CONAME	EN2+3, Q3+2, N2+4
>> CONUM	EN2+3, Q3+7, N1+1, N1+2*, M1+7
>> CONUMX	Q3+2, N2+4
>> COUNT	EN2+3, Q3+3, N1+2
>> COXX	EN2+3, Q3+2, N1+1
>> D1	Q4+3*, N1+1, N1+2, N1+5, M1+7
>> DA	E1+1*, E1+2, E1+3
DIC	E1+2!, N2+1*, N2+5!
DIC("A"	N2+1*
DIC(0	N2+1*
DIE	E1+2!*
>> DM1	E1+3*
>> DOW	Q1+2, Q4+3, N1+9
>> DR	E1+4*
DT	EN1+1*, E1+1
>> DTE	Q1+1*, HDR+3
DTIME	EN2+7
>> DTOUT	E1
>> DTP	Q1+1, Q1+3, N1+5*, N1+9
>> EDT	Q1+1, Q4+3
>> FHLST	PRINT+2*
>> FHPGM	PRINT+2*
>> FHTOT	Q4+3, Q2+4, M1+13
>> FHX1	E1+3*
>> HDT	Q1+3*, HDR+1
IO	PRINT+3
IO("Q"	PRINT+2
IOF	HDR+1
IOP	PRINT+1!, PRINT+3!
IOSL	N1+5
IOST	HDR+1
>> K	EN2+4, Q1+4, Q4+2, Q4+5, Q2+1, Q2+2, FTOTALS+2, FTOTALS+5, N1+10, M1+8 , M1+9*
>> L	N1+6, M1+8, M1+9*
>> L1	Q4+3*
M	M1+8!
M(	M1+8, M1+9
M(1	M1+10
M(10	M1+11*, M1+12
M(11	M1+12
M(12	M1+12
M(13	M1+12*
M(14	M1+12
M(15	M1+12
M(16	M1+12*
M(17	M1+12*
M(18	M1+12*, M1+13
M(2	M1+10
M(3	M1+10*, M1+11
M(4	M1+10
M(5	M1+10
M(6	M1+10*, M1+11
M(7	M1+10
M(8	M1+10
M(9	M1+10*, M1+11
>> MAN	Q4+3, Q2+4
N	N1+6!
N(	N1+6, N1+10
N(1	N1+7
N(10	N1+8
N(11	N1+8
N(12	N1+8
N(13	N1+8
N(14	N1+8
N(15	N1+8
N(16	N1+8
N(17	N1+8
N(18	N1+8
N(19	N1+8
N(2	N1+7
N(20	N1+7*, N1+8
N(21	N1+7*, N1+8
N(22	N1+8*
N(23	N1+8*
N(3	N1+7
N(4	N1+7
N(5	N1+7
N(6	N1+8
N(7	N1+8
N(8	N1+8
N(9	N1+8
>> NAME	Q3+2, Q3+3, QUIT+3*, HDR+2
>> ND	Q4+3, Q4+4, Q2+1, N1+4
>> PG	Q1+3, HDR+1
>> POP	PRINT+1
S	Q1+4!
S(	Q1+4, Q4+2, Q4+5, Q2+1, Q2+2, N1+10*
S(22	Q2+2, Q2+4
>> SDT	Q1+1, Q1+2, Q4+3
>> SFHTOT	Q4+3, Q2+4, FTOTALS+8
>> SIZ	Q1+5*, Q4+5, Q2+1, Q2+2, FTOTALS+2, FTOTALS+5, N1+10
>> SMAN	EN2+3, Q2+4, FTOTALS+8*
>> SS(	EN2+4, Q4+5, FTOTALS+2, FTOTALS+5
>> SS(22	FTOTALS+5, FTOTALS+8
>> SSND	EN2+3, N1+4
>> SSTO1	EN2+3, FTOTALS+7, N1+8
>> SSTOT	EN2+3, FTOTALS+6, FTOTALS+7, N1+8
>> TO1	Q4+3, Q2+3, N1+8
>> TOT	Q4+3, Q2+3, FTOTALS+6, N1+8*
>> X	E1, E1+3, EN2+1, Q1+2, Q4+3, Q4+5, Q2+1, Q2+2, FTOTALS+2, FTOTALS+5 , N1+10*
>> X0	E1+2*
>> X1	E1+3, Q4+3
>> X2	E1+3, Q4+3
>> Y	E1, E1+1, Q1+2, N2+2, N2+3, N2+4, N2+5
>> Y1	M1+7*, M1+8
>> Y2	M1+7*, M1+9
>> Y3	N1+1, N1+2
>> Y4	N1+1, N1+2, N1+6
>> Y5	N1+1, N1+2
>> ZCO	EN2+3, EN2+7, Q3+2, Q3+3, Q3+7, Q3+8, N1+1, N1+2
>> ZOUT	EN2+6*, Q3+3, N1+1, N1+2
>> ZZCOUNT	EN2+6*

Customize PDF page

Package: Dietetics

Routine: FHMADM4

Information

Source Information

Call Graph

Call Graph Total: 9

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

Local Variables

Legend: