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: ^FH(119.8

Package: Dietetics

Global: ^FH(119.8

Information

FileMan FileNo	FileMan Filename	Package
119.8	NUTRITION EVENTS	Dietetics

Description

This file contains entries for all patient movements, diet changes, tubefeeding orders, additional orders, food preferences, standing orders, and patient isolation orders requiring action by the Dietetic Service.

Directly Accessed By Routines, Total: 8

Package	Total	Routines
Dietetics	8	FHORX2 ^FH(119.8 DRUG CLASSIFICATIONS FHDCR2 FHORX FHORX1 FHORX1A FHORX3

Accessed By FileMan Db Calls, Total: 1

Package	Total	Routines
Dietetics	1	FHORX

Pointer To FileMan Files, Total: 3

Package	Total	FileMan Files
Dietetics	1	NUTRITION PERSON(#115)[2]
Kernel	1	NEW PERSON(#200)[8]
Registration	1	PATIENT MOVEMENT(#405)[3]

Fields, Total: 9

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 event 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: `119.8^B` `1)= S ^FH(119.8,"B",$E(X,1,30),DA)=""` `2)= K ^FH(119.8,"B",$E(X,1,30),DA)` `This is the normal B cross-reference of the NUMBER field.`
1	DATE/TIME	0;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 05, 1992` DESCRIPTION: `This is the date/time at which the event occurred.` CROSS-REFERENCE: `119.8^AD` `1)= S ^FH(119.8,"AD",$E(X,1,30),DA)=""` `2)= K ^FH(119.8,"AD",$E(X,1,30),DA)` CROSS-REFERENCE: `119.8^AP1^MUMPS` `1)= S X1=$P(^FH(119.8,DA,0),U,3) I X1 S ^FH(119.8,"AP",X1,X,DA)=""` `2)= S X1=$P(^FH(119.8,DA,0),U,3) I X1 K ^FH(119.8,"AP",X1,X,DA)` `This is a cross-reference of dietetic events by patient and date/time. Field 2 is also used to set the cross-reference.`
2	PATIENT	0;3	POINTER TO NUTRITION PERSON FILE (#115)	**********************REQUIRED FIELD********************** NUTRITION PERSON(#115) LAST EDITED: `JUL 05, 1992` DESCRIPTION: `This is a pointer to the patient with which the event is associated.` CROSS-REFERENCE: `119.8^AP^MUMPS` `1)= S X1=$P(^FH(119.8,DA,0),U,2) I X1 S ^FH(119.8,"AP",X,X1,DA)=""` `2)= S X1=$P(^FH(119.8,DA,0),U,2) I X1 K ^FH(119.8,"AP",X,X1,DA)` `This is a cross-reference of dietetic events by patient and date/time. Field 1 is also used to set the cross-reference.`
3	ADMISSION	0;4	POINTER TO PATIENT MOVEMENT FILE (#405)	**********************REQUIRED FIELD********************** PATIENT MOVEMENT(#405) LAST EDITED: `JUL 05, 1992` DESCRIPTION: `This is a pointer to the admission (Movement) with which the event is associated.`
4	TYPE OF EVENT	0;5	SET	**********************REQUIRED FIELD********************** 'L' FOR LOCATION; 'D' FOR DIET; 'I' FOR ISOLATION; 'T' FOR T/F; 'O' FOR OTHER; 'P' FOR PREF.; 'S' FOR STD. ORDERS; 'F' FOR SUPP. FDG.; 'M' FOR MESSAGE; 'Z' FOR OUTPATIENT EVENT; LAST EDITED: `MAY 18, 2004` DESCRIPTION: `This is a set of codes indicating the type of event.`
5	ACTION	0;6	SET	'O' FOR ORDERED; 'C' FOR CANCELLED; 'A' FOR ADMIT; 'T' FOR TRANSFER; 'D' FOR DISCHARGE; LAST EDITED: `JUL 05, 1992` DESCRIPTION: `This is a set of codes indicating the type of action; A D T are associated only with location changes.`
6	ORDER #	0;7	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 04, 1992` HELP-PROMPT: `Type a Number between 1 and 9999999, 0 Decimal Digits` DESCRIPTION: `This value corresponds to the associated Order for the event.`
7	TEXT	0;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>120!($L(X)<3) X` LAST EDITED: `JUL 04, 1992` HELP-PROMPT: `Answer must be 3-120 characters in length.` DESCRIPTION: `This is the text of the order; for location changes it represents the From-To Ward and Bed.`
8	ENTERED CLERK	0;9	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `MAR 17, 1995` DESCRIPTION: `This field contains the user who entered the order and is automatically captured at the time of entry.`

External References

Name	Field # of Occurrence
^%DT	1+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^FH(119.8 - [#119.8]	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 2(XREF 1S), 2(XREF 1K)
^XUSEC("FHMGR"	.01DEL1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	1+1*
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 2(XREF 1S), 2(XREF 1K)
>> DINUM	.01+1*
DUZ	.01DEL1+1
DUZ(0	.01DEL1+1
U	1(XREF 2S), 1(XREF 2K), 2(XREF 1S), 2(XREF 1K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1+1*!, 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 2(XREF 1S), 2(XREF 1K) , 6+1!, 7+1!
>> X1	1(XREF 2S), 1(XREF 2K), 2(XREF 1S), 2(XREF 1K)
>> Y	1+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