ISDiseaseCodeLookupController.LoadOrCreateDiseaseCode

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)