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

Info | Source | Entry Points | Interaction Calls | FileMan Files Accessed Via FileMan Db Call

Print Page as PDF

Routine: FHADR1

Package: Dietetics

Routine: FHADR1

Information

FHADR1 ; HISC/NCA - Dietetic Facility Profile ;1/23/98 15:03

Source Information

Source file <FHADR1.m>

Entry Points

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

Interaction Calls

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	Variable: X Timeout: DTIME 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

FileMan Files Accessed Via FileMan Db Call

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

Info | Source | Entry Points | Interaction Calls | FileMan Files Accessed Via FileMan Db Call