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 |  Found Entries |  All
Print Page as PDF
Global: ^MR

Package: Mental Health

Global: ^MR


Information

FileMan FileNo FileMan Filename Package
90 MEDICAL RECORD Mental Health

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
Health Summary 1 GMTSMHPE    
Mental Health 1 ^YSG("INP"    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Health Summary 1 GMTSMHPE    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
DRG Grouper 1 ICD DIAGNOSIS(#80)[113113.6#90.1(.01)#90.16(.01)#90.17(.01)]    
Kernel 1 NEW PERSON(#200)[106109#90.01(29)#90.05(2)#90.06(2)#90.07(2)#90.11(2)#90.16(2)#90.17(2)]    
Mental Health 1 DSM3(#627)[102102.6#90.04(.01)#90.06(.01)#90.07(.01)]    
Registration 1 PATIENT(#2)[.01]    

Fields, Total: 23

Field # Name Loc Type Details
.001 NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 06, 1984
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 99999
  • DESCRIPTION:  
    This is the internal file number of the diagnosis.
.01 NAME 0;1 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
PATIENT(#2)

  • INPUT TRANSFORM:  S DINUM=X Q
  • LAST EDITED:  AUG 30, 1984
  • DESCRIPTION:  
    This is the patient's name.
    WRITE AUTHORITY:  ^
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  90^B
    1)= S ^MR("B",$E(X,1,30),DA)=""
    2)= K ^MR("B",$E(X,1,30),DA)
100 PHY PE;0 DATE Multiple #90.01 90.01

  • DESCRIPTION:  
    This field contains the results of the physical examination.
101 *PRINCIPAL DSM-III DX DATE DX1;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 10, 1984
  • DESCRIPTION:  
    This is the date the principal DSM-II diagnosis was entered.
102 *PRINCIPAL DSM-III DIAGNOSIS DX1;2 POINTER TO DSM3 FILE (#627)
************************REQUIRED FIELD************************
DSM3(#627)

  • LAST EDITED:  OCT 11, 1984
  • DESCRIPTION:  
    This is the DSM-III code for the diagnosis which is the primary reason for treatment.
102.4 *X DSM-III DIAGNOSIS DATE DX1;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:2990000X) X
  • LAST EDITED:  FEB 24, 1984
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1970 AND 1999
  • DESCRIPTION:  
    This is the date the DSM-III X diagnosis was entered.
102.6 *X DSM-III DIAGNOSIS DX1;4 POINTER TO DSM3 FILE (#627)
************************REQUIRED FIELD************************
DSM3(#627)

  • LAST EDITED:  OCT 12, 1984
  • DESCRIPTION:  
    This is the DSM-III diagnosis accounting for the largest percentage of the length of stay.
103 *DSM-III DIAGNOSIS DX;0 POINTER Multiple #90.04 90.04

  • DESCRIPTION:  
    This is the code of the DSM-III diagnosis.
104 *AXIS 4 DXM;1 SET
  • '1' FOR NONE;
  • '2' FOR MINIMAL;
  • '3' FOR MILD;
  • '4' FOR MODERATE;
  • '5' FOR SEVERE;
  • '6' FOR EXTREME;
  • '7' FOR CATASTROPHIC;
  • '0' FOR UNSPECIFIED;

  • LAST EDITED:  FEB 24, 1984
  • DESCRIPTION:  
    This is the rating code for severity of psychosicial stressor.
  • CROSS-REFERENCE:  ^^TRIGGER^90^105
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MR(D0,"DXM")):^("DXM"),1:"") S X=$P(Y(1),U,2) S DIU=X K Y N %I,%H,% D NOW^%DTC S X=X X ^DD(90,104,1,1,1.4)
    1.4)= S DIH=$S($D(^MR(DIV(0),"DXM")):^("DXM"),1:""),DIV=X S %=$P(DIH,U,3,999),^("DXM")=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=90,DIG=105 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= TODAY
    DELETE VALUE)= NO EFFECT
    FIELD)= AXIS 4 DATE
  • CROSS-REFERENCE:  ^^TRIGGER^90^106
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MR(D0,"DXM")):^("DXM"),1:"") S X=$P(Y(1),U,3) S DIU=X K Y S X=DUZ X ^DD(90,104,1,2,1.4)
    1.4)= S DIH=$S($D(^MR(DIV(0),"DXM")):^("DXM"),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U" S %=$P(DIH,U,4,999),^("DXM")=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=90,DIG=106 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= AXIS 4 BY
105 *AXIS 4 DATE DXM;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:2990000X) X
  • LAST EDITED:  FEB 24, 1984
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1970 AND 1999
  • DESCRIPTION:  
    This is the date a given psychosocial stressor code is entered.
  • NOTES:  TRIGGERED by the *AXIS 4 field of the MEDICAL RECORD File
