Select the objects that you wish to see in the downloaded PDF
Info Desc Directly Accessed By Routines Accessed By FileMan Db Calls Fields External References Global Variables Directly Accessed Naked Globals Local Variables
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