ISPatientUtils.LoadCommonPayers

Description

This function returns common payers.

Syntax

object.LoadCommonPayers()

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

Return Value

ISPatients

Returns the number of the common payers and their full names.

Example

Display the number of the common payers and their full names.

Dim aPayers, Payer
Dim aMessage
Dim i

Set aPayers = Profile.PatientUtils.LoadCommonPayers
aMessage = "The number of common payers is: " & aPayers.Count & vbNewLine

for i = 0 to aPayers.Count - 1
  set aPayer = aPayers.Item(i)
  aMessage = aMessage & vbNewLine &_
    (i + 1) & ") " & aPayer.SurNameFirstName
next 

Profile.MsgBox(aMessage)

Note: The 'Appears for all' checkbox in Financial/Payers should be checked to make the payer visible.

In Profile Client v8 on User Interface Common Payers can be found in Financial > Payers.

Version information

Added in v7.8.0