Routine: FHADR1

Package	Total	Caller Graph
Dietetics	10	FHADR1 FHADR10 FHADR2 FHADR3 FHADR6 FHADR61 FHADR7 FHADR8 FHADR9 FHADRPT

Entry Points

Name	Comments	DBIA/ICR reference
Q1
SET	; Set all three quarters with the Facility Profile Data
GET	; Get the Facility Data from Institution file
EDIT	; Edit the Fields
S1	; Process Storage of Facility Profile Data
EN1	; Enter/Edit Facility Data and Specialized Medical Programs
QR	; Read in Qtr and Year
KIL
YR	; Read in the Year
E1
E2

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: E1+0
Function Call: WRITE	Prompt: ! Line Location: E2+0
Function Call: WRITE	Prompt: ! Line Location: EDIT+1
Function Call: WRITE	Prompt: !?5,"Another user is editing this entry." Line Location: EDIT+2
Function Call: WRITE	Prompt: ! Line Location: GET+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: Q1+0
Function Call: WRITE	Prompt: *7,?28," Do Not Enter Dates." Line Location: Q1+3
Function Call: WRITE	Prompt: *7," Answer Qtr 1-4 and Yr as Qtr/Yr.",!?28," Yr CANNOT be greater than now." Line Location: Q1+4
Function Call: WRITE	Prompt: *7," Qtr/Yr must not be greater than default." Line Location: Q1+9
Function Call: WRITE	Prompt: ! Line Location: YR+1
Function Call: WRITE	Prompt: *7," Do Not Enter Future Year." Line Location: YR+3
Function Call: WRITE	Prompt: *7," Enter Year Only." Line Location: YR+4
Routine Call	DIE Line Location: EDIT+11
Routine Call	DIR Line Location: E1 E2+1

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

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	EN1+3, EDIT+7
^FH(117.3 - [#117.3]	EN1+4, EDIT+2, EDIT+3, EDIT+4, EDIT+5, EDIT+6, EDIT+8, EDIT+11, S1+1, S1+2 , S1+3, S1+5!, S1+6, S1+7, S1+8, S1+9*

Name	Field # of Occurrence
^(	S1+7
^(0	S1+6*

Name	Field # of Occurrence
>> %	QR+1
%DT	Q1!, YR+1!*
%DT("A"	YR+1*
>> D	GET+2*
DA	EDIT+1*, EDIT+11!
DIC	EDIT+1!, EDIT+11!, GET+2!*, GET+3!
DIC("A"	GET+2*
DIC("B"	GET+2*
DIC(0	GET+2*
DIE	EDIT+1!*, EDIT+11!
DIR	E1!, E2!
DIR("A"	E1, E2
DIR(0	E1, E2
>> DIROUT	E1, E2+1
>> DIRUT	E1, E2+1
DR	EDIT+10*, EDIT+11!
DT	YR+3
DTIME	Q1
>> DTOUT	GET+3, YR+2
>> FHX1	EN1+2*, EN1+3, EDIT+7
>> FLG1	EN1+1, E1+2, EDIT+10
>> FLG2	EN1+1, E2+3
>> K1	S1+7*, S1+8, S1+9
>> L1	S1+7*, S1+8
>> NOW	QR+1*, QR+3, Q1+1, Q1+5, Q1+9
>> OLD	EN1+4, E2+2, E2+4*, EDIT+6, SET+1, S1+1, S1+3, S1+5, S1+7
>> PRE	EN1+1, EN1+4, E2+2, E2+4, EDIT+1, EDIT+2, EDIT+3, EDIT+4, EDIT+5, EDIT+8 , EDIT+11, SET+1, S1+2, S1+3, S1+5, S1+6, S1+8, S1+9, QR+1, Q1+10* , YR+1, YR+5
>> QTR	SET+1, QR+1, QR+3, Q1, Q1+1, Q1+9, Q1+10
>> S1	QR+3*
SITE	GET+3!
SITE(1	GET+2
>> ST	EN1+3*, EDIT+7
>> TIT	S1+4*, S1+5, S1+6, S1+7, S1+8, S1+9
U	YR+2
>> X	EN1+4, GET+3, Q1, Q1+1, YR+2*
>> X1	EN1+4*
>> X2	EN1+4*
Y	EN1+2, E1+1!, E2+2!, GET+3, Q1+3, Q1+5, Q1+9, Q1+10, YR+2, YR+3 , YR+4, YR+5*
>> YR	QR+3, Q1, Q1+10
Z	EDIT+5, EDIT+11!, S1+2, S1+9*
ZZ	EDIT+6, EDIT+7, EDIT+8, EDIT+11!