ISCareVisit.LetterText

Description

A letter template for each intervention template within the care plan.

Syntax

object.LetterText

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

Return Value

string

Example

Display the letter template for each intervention template within the care plan.

Dim aCarePlan
Dim aMessage
Dim aVisits
Dim aVisit

Set aCarePlan = Profile.LoadCarePlanByCode ("FLU") 
set aVisits = aCarePlan.Visits

if aVisits.Count = 0 then
  aMessage = aMessage & vbNewLine & "There are no care visits!"
else
  
  for i = 0 to aVisits.Count - 1
    set aVisit = aVisits.Item(i)
    aMessage = aMessage & vbNewLine & "The letter template " &_
    "for the intervention template '" & aVisit.Description &_
    "'" & " is  "  & vbNewLine &_
    Profile.RTF2Plain(aVisit.LetterText) & vbNewLine &_
    "________________________________________________________________________"
  next

end if       
   
Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Letter Text can be found in Maintain > Care Plans > Open Plan > Letters.

Version information

Added in v7.8.0