ISCDOPreference.Concept

Example

Display some information about the measure, including the measure item to be added.

Dim aConcept, aConceptID
Dim aTermsetCode  
Dim aConceptCode
Dim aPatient, aPatientID
Dim aProfileInternal
Dim aCDOPreference
Dim aMessage

aTermsetCode = "IH"
aConceptCode = "z..2T"  
Set aConcept = Profile.Concept(aTermsetCode, aConceptCode)

if aConcept is nothing then 
  Profile.MsgBox("There is no concept with the specified codes")
  exit sub
end if
                                                                
aConceptID = aConcept.ID

set aPatient = Profile.SelectPatient
aPatientID = aPatient.ID

set aProfileInternal = Profile.ProfileInternal
set aCDOPreference = aProfileInternal.GetCDOPreferenceByConceptID(aConceptID, aPatientID)

if not aCDOPreference is nothing then 
  aMessage = _
    "Concept: " & aCDOPreference.Concept.Name & vbNewLine &_ 
    "Min: " & aCDOPreference.Min & vbNewLine &_ 
    "Max: " & aCDOPreference.Max & vbNewLine
    
  if not aCDOPreference.PhysUnit is nothing then
    aMessage = aMessage & "Physical Unit: " & aCDOPreference.PhysUnit.Name
  else
    aMessage = aMessage & "Physical Unit: -"
  end if
else
  aMessage = "Thete is no CDO Preference with the specified ID"
end if  
  
Profile.MsgBox(aMessage)