Global: ^FH(115.5

FileMan FileNo	FileMan Filename	Package
115.5	DIETETIC NUTRITION PLAN	Dietetics

Directly Accessed By Routines, Total: 2

Package	Total	Routines
Dietetics	2	FHASXR1 ^FH(115.5

Accessed By FileMan Db Calls, Total: 1

Package	Total	Routines
Dietetics	1	FHASC

Fields, Total: 2

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `DEC 08, 1989` HELP-PROMPT: `Answer must be 3-60 characters in length.` DESCRIPTION: This is the text name of the nutrition plan entry. DELETE TEST: `1,0)= I DUZ(0)'["@",'$D(^XUSEC("FHMGR",DUZ))` CROSS-REFERENCE: `115.5^B` 1)= S ^FH(115.5,"B",$E(X,1,30),DA)="" 2)= K ^FH(115.5,"B",$E(X,1,30),DA) This is the normal B cross-reference of the NAME field. CROSS-REFERENCE: `^^TRIGGER^115.5^101` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^FH(115.5,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(115.5,.01,1,2,1.1) X ^DD(115.5,.01,1,2,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.5,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=115.5,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.5,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(115.5,.01,1,2,2.4) 2.4)= S DIH=$S($D(^FH(115.5,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=115.5,DIG=101 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= $E(UPPERCASE(NAME),1,30) DELETE VALUE)= @ FIELD)= UPPERCASE NAME
101	UPPERCASE NAME	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: `NOV 12, 1989` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: This is the text of the plan entry in uppercase text. WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the NAME field of the DIETETIC NUTRITION PLAN File` CROSS-REFERENCE: `115.5^C` 1)= S ^FH(115.5,"C",$E(X,1,30),DA)="" 2)= K ^FH(115.5,"C",$E(X,1,30),DA)

.01

NAME

0;1

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: DEC 08, 1989
HELP-PROMPT: Answer must be 3-60 characters in length.

DESCRIPTION:

This is the text name of the nutrition plan entry.

DELETE TEST: 1,0)= I DUZ(0)'["@",'$D(^XUSEC("FHMGR",DUZ))

CROSS-REFERENCE: 115.5^B

1)= S ^FH(115.5,"B",$E(X,1,30),DA)=""

2)= K ^FH(115.5,"B",$E(X,1,30),DA)

This is the normal B cross-reference of the NAME field.

CROSS-REFERENCE: ^^TRIGGER^115.5^101

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^FH(115.5,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(115.5,.01,1,2,1.1) X ^DD(115.5,.01,1,2,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.5,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=115.5,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.5,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(115.5,.01,1,2,2.4)

2.4)= S DIH=$S($D(^FH(115.5,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=115.5,DIG=101 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

CREATE VALUE)= $E(UPPERCASE(NAME),1,30)

DELETE VALUE)= @

FIELD)= UPPERCASE NAME

101

UPPERCASE NAME

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: NOV 12, 1989
HELP-PROMPT: Answer must be 3-30 characters in length.

DESCRIPTION:

This is the text of the plan entry in uppercase text.

WRITE AUTHORITY:  ^

NOTES: TRIGGERED by the NAME field of the DIETETIC NUTRITION PLAN File

CROSS-REFERENCE: 115.5^C

1)= S ^FH(115.5,"C",$E(X,1,30),DA)=""

2)= K ^FH(115.5,"C",$E(X,1,30),DA)

External References

Name	Field # of Occurrence
^DICR	.01(XREF 2n1.4), .01(XREF 2n2.4)

Global Variables Directly Accessed

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

Naked Globals

Name	Field # of Occurrence
^(0	.01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Dietetics