ISCDOPreference.PhysUnit

Example

Display some information about the measure, including its physical unit.

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)