Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Print Page as PDF

Sub-Field: 90.16

Package: Mental Health

MEDICAL RECORD(#90)-->90.16

Sub-Field: 90.16

Information

Parent File	Name	Number	Package
MEDICAL RECORD(#90)	*PAST PRINCIPAL ICD9 DX	90.16	Mental Health

Details

Field # Name Loc Type Details

*PAST PRINCIPAL ICD9 DX

0;1

POINTER TO ICD DIAGNOSIS FILE (#80)

************************REQUIRED FIELD************************

ICD DIAGNOSIS(#80)

LAST EDITED: OCT 25, 1984
WRITE AUTHORITY: ^

*DATE PAST PRINCIPAL ICD9 DX

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.16^2
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 X ^DD(90.16,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.16,1,1,1,1.4)
1.4)= S DIH=$S($D(^MR(DIV(0),"PPDX",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.16,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=2841106 K DIC S Y=-1,DIC="^MR(D0,""PPDX"",",DIC(0)="NMF" D ^DIC:D0>0 S D1=+Y,DIV(1)=+Y S Y(102)=$S($D(^MR(D0,"PPDX",D1,0)):^(0),1:"")
CREATE VALUE)= S X=DUZ
DELETE VALUE)= NO EFFECT
FIELD)= 116:116:ICD9 DIAGNOSIS BY

*ICD9 DIAGNOSIS BY

0;3

POINTER TO NEW PERSON FILE (#200)

NEW PERSON(#200)

LAST EDITED: OCT 05, 1984
WRITE AUTHORITY:^
NOTES: TRIGGERED by the *DATE PAST PRINCIPAL ICD9 DX field of the *PAST PRINCIPAL ICD9 DX sub-field of the MEDICAL RECORD File