ISPatient.Measures

Description

All clinical measures taken for the patient.

Syntax

object.Measures

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

Restriction: This property is readonly.

Return Value

ISCollection

Example

Display the number of all clinical measures taken for the patient, their values and modification date.

Dim aPatient  
Dim aMeasures
Dim aMeasure
Dim aMessage

Set aPatient = Profile.SelectPatient 
set aMeasures = aPatient.Measures
aMessage = "Measures Count = " & aMeasures.Count

for i = 0 to aMeasures.Count - 1
  set aMeasure = aMeasures.Item(i)
  aMessage = aMessage & vbNewLine
  aMessage = aMessage & aMeasure.GetDTModified & " " & aMeasure.AsString 
next
  
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Measures can be found in Clinical > Medical Record > Measures.

Version information

Added in v7.8.0