ISLetter.RecalculateDefaultPrivacy

Description

This function recalculates the privacy of the letter to its default value.

Syntax

object.RecalculateDefaultPrivacy

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

Example

Recalculate the privacy of the letter to its default value.

Dim aPatient
Dim aLetters, aLetter
Dim i
Dim aMessage

Set aPatient = Profile.SelectPatient
set aLetters = aPatient.GetLetters (1) ' slcfWordRTF

aMessage =_
  "The number of the letters of the selected format is " & aLetters.Count & vbNewLine 

for i = 0 to aLetters.Count - 1
  set aLetter = aLetters.Item(i)
  aLetter.RecalculateDefaultPrivacy
  aMessage = aMessage & vbNewLine &_
    "Letter Date: " & aLetter.Date & vbNewLine &_
    "Letter Subject: " & aLetter.Subject2 & vbNewLine &_
    "Letter Privacy: " & aLetter.Privacy & vbNewLine 
next

Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Privacy can be found in Clinical > Medical Record > Documents > Open saved document > Information and Recipients > Privacy field or in Organisation > Work Centre > Communication > Letters > Open saved document > Information and Recipients > Privacy field.

Version information

Added in v7.8.0