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 |  Pointed To By FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^FH(117.4

Package: Dietetics

Global: ^FH(117.4


Information

FileMan FileNo FileMan Filename Package
117.4 DIETETIC REPORT CATEGORIES Dietetics

Description

Directly Accessed By Routines, Total: 3

Package Total Routines
Dietetics 3 FHADR10    FHADR1A    ^FH(117.4    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Dietetics 1 ANNUAL REPORT(#117.3)[#117.312(.01)#117.313(.01)#117.338(.01)]

Fields, Total: 4

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
  • LAST EDITED:  DEC 13, 1991
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This field contains the names of the categories used in the Annual Report.
  • DELETE TEST:  1,0)= I 1 D EN^DDIOL("Cannot delete. Inactivate instead.","","?3")
  • CROSS-REFERENCE:  117.4^B
    1)= S ^FH(117.4,"B",$E(X,1,30),DA)=""
    2)= K ^FH(117.4,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^117.4^101
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^FH(117.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(117.4,.01,1,2,1.1) X ^DD(117.4,.01,1,2,1.4)
    1.1)= S X=DIV S X=DIV X "F %=1:1:$L(X) S:$E(X,%)?1L X=$E(X,0,%-1)_$C($A(X,%)-32)_$E(X,%+1,999)" S X=X,Y(1)=X S X=1,Y(2)=X S X=30,X=$E(Y(1),Y(2),X)
    1.4)= S DIH=$S($D(^FH(117.4,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=117.4,DIG=101 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^FH(117.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(117.4,.01,1,2,2.4)
    2.4)= S DIH=$S($D(^FH(117.4,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=117.4,DIG=101 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= $E(UPPERCASE(NAME),1,30)
    DELETE VALUE)= @
    FIELD)= UPPER
    This trigger converts the upper/lower case name into all uppercase and stores it in field 101.
1 TYPE 0;2 SET
************************REQUIRED FIELD************************
  • 'S' FOR Specialized Medical Program;
  • 'D' FOR Primary Delivery System;
  • 'P' FOR Primary Production System;
  • 'E' FOR Dietetic Service Equipment;

  • LAST EDITED:  JAN 30, 1992
  • DESCRIPTION:  
    This field contains the Type of Category. An "S" for Specialized Medical Program, a "D" for Primary Delivery System, a "P" for Primary Production System, and "E" for Dietetic Service Equipment.
99 INACTIVE? I;1 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  FEB 23, 2000
  • DESCRIPTION:  
    This field, if answered YES, will prohibit further selection of this entry.
  • CROSS-REFERENCE:  117.4^AC^MUMPS
    1)= K:X'="Y" ^FH(117.4,DA,"I")
    2)= K ^FH(117.4,DA,"I")
    This cross-reference is used to create an 'I' node for inactive entries.
101 UPPERCASE NAME 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  DEC 13, 1991
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This is the name of the entry in uppercase text.
  • NOTES:  TRIGGERED by the NAME field of the DIETETIC REPORT CATEGORIES File
  • CROSS-REFERENCE:  117.4^C
    1)= S ^FH(117.4,"C",$E(X,1,30),DA)=""
    2)= K ^FH(117.4,"C",$E(X,1,30),DA)
    This is a cross-reference of all uppercase text of the name.

External References

Name Field # of Occurrence
EN^DDIOL IDWRITE+1, .01DEL1+1
^DICR .01(XREF 2n1.4), .01(XREF 2n2.4)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( .01(XREF 2n1.4), .01(XREF 2n2.4)
^DD(117.4 .01(XREF 2S), .01(XREF 2K)
^FH(117.4 - [#117.4] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), 99(XREF 1S), 99(XREF 1K), 101(XREF 1S), 101(XREF 1K)

Naked Globals

Name Field # of Occurrence
^("I" IDWRITE+1
^(0 .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D0 .01(XREF 2S), .01(XREF 2K)
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 99(XREF 1S), 99(XREF 1K), 101(XREF 1S), 101(XREF 1K)
>> DIG .01(XREF 2n1.4), .01(XREF 2n2.4)
>> DIH .01(XREF 2n1.4), .01(XREF 2n2.4)
>> DIU .01(XREF 2S), .01(XREF 2K)
DIV .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4)
DIV(0 .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4)
U .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4)
X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), 99(XREF 1S), 101+1!
101(XREF 1S), 101(XREF 1K)
Y .01(XREF 2S), .01(XREF 2K)
Y(1 .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2K)
Y(2 .01(XREF 2n1.1)
Info |  Desc |  Directly Accessed By Routines |  Pointed To By FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All