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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | 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: 12

Package Total Routines
Mental Health 11 *DSM-III DIAGNOSIS    *DSM-III QUALIFIER DATE    *ICD9 DIAGNOSIS    *ICD9 QUALIFIER DATE    *PAST ICD9 X DIAGNOSIS    *PAST PRINCIPAL DX    *PAST PRINCIPAL ICD9 DX    PHY
^MR    ^YSG("INP"    *PAST X DIAGNOSIS    
Health Summary 1 GMTSMHPE    

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.

External References

Name Field # of Occurrence
^%DT 101+1, 102.4+1, 105+1, 108+1, 112+1, 113.4+1
NOW^%DTC 104(XREF 1S), 107(XREF 1S)
^DICR 104(XREF 1n1.4), 104(XREF 2n1.4), 107(XREF 1n1.4), 107(XREF 2n1.4)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( 104(XREF 1n1.4), 104(XREF 2n1.4), 107(XREF 1n1.4), 107(XREF 2n1.4)
^DD(90 104(XREF 1S), 104(XREF 2S), 107(XREF 1S), 107(XREF 2S)
^MR - [#90] 104(XREF 1S), 104(XREF 1n1.4), 104(XREF 2S), 104(XREF 2n1.4), 107(XREF 1S), 107(XREF 1n1.4), 107(XREF 2S), 107(XREF 2n1.4)
^MR("B" .01(XREF 1S), .01(XREF 1K)

Naked Globals

Name Field # of Occurrence
^("DXM" 104(XREF 1S), 104(XREF 1n1.4), 104(XREF 2S), 104(XREF 2n1.4), 107(XREF 1S), 107(XREF 1n1.4), 107(XREF 2S), 107(XREF 2n1.4)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% 104(XREF 1S), 104(XREF 1n1.4), 104(XREF 2n1.4), 107(XREF 1S), 107(XREF 1n1.4), 107(XREF 2n1.4)
>> %DT 101+1*, 102.4+1*, 105+1*, 108+1*, 112+1*, 113.4+1*
%H 104(XREF 1S), 107(XREF 1S)
%I 104(XREF 1S), 107(XREF 1S)
>> D0 104(XREF 1S), 104(XREF 2S), 107(XREF 1S), 107(XREF 2S)
>> DA .01(XREF 1S), .01(XREF 1K), 104(XREF 1S), 104(XREF 2S), 107(XREF 1S), 107(XREF 2S)
>> DIG 104(XREF 1n1.4), 104(XREF 2n1.4), 107(XREF 1n1.4), 107(XREF 2n1.4)
>> DIH 104(XREF 1n1.4), 104(XREF 2n1.4), 107(XREF 1n1.4), 107(XREF 2n1.4)
>> DINUM .01+1*
>> DIU 104(XREF 1S), 104(XREF 2S), 107(XREF 1S), 107(XREF 2S)
DIV 104(XREF 1S), 104(XREF 1n1.4), 104(XREF 2S), 104(XREF 2n1.4), 107(XREF 1S), 107(XREF 1n1.4), 107(XREF 2S), 107(XREF 2n1.4)
DIV(0 104(XREF 1S), 104(XREF 1n1.4), 104(XREF 2S), 104(XREF 2n1.4), 107(XREF 1S), 107(XREF 1n1.4), 107(XREF 2S), 107(XREF 2n1.4)
DUZ 104(XREF 2S), 107(XREF 2S)
U 104(XREF 1S), 104(XREF 1n1.4), 104(XREF 2S), 104(XREF 2n1.4), 107(XREF 1S), 107(XREF 1n1.4), 107(XREF 2S), 107(XREF 2n1.4)
X .001+1!, .01+1, .01(XREF 1S), .01(XREF 1K), 101+1*!, 102.4+1*!, 104(XREF 1S), 104(XREF 1n1.4), 104(XREF 2S), 104(XREF 2n1.4)
, 105+1*!, 107(XREF 1S), 107(XREF 1n1.4), 107(XREF 2S), 107(XREF 2n1.4), 108+1*!, 112+1*!, 113.4+1*!
Y 101+1, 102.4+1, 104(XREF 1S), 104(XREF 2S), 105+1, 107(XREF 1S), 107(XREF 2S), 108+1, 112+1, 113.4+1
Y(1 104(XREF 1S), 104(XREF 2S), 107(XREF 1S), 107(XREF 2S)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All