ISPatient.GetLetters

Description

This function returns all the patient's letters of the selected format.

Syntax

object.GetLetters(aFormat)

Part	Attribute	Type	Description
`object`	Required	ISPatient	The `object` always implements the ISPatient interface
`aFormat`	In, Required	TSLetterContentFormat	The format of the letter

Return Value

ISCollection

Returns all the patient's letters of the selected format.

Example

Display the number of letters of the selected format for the patient and list them.

Dim aPatient  
Dim aLetters
Dim aLetter
Dim aMessage

Set aPatient = Profile.SelectPatient 
set aLetters = aPatient.GetLetters(1)  'slcfRTF
aMessage = "Letters Count = " & aLetters.Count

for i = 0 to aLetters.Count - 1
  set aLetter = aLetters.Item(i)
  aMessage = aMessage & vbNewLine & aLetter.Date & ": " & aLetter.Subject2 
next 
Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0

parameter aFormat added in v7.8.0