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 |  Fields
Print Page as PDF
Global: ^FH(115.5

Package: Dietetics

Global: ^FH(115.5


Information

FileMan FileNo FileMan Filename Package
115.5 DIETETIC NUTRITION PLAN Dietetics

Description

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Dietetics 1 FHASC    

Fields, Total: 2

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)
Info |  Desc |  Accessed By FileMan Db Calls |  Fields