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

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Fields | ICR | Found Entries | All

Print Page as PDF

Global: ^FH(115.4

Package: Dietetics

Global: ^FH(115.4

Information

FileMan FileNo	FileMan Filename	Package
115.4	NUTRITION STATUS	Dietetics

Description

This file contains the four nutrition statuses of the established guidelines that are used in nutrition assessment and screening.

Accessed By FileMan Db Calls, Total: 2

Pointed To By FileMan Files, Total: 1

Fields, Total: 4

Field #	Name	Loc	Type	Details
.01	CATEGORY	0;1	FREE TEXT	**********************REQUIRED FIELD********************** 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.`
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 DIU=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 ^DICR:$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 DIU=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 ^DICR:$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)`
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.`
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)`

Found Entries, Total: 4

ICR, Total: 1

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Fields | ICR | Found Entries | All