ISLetter.PosCode

Description

The code of the place of service of the sender.

Syntax

object.PosCode

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

Return Value

string

Example

Display some information about the letter, including the code of the place of service of the sender.

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

for i = 0 to aLetters.Count - 1
  set aLetter = aLetters.Item(i)
  aMessage = aMessage & vbNewLine &_
    "Letter Date: " & aLetter.Date & vbNewLine &_
    "Letter Subject: " & aLetter.Subject2 & vbNewLine &_
    "The code of the POS of the sender: " & aLetter.PosCode & vbNewLine
next

Profile.MsgBox (aMessage)

Note:

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

Version information

Added in v7.8.0