ISClaim.GuarantorId

Description

ID of the guarantor of the claim.

Syntax

object.GuarantorId

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 guarantors' full names.

Dim aFilter
Dim aClaims, aClaim
Dim aMessage
Dim aGuarantor
Dim i

Set aFilter = Profile.CreateClaimFilter
aFilter.DateFrom = #06/08/2018#
set aClaims = Profile.LoadClaims(aFilter)   

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

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0