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: 396.701

Package: Automated Medical Information Exchange

2507 BODY SYSTEM(#396.7)-->396.701

Sub-Field: 396.701


Information

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

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.
Info |  Details