This function adds a link to the message.
| CID | ID | ExtraID | Comment |
| cidPatient = 11001 | Id of the patient | - | Add link to the patient |
| cidProblem = 11007 | Id of the patient | Id of the patient problem | Add link to the patient problem |
| cidCase = 11012 | Id of the patient case | Id of the patient | Add link to the patient case |
| cidExternalProvider = 11002 | Id of the external provider | - | Add link to the external provider |
| cidContact = 11006 | Id of the patient | Id of the contact | Add link to the contact |
| cidProcedure = 1550 | Id of the procedure | - | Add link to the procedure |
| cidStoredReport = 11200 | Id of the report | - | Add link to the report |
| cidRecall = 11009 | Id of the patient | Id of the recall | Add link to the recall |
| cidProvider = 11008 | Id of the provider | - | Add link to the provider |
| cidScript = 11010 | Id of the patient | Id of the script | Add link to the script |
| cidForm = 11003 | Id of the form | - | Add link to the form |
| cidReferral = 11013 | Id of the referral | - | Add link to the referral |
| cidLetter = 11014 | Id of the letter | - | Add link to the letter |
object.AddLink aCID,
aOID, aText[, aExtraId = 0]
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISMessage interface |
|
aCID |
In, Required | int |
CID of the object that is added to the
message |
aOID |
In, Required | int |
ID of the object that is added to the
message |
aText |
In, Required | string |
The text of the link |
aExtraId |
In, Optional Default value is 0 |
int |
Additional ID |
Add a reference for a patient into the message and display some information about the sent message.
Dim aMes
Dim aMessageRecipients
Dim aPatient
Dim aCID
Dim aPatientId
Dim aText
Dim aExtraId
Set aMes = Profile.CreateMessage
aMes.Text = aMes.AddText("Hello! Come to my birthday party!" & vbNewLine)
aMes.Subject = "Birthday party"
set aMessageRecipients = aMes.Recipients
set aPatient = Profile.SelectPatient
if aPatient.Email <> "" then
aMessageRecipients.AddPatient(aPatient)
aCID = 11001
aPatientId = aPatient.Id
aText = aPatient.SurnameFirstName
aExtraId = 0
aMes.AddLink aCID, aPatientId, aText, aExtraId
else
Profile.MsgBox("The massage cannot be sent, because the patient has no email")
exit sub
end if
aMes.Send
Profile.MsgBox("The message with the text " & vbNewLine & "'" & aMes.Text &_
"'" & vbNewLine & "was sent ") In Profile Client v8 on User Interface Link can be added in .