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

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | External References | Global Variables Directly Accessed | Local Variables | All

Print Page as PDF

Global: ^FHEN

Package: Dietetics

Global: ^FHEN

Information

FileMan FileNo	FileMan Filename	Package
115.7	DIETETIC ENCOUNTERS	Dietetics

Description

This file contains the various dietetic encounters entered by dietetics personnel. It includes patient-related events, such as diet instructions, as well as non-patient-related events such as talks to the community.

Directly Accessed By Routines, Total: 12

Package	Total	Routines
Dietetics	12	DRUG CLASSIFICATIONS FHADR5 FHASE FHASE1A FHASE2 FHASE3 FHASP1 FHMASE FHMASE1A FHWHEA FHXDB PATIENT

Accessed By FileMan Db Calls, Total: 3

Package	Total	Routines
Dietetics	3	FHASE FHASE3 FHMASE

Pointer To FileMan Files, Total: 5

Package	Total	FileMan Files
Dietetics	2	ENCOUNTER TYPES(#115.6)[3] COMMUNICATION OFFICE(#119.73)[11]
Kernel	1	NEW PERSON(#200)[2, 101, 104]
Registration	1	PATIENT(#2)[#115.701(.01)]
Scheduling	1	HOSPITAL LOCATION(#44)[4, #115.701(1)]

Fields, Total: 16

Field #	Name	Loc	Type	Details
.01	NUMBER	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=X` LAST EDITED: `JUL 19, 1989` HELP-PROMPT: `Type a Number between 1 and 999999999, 0 Decimal Digits` DESCRIPTION: `This field contains a sequential number assigned to the encounter and has no meaning.` DELETE TEST: `1,0)= I DUZ(0)'["@",'$D(^XUSEC("FHMGR",DUZ))` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `115.7^B` `1)= S ^FHEN("B",$E(X,1,30),DA)=""` `2)= K ^FHEN("B",$E(X,1,30),DA)` `This is the normal B cross-reference of the NUMBER field.`
1	DATE/TIME OF ENCOUNTER	0;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 16, 1991` DESCRIPTION: `This field contains the date and time at which the dietetic encounter took place.` CROSS-REFERENCE: `115.7^AT` `1)= S ^FHEN("AT",$E(X,1,30),DA)=""` `2)= K ^FHEN("AT",$E(X,1,30),DA)`
2	CLINICIAN	0;3	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `JUL 19, 1989` DESCRIPTION: `This field contains a pointer to the clinician who provided the service during the encounter.`
3	ENCOUNTER TYPE	0;4	POINTER TO ENCOUNTER TYPES FILE (#115.6)	**********************REQUIRED FIELD********************** ENCOUNTER TYPES(#115.6) LAST EDITED: `JUL 16, 1992` DESCRIPTION: `This field contains a pointer to the Encounter Type file (115.6) indicating the type of encounter.`
4	EVENT LOCATION	0;5	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `NOV 07, 1989` DESCRIPTION: `This optional field contains a pointer to the Hospital Location file (44) indicating where the encounter took place.`
5	INITIAL/FOLLOWUP	0;7	SET	'I' FOR INITIAL; 'F' FOR FOLLOWUP; LAST EDITED: `JUL 19, 1989` DESCRIPTION: `This field indicates whether the encounter was an initial one of this type or a follow-up.`
6	TIME UNITS	0;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 19, 1989` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of time units earned by this encounter.`
7	GROUP/INDIVIDUAL	0;9	SET	'G' FOR GROUP; 'I' FOR INDIVIDUAL; LAST EDITED: `JUL 19, 1989` DESCRIPTION: `This field indicates whether the encounter was a group one or an encounter with a single individual.`
8	GROUP SIZE	0;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 19, 1989` HELP-PROMPT: `Type a Number between 1 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the total number of persons involved, including any collaterals.`
10	EVENT COMMENT	0;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<3) X` LAST EDITED: `NOV 07, 1989` HELP-PROMPT: `Answer must be 3-60 characters in length.` DESCRIPTION: `This field may contain a short comment concerning the event.`
11	COMMUNICATIONS OFFICE	0;6	POINTER TO COMMUNICATION OFFICE FILE (#119.73)	**********************REQUIRED FIELD********************** COMMUNICATION OFFICE(#119.73) LAST EDITED: `JUN 02, 2003` HELP-PROMPT: `Communications Office is a required entry` CROSS-REFERENCE: `115.7^CO` `1)= S ^FHEN("CO",$E(X,1,30),DA)=""` `2)= K ^FHEN("CO",$E(X,1,30),DA)` `Used to print encounters within Communications Offices`
20	PATIENT	P;0	POINTER Multiple #115.701	115.701 DESCRIPTION: `This field is a multiple containing data relating to patients involved in the encounter.`
101	ENTERING CLERK	0;13	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `NOV 08, 1989` DESCRIPTION: `This field is a pointer indicating the person making the encounter entry.`
102	DATE/TIME ENTERED	0;14	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 08, 1989` DESCRIPTION: `This field contains the date/time the encounter was actually entered.`
103	LAST REVIEW DATE/TIME	0;15	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 16, 1996` DESCRIPTION: `This is the date/time that the encounter was last reviewed.`
104	REVIEW CLERK	0;16	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUL 16, 1996` DESCRIPTION: `This is a pointer to File 200 of the person entering the review.`

External References

Name	Field # of Occurrence
^%DT	1+1, 102+1, 103+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^FHEN("AT"	1(XREF 1S), 1(XREF 1K)
^FHEN("B"	.01(XREF 1S), .01(XREF 1K)
^FHEN("CO"	11(XREF 1S), 11(XREF 1K)
^XUSEC("FHMGR"	.01DEL1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	1+1, 102+1, 103+1*
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 11(XREF 1S), 11(XREF 1K)
>> DINUM	.01+1*
DUZ	.01DEL1+1
DUZ(0	.01DEL1+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 1(XREF 1S), 1(XREF 1K), 6+1!, 8+1!, 10+1!, 11(XREF 1S) , 11(XREF 1K), 102+1!, 103+1*!
>> Y	1+1, 102+1, 103+1

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | External References | Global Variables Directly Accessed | Local Variables | All