Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Source | Call Graph | Caller Graph | Entry Points | External References | Interaction Calls | FileMan Files Accessed Via FileMan Db Call | Global Variables Directly Accessed | Label References | Local Variables | All

Print Page as PDF

Routine: FHADR9

Package: Dietetics

Routine: FHADR9

Information

FHADR9 ; HISC/NCA - Dietetic Survey ;11/25/94 14:27

Source Information

Source file <FHADR9.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Dietetics	2	TR^FH QR^FHADR1
VA Fileman	2	FILE^DICN ^DIR
Kernel	1	KILL^XUSCLEAN

Caller Graph

Caller Graph Total: 20

Package	Total	Caller Graph
Dietetics	20	APPETIZING COLD ENOUGH COURTEOUS ENOUGH TIME FHADR7 FOODS PREFERRED HOT ENOUGH NUTRITIONAL INFO OLD SURVEY - APPETIZING OLD SURVEY - CLEANLINESS OLD SURVEY - COURTEOUS OLD SURVEY - INFO OLD SURVEY - OVERALL OLD SURVEY - TASTE OLD SURVEY - TEMPERATURE OLD SURVEY - TIME OLD SURVEY - VARIETY OVERALL PREFERENCES DISCUSSED TIMELINESS

Entry Points

Name	Comments	DBIA/ICR reference
F1	; Select Survey Category
F2	; Select Service
F3
R1
CREAT	; Create the first entry
RTG	; Read in Rating String
EN1	; Enter/Edit Dietetic Survey
KIL
HEL	; Help Prompt for Rating String
C1
C0	; Check validity of the Rating String

External References

Name	Field # of Occurrence
FILE^DICN	CREAT+6
^DIR	F1+3, F2+2, RTG+2, F3
TR^FH	C0+1
QR^FHADR1	EN1+1
KILL^XUSCLEAN	KIL

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: F3+0
Function Call: WRITE	Prompt: *7,!?5,"Two spaces found in input" Line Location: C1+0
Function Call: WRITE	Prompt: *7,!?5,"'",$E(X1,1),"' Not a Rating." Line Location: C1+1
Function Call: WRITE	Prompt: *7,!?5,"Illegal String Specification in ",X1 Line Location: C1+3
Function Call: WRITE	Prompt: *7,!?5,"No number surveyed for ",X1 Line Location: C1+4
Function Call: WRITE	Prompt: *7,!?5,"Illegal entry in rating ",X1 Line Location: C1+5
Function Call: WRITE	Prompt: *7,!?5,$E(X1,X8,$L(X1))," cannot be greater than 9999" Line Location: C1+6
Function Call: WRITE	Prompt: *7,!?5,X2," used more than once." Line Location: C1+8
Function Call: WRITE	Prompt: *7,!?5,"There are only 5 ratings." Line Location: C1+10
Function Call: WRITE	Prompt: !!,"List the numbers surveyed by specifying which rating it belongs" Line Location: HEL+1
Function Call: WRITE	Prompt: !,"to and separated by a single space.",! Line Location: HEL+2
Function Call: WRITE	Prompt: !,"Example: E20 V40 G40 F3 U1",! Line Location: HEL+3
Function Call: WRITE	Prompt: !," E = Excellent, V = Very Good, G = Good, F = Fair and U = Unacceptable",! Line Location: HEL+4
Function Call: WRITE	Prompt: !,"Omit if none surveyed for a certain rating.",! Line Location: HEL+5
Routine Call	DIR Line Location: F1+3 F2+2 RTG+2 F3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(117.3	F1+5
^FH(117.3 - [#117.3]	F1+7, F2+3, F2+4, R1*

Label References

Name	Line Occurrences
C0	RTG+4
C1	C0+3
CREAT	F1+7
F1	F3+1
F2	F3+1
KIL	EN1+1, F1+3, F2+2, RTG+3, F3
R1	RTG+2
RTG	F2+5, RTG+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	CREAT+7!
DA(1	CREAT+5*
DD	CREAT+5!
DIC	CREAT+5!*, CREAT+7!
DIC(0	CREAT+5*
DINUM	CREAT+6*, CREAT+7!
DIR	F1+1!, F2+1!, RTG+1!, F3!
DIR("?"	F1+2, F2+1, RTG+1*
DIR("A"	F1+1, F2+1, RTG+1, F3
DIR("B"	RTG+1, F3
DIR(0	F1+1, F2+1, RTG+1, F3
>> DIROUT	F1+3, F2+2, RTG+3, F3
>> DIRUT	F1+3, F2+2, RTG+3, F3
DLAYGO	CREAT+5*, CREAT+7!
DO	CREAT+5!
>> FHX1	F1+3*, F1+4, F1+6
>> FHX2	F2+2*, F2+4, R1
>> FHX3	F1+1, F2+3, F2+4, CREAT+7*, R1
>> FLDNUM	F1+4*, F1+5
>> OLD	F2+4*, RTG+1
>> PRE	EN1+1, F1+7, F2+3, F2+4, CREAT+5, R1
>> TIT	F1+5, F1+6, F1+7, F2+3, F2+4, R1
U	F1+5
X	CREAT+6, RTG+2, RTG+4, R1, C0+2*, C0+3, C0+4!
X1	C0+3*, C0+4!, C1, C1+1, C1+2, C1+3, C1+4, C1+5, C1+6, C1+7
X2	C0+4!, C1+7*, C1+8, C1+9
X3	C0+4!
X4	C0+3*, C0+4!
X5	C0+4!, C1+1*
X6	C0+3, C0+4!, C1, C1+1, C1+3, C1+4, C1+5, C1+6, C1+8, C1+10*
X7	C0+3, C0+4!, C1+9, C1+10
X8	C0+4!, C1+2*, C1+3, C1+4, C1+5, C1+6
X9	C0+3, C0+4!, C1+8, C1+9
>> Y	F1+3, F2+2, CREAT+7, F3+1

Info | Source | Call Graph | Caller Graph | Entry Points | External References | Interaction Calls | FileMan Files Accessed Via FileMan Db Call | Global Variables Directly Accessed | Label References | Local Variables | All