ISProfile.LoadClaim

Description

This function returns the claim with the specified ID.

Syntax

object.LoadClaim(aClaimID)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aClaimID`	In, Required	int	ID of the claim

Return Value

ISClaim

Returns the claim with the specified ID.

Example

Display the date of the claim and the full name of the patient it was created for.

Dim aClaim
Dim aMessage

On Error Resume Next

Set aClaim = Profile.LoadClaim(17)

if Err.Number <> 0 then
  aMessage = "There is no claim with the specified ID"
else 
  aMessage = "The claim for the patient " &_
    Profile.LoadPatient(aClaim.PatientId).SurnameFirstName &_
    " was created on " & aClaim.Date 
end if

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Claims can be found in Control Centre > Financial > Claims.

Version information

Added in v8.3.16