106 *AXIS 4 BY DXM;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  APR 25, 1984
  • DESCRIPTION:  
    This is the name of the user entering a given psychosical stressor code.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the *AXIS 4 field of the MEDICAL RECORD File
107 *AXIS 5 DXM;4 SET
  • '1' FOR SUPERIOR;
  • '2' FOR VERY GOOD;
  • '3' FOR GOOD;
  • '4' FOR FAIR;
  • '5' FOR POOR;
  • '6' FOR VERY POOR;
  • '7' FOR GROSSLY IMPAIRED;
  • '0' FOR UNSPECIFIED;

  • LAST EDITED:  FEB 24, 1984
  • DESCRIPTION:  
    This is the rating code for highest level of adaptive functioning past year.
  • CROSS-REFERENCE:  ^^TRIGGER^90^108
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MR(D0,"DXM")):^("DXM"),1:"") S X=$P(Y(1),U,5) S DIU=X K Y N %I,%H,% D NOW^%DTC S X=X X ^DD(90,107,1,1,1.4)
    1.4)= S DIH=$S($D(^MR(DIV(0),"DXM")):^("DXM"),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U" S %=$P(DIH,U,6,999),^("DXM")=$P(DIH,U,1,4)_U_DIV_$S(%]"":U_%,1:""),DIH=90,DIG=108 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= TODAY
    DELETE VALUE)= NO EFFECT
    FIELD)= AXIS 5 D
  • CROSS-REFERENCE:  ^^TRIGGER^90^109
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MR(D0,"DXM")):^("DXM"),1:"") S X=$P(Y(1),U,6) S DIU=X K Y S X=DUZ X ^DD(90,107,1,2,1.4)
    1.4)= S DIH=$S($D(^MR(DIV(0),"DXM")):^("DXM"),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U" S %=$P(DIH,U,7,999),^("DXM")=$P(DIH,U,1,5)_U_DIV_$S(%]"":U_%,1:""),DIH=90,DIG=109 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= AXIS 5 B
108 *AXIS 5 DATE DXM;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:2990000X) X
  • LAST EDITED:  FEB 24, 1984
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1970 AND 1999
  • DESCRIPTION:  
    This is the date a given adaptive functioning code is entered.
  • NOTES:  TRIGGERED by the *AXIS 5 field of the MEDICAL RECORD File
109 *AXIS 5 BY DXM;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  APR 25, 1984
  • DESCRIPTION:  
    This is the name of the user entering a given adaptive functioning code.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the *AXIS 5 field of the MEDICAL RECORD File
110 *PAST PRINCIPAL DX PDX;0 POINTER Multiple #90.06 90.06

  • DESCRIPTION:  
    This is the past DSM-III diagnosis that was the primary reason for treatment.
111 *PAST X DIAGNOSIS XDX;0 POINTER Multiple #90.07 90.07

  • DESCRIPTION:  
    This is the past DSM-III code which accounted for the largest percentage of the length of stay.
112 *PRINCIPLE ICD9 DX DATE DX2;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 05, 1984
  • DESCRIPTION:  
    This is the date the principal ICD9 diagnosis was entered.
113 *PRINCIPAL ICD9 DIAGNOSIS DX2;2 POINTER TO ICD DIAGNOSIS FILE (#80)
************************REQUIRED FIELD************************
ICD DIAGNOSIS(#80)

  • LAST EDITED:  OCT 12, 1984
  • DESCRIPTION:  
    This is the ICD9 code for the diagnosis which is the primary reason for treatment.
113.4 *X ICD9 DIAGNOSIS DATE DX2;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 05, 1984
  • DESCRIPTION:  
    This is the date the ICD9 X diagnosis was entered.
113.6 *X ICD9 DIAGNOSIS DX2;4 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  OCT 12, 1984
  • DESCRIPTION:  
    This is the ICD9 diagnosis accounting for the largest percentage of the length of stay.
115 *ICD9 DIAGNOSIS PHDX;0 POINTER Multiple #90.1 90.1

  • DESCRIPTION:  
    This is the code of the ICD9 diagnosis.
116 *PAST PRINCIPAL ICD9 DX PPDX;0 POINTER Multiple #90.16 90.16

  • DESCRIPTION:  
    This is the past ICD9 diagnosis that was the primary reason for treatment.
117 *PAST ICD9 X DIAGNOSIS XPDX;0 POINTER Multiple #90.17 90.17

  • DESCRIPTION:  
    This is the past ICD9 diagnosis code which accounted for the largest percentage of length of stay.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All