STANDARD DATA DICTIONARY #115.4 -- NUTRITION STATUS FILE 9/29/25 PAGE 1
STORED IN ^FH(115.4, (4 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.5)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the four nutrition statuses of the established guidelines that are used in nutrition assessment and screening.
FILE SCREEN (SCR-node) : I '$D(^FH(115.4,+Y,"I"))!$D(^XUSEC("FHMGR",DUZ))!(DUZ(0)["@")
DD ACCESS: #
RD ACCESS: #F
WR ACCESS: #f
DEL ACCESS: #f
LAYGO ACCESS: #f
IDENTIFIED BY:
"WRIT": D EN^DDIOL($P(^(0),U,2),"","?3")
"WRITE": I $D(^("I")) D EN^DDIOL("(** Inactive **)","","?3")
POINTED TO BY: RISK CATEGORY field (#18) of the NUTRITION ASSESSMENT sub-field (#115.011) of the NUTRITION PERSON File (#115)
STATUS field (#1) of the NUTRITION STATUS sub-field (#115.012) of the NUTRITION PERSON File (#115)
CROSS
REFERENCED BY: INACTIVE?(AC), CATEGORY(B), UPPERCASE NAME(C), STATUS TEXT (U/L CASE)(D)
115.4,.01 CATEGORY 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>3!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: FEB 03, 1990
HELP-PROMPT: Answer must be 1-3 characters in length.
DESCRIPTION:
This field contains a nutrition status or risk category.
DELETE TEST: 1,0)= I 1 D EN^DDIOL("Cannot delete. Inactivate instead.","","?3")
CROSS-REFERENCE: 115.4^B
1)= S ^FH(115.4,"B",$E(X,1,30),DA)=""
2)= K ^FH(115.4,"B",$E(X,1,30),DA)
This is the normal B cross-reference of the CATEGORY field.
115.4,1 STATUS TEXT (U/L CASE) 0;2 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X
LAST EDITED: APR 03, 1990
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
This field contains the text name (upper/lower case) of a Nutrition Status or risk category.
CROSS-REFERENCE: ^^TRIGGER^115.4^101
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^FH(115.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S D
IU=X K Y X ^DD(115.4,1,1,1,1.1) X ^DD(115.4,1,1,1,1.4)
1.1)= S X=DIV S X=DIV X "F %=1:1:$L(X) S:$E(X,%)?1L X=$E(X,0,%-1)_$C($A(X,%)-32)_$E(X,%+1,999)" S X
=X,Y(1)=X S X=1,Y(2)=X S X=30,X=$E(Y(1),Y(2),X)
1.4)= S DIH=$S($D(^FH(115.4,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=115.4,DIG=101 D ^DIC
R:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^FH(115.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S D
IU=X K Y S X="" X ^DD(115.4,1,1,1,2.4)
2.4)= S DIH=$S($D(^FH(115.4,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=115.4,DIG=101 D ^DIC
R:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= $E(UPPERCASE(STATUS TEXT (U/L CASE)),1,30)
DELETE VALUE)= @
FIELD)= UPPER
CROSS-REFERENCE: 115.4^D
1)= S ^FH(115.4,"D",$E(X,1,30),DA)=""
2)= K ^FH(115.4,"D",$E(X,1,30),DA)
115.4,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: 115.4^AC^MUMPS
1)= K:X'="Y" ^FH(115.4,DA,"I")
2)= K ^FH(115.4,DA,"I")
This cross-reference is used to create an 'I' node for inactive entries.
115.4,101 UPPERCASE NAME 0;3 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X
LAST EDITED: NOV 12, 1989
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
This is the name of the status in uppercase text.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the STATUS TEXT (U/L CASE) field of the NUTRITION STATUS File
CROSS-REFERENCE: 115.4^C
1)= S ^FH(115.4,"C",$E(X,1,30),DA)=""
2)= K ^FH(115.4,"C",$E(X,1,30),DA)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):