ISPatientSMS.PosID

Description

ID of the place of service where the patient's SMS message was sent from.

Syntax

object.PosID

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

Restriction: This property is readonly.

Return Value

int

Example

Send a new SMS message, display its text and POS.

Dim aPatient
Dim aPhoneNumber
Dim aPatientSms
Dim aPos
Dim aMessage 

Set aPatient = Profile.SelectPatient
aPhoneNumber = aPatient.CellPhone
 
set aPatientSms = Profile.SendPatientSMS(aPatient.ID, aPhoneNumber, "Hello!") 

if aPatientSms.PosId > 0 then 
  set aPos = Profile.LoadProviderById(aPatientSms.PosId)
  aMessage = "Text: " & aPatientSms.Text & " (POS: " &_ 
    aPos.FullName & ")" 
else 
  aMessage = "Text: " & aPatientSms.Text & " (No POS)"         
end if
  
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface POS ID cannot be found, but POS can be found in Organisation > Control Centre > Manage > SMS Log > POS.

Version information

Added in v7.8.0