ISPatientProblemLoadParams.DiseaseConceptCode

Description

This parameter property is used to load the collection of patient problems by the specified disease concept code.

Syntax

object.DiseaseConceptCode

Part	Attribute	Type	Description
`object`	Required	ISPatientProblemLoadParams	The `object` always implements the ISPatientProblemLoadParams interface

Return Value

string

Example

Display the number of the patient problems loaded on the basis of the selected parameter, their codes and descriptions.

Dim aParams
Dim aProblems, aProblem
Dim aMessage

Set aParams = Profile.MakePatientProblemLoadParams
aParams.DiseaseTermsetCode = "IH"
aParams.DiseaseConceptCode = "z..2b"
aParams.DiseaseConceptChildSearchDepth = 5 'Search the concepts using 5 levels below the specified concept
set aProblems = Profile.LoadPatientProblems(aParams)

aMessage = "Problems Count = " & aProblems.Count
for i = 0 to aProblems.Count - 1
  set aProblem = aProblems.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " & "Code: " & aProblem.DxCode &_
    " (Description: " & aProblem.DxDescription & ")" 
next      

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v8.2.0