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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^FH(118

Package: Dietetics

Global: ^FH(118


Information

FileMan FileNo FileMan Filename Package
118 SUPPLEMENTAL FEEDINGS Dietetics

Description

Directly Accessed By Routines, Total: 23

Package Total Routines
Dietetics 23 FHASP2    FHDMP3    FHNO2    FHNO21    FHNO31    FHNO4    FHNO41    FHNO5
FHNO6    FHNO7    FHOMRMD    FHOMRR1    FHORD6    FHORD81    FHORD82    FHPRW
FHWHEA    FHWOR7    FHWOR71    FHXDB    FHXDB2    SYNONYM    ^FH(118    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Dietetics 3 FHNO1    FHNO5    FHNO7    

Pointed To By FileMan Files, Total: 3

Package Total FileMan Files
Dietetics 3 SUPPLEMENTAL FEEDING MENU(#118.1)[101112131415161718192021]    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)]    

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.

ICR, Total: 1

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

    External References

    Name Field # of Occurrence
    EN^DDIOL IDWRITE+1, .01DEL1+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD(118 20+1
    ^FH(114 - [#114] 20OF9.2+1
    ^FH(118 - [#118] .01(XREF 1S), .01(XREF 1K), 20OF9.2+1, 20(XREF 1S), 20(XREF 1K), 99(XREF 1S), 99(XREF 1K)

    Naked Globals

    Name Field # of Occurrence
    ^("I" IDWRITE+1
    ^(0 20OF9.2+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> D0 20+1*, 20OF9.2+1*
    >> DA .01(XREF 1S), .01(XREF 1K), 20(XREF 1S), 20(XREF 1K), 99(XREF 1S), 99(XREF 1K)
    DT 20(XREF 1S)
    U 20+1, 20OF9.2+1
    X .01+1!, .01(XREF 1S), .01(XREF 1K), 20+1*, 99(XREF 1S)
    >> Y(118 20+1, 20OF9.2+1*
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All