Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 90.17

Package: Mental Health

MEDICAL RECORD(#90)-->90.17

Sub-Field: 90.17


Information

Parent File Name Number Package
MEDICAL RECORD(#90) *PAST ICD9 X DIAGNOSIS 90.17 Mental Health

Details

Field # Name Loc Type Details
.01 *PAST ICD9 X DIAGNOSIS 0;1 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  OCT 25, 1984
    WRITE AUTHORITY: ^
1 *PAST ICD9 X DATE 0;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 10, 1984
    WRITE AUTHORITY: ^
  • CROSS-REFERENCE:  ^^TRIGGER^90.17^2
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 X ^DD(90.17,1,1,1,9.2) S X=$P($G(^VA(200,+$P(Y(102),U,3),0)),U) S D1=Y(1) S DIU=X K Y S X=DIV S X=DUZ X ^DD(90.17,1,1,1,1.4)
    1.4)= S DIH=$S($D(^MR(DIV(0),"XPDX",DIV(1),0)):^(0),1:""),DIV=X I $D(^(0)) X "F %=0:0 Q:$L($P(DIH,U,2,99)) S DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=90.17,DIG=2 D ^DIC
    R:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    9.2)= S Y(1)=$S($D(D1):D1,1:"") S X=2841107 K DIC S Y=-1,DIC="^MR(D0,""XPDX"",",DIC(0)="NMF" D ^DIC:D0>0 S D1=+Y,DIV(1)=+Y S Y(102)=$S($D(^MR(D0,"XPDX",D1,0)):^(0),1:"")
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= 117:117:ICD9 X DIAGNOSIS BY
2 *ICD9 X DIAGNOSIS BY 0;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 05, 1984
    WRITE AUTHORITY:^
  • NOTES:  TRIGGERED by the *PAST ICD9 X DATE field of the *PAST ICD9 X DIAGNOSIS sub-field of the MEDICAL RECORD File
Info |  Details