ISContact.SetAnnotationRtf

Description

This function sets the annotation text for the contact.

Syntax

object.SetAnnotationRtf aText

Part	Attribute	Type	Description
`object`	Required	ISContact	The `object` always implements the ISContact interface
`aText`	In, Required	string	The text of the contact in the RTF format

Example

Display some information about the contacts of patient's encounters, including the annotations.

Dim aPatient
Dim aPatientId
Dim aCurrentPOSId
Dim aUserId
Dim aParam 
Dim aContact
Dim aDate

Set aPatient = Profile.SelectPatient
aPatientId = aPatient.ID
aCurrentPOSId = Profile.CurrentPOSId 
aUserId = Profile.CurrentUserId
  
set aParam = Profile.CreateNewContactParamObj(aCurrentPOSId, aUserId, aPatientID)             
set aContact = Profile.CreatePatientContact(aParam)

aHTML = "The weather was good:<br>" &_ 
  "the sun was shining<br>" 

aRTF = Profile.ProfileInternal.Html2Rtf(aHTML)

aContact.SetAnnotationRtf(aRTF)
                                                                  
aDate = Now                                                    

aContact.Date = aDate                                             
aContact.Time = aDate
aContact.DiagnosisDescription = "Patient's measures on " & aDate

aContact.Encounter.DateTime = aDate                                     

Profile.MsgBox("The contact with the specified annotation text was created")

Note:

In Profile Client v8 on User Interface Annotation can be found in Clinical > Medical Record > Encounters > Open Encounter > Notes.

Version information

Added in v7.8.0