ISClaim.PayerId

Description

ID of the payer of the claim.

Syntax

object.PayerId

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

Return Value

int

Example

Display the number of the claims loaded on the basis of the selected filter, their dates, time and payers' full names.

Dim aFilter
Dim aClaims, aClaim
Dim aMessage
Dim aPayer
Dim i

Set aFilter = Profile.CreateClaimFilter
aFilter.DateFrom = #06/05/2015#
set aClaims = Profile.LoadClaims(aFilter)   

aMessage = "Claims Count = " & aClaims.Count & vbNewLine &_
  "Date/Time" & vbTab & vbTab & vbTab & "Payer"
for i = 0 to aClaims.Count - 1
  set aClaim = aClaims.Item(i)
  set aPayer = Profile.PatientUtils.LoadPatientByID(aClaim.PayerId)  
  
  aMessage = aMessage & vbNewLine &_
    aClaim.Date & vbTab & vbTab & aPayer.SurnameFirstName
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Payer Id cannot be found, but Payer can be found in Organisation > Control Centre > Financial > Billing > Details > Payer.

Version information

Added in v7.8.0