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 | Pointed To By FileMan Files | Fields | ICR | Found Entries | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | 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.

Directly Accessed By Routines, Total: 20

Package	Total	Routines
Dietetics	20	^FH(115.4 DRUG CLASSIFICATIONS FHADR4 FHASM3 FHASM7 FHASMR1 FHASMR2 FHASN FHASN5 FHASN6 FHASP FHASXR1 FHCTF3 FHCTF4 FHMMNREP FHMNREP FHORD81 FHWHEA FHWORA1 FHXDB2

Accessed By FileMan Db Calls, Total: 2

Package	Total	Routines
Dietetics	2	FHASM7 FHASN

Pointed To By FileMan Files, Total: 1

Package	Total	FileMan Files
Dietetics	1	NUTRITION PERSON(#115)[#115.011(18), #115.012(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

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #5457	Spinal Cord Dysfunction	CATEGORY (.01). Access: Direct Global Read & w/Fileman STATUS TEXT (U/L CASE) (1). Access: Direct Global Read & w/Fileman	This file contains the four nutrition statuses of theestablished guidelines that are used in nutrition assessment and screening.

External References

Name	Field # of Occurrence
EN^DDIOL	IDWRIT+1, IDWRITE+1, .01DEL1+1
^DICR	1(XREF 1n1.4), 1(XREF 1n2.4)

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	1(XREF 1n1.4), 1(XREF 1n2.4)
^DD(115.4	1(XREF 1S), 1(XREF 1K)
^FH(115.4 - [#115.4]	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1n1.4), 1(XREF 1K), 1(XREF 1n2.4), 1(XREF 2S), 1(XREF 2K), 99(XREF 1S), 99(XREF 1K) , 101(XREF 1S), 101(XREF 1K)

Naked Globals

Name	Field # of Occurrence
^("I"	IDWRITE+1
^(0	IDWRIT+1, 1(XREF 1S), 1(XREF 1n1.4), 1(XREF 1K), 1(XREF 1n2.4)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> D0	1(XREF 1S), 1(XREF 1K)
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 99(XREF 1S), 99(XREF 1K), 101(XREF 1S), 101(XREF 1K)
>> DIG	1(XREF 1n1.4), 1(XREF 1n2.4)
>> DIH	1(XREF 1n1.4), 1(XREF 1n2.4)
>> DIU	1(XREF 1S), 1(XREF 1K)
DIV	1(XREF 1S), 1(XREF 1n1.1), 1(XREF 1n1.4), 1(XREF 1K), 1(XREF 1n2.4)
DIV(0	1(XREF 1S), 1(XREF 1n1.4), 1(XREF 1K), 1(XREF 1n2.4)
U	IDWRIT+1, 1(XREF 1S), 1(XREF 1n1.4), 1(XREF 1K), 1(XREF 1n2.4)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 1(XREF 1S), 1(XREF 1n1.1), 1(XREF 1n1.4), 1(XREF 1K), 1(XREF 1n2.4), 1(XREF 2S) , 1(XREF 2K), 99(XREF 1S), 101+1!, 101(XREF 1S), 101(XREF 1K)
Y	1(XREF 1S), 1(XREF 1K)
Y(1	1(XREF 1S), 1(XREF 1n1.1), 1(XREF 1K)
Y(2	1(XREF 1n1.1)

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Fields | ICR | Found Entries | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All