ISDiseaseCodeSearchResults.DiseaseCodeSearchResult

Description

Each of the objects linked to the disease codes and found by the specified conditions.

Syntax

object.DiseaseCodeSearchResult(aIndex)

Part	Attribute	Type	Description
`object`	Required	ISDiseaseCodeSearchResults	The `object` always implements the ISDiseaseCodeSearchResults interface
`aIndex`	In, Required	int	The index of the search result within the collection

Restriction: This property is readonly.

Return Value

ISDiseaseCodeSearchResult

Example

Display the number of the objects linked to the disease codes and some information about them.

Dim aLookupReason
Dim aEnableSearchInTermset
Dim aController
Dim aArea   
Dim aSubGroupID                 
Dim aStr 
Dim aPreferredOnly 
Dim aOrgStructureID 
Dim aMaxCount 
Dim aIsDescriptionSearch
Dim aResult, aResults
Dim i
Dim aMessage

aLookupReason = 0  
aEnableSearchInTermset = False

set aController = Profile.ProfileInternal.CreateDiseaseCodeLookupController(_
aLookupReason, aEnableSearchInTermset) 

aArea = 1    
aSubGroupID = 0                 
aStr = "HEPA"
aPreferredOnly = False
aOrgStructureID = 0
aMaxCount = 200
aIsDescriptionSearch = False

set aResults = aController.DoSearch(aArea, aSubGroupID, aStr, aPreferredOnly,_
  aOrgStructureID, aMaxCount, aIsDescriptionSearch) 

aMessage = "The number of results is " & aResults.Count & vbNewLine

for i = 0 to aResults.Count - 1
  set aResult = aResults.DiseaseCodeSearchResult(i) 
  aMessage = aMessage & vbNewLine &_
    (i + 1) & ") ID = " & aResult.ID & vbTab &_
    " CID = " & aResult.CID & vbTab &_
    " TypeID = " & aResult.TypeID & vbTab &_
    " IsPreferred = " & aResult.IsPreferred & vbTab &_
    " CODE = " & aResult.Code & vbTab &_
    " Description = " & aResult.Description & vbTab &_
    " ExternalRefs = " & aResult.ExternalRefs
next

Profile.MessageBox(aMessage)

Note: In Profile Client v8 on User Interface Disease Code Search Results can be found in Maintain > Disease Codes.

Version information

Added in v7.8.0