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 |  Global Variables Directly Accessed |  Local Variables |  All
Print Page as PDF
Global: ^DIC(625

Package: Mental Health

Global: ^DIC(625


Information

FileMan FileNo FileMan Filename Package
625 INDICATOR Mental Health

Description

Directly Accessed By Routines, Total: 3

Package Total Routines
Mental Health 3 ^DIC(625    YSXRAV1    YSXRAV2    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Mental Health 1 MH CLINICAL FILE(#615)[#615.02(.01)]    

Fields, Total: 3

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

  • INPUT TRANSFORM:  K:$L(X)>70!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
  • LAST EDITED:  DEC 12, 1991
  • HELP-PROMPT:  ANSWER MUST BE 3-70 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Name of an indicator of a problem. A problem such as Depression may have "low self esteem" as an indicator.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  625^B
    1)= S ^DIC(625,"B",$E(X,1,30),DA)=""
    2)= K ^DIC(625,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  625^C^KWIC
    1)= F %=1:1 Q:$P(X," ",%,99)=""  S I=$P(X," ",%) I $L(I)>2,$L(I)<31,^DD("KWIC")'[I S ^DIC(625,"C",I,DA)=""
    2)= F %=1:1 Q:$P(X," ",%,99)=""  S I=$P(X," ",%) I $L(I)>2,$L(I)<31 K ^DIC(625,"C",I,DA)
1 SCREEN 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  AUG 07, 1984
  • HELP-PROMPT:  ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    The screen field contains a string of the screen codes of the problems with which the indicator is associated.
  • CROSS-REFERENCE:  625^A
    1)= S ^DIC(625,"A",$E(X,1,30),DA)=""
    2)= K ^DIC(625,"A",$E(X,1,30),DA)
  • CROSS-REFERENCE:  625^E
    1)= S ^DIC(625,"E",$E(X,1,30),DA)=""
    2)= K ^DIC(625,"E",$E(X,1,30),DA)
2 UPPER 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>70!($L(X)<3) X
  • LAST EDITED:  DEC 12, 1984
  • HELP-PROMPT:  ANSWER MUST BE 3-70 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field contains the name of the indicator and synonyms for the indicator in UPPER CASE to allow lookup when the user types one of these in in all caps. Indicator file is cross-indexed on 'Upper'.
  • CROSS-REFERENCE:  625^D^KWIC
    1)= F %=1:1 Q:$P(X," ",%,99)=""  S I=$P(X," ",%) I $L(I)>2,$L(I)<31,^DD("KWIC")'[I S ^DIC(625,"D",I,DA)=""
    2)= F %=1:1 Q:$P(X," ",%,99)=""  S I=$P(X," ",%) I $L(I)>2,$L(I)<31 K ^DIC(625,"D",I,DA)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("KWIC" .01(XREF 2S), 2(XREF 1S)
^DIC(625 - [#625] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 2(XREF 1S), 2(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % .01(XREF 2S), .01(XREF 2K), 2(XREF 1S), 2(XREF 1K)
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 2(XREF 1S), 2(XREF 1K)
>> I .01(XREF 2S), .01(XREF 2K), 2(XREF 1S), 2(XREF 1K)
X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 1+1!, 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K)
, 2+1!, 2(XREF 1S), 2(XREF 1K)
Info |  Desc |  Directly Accessed By Routines |  Pointed To By FileMan Files |  Fields |  Global Variables Directly Accessed |  Local Variables |  All