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

Package: IHS Patient

V PATHOLOGY(#9000010.24)-->9000010.2423

Sub-Field: 9000010.2423


Information

Parent File Name Number Package
V PATHOLOGY(#9000010.24) ETIOLOGY 9000010.2423 IHS Patient

Details

Field # Name Loc Type Details
.01 ETIOLOGY 0;1 POINTER TO ETIOLOGY FIELD FILE (#61.2) ETIOLOGY FIELD(#61.2)

  • LAST EDITED:  FEB 08, 1993
  • CROSS-REFERENCE:  9000010.2423^B
    1)= S ^AUPNVPTH(DA(1),23,"B",$E(X,1,30),DA)=""
    2)= K ^AUPNVPTH(DA(1),23,"B",$E(X,1,30),DA)
.019 SNOMED CODE COMPUTED

  • MUMPS CODE:  X ^DD(9000010.2423,.019,9.3) S X=$P(Y(9000010.2423,.019,101),U,2) S D0=Y(9000010.2423,.019,80) S D1=Y(9000010.2423,.019,81)
    9.2 = S Y(9000010.2423,.019,81)=$S($D(D1):D1,1:""),Y(9000010.2423,.019,80)=$S($D(D0):D0,1:""),Y(9000010.2423,.019,1)=$S($D(^AUPNVPTH(D0,23,D1,0)):^(0),1:"")
    9.3 = X ^DD(9000010.2423,.019,9.2) S D0=$P(Y(9000010.2423,.019,1),U,1) S:'$D(^LAB(61.2,+D0,0)) D0=-1 S Y(9000010.2423,.019,101)=$S($D(^LAB(61.2,D0,0)):^(0),1:"")
  • ALGORITHM:  #.01:2
Info |  Details |  All