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 |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^FH(116.2

Package: Dietetics

Global: ^FH(116.2


Information

FileMan FileNo FileMan Filename Package
116.2 PRODUCTION DIET Dietetics

Description

Directly Accessed By Routines, Total: 39

Package Total Routines
Dietetics 39 FHCTF4    FHDCR11    FHDCR1B    FHDCR1D    FHDMP2    FHMTK    FHMTK11    FHMTK21
FHMTK3    FHOMTK2    FHORD91    FHORD93    FHORDR    FHPRC1    FHPRC10    FHPRC11
FHPRC13    FHPRC14    FHPRC2    FHPRC3    FHPRC6    FHPRC8    FHPRC9    FHPRF1A
FHPRF2    FHPRF4    FHPRO    FHPRO2    FHPRO3    FHPRO4    FHPRR1    FHPRW2
FHSEL2    FHSEL3    FHXDB    FHXDB1    FHXDB2    SINGULAR PRODUCTION DIETS    ^FH(116.2    

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
Dietetics 5 FHPRC10    FHPRC13    FHPRC2    FHPRC9    FHPRO    

Pointed To By FileMan Files, Total: 7

Package Total FileMan Files
Dietetics 6 DIETS(#111)[4]    DIET PATTERNS(#111.1)[10]    PRODUCTION DIET(#116.2)[#116.211(.01)]    SERVICE POINT(#119.72)[#119.721(.01)#119.7211(.01)]    NUTRITION PERSON(#115)[#115.02(12)]    USER MENU(#112.6)[#112.62(3)]    
DSS Extracts 1 DSS NUTRITION PRODUCT WORKSHEET(#728.45)[#728.451(.01)]    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Dietetics 1 PRODUCTION DIET(#116.2)[#116.211(.01)]    

Fields, Total: 9

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
  • LAST EDITED:  JUN 29, 1995
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This field contains the name of a production diet. This is a diet that is prepared in the kitchen (as compared to a clinical diet modification which is ordered).
  • DELETE TEST:  1,0)= I 1 D EN^DDIOL("Cannot delete. Inactivate instead.","","?3")
  • CROSS-REFERENCE:  116.2^B
    1)= S ^FH(116.2,"B",$E(X,1,30),DA)=""
    2)= K ^FH(116.2,"B",$E(X,1,30),DA)
    This is the normal B cross-reference of the NAME field.
1 CODE 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<2)!'(X?1U1UN) X I $D(X) S Y=$O(^FH(116.2,"C",X,0)) I Y>0,Y-DA W *7," Code used by ",$P(^FH(116.2,Y,0),"^",1) K X
  • LAST EDITED:  DEC 17, 1985
  • HELP-PROMPT:  ANSWER MUST BE 2 CHARACTERS (2 LETTERS OR LETTER-NUMBER) AND UNIQUE
  • DESCRIPTION:  
    This is a simple two-character code for the diet and is used extensively in the production summary listings.
  • CROSS-REFERENCE:  116.2^C
    1)= S ^FH(116.2,"C",$E(X,1,30),DA)=""
    2)= K ^FH(116.2,"C",$E(X,1,30),DA)
3 # DAYS TO REVIEW 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>120)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 06, 1992
  • HELP-PROMPT:  Type a Number between 1 and 120, 0 Decimal Digits
  • DESCRIPTION:  
    This field represents the number of days after which a patient on this Production Diet should be reviewed.
7 PRINT ORDER 0;6 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X I $D(X) S Y=$O(^FH(116.2,"AP",X,0)) I Y>0,Y-DA W *7," Order used by ",$P(^FH(116.2,Y,0),"^",1) K X
  • LAST EDITED:  NOV 15, 1987
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    This is the order in which this production diet will appear in lists, from low print orders to high.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  116.2^AP
    1)= S ^FH(116.2,"AP",$E(X,1,30),DA)=""
    2)= K ^FH(116.2,"AP",$E(X,1,30),DA)
7.5 PRINT ON DAILY MENU? 0;7 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  OCT 06, 1989
  • DESCRIPTION:  
    This field, when answered YES, will result in the Production Diet being listed on the Daily Menu sheets.
8 TALLY ORDER 0;5 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X I $D(X) S Y=$O(^FH(116.2,"AO",X,0)) I Y>0,Y-DA W *7," Order used by ",$P(^FH(116.2,Y,0),"^",1) K X
  • LAST EDITED:  JUL 14, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 99
  • DESCRIPTION:  In recoding diets, this is the order in which the clinical 'default production diets' will be matched against this production diet. Recoding will occur as soon as a match occurs. Therefore, this field can be conceptualized
    as representing the relative importance of the production diet.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  116.2^AO
    1)= S ^FH(116.2,"AO",$E(X,1,30),DA)=""
    2)= K ^FH(116.2,"AO",$E(X,1,30),DA)
  • CROSS-REFERENCE:  116.2^AR^MUMPS
    1)= D SET^FHORDR
    2)= D SET^FHORDR
    This cross-reference rebuilds the 'AR' decoding string whenever the tally order is changed.
10 IS THIS A COMBO DIET? 0;4 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  OCT 06, 1989
  • DESCRIPTION:  This field, when answered YES, indicates that this production diet is a combination of other production diets (e.g., both low sodium and calorie restricted). Since ALL production diets in a combo must match the 'default
    production diets' of a clinical order, such combo production diets should have a tally order less than any of the individual production diets contained in the combo.
11 SINGULAR PRODUCTION DIETS R;0 POINTER Multiple #116.211 116.211

  • DESCRIPTION:  
    This multiple contains a list of the production diets which constitute the combo production diet.
99 INACTIVE? I;1 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  NOV 05, 1993
  • DESCRIPTION:  
    This field, when answered YES, will prohibit further selection of this Production Diet.
  • CROSS-REFERENCE:  116.2^AC^MUMPS
    1)= K:X'="Y" ^FH(116.2,DA,"I")
    2)= K ^FH(116.2,DA,"I")
    This cross-reference is used to create an 'I' node for inactive entries.
  • CROSS-REFERENCE:  116.2^AD^MUMPS
    1)= D SET^FHORDR
    2)= D SET^FHORDR
    This cross-reference does not alter the global contents but rather invokes a routine which removes inactive production diets from the recording scheme.

Found Entries, Total: 1

NAME: REGULAR    

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #4876
  • DSS Extracts
  • NAME (.01).
    Access: Pointed to

    External References

    Name Field # of Occurrence
    EN^DDIOL IDWRITE+1, .01DEL1+1
    SET^FHORDR 8(XREF 2S), 8(XREF 2K), 99(XREF 2S), 99(XREF 2K)

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^FH(116.2 - [#116.2] .01(XREF 1S), .01(XREF 1K), 1+1, 1(XREF 1S), 1(XREF 1K), 7+1, 7(XREF 1S), 7(XREF 1K), 8+1, 8(XREF 1S)
    8(XREF 1K), 99(XREF 1S), 99(XREF 1K)

    Naked Globals

    Name Field # of Occurrence
    ^("I" IDWRITE+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> DA .01(XREF 1S), .01(XREF 1K), 1+1, 1(XREF 1S), 1(XREF 1K), 7+1, 7(XREF 1S), 7(XREF 1K), 8+1, 8(XREF 1S)
    8(XREF 1K), 99(XREF 1S), 99(XREF 1K)
    X .01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 1(XREF 1S), 1(XREF 1K), 3+1!, 7+1!, 7(XREF 1S), 7(XREF 1K)
    , 8+1!, 8(XREF 1S), 8(XREF 1K), 99(XREF 1S)
    >> Y 1+1*, 7+1*, 8+1*
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All