Routine: FHREP1

Package	Total	Call Graph
VA Fileman	4	^%DT NOW^%DTC ^DIE ^DIR
Dietetics	2	(DTP,EN2,TR)^FH (D1,F1,KIL)^FHREP
Kernel	2	^%ZIS ^%ZISC

Package	Total	Caller Graph
Dietetics	2	FHING13 FHREP

Entry Points

Name	Comments	DBIA/ICR reference
Q1	; Loop through Ingredients
Q0	; Process Printing worksheet or report
P1	; Loop to print or if FHR="E" edit QOH
SUB	; Write subtotal
CHK	; Check the Food Group or Storage to do Subtotal & Grandtotal
EN2	; Print the Inventory Worksheet & Report
LP	; Get Food Group or Storage
E1
E0	; Read in Month and Year
HD	; Check for end of page
HDR	; Heading for the Inventory

External References

Name	Field # of Occurrence
^%DT	E0+4
NOW^%DTC	E0+1, Q1+1
^%ZIS	E1
^%ZISC	E1+2
^DIE	P1+7
^DIR	HD+2
DTP^FH	Q1+1, LP+2
EN2^FH	E1+1
TR^FH	EN2+3
D1^FHREP	E0+7
F1^FHREP	E0+6
KIL^FHREP	EN2+2, E0+2, E0+6, E0+7, E1, E1+1, E1+2, Q0+1

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "Select W=Worksheet or R=Report: " Formatting: !! Timeout: DTIME Variable: FHR Line Location: EN2+2
Function Call: WRITE	Prompt: *7," Enter W or R" Line Location: EN2+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: E0+2
Function Call: WRITE	Prompt: *7," Answer Month and Yr as Mth/Yr or Mth Yr.",!?25," CANNOT be greater than now." Line Location: E0+4
Function Call: WRITE	Prompt: ! Line Location: E1+0
Function Call: WRITE	Prompt: !!,?55,"TOTAL: ",$J(SUBTOT,8,2) Line Location: Q1+5
Function Call: WRITE	Prompt: !!?49,"GRAND TOTAL: ",$J(GRDTOT,8,2) Line Location: Q1+6
Function Call: WRITE	Prompt: ! Line Location: P1+10
Function Call: WRITE	Prompt: ?53,UDC,?63,$J(QOH,8,2),?73,"_____" Line Location: P1+13
Function Call: WRITE	Prompt: !,$J(MIN,5),?6,$P(ING,",",1,L-1),"," Line Location: P1+18
Function Call: WRITE	Prompt: ?53,UDC,?63,$J(QOH,8,2),?73,"_____" Line Location: P1+20
Function Call: WRITE	Prompt: !!,?52,"SUBTOTAL: ",$J(SUBTOT,8,2) Line Location: SUB+1
Function Call: READ	Timeout: "W Variable: Y " W $S(FHR="W" Line Location: HDR+2
Function Call: READ	Prompt: K S H E E T" Timeout: "R Variable: 1 Line Location: HDR+2
Function Call: WRITE	Prompt: !,HD,?70,"Page ",PG,!!?22,"I N V E N T O R Y " Line Location: HDR+2
Function Call: WRITE	Prompt: $S(FHR="W":"W O R K S H E E T",1:"R E P O R T"),!! Line Location: HDR+2
Function Call: WRITE	Prompt: ?(80-$L(MTH)/2),MTH,!! Line Location: HDR+3
Function Call: WRITE	Prompt: ?(80-$L(P2)/2),P2,!! Line Location: HDR+6
Function Call: WRITE	Prompt: !?56,"DATE",!?47,"ITEM",?56,"LAST",?66,"QOH",?74,"QOH",!,"ITEM#",?20,"NAME",?38,"U/P",?47,"COST",?55,"UPDATE",?63,"LAST MTH",?72,"CURRENT",! Line Location: HDR+7
Function Call: WRITE	Prompt: !?47,"ITEM",?58,"QOH",?67,"TOTAL",!,"ITEM#",?20,"NAME",?38,"U/P",?47,"COST",?56,"CURRENT",?68,"COST",! Line Location: HDR+8
Routine Call	DIE Line Location: P1+7
Routine Call	DIR Line Location: HD+2
Routine Call	%ZIS Line Location: E1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^FHING - [#113]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^FH(113.1 - [#113.1]	LP+4
^FHING - [#113]	Q1+2, P1+3
^TMP($J	Q1+1!, Q1+2*, Q1+4

Label References

Name	Line Occurrences
CHK	P1+9
E0	E0+4
EN2	EN2+4
HD	P1+10, CHK+3
HDR	CHK+2, HD+1
LP	Q1+2
P1	Q1+4
Q0	E1+2
Q1	Q0+1
SUB	Q1+6, CHK+3

Naked Globals

Name	Field # of Occurrence
^(	Q1+2, Q1+4
^(0	Q1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	E0+1, Q1+1
%DT	E0+2!, E0+4*!
%ZIS	E1*!, E1+2!
%ZIS("B"	E1*
>> ANS	Q1+1, Q1+4, Q1+5, Q1+6, P1+7, P1+9, P1+10, HD+2*
>> CK	Q1+1, P1+7
>> COST	Q1+2, LP+1, P1+1, P1+12, P1+19, CHK+7
DA	P1+5*, P1+7!
DIE	P1+5!*, P1+7!
DIR	HD+2!
DIR(0	HD+2*
DR	P1+6, P1+7!
DT	P1+6, P1+7
DTIME	EN2+2, E0+2
DTOUT	P1+7!
>> DTP	Q1+1, LP+2
>> FHLST	E1+1*
>> FHPGM	E1+1*
>> FHR	EN2+2, EN2+3, EN2+4, E0+6, E0+7, Q1+5, Q1+6, P1+2, P1+13, P1+20 , CHK+3, CHK+6, HDR+2, HDR+7
>> FHXX	EN2+1*, E0+6, Q1+2, LP+3, CHK+1, HDR+4
>> GRDTOT	Q1+1, Q1+6, CHK+9
>> HD	Q1+1*, HDR+2
>> ING	Q1+2, Q1+4, LP+1, P1+11, P1+12, P1+17, P1+18, P1+19
IO	E1+2
IO("Q"	E1+1
IOF	HDR+1
IOP	E1!, E1+2!
IOSL	P1+10
IOST	HD+2, HDR+1
>> K	Q1+1, Q1+2, P1+1*, P1+3, P1+5
>> L	P1+17, P1+18, P1+19
>> L0	Q1+2, LP+1, LP+4
>> L1	Q1+4*
>> L2	Q1+4*
>> LOC	LP+4*
>> MIN	Q1+2, LP+1, P1+1, P1+12, P1+18
>> MTH	E0+5*, HDR+3
>> NOW	E0+1*, E0+2, E0+3, E0+4
>> OK	Q1+2, LP+1, LP+3, LP+4*
>> OKAY	P1+6, P1+7
>> OLD	Q1+1, CHK+2, CHK+3, CHK+4*
>> P0	Q1+2, Q1+4, LP+3, LP+4*, CHK+1
>> P1	CHK+1*, CHK+2, CHK+3, CHK+4, HDR+4, HDR+5
>> P2	HDR+4, HDR+5, HDR+6
>> PG	Q1+1, HDR+1, HDR+2
>> POP	E1
>> QOH	Q1+2, LP+1, P1+1, P1+13, P1+14, P1+20, P1+21, CHK+7
>> REC	Q1+3, P1+1, CHK+2, HD+1
>> SRT	Q1+5, Q1+6, LP+3, LP+4
>> SUBTOT	Q1+1, Q1+5, CHK+8, SUB+1, SUB+2*
>> TOTAL	Q1+1, P1+14, P1+21, CHK+7, CHK+8, CHK+9
>> UDC	Q1+2, LP+1, LP+2, P1+1*, P1+13, P1+20
>> UDQ	Q1+2, LP+1, LP+2, P1+1*, P1+4
>> UP	Q1+2, LP+1, P1+1, P1+12, P1+19
>> X	EN2+3, E0+2, E0+3, E0+6, E0+7, Q1+2, LP+1, LP+3, LP+4
>> XX	Q1+4*, P1+1
Y	E0+4, E0+5, P1+7!, HD+2
>> YR	E0+5*

Customize PDF page

Package: Dietetics

Routine: FHREP1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: