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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries  | 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

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 - DECISION SUPPORT SYSTEM EXTRACTS
  • NAME (.01).
    Access: Pointed to

    Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries  | All