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

Package: Dietetics

Global: ^FH(118


Information

FileMan FileNo FileMan Filename Package
118 SUPPLEMENTAL FEEDINGS Dietetics

Description

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Dietetics 3 FHNO1    FHNO5    FHNO7    

Pointed To By FileMan Files, Total: 4

Package Total FileMan Files
Dietetics 3 SUPPLEMENTAL FEEDING MENU(#118.1)[10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21]    NUTRITION LOCATION(#119.6)[#119.61(.01)]    NUTRITION PERSON(#115)[#115.07(10), #115.07(12), #115.07(14), #115.07(16), #115.07(18), #115.07(20), #115.07(22), #115.07(24), #115.07(26), #115.07(28), #115.07(30), #115.07(32), #115.1627(4), #115.1627(6), #115.1627(8), #115.1627(10), #115.1627(12), #115.1627(14), #115.1627(16), #115.1627(18), #115.1627(20), #115.1627(22), #115.1627(24), #115.1627(26)]    
DSS Extracts 1 DSS NUTRITION PRODUCT WORKSHEET(#728.45)[#728.451(.01)]    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Dietetics 1 RECIPE(#114)[11]    

Fields, Total: 8

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

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
  • LAST EDITED:  AUG 12, 1984
  • HELP-PROMPT:  ANSWER MUST BE 3-20 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field contains the name of the Supplemental Feeding.
  • DELETE TEST:  1,0)= I 1 D EN^DDIOL("Cannot delete. Inactivate instead.","","?3")
  • CROSS-REFERENCE:  118^B
    1)= S ^FH(118,"B",$E(X,1,30),DA)=""
    2)= K ^FH(118,"B",$E(X,1,30),DA)
    This is the normal B cross-reference of the NAME field.
1 SYNONYM S;0 Multiple #118.01 118.01

  • DESCRIPTION:  
    This field allows for a number of synonyms for the supplemental feeding to be entered.
5 LABEL? 0;2 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  MAR 20, 1985
  • HELP-PROMPT:  Enter N if you do not want a separate label for this item
  • DESCRIPTION:  
    This field, when answered NO, means that a label will not be produced for this item when separate supplemental feeding labels for each item have been specified in the site parameters.
7 VEHICLE FOR MEDS? 0;4 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  JUN 06, 1985
  • DESCRIPTION:  
    This field, when answered YES, means that the supplemental feeding is typically used as a vehicle for meds.
10 BULK ONLY? 0;3 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  JUN 04, 1985
  • DESCRIPTION:  
    This field, when answered YES, means that this supplemental feeding item can ONLY be selected as a bulk feeding for ward delivery and may not be selected as an individual feeding item.
11 CORRESPONDING RECIPE 0;7 POINTER TO RECIPE FILE (#114) RECIPE(#114)

  • LAST EDITED:  SEP 29, 1990
  • DESCRIPTION:  
    This field is a pointer to the recipe in file 114 (the Recipe file) which contains the ingredients for this feeding. Cost and other data for this feeding will be retrieved from the recipe file.
20 COST COMPUTED

  • MUMPS CODE:  X ^DD(118,20,9.2) S X=$P(Y(118,20,101),U,13) S D0=Y(118,20,80) S X=$J(X,0,2)
    9.2 = S Y(118,20,80)=$S($D(D0):D0,1:""),Y(118,20,1)=$S($D(^FH(118,D0,0)):^(0),1:""),D0=$P(Y(118,20,1),U,7) S:'$D(^FH(114,+D0,0)) D0=-1 S Y(118,20,101)=$S($D(^FH(114,D0,0)):^(0),1:"")
  • ALGORITHM:  CORRESPONDING RECIPE:COST/PORTION (ALWAYS 2 DECIMAL DIGITS)
  • LAST EDITED:  JUN 28, 1986
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 20
  • DESCRIPTION:  
    This is the portion cost of the supplemental feeding and is a computed field which obtains the value from the recipe file based upon the 'Corresponding Recipe' pointer.
  • CROSS-REFERENCE:  118^AC^MUMPS
    1)= S $P(^FH(118,DA,0),"^",6)=DT
    2)= S $P(^FH(118,DA,0),"^",6)=""
99 INACTIVE? I;1 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  AUG 13, 1986
  • DESCRIPTION:  
    This field, when answered YES, means that further selection of this item by dietetic personnel is prohibited.
  • CROSS-REFERENCE:  118^AD^MUMPS
    1)= K:X'="Y" ^FH(118,DA,"I")
    2)= K ^FH(118,DA,"I")
    This cross-reference is used to create an 'I' node for inactive entries.

Found Entries, Total: 1

NAME: ** SPECIAL ORDER **    

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #4877
  • 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