ISHistories.GetItem

Description

This function returns the patient's history by its index.

Syntax

object.GetItem(Index)

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

Return Value

ISHistory

Returns the patient's history by its index.

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.GetItem(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