Sub-Field: 396.701

Parent File	Name	Number	Package
2507 BODY SYSTEM(#396.7)	*RELATED DISABILITIES	396.701	Automated Medical Information Exchange

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	*RELATED DISABILITIES	0;1	POINTER TO DISABILITY CONDITION FILE (#31)	DISABILITY CONDITION(#31) LAST EDITED: `APR 11, 1997` CROSS-REFERENCE: `396.701^B` `1)= S ^DVB(396.7,DA(1),1,"B",$E(X,1,30),DA)=""` `2)= K ^DVB(396.7,DA(1),1,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `396.701^AC^MUMPS` `1)= I $D(^DVB(396.7,DA(1),1,DA,0)) N DVBA,X S DVBA=$P(^(0),U,1) I DVBA'="" S %="^DIC(31,""ADVB"",I,DVBA,""DVB(396.7"",DA(1),DA)",X=$P(^DVB(396.7,DA(1),0),U,1) D S^XTLKWIC` `2)= I $D(^DVB(396.7,DA(1),1,DA,0)) N DVBA,X S DVBA=$P(^(0),U,1) I DVBA'="" S %="^DIC(31,""ADVB"",I,DVBA,""DVB(396.7"",DA(1),DA)",X=$P(^DVB(396.7,DA(1),0),U,1) D K^XTLKWIC` `This cross reference is to help seed the MTLU look up cross reference on file 31.`

*RELATED DISABILITIES

0;1

POINTER TO DISABILITY CONDITION FILE (#31)

LAST EDITED: APR 11, 1997
CROSS-REFERENCE: 396.701^B
1)= S ^DVB(396.7,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^DVB(396.7,DA(1),1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 396.701^AC^MUMPS
1)= I $D(^DVB(396.7,DA(1),1,DA,0)) N DVBA,X S DVBA=$P(^(0),U,1) I DVBA'="" S %="^DIC(31,""ADVB"",I,DVBA,""DVB(396.7"",DA(1),DA)",X=$P(^DVB(396.7,DA(1),0),U,1) D S^XTLKWIC
2)= I $D(^DVB(396.7,DA(1),1,DA,0)) N DVBA,X S DVBA=$P(^(0),U,1) I DVBA'="" S %="^DIC(31,""ADVB"",I,DVBA,""DVB(396.7"",DA(1),DA)",X=$P(^DVB(396.7,DA(1),0),U,1) D K^XTLKWIC
This cross reference is to help seed the MTLU look up cross reference on file 31.