ISPatientRule.PatientId

Description

ID of the patient whose rules are loaded.

Syntax

object.PatientId

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

Return Value

int

Example

Display the patient rules loaded by the specified patient ID, some information about them, including the full name of the patient whose rules are being loaded.

Dim aPatient
Dim aPatientId
Dim aRules
Dim aRule
Dim aMessage
Dim aProvider
Dim i

Set aPatient = Profile.SelectPatient 
aPatientId = aPatient.Id
set aRules = Profile.LoadPatientRules(aPatientId)

aMessage = "Rules Count = " & aRules.Count & vbNewLine
for i = 0 to aRules.Count - 1
  set aRule = aRules.Item(i)
  set aProvider = Profile.LoadProviderById(aRule.CreatedBy)
  aMessage = aMessage & vbNewLine & "The patient rule '" & aRule.Description &_
    "' for " & Profile.LoadPatient(aRule.PatientId).SurnameFirstName &_
    " was created on " & aRule.CreatedOn & " by " & aProvider.FullName  
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface ID cannot be found, but Patient Rules can be found in Patient > Alter Patient > Bookings > Patient Rules.

Version information

Added in v8.1.0