ISDiseaseCodeLookupController.LoadOrCreateDiseaseCodeByResultID

Description

This function returns the existed or created disease code linked to the object with the specified ID and type.

Syntax

object.LoadOrCreateDiseaseCodeByResultID(aResultTypeID, aResultID)

Part	Attribute	Type	Description
`object`	Required	ISDiseaseCodeLookupController	The `object` always implements the ISDiseaseCodeLookupController interface
`aResultTypeID`	In, Required	int	Class ID of the object linked to the disease code
`aResultID`	In, Required	int	ID of the object linked to the disease code

Return Value

ISDisease

Returns the existed or created disease code linked to the object with the specified ID and type.

Example

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

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.LoadOrCreateDiseaseCodeByResultID(aResult.TypeId, aResult.Id)
  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 > Code.

Version information

Added in v7.8.0