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 |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Global: ^YSD(627.8

Package: Mental Health

Global: ^YSD(627.8


Information

FileMan FileNo FileMan Filename Package
627.8 DIAGNOSTIC RESULTS - MENTAL HEALTH Mental Health

Description

Directly Accessed By Routines, Total: 36

Package Total Routines
Mental Health 35 MODIFIERS    YSDSS    YSDX3    YSDX3A    YSDX3B    YSDX3R    YSDX3R1    YSDX3RU
YSDX3RUA    YSDX3U    YSDX3UA    YSDX3UA0    YSDX3UB    YSDXUTL    YSGAF    YSGAF1
YSGAF2    YSGAFAP1    YSGAFAPI    YSGAFOBX    YSGAFTR    YSGAFUTL    YSSR    YSXRAY1
YSXRAY2    YSXRAY3    YSXRAY4    YTAPI    YTAPI10    YTAPI10A    YTQAPI6    YTQPXRM1
YTQPXRM2    YTQPXRM7    ^YSD(627.8    
Scheduling 1 SCRPW24    

Accessed By FileMan Db Calls, Total: 15

Package Total Routines
Mental Health 15 YSDX3    YSDX3A    YSDX3B    YSDX3UA    YSDX3UA0    YSDX3UB    YSGAF    YSGAF2
YSGAFAP1    YSGAFAPI    YSGAFUTL    YTAPI    YTAPI10    YTQAPI6    YTQPXRM7    

Pointer To FileMan Files, Total: 6

Package Total FileMan Files
Mental Health 3 DSM-III-R(#627.5)[1]    DSM MODIFIERS(#627.9)[#627.82(.01)]    DSM(#627.7)[1]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[1]    
Kernel 1 NEW PERSON(#200)[.04, .05]    
Registration 1 PATIENT(#2)[.02]    

Fields, Total: 17

Field # Name Loc Type Details
.01 FILE ENTRY DATE 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=$P($H,",",2),Y=Y_"."_$E(0,1,2-$L(X\3600))_(X\3600)_$E(0,1,2-$L(X#3600\60))_(X#3600\60)_$E(0,1,2-$L(X#60))_(X#60),Y=+Y,X=Y K:Y<1 X
  • DESCRIPTION:  
    Date/time patient data entered into file. Transparent to user.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  627.8^B
    1)= S ^YSD(627.8,"B",$E(X,1,30),DA)=""
    2)= K ^YSD(627.8,"B",$E(X,1,30),DA)
.02 PATIENT NAME 0;2 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
PATIENT(#2)

  • LAST EDITED:  SEP 03, 1996
  • DESCRIPTION:  
    Patient name. Set through the routine, ^YSLRP.
  • CROSS-REFERENCE:  627.8^C
    1)= S ^YSD(627.8,"C",$E(X,1,30),DA)=""
    2)= K ^YSD(627.8,"C",$E(X,1,30),DA)
.03 DATE/TIME OF DIAGNOSIS 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • DESCRIPTION:  
    Date and time of diagnosis as indicated by person formulating the dx.
.04 DIAGNOSIS BY 0;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • DESCRIPTION:  
    Person responsible for dx. Not necessarily the transcriber.
.05 TRANSCRIBER 0;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • DESCRIPTION:  
    Person entering data into the file. Transparent to user.
1 DIAGNOSIS 1;1 VARIABLE POINTER ICD DIAGNOSIS(#80)  DSM-III-R(#627.5)  DSM(#627.7)  

  • INPUT TRANSFORM:  D DXVALID^YSDXUTL
  • LAST EDITED:  APR 11, 2012
  • HELP-PROMPT:  Enter a DSM code for Axes 1 or 2; an ICD DIAGNOSIS Code for Axis 3.
  • DESCRIPTION:  The diagnosis is a condition which may be responsible for the evaluation or admission to clinical care.
  • CROSS-REFERENCE:  627.8^AE^MUMPS
    1)= S X1=$S(X["ICD":"I",X["DIC":"D",1:"Z"),^YSD(627.8,"AE",X1,$P(^YSD(627.8,DA,0),"^",2),$P(^YSD(627.8,DA,0),"^",3),$E(X,1,30),DA)=""
    2)= S X1=$S(X["ICD":"I",X["DIC":"D",1:"Z") K ^YSD(627.8,"AE",X1,$P(^YSD(627.8,DA,0),"^",2),$P(^YSD(627.8,DA,0),"^",3),$E(X,1,30),DA)
  • CROSS-REFERENCE:  627.8^AF^MUMPS
    1)= S ^YSD(627.8,"AF",$P(^YSD(627.8,DA,0),"^",2),9999999.0000-$P(^YSD(627.8,DA,0),"^",3),$E(X,1,30),DA)=""
    2)= K ^YSD(627.8,"AF",$P(^YSD(627.8,DA,0),"^",2),9999999.0000-$P(^YSD(627.8,DA,0),"^",3),$E(X,1,30),DA)
  • CROSS-REFERENCE:  627.8^AG^MUMPS
    1)= S X1=$S(X["ICD":"I",X["DIC":"D",1:"Z"),^YSD(627.8,"AG",X1,$P(^YSD(627.8,DA,0),"^",2),$E(X,1,30),DA)=""
    2)= S X1=$S(X["ICD":"I",X["DIC":"D",1:"Z") K ^YSD(627.8,"AG",X1,$P(^YSD(627.8,DA,0),"^",2),$E(X,1,30),DA)
5 STATUS (V/P/R/I/N/RU) 1;2 SET
************************REQUIRED FIELD************************
  • 'v' FOR VERIFIED;
  • 'p' FOR PROVISIONAL;
  • 'r' FOR REFORMULATED;
  • 'i' FOR INACTIVE;
  • 'n' FOR NOT FOUND;
  • 'ru' FOR RULE OUT;

  • DESCRIPTION:  
    This is a SET of codes defining the status of the diagnosis.
7 CONDITION 1;4 SET
************************REQUIRED FIELD************************
  • 'A' FOR ACTIVE;
  • 'I' FOR INACTIVATED;

  • DESCRIPTION:  
    States whether a dx is clinically active or inactive. (Active is based on the status of verified or provisional. All others are considered inactive.)
  • CROSS-REFERENCE:  627.8^AC^MUMPS
    1)= S ^YSD(627.8,"AC",$P(^YSD(627.8,DA,0),"^",2),9999999-$P(^YSD(627.8,DA,0),"^",3),$P(^YSD(627.8,DA,1),"^"),X,DA)=""
    2)= K ^YSD(627.8,"AC",$P(^YSD(627.8,DA,0),"^",2),9999999-$P(^YSD(627.8,DA,0),"^",3),$P(^YSD(627.8,DA,1),"^"),X,DA)
8 INACTIVATED DATE 1;5 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • DESCRIPTION:  
    When a dx status changes from active to inactive, this flags is set. This permits the system to show only truly active dx while maintaining a history of the dx's status.
9 STATUS CHANGED 1;6 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • DESCRIPTION:  
    Indicates if this dx's status has been changes from Active to Inactive.
10 DXLS 1;3 SET
************************REQUIRED FIELD************************
  • 'y' FOR YES;
  • 'n' FOR NO;
  • 'c' FOR CHANGED;

  • DESCRIPTION:  This is the diagnosis accounting for the largest % of length of stay for an admission. There may only be ONE DXLS (DSM or ICD DIAGNOSIS) per admission.
    This information may not be the same as that stored in the Patient Treatment Folder (PTF).
  • CROSS-REFERENCE:  627.8^AD^MUMPS
    1)= S:X="y" ^YSD(627.8,"AD",$P(^YSD(627.8,DA,0),"^",2),9999999.0000-$P(^YSD(627.8,DA,0),"^",3),DA)=""
    2)= K:X="y" ^YSD(627.8,"AD",$P(^YSD(627.8,DA,0),"^",2),9999999.0000-$P(^YSD(627.8,DA,0),"^",3),DA)
  • CROSS-REFERENCE:  627.8^AH^MUMPS
    1)= I "yc"[X S ^YSD(627.8,"AH",$P(^YSD(627.8,DA,0),"^",2),9999999-$P(^YSD(627.8,DA,0),"^",3),DA)=""
    2)= I "yc"[X K ^YSD(627.8,"AH",$P(^YSD(627.8,DA,0),"^",2),9999999-$P(^YSD(627.8,DA,0),"^",3),DA)
50 MODIFIERS 5;0 POINTER Multiple #627.82 627.82

  • DESCRIPTION:  
    Modifiers further clarify the diagnosis. They are entered in accordance with the DSM-IV Manual.
60 PSYCHOSOCIAL STRESSOR 60;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • HELP-PROMPT:  Short, descriptive narrative of stressor (1-60 characters in length).
  • DESCRIPTION:  
    A stressor frequently plays a precipitating role in a disorder or it may also be a consequence of the person's psychopathology.
61 SEVERITY CODE 60;2 SET
  • '1' FOR NONE;
  • '2' FOR MILD;
  • '3' FOR MODERATE;
  • '4' FOR SEVERE;
  • '5' FOR EXTREME;
  • '6' FOR CATASTROPHIC;
  • '0' FOR INADEQUATE INFORMATION/NO CHANGE IN CONDITION;

  • HELP-PROMPT:  Enter degree (0-6) of severity of psychosocial stressor.
  • DESCRIPTION:  Axis 4 provides a scale, the Severity of Psychosocial Stressors Scale, for coding overall severity of a psychosocial stressor or multiple psychosocial stressors that have occurred in the year preceding the current
    evaluation.
  • CROSS-REFERENCE:  627.8^AX4^MUMPS
    1)= N X1 S X1=$G(^YSD(627.8,DA,0)) S ^YSD(627.8,"AX4",$P(X1,U,2),9999999-$P(X1,U,3),DA)=""
    2)= N X1 S X1=$G(^YSD(627.8,DA,0)) K ^YSD(627.8,"AX4",$P(X1,U,2),9999999-$P(X1,U,3),DA)
65 AXIS 5 60;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 26, 1997
  • HELP-PROMPT:  Type a number (1-100) relevant to the GAF Scale.
  • DESCRIPTION:  
    Axis 5 permits the clinician to indicate his/her overall judgment of a person's psychological, social and occupation functioning on a scale, the Global Assessment of Functioning (GAF Scale), that assesses mental illness.
  • CROSS-REFERENCE:  627.8^AX5^MUMPS
    1)= N X1 S X1=$G(^YSD(627.8,DA,0)) S ^YSD(627.8,"AX5",$P(X1,U,2),9999999-$P(X1,U,3),DA)=""
    2)= N X1 S X1=$G(^YSD(627.8,DA,0)) K ^YSD(627.8,"AX5",$P(X1,U,2),9999999-$P(X1,U,3),DA)
