STANDARD DATA DICTIONARY #115.5 -- DIETETIC NUTRITION PLAN FILE                                                   6/27/25    PAGE 1
STORED IN ^FH(115.5,  *** NO DATA STORED YET ***   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                        (VERSION 5.5)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains a list of nutrition plan actions which are listed on the Nutrition Screening form.  


              DD ACCESS: #
              RD ACCESS: #F
              WR ACCESS: #f
             DEL ACCESS: #f
           LAYGO ACCESS: #f

CROSS
REFERENCED BY: NAME(B), UPPERCASE NAME(C)



115.5,.01     NAME                   0;1 FREE TEXT (Required)

              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 D
                                IU=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 ^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.5,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S D
                                IU=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 ^DIC
                                R:$O(^DD(DIH,DIG,1,0))>0

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


115.5,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)



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):