ISPatient.UnbilledServices

Description

All unbilled services of the patient, created from an encounter.

Syntax

object.UnbilledServices

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

Restriction: This property is readonly.

Return Value

ISContactLinks

Example

Display the date, description and amount of all unbilled services of the patient.

Dim aPatient  
Dim aUnbilledServices
Dim aUnbilledService
Dim aMessage

Set aPatient = Profile.SelectPatient
aUnbilledServices = aPatient.UnbilledServices.Count
aMessage = "Unbilled Services Count = " & aUnbilledServices

for i = 0 to aUnbilledServices - 1
  set aUnbilledService = aPatient.UnbilledServices.Item(i)
  aMessage = aMessage & vbNewLine 
  aMessage = aMessage & aUnbilledService.Date & ", "
  aMessage = aMessage & "'" & aUnbilledService.Description & "'" & ", "
  aMessage = aMessage & "Amount = " & aUnbilledService.Amount 
next

Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Unbilled Services can be found in Patient > Alter Patient > Billable.

Version information

Added in v7.8.0