Sub-Field: 90.07

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

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	*PAST X DIAGNOSIS	0;1	POINTER TO DSM3 FILE (#627)	**********************REQUIRED FIELD********************** DSM3(#627) LAST EDITED: `OCT 25, 1984` `WRITE AUTHORITY: ^`
1	*PAST X DATE	0;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 10, 1984` `WRITE AUTHORITY: ^` CROSS-REFERENCE: `^^TRIGGER^90.07^2` `1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 X ^DD(90.07,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.07,1,1,1,1.4)` `1.4)= S DIH=$S($D(^MR(DIV(0),"XDX",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.07,DIG=2 D ^DICR` `:$O(^DD(DIH,DIG,1,0))>0` `2)= Q` `9.2)= S Y(1)=$S($D(D1):D1,1:"") S X=2841101 K DIC S Y=-1,DIC="^MR(D0,""XDX"",",DIC(0)="NMF" D ^DIC:D0>0 S D1=+Y,DIV(1)=+Y S Y(102)=$S($D(^MR(D0,"XDX",D1,0)):^(0),1:"")` `CREATE VALUE)= S X=DUZ` `DELETE VALUE)= NO EFFECT` `FIELD)= 111:111:DIAGNOSIS BY`
2	*DIAGNOSIS BY	0;3	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `FEB 29, 1984` `WRITE AUTHORITY:^` NOTES: `TRIGGERED by the PAST X DATE field of the PAST X DIAGNOSIS sub-field of the MEDICAL RECORD File`

*PAST X DIAGNOSIS

0;1

POINTER TO DSM3 FILE (#627)

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

*PAST X DATE

0;2

DATE

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

*DIAGNOSIS BY

0;3

POINTER TO NEW PERSON FILE (#200)

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

LAST EDITED: FEB 29, 1984
WRITE AUTHORITY:^
NOTES: TRIGGERED by the *PAST X DATE field of the *PAST X DIAGNOSIS sub-field of the MEDICAL RECORD File