Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 116.211

Package: Dietetics

PRODUCTION DIET(#116.2)-->116.211

Sub-Field: 116.211


Information

Parent File Name Number Package
PRODUCTION DIET(#116.2) SINGULAR PRODUCTION DIETS 116.211 Dietetics

Details

Field # Name Loc Type Details
.01 SINGULAR PRODUCTION DIETS 0;1 POINTER TO PRODUCTION DIET FILE (#116.2) PRODUCTION DIET(#116.2)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),""^"",4)'=""Y""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 14, 1987
  • DESCRIPTION:  
    This is a production diet that is to be contained in the combo production diet. It itself must not also be a combo production diet.
  • SCREEN:  S DIC("S")="I $P(^(0),""^"",4)'=""Y"""
  • EXPLANATION:  Can only select singular production diets.
  • CROSS-REFERENCE:  116.211^B
    1)= S ^FH(116.2,DA(1),"R","B",$E(X,1,30),DA)=""
    2)= K ^FH(116.2,DA(1),"R","B",$E(X,1,30),DA)
    This is the normal B cross-reference of the SINGULAR PRODUCTION DIETS field.
  • CROSS-REFERENCE:  116.2^AR1^MUMPS
    1)= D SET^FHORDR
    2)= D SET^FHORDR
    This cross-reference will rebuild the 'AR' decoding string whenever a change is made to a combination production diet.
Info |  Details