Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Pointed To By FileMan Files |  Fields |  Found Entries
Print Page as PDF
Global: ^DIC(620

Package: Mental Health

Global: ^DIC(620


Information

FileMan FileNo FileMan Filename Package
620 PROBLEM Mental Health

Description

Pointed To By FileMan Files, Total: 1

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

Fields, Total: 4

Field # Name Loc Type Details
.001 NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 27, 1984
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 99
  • DESCRIPTION:  
    This is the internal entry number.
.01 PROBLEM 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>75!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
  • LAST EDITED:  DEC 13, 1991
  • HELP-PROMPT:  ANSWER MUST BE 3-75 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the name of the problem category used in the Mental Health package problem list.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  620^B
    1)= S ^DIC(620,"B",$E(X,1,30),DA)=""
    2)= K ^DIC(620,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  620^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(620,"C",I,DA)=""
    2)= F %=1:1 Q:$P(X," ",%,99)="" S I=$P(X," ",%) I $L(I)>2,$L(I)<31 K ^DIC(620,"C",I,DA)
1 SCREEN 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1) X
  • LAST EDITED:  DEC 12, 1984
  • HELP-PROMPT:  ANSWER MUST BE 1-2 CHARACTERS IN LENGTH
  • DESCRIPTION:  Screen is a code which pulls indicators having this code in their 'Screen' field in association with the parent 'Problem'. Screen is generally a single upper case or lower case letter. The 'Other' problem has A1 as its
    screen.
2 UPPER 1;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>75!($L(X)<3) X
  • LAST EDITED:  MAY 17, 1984
  • HELP-PROMPT:  ANSWER MUST BE 3-75 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the problem name in uppercase. It is used as a cross reference.
    WRITE AUTHORITY: ^
  • CROSS-REFERENCE:  620^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(620,"D",I,DA)=""
    2)= F %=1:1 Q:$P(X," ",%,99)="" S I=$P(X," ",%) I $L(I)>2,$L(I)<31 K ^DIC(620,"D",I,DA)

Found Entries, Total: 29

PROBLEM: Suicidal/Self-injury Risk    PROBLEM: Violence Risk    PROBLEM: Psychosis    PROBLEM: Anxiety Syndrome    PROBLEM: Depressive Syndrome    PROBLEM: Manic Syndrome    PROBLEM: Anger/Hostility Problem    PROBLEM: Alcohol Misuse    
PROBLEM: Drug/Non-alcohol Substance Misuse    PROBLEM: Incomplete Data Base    PROBLEM: Organicity    PROBLEM: Sleep Disturbance    PROBLEM: Sexual Problem (undiagnosed)    PROBLEM: Interpersonal Behavior Problem    PROBLEM: Personality Disturbance (undiagnosed)    PROBLEM: Marital/Family Problem    
PROBLEM: Vocational    PROBLEM: Avocational (Leisure Time) Problem    PROBLEM: Educational Problem    PROBLEM: Cultural Adaptation Problem    PROBLEM: Treatment Compliance Problem    PROBLEM: Undesired Reaction to Medication    PROBLEM: Legal Problem    PROBLEM: Subsistence Problem    
PROBLEM: General Physical Symptoms (undiagnosed)    PROBLEM: Dental Problem    PROBLEM: Other/Unclassified Problem (Free Text)    PROBLEM: Eating Problem    PROBLEM: Self-care deficit    
Info |  Desc |  Pointed To By FileMan Files |  Fields |  Found Entries