Routine: FHCMSR

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

Package

Total

Call Graph

Kernel

^%ZIS ^%ZISC KILL^XUSCLEAN

VA Fileman

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

Dietetics

EN2^FH Q1^FHCMSR1

Package	Total	Caller Graph
Dietetics	2	FHCMRR1 FHCMRR2

Package

Total

Caller Graph

Dietetics

FHCMRR1 FHCMRR2

Name	Comments	DBIA/ICR reference
HELP	; Help Message
EN1	; Read in Month/Year
EN2	; Print the Cost of Meals Served
KIL
D2
D1	; Get Start-End Month/Year

Name	Field # of Occurrence
^%DT	EN1+3, D1+4, D2+3
C^%DTC	EN1+12
NOW^%DTC	EN2+1
^%ZIS	D2+8
^%ZISC	D2+10
^DIE	EN1+13
EN2^FH	D2+9
Q1^FHCMSR1	D2+10
KILL^XUSCLEAN	KIL

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "Enter Month/Year of Cost of Meals Served: " Formatting: !! Timeout: DTIME Variable: X Line Location: EN1+1
Function Call: WRITE	Prompt: *7,!,"You Must enter a Month and a Year." Line Location: EN1+4
Function Call: WRITE	Prompt: *7,!?5,"Month/Year must not be in the future." Line Location: EN1+6
Function Call: WRITE	Prompt: ! Line Location: EN1+7
Function Call: WRITE	Prompt: !?5,"Another user is editing this entry." Line Location: EN1+8
Function Call: READ	Prompt: "Starting Month/Year: " Formatting: !! Timeout: DTIME Variable: X Line Location: D1+1
Function Call: WRITE	Prompt: *7,!," Month/Year Must Start before Current Month/Year! " Line Location: D1+5
Function Call: WRITE	Prompt: *7,!," You Must enter a Month and a Year." Line Location: D1+6
Function Call: READ	Prompt: "Ending Month/Year: " Formatting: ! Timeout: DTIME Variable: X Line Location: D2+0
Function Call: WRITE	Prompt: *7,!," You Must enter a Month and a Year." Line Location: D2+4
Function Call: WRITE	Prompt: *7,!," Month/Year Must be before Current Month/Year. " Line Location: D2+5
Function Call: WRITE	Prompt: *7,!," End Cannot be before Start Month/Year." Line Location: D2+6
Function Call: WRITE	Prompt: ! Line Location: D2+8
Function Call: WRITE	Prompt: !!,"Enter a Month and a Year such as 6 2000, 6/2000, 6-2000, or June 2000.",! Line Location: HELP+1
Function Call: WRITE	Prompt: "You can even enter T-1 or type in a date.",! Line Location: HELP+2
Routine Call	DIE Line Location: EN1+13
Routine Call	%ZIS Line Location: D2+8

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

Name	Line Occurrences (* Changed, ! Killed)
^FH(117.2 - [#117.2]	EN1+8, EN1+9*, EN1+12, EN1+13

Name	Line Occurrences
D1	D1+2, D1+4, D1+5, D1+6, D2+4, D2+5, D2+6
D2	D2+1, D2+3
EN1	EN1+1, EN1+3, EN1+4, EN1+6, EN1+11, EN1+13
HELP	EN1+1, D1+2, D2+1
KIL	EN1+1, EN1+3, EN1+8, D1+1, D1+4, D2, D2+3, D2+8, D2+9, D2+10

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN2+1
%DT	EN1+2!, D1+3!, D2+2*
%ZIS	D2+8!*, D2+10!
%ZIS("A"	D2+8*
DA	EN1+5*, EN1+6, EN1+8, EN1+9, EN1+11, EN1+13!
DIC	EN1+7!, EN1+13!
DIE	EN1+7!*, EN1+13!
DR	EN1+13*!
DT	EN1+6, EN2+1*, D1+5, D2+5
DTIME	EN1+1, D1+1, D2
DTOUT	EN1+3, EN1+13!, D1+4, D2+3
>> EDT	D2+3, D2+4, D2+5, D2+6, D2+7
>> FHLST	D2+9*
>> FHPGM	D2+9*
>> FHPRE	EN1+12*
>> FHX1	EN1+10, EN1+12
IO	D2+10
IO("Q"	D2+9
IOP	D2+8!, D2+10!
>> POP	D2+8
>> S1	EN1+11*, EN1+12
>> S2	EN1+11*
>> SDT	D1+4, D1+5, D1+6, D1+7, D2+6
U	D1+4, D2+3
>> X	EN1+1, EN1+3, EN1+12, D1+1, D1+2, D1+4, D2, D2+1, D2+3*
>> X1	EN1+12*
>> X2	EN1+12*
>> Y	EN1+3, EN1+4, EN1+5, D1+4, D2+3
>> Z	EN1+2, EN1+9

Customize PDF page

Package: Dietetics

Routine: FHCMSR

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

Local Variables

Legend: