ISDiseaseCodeLookupController.DoSearch

Description

This function returns the information about the objects linked to the disease code.

Syntax

object.DoSearch(aArea, aSubGroupID, aStr, aPreferredOnly, aOrgStructureID, aMaxCount, aIsDescriptionSearch)

Part	Attribute	Type	Description
`object`	Required	ISDiseaseCodeLookupController	The `object` always implements the ISDiseaseCodeLookupController interface
`aArea`	In, Required	TSDiseaseCodeSearchArea	The search area
`aSubGroupID`	In, Required	int	ID of the subgroup
`aStr`	In, Required	string	The search string
`aPreferredOnly`	In, Required	bool	The flag that defines loading of the preferred disease codes only
`aOrgStructureID`	In, Required	int	ID of the organisation structure
`aMaxCount`	In/Out, Required	object&	The maximum number of the loaded results
`aIsDescriptionSearch`	In, Required	bool	The flag that defines search in the objects descriptions

Return Value

ISDiseaseCodeSearchResults

Returns the information about the objects linked to the disease code.

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 aDisease
Dim i
Dim aMessage

aLookupReason = 0  'TSDiseaseCodeLookupReason.slrDiseaseCode    
aEnableSearchInTermset = True

Set aController = Profile.ProfileInternal.CreateDiseaseCodeLookupController(_
aLookupReason, aEnableSearchInTermset) 'ISDiseaseCodeLookupController

aArea = 1  'TSDiseaseCodeSearchArea.ssaDiseaseCodes    
aSubGroupID = 0                 
aStr = "HEP"
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) 'ISDiseaseCodeSearchResult
  set aDisease = aController.LoadOrCreateDiseaseCode(aResult) 'ISDiseaseCodeLookupController
     
  aMessage = aMessage & vbNewLine &_
    (i + 1) & ") " & aResult.Description & vbNewLine & vbNewLine &_
    " ID = " & aResult.ID & vbNewLine &_
    " CID = " & aResult.CID & vbNewLine &_
    " TypeID = " & aResult.TypeID & vbNewLine &_
    " IsPreferred = " & aResult.IsPreferred & vbNewLine &_
    " Code = " & aResult.Code & vbNewLine &_
    " Linked Disease Code = " & aDisease.Code & vbNewLine &_
    " Linked Disease ID = " & aDisease.Id & vbNewLine &_
    " Linked Disease Description = " & aDisease.Description & vbNewLine
next

Profile.MessageBox(aMessage)

Note:

In Profile Client v8 on User Interface Disease Codes can be found in Maintain > Disease Codes.

Version information

Added in v7.8.0

parameter aIsDescriptionSearch added in v8.5.0