Global: ^FH(119.6

FileMan FileNo	FileMan Filename	Package
119.6	NUTRITION LOCATION	Dietetics

Package	Total	Routines
Dietetics	123	ASSOCIATED HOSPITAL LOCATION ASSOCIATED MAS WARD CLINICIAN(S) DRUG CLASSIFICATIONS FH FH55P8 FHADM2A FHASM1 FHASM2A FHASM3 FHASM7 FHASN1 FHASN3 FHASN4 FHASN5 FHASN6 FHASN71 FHASXR FHBIR FHCTF1 FHCTF3 FHCTF4 FHCTF5 FHDCR11 FHDCR1A FHDMP1 FHDPA FHDPGM FHDPSM FHMADM2 FHMADM2A FHMMBRPT FHMMNADM FHMMNREP FHMNREP FHMTK1A FHMTK1C FHMTK5 FHMTK7 FHMTKO FHNO2 FHNO21 FHNO3 FHNO31 FHNO4 FHNO41 FHNO5 FHNO6 FHNO7 FHNO8 FHOMAPI FHOMCBRP FHOMELT FHOMGC1 FHOMGP1 FHOMGR1 FHOMIP FHOMPP1 FHOMRBL1 FHOMRBLD FHOMRE1 FHOMRL1 FHOMRMD FHOMRO1 FHOMRO2 FHOMRP1 FHOMRR1 FHOMSP1 FHOMSR1 FHOMSS1 FHOMSS2 FHOMTK1 FHOMTK2 FHOMUTL FHOMWOR FHORC FHORC1 FHORC2 FHORC5 FHORD1 FHORD10 FHORD11 FHORD13 FHORD1A FHORD41 FHORD5 FHORD6 FHORD7 FHORD71 FHORD81 FHORD9 FHORD93 FHORE1 FHORE21 FHORT3 FHORT5A FHORX1 FHORX1C FHORX3 FHPATM FHPRF1 FHPRO2 FHPRO3 FHPRW FHPRW2 FHPRW3 FHPRW4 FHPST2 FHSEL2 FHSEL4 FHSP FHSP1 ^FH(119.6 FHSPED FHSPTAB FHWADM FHWOR3 FHWOR8 FHWTRN FHXDB FHXDB2 FHXWRD ROOM-BED
DSS Extracts	1	ECXUTL6

Package	Total	Routines
Dietetics	18	FHASN3 FHASXR FHDCR1 FHMMNREP FHMNREP FHMTK1 FHNO2 FHNO3 FHNO4 FHNO6 FHOMRO1 FHOMUTL FHORC5 FHORD13 FHORD8 FHORT5 FHPRO FHPRW
DSS Extracts	1	ECXUTL6

Package	Total	FileMan Files
Dietetics	1	NUTRITION PERSON(#115)[#115.01(11), #115.01(13), #115.012(5), #115.016(2), #115.017(2), #115.018(4), #115.12(2)]

Package	Total	FileMan Files
Dietetics	5	DIETS(#111)[15] SUPPLEMENTAL FEEDINGS(#118)[#119.61(.01)] SERVICE POINT(#119.72)[3, 4] COMMUNICATION OFFICE(#119.73)[6] SUPPLEMENTAL FEEDING SITE(#119.74)[7]
Registration	2	ROOM-BED(#405.4)[#119.62(.01)] WARD LOCATION(#42)[102, #119.63(.01)]
Kernel	1	NEW PERSON(#200)[1, #119.66(.01)]
Scheduling	1	HOSPITAL LOCATION(#44)[102, #119.64(.01)]

Fields, Total: 39

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `OCT 15, 1991` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This is the name of a ward on which dietetic activity occurs.` DELETE TEST: `1,0)= I 1 D EN^DDIOL("Cannot delete. Inactivate instead.","","?3")` CROSS-REFERENCE: `119.6^B` `1)= S ^FH(119.6,"B",$E(X,1,30),DA)=""` `2)= K ^FH(119.6,"B",$E(X,1,30),DA)` `This is the normal B cross-reference of the NAME field.`
1	CLINICIAN	0;2	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) DESCRIPTION: `This field contains the clinician(s) assigned to the ward and the one(s) to whom dietetic consults will be routed and notification made of special diet orders and tubefeedings.`
2	ROOM-BED	R;0	POINTER Multiple #119.62	119.62 DESCRIPTION: `This is a pointer to File 405.4 and indicates that that room-bed is to be considered part of this Dietetic Ward.`
2.5	ASSOCIATED MAS WARD	W;0	POINTER Multiple #119.63	119.63 DESCRIPTION: `This is a list of MAS wards which are to be used as defaults to this Dietetic ward for purposes of patient location when the room-bed is unknown and for purposes of forecasting.`
2.6	ASSOCIATED HOSPITAL LOCATION	L;0	POINTER Multiple #119.64	119.64 DESCRIPTION: `This multiple contains the hospital location(s)/clinic(s) associated with this outpatient nutrition location.`
3	TRAY SERVICE POINT	0;5	POINTER TO SERVICE POINT FILE (#119.72)	SERVICE POINT(#119.72) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)=""T""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAY 14, 2002` DESCRIPTION: `This field, if used, indicates that tray service is available to this ward and is provided by the indicated Service Point. Note: if a Dining Room is also available, then a Tray Service Point must be specified as Dining` `Room trays are prepared there.` `For outpatient nutrition locations this field indicates the tray Service Point available for the location.` SCREEN: `S DIC("S")="I $P(^(0),U,2)=""T"""` EXPLANATION: `Allows selection only of tray lines` CROSS-REFERENCE: `119.6^AS1^MUMPS` `1)= S Y="" S:$P(^FH(119.6,DA,0),"^",5) Y=Y_"T" S:$P(^(0),"^",6) Y=Y_"C" S:$P(^(0),"^",7) Y=Y_"D" S $P(^(0),"^",10)=Y` `2)= D SPKS^FH` `This cross-reference, along with that on Fields 4 and 5, is used to set the Services Field. It is a string containing C, T, and/or D indicating which services are available for this ward.`
3.5	TRAY FORECAST %	0;17	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>120)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 20, 1991` HELP-PROMPT: `Type a Number between 0 and 120, 0 Decimal Digits` DESCRIPTION: `This is the % of patients on the ward typically receiving tray service.`
4	CAFETERIA SERVICE POINT	0;6	POINTER TO SERVICE POINT FILE (#119.72)	SERVICE POINT(#119.72) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAY 14, 2002` DESCRIPTION: `This field, if used, indicates that cafeteria service is available to this ward and is provided by the indicated Service Point.` `For outpatient nutrition locations this field indicates the cafeteria Service Point available for the location.` SCREEN: `S DIC("S")="I $P(^(0),U,2)=""C"""` EXPLANATION: `Allows selction only of cafeterias` CROSS-REFERENCE: `119.6^AS2^MUMPS` `1)= S Y="" S:$P(^FH(119.6,DA,0),"^",5) Y=Y_"T" S:$P(^(0),"^",6) Y=Y_"C" S:$P(^(0),"^",7) Y=Y_"D" S $P(^(0),"^",10)=Y` `2)= D SPKS^FH` `This cross-reference, along with that on Fields 3 and 5, is used to set the Services Field. It is a string containing C, T, and/or D indicating which services are available for this ward.`
4.5	CAFETERIA FORECAST %	0;18	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>120)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 20, 1991` HELP-PROMPT: `Type a Number between 0 and 120, 0 Decimal Digits` DESCRIPTION: `This is the % of patients on the ward typically receiving cafeteria service.`
5	DINING ROOM TRAY SERVICE?	0;7	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAY 14, 2002` DESCRIPTION: `A YES means that Dining Room tray service is available to this ward.` `For outpatient nutrition locations a YES in this field indicates that Dining Room tray service is available for this location.` CROSS-REFERENCE: `119.6^AS3^MUMPS` `1)= S Y="" S:$P(^FH(119.6,DA,0),"^",5) Y=Y_"T" S:$P(^(0),"^",6) Y=Y_"C" S:$P(^(0),"^",7) Y=Y_"D" S $P(^(0),"^",10)=Y` `2)= D SPKS^FH` `This cross-reference, along with that on Fields 3 and 4, is used to set the Services Field. It is a string containing C, T, and/or D indicating which services are available for this ward.`
5.5	DINING ROOM FORECAST %	0;19	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>120)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 04, 1991` HELP-PROMPT: `Type a Number between 0 and 120, 0 Decimal Digits` DESCRIPTION: `This is the % of patients on the ward typically receiving dining room service.`
6	COMMUNICATION OFFICE	0;8	POINTER TO COMMUNICATION OFFICE FILE (#119.73)	**********************REQUIRED FIELD********************** COMMUNICATION OFFICE(#119.73) LAST EDITED: `APR 20, 2004` DESCRIPTION: `This field indicates which Communication Office is responsible for processing diet requests from this ward or outpatient location.` CROSS-REFERENCE: `119.6^CO` `1)= S ^FH(119.6,"CO",$E(X,1,30),DA)=""` `2)= K ^FH(119.6,"CO",$E(X,1,30),DA)` `Cross reference locations by Communication Office.`
7	SUPP. FDG. SITE	0;9	POINTER TO SUPPLEMENTAL FEEDING SITE FILE (#119.74)	SUPPLEMENTAL FEEDING SITE(#119.74) LAST EDITED: `DEC 04, 1991` DESCRIPTION: `This field indicates which Supplemental Feeding Site is responsible for preparing Supplemental Feedings and Bulk Nourishments for this ward.`
11	PRINT ORDER	0;4	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 29, 1991` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99` DESCRIPTION: `This field represents the print order of this ward. It is used to sort the wards for delivery purposes which are then printed from low print order to high print order.` CROSS-REFERENCE: `119.6^AP` `1)= S ^FH(119.6,"AP",$E(X,1,30),DA)=""` `2)= K ^FH(119.6,"AP",$E(X,1,30),DA)` `3)= This field is required`
15	DEFAULT ADMISSION DIET	0;15	POINTER TO DIETS FILE (#111)	DIETS(#111) LAST EDITED: `JUN 29, 1985` DESCRIPTION: `This field is optional. It may contain a diet from the Diets file (111) and, if so, the diet will automatically be ordered for each patient at the time of admission.`
16	'NO ORDER' DIET ON ADMISSION	0;16	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `SEP 04, 1988` DESCRIPTION: `This field is used to indicate whether a 'No Order' Diet order should be generated upon admission; this field is applicable only if no default admission diet is specified.`
20	BULK NOURISHMENTS	BN;0	POINTER Multiple #119.61	119.61 DESCRIPTION: `This multiple represents bulk nourishments (supplemental feedings) delivered to this ward.`
21	# DAYS TO REVIEW NPO	0;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>7)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 30, 1991` HELP-PROMPT: `Type a Number between 1 and 7, 0 Decimal Digits` DESCRIPTION: `This field indicates the number of days following an NPO order after which the patient should be reviewed.`
22	# DAYS TO REVIEW TF	0;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>30)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 30, 1991` HELP-PROMPT: `Type a Number between 1 and 30, 0 Decimal Digits` DESCRIPTION: `This field indicates the number of days following a Tubefeeding order after which the patient should be reviewed.`
23	# DAYS TO REVIEW SF	0;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>30)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 30, 1991` HELP-PROMPT: `Type a Number between 1 and 30, 0 Decimal Digits` DESCRIPTION: `This field indicates the number of days following a Supplemental Feeding order after which the patient should be reviewed.`
24	# DAYS FOR STATUS AFTER ADMIT	0;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>30)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 17, 1991` HELP-PROMPT: `Type a Number between 1 and 30, 0 Decimal Digits` DESCRIPTION: `This field indicates the number of days following admission after which a Nutrition Status evaluation should have been performed.`
25	# DAYS TO REVIEW STATUS I	0;20	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>120)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 22, 1993` HELP-PROMPT: `Type a Number between 1 and 120, 0 Decimal Digits` DESCRIPTION: `This is the number of days after which a patient in this Nutrition Status category should be reviewed.`
26	# DAYS TO REVIEW STATUS II	0;21	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>120)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 22, 1993` HELP-PROMPT: `Type a Number between 1 and 120, 0 Decimal Digits` DESCRIPTION: `This is the number of days after which a patient in this Nutrition Status category should be reviewed.`
27	# DAYS TO REVIEW STATUS III	0;22	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>120)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 22, 1993` HELP-PROMPT: `Type a Number between 1 and 120, 0 Decimal Digits` DESCRIPTION: `This is the number of days after which a patient in this Nutrition Status category should be reviewed.`
28	# DAYS TO REVIEW STATUS IV	0;23	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>120)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 22, 1993` HELP-PROMPT: `Type a Number between 1 and 120, 0 Decimal Digits` DESCRIPTION: `This is the number of days after which a patient in this Nutrition Status category should be reviewed.`
29	CAFETERIA ON TRAY TICKET	0;24	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `APR 13, 1994` DESCRIPTION: `This field is optional and it is used to indicate whether patients that go to the cafeteria should be included on the tray ticket.`
99	INACTIVE?	I;1	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `FEB 23, 2000` DESCRIPTION: `This field, if answered YES, will prohibit further selection of this entry.` CROSS-REFERENCE: `119.6^AC^MUMPS` `1)= K:X'="Y" ^FH(119.6,DA,"I")` `2)= K ^FH(119.6,DA,"I")` `This cross-reference is used to create an 'I' node for inactive entries.`
101	SERVICES	0;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<1) X` LAST EDITED: `OCT 31, 1991` HELP-PROMPT: `Answer must be 1-3 characters in length.` DESCRIPTION: `This field contains one or more of the characters T, C or D indicating tray service, cafeteria service, and/or dining room service is available.`
102	OUTPATIENT LOCATION	1;1	VARIABLE POINTER	HOSPITAL LOCATION(#44) WARD LOCATION(#42) LAST EDITED: `APR 04, 2006` DESCRIPTION: `This field is a variable pointer to either the Ward Location (#42) file or the Hospital Location (#44) file. This will be used for outpatient locations.` CROSS-REFERENCE: `119.6^C` `1)= S ^FH(119.6,"C",$E(X,1,30),DA)=""` `2)= K ^FH(119.6,"C",$E(X,1,30),DA)`
103	MAX # OF DAYS	1;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>365)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 13, 2003` HELP-PROMPT: `Type a Number between 1 and 365, 0 Decimal Digits` DESCRIPTION: `This field is optional. If used it will be set to the maximum number of days ahead a recurring meal plan can be ordered, ie, if this field is set to 365 then when ordering a recurring meal it cannot be ordered past one` `year from the ordering date. If the field is left NULL then a default of 999 days is assumed. This field will be checked upon entering the FROM/TO dates in the Order/Edit Outpatient Meals option.`
104	NUMBER OF DAYS FOR REVIEW	1;3	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>30)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 09, 2004` HELP-PROMPT: `Type a Number between 1 and 30, 0 Decimal Digits` DESCRIPTION: `This field will be used for the Outpatient Meals Print Meal Plan Expiration List option. It may be set to a number of days which will be used for review by the above option, ie, if this field is set to 7 then when the` `Print Meal Plan Expiration List option is run it will check for recurring meal plans that will be expiring within the next 7 days.`
105	NON-VA FACILITY?	1;4	SET	'Y' FOR Yes; 'N' FOR No; LAST EDITED: `MAR 24, 2003` DESCRIPTION: `This will be an optional YES/NO field that may be set when setting up new outpatient locations. If the field is set to YES the Order/Edit Recurring Meal option will use this flag to allow selection of up to 5 diets from` `any diet in the Diets (#111) file. If the field is blank or set to NO then the Order/Edit option will only allow selection of 1 diet from the 5 allowable diets set up in the site parameters.`
106	INPATIENT/OUTPATIENT	0;3	SET	**********************REQUIRED FIELD********************** 'I' FOR Inpatient; 'O' FOR Outpatient; LAST EDITED: `APR 21, 2003` DESCRIPTION: `This field will serve as a flag to determine whether the location is an inpatient or an outpatient location. This will be required with the Outpatient Meals functionality, since it will be necessary to store inpatient and` `outpatient locations in this file.` `For all outpatient locations this field should be set to OUTPATIENT.`
107	ALERT BMI	1;5	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `SEP 25, 2006` HELP-PROMPT: `Do you want to be alerted for BMI value for this location?` DESCRIPTION: `This field, if set to YES, indicates that a clinicians will be alerted if the Body Mass Index (BMI) is below its level.`
108	ALERT TUBEFEEDING	1;6	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `SEP 25, 2006` HELP-PROMPT: `Do you want to be alerted for Tubefeeding value for this location?` DESCRIPTION: `This field, if set to YES, indicates that a clinician will be alerted if tubefeeding needs to be reviewed.`
109	ALERT HYPERALS	1;7	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `SEP 25, 2006` HELP-PROMPT: `Do you want to be alerted for Hyperals value for this location?` DESCRIPTION: `This field, if set to YES, indicates that a clinician will be alerted if certain patient is in hyperals.`
110	ALERT ALBUMIN	1;8	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `SEP 25, 2006` HELP-PROMPT: `Do you want to be alerted for Albumin value for this location?` DESCRIPTION: `This field, if set to YES, indicates that a clinician will be alerted if the albumin value is below the designated level.`
111	ALERT NPO+CLRLIQ	1;9	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `SEP 25, 2006` HELP-PROMPT: `Do you want to be alerted for NPO+CLRLIQ value for this location?` DESCRIPTION: `This field, if set to YES, indicates that a clinician will be alerted if certain patient with Nothing by Mouth (NPO) + Clear Liquid (CLRLIQ) diet needs to be reviewed.`
112	CLINICIAN(S)	2;0	POINTER Multiple #119.66	119.66 LAST EDITED: `JAN 29, 2007`

Name	Field # of Occurrence
^("I"	IDWRITE+1
^(0	3(XREF 1S), 4(XREF 1S), 5(XREF 1S)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	.01(XREF 1S), .01(XREF 1K), 3(XREF 1S), 4(XREF 1S), 5(XREF 1S), 6(XREF 1S), 6(XREF 1K), 11(XREF 1S), 11(XREF 1K), 99(XREF 1S) , 99(XREF 1K), 102(XREF 1S), 102(XREF 1K)
DIC	3+1!, 4+1!
DIC("S"	3+1, 3SCR+1, 4+1, 4SCR+1
>> DIE	3+1, 4+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 3+1!, 3.5+1!, 4+1!, 4.5+1!, 5.5+1!, 6(XREF 1S), 6(XREF 1K) , 11+1!, 11(XREF 1S), 11(XREF 1K), 21+1!, 22+1!, 23+1!, 24+1!, 25+1!, 26+1!, 27+1! , 28+1!, 99(XREF 1S), 101+1!, 102(XREF 1S), 102(XREF 1K), 103+1!, 104+1!
>> Y	3+1, 3(XREF 1S), 4+1, 4(XREF 1S), 5(XREF 1S)

Customize PDF page

Package: Dietetics

Global: ^FH(119.6

Information

Description

Directly Accessed By Routines, Total: 124

Accessed By FileMan Db Calls, Total: 19

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 9

Fields, Total: 39

ICR, Total: 1

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
EN^DDIOL	IDWRITE+1, .01DEL1+1
^DIC	3+1, 4+1
SPKS^FH	3(XREF 1K), 4(XREF 1K), 5(XREF 1K)