66 PATIENT TYPE 60;4 SET
  • 'I' FOR In-Patient;
  • 'O' FOR Out-Patient;

  • LAST EDITED:  JUN 15, 1998
  • HELP-PROMPT:  Please enter 'I' for In-Patient or 'O' for Out-Patient
  • DESCRIPTION:  
    Patient Type indicates that the patient is either an 'I'n-Patient or 'O'ut-Patient.
80 COMMENT 80;0 WORD-PROCESSING #627.81

  • DESCRIPTION:  
    This is additional comments describing this diagnosis.

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #2457
  • Scheduling
    		•  AXIS 5 (65).
    Access: Direct Global Read & w/Fileman

    		 Data node where GAF score is stored.'AX5' crossreference.

    External References

    Name Field # of Occurrence
    ^%DT .01+1, .03+1, 8+1
    DXVALID^YSDXUTL 1+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^YSD(627.8 - [#627.8] .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 1(XREF 3S), 1(XREF 3K)
    , 7(XREF 1S), 7(XREF 1K), 10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K), 61(XREF 1S), 61(XREF 1K), 65(XREF 1S), 65(XREF 1K)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT .01+1*, .03+1*, 8+1*
    >> DA .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 1(XREF 3S), 1(XREF 3K)
    , 7(XREF 1S), 7(XREF 1K), 10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K), 61(XREF 1S), 61(XREF 1K), 65(XREF 1S), 65(XREF 1K)
    U 61(XREF 1S), 61(XREF 1K), 65(XREF 1S), 65(XREF 1K)
    X .01+1*!, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03+1*!, 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K)
    , 1(XREF 3S), 1(XREF 3K), 7(XREF 1S), 7(XREF 1K), 8+1*!, 10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K), 60+1!
    , 65+1!
    X1 1(XREF 1S), 1(XREF 1K), 1(XREF 3S), 1(XREF 3K), 61(XREF 1S), 61(XREF 1K), 65(XREF 1S), 65(XREF 1K)
    >> Y .01+1*, .03+1, 8+1
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Local Variables  | All