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 |  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

Directly Accessed By Routines, Total: 19

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

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)

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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All