ISPatient.ServiceRate

Description

Rate at which the patient will normally be charged, if applicable.

Syntax

object.ServiceRate

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

Return Value

ISShortCode

Example

Display the patient's rate.

Dim aPatient  
Dim aServiceRate

Set aPatient = Profile.SelectPatient
set aServiceRate = aPatient.ServiceRate

if aServiceRate is nothing then
  Profile.MsgBox ("No service rate is selected")
  exit sub
end if
  
Profile.MsgBox ("The service rate of the patient is " & aServiceRate.Description)

Note:

In Profile Client v8 on User Interface Service Rate can be found in Patient > Alter Patient > Financial > Rate field.

Version information

Added in v7.8.0