ISHistories.Item

Description

Each of the patient's histories within the collection.

Syntax

object.Item(aIndex)

Part	Attribute	Type	Description
`object`	Required	ISHistories	The `object` always implements the ISHistories interface
`aIndex`	In, Required	int	The index of the history

Restriction: This property is readonly.

Return Value

object

Example

Display the number of the patient's histories, their types and contents.

Dim aPatient  
Dim aHistories, aHistory
Dim aMessage
Dim i

Set aPatient = Profile.SelectPatient 
set aHistories = aPatient.Histories
aMessage = "Histories Count = " & aHistories.Count

for i = 0 to aHistories.Count - 1
  set aHistory = aPatient.Histories.Item(i)
  aMessage = aMessage & vbNewLine & (i+1) & ") " & aHistory.TypeDescription & ": " &_
    aHistory.Text  
next  

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Obstetric History can be found in Clinical > Medical Record > Obstetric > Obstetric History field, Social History can be found in Clinical > Clinical Details > Family > Social History > Social History field, Past History can be found in Clinical > Clinical Details > Past History > Past History field, Family History can be found in Clinical > Clinical Details > Family > Social History > Family History field.

Version information

Added in v7.8.0