ISProfile.CreateNewClaim

Description

This function creates a new claim.

Syntax

object.CreateNewClaim()

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

Return Value

ISClaim

Returns the created claim.

Example

Display the created claim and its ID.

Dim aPatient
Dim aProv
Dim aClaim
Dim aClaimLine

Set aPatient = Profile.SelectPatient
set aProv = Profile.LoadProvider("MM")

Set aClaim = Profile.CreateNewClaim
set aClaimLine = aClaim.CreateNewClaimLine
aClaimLine.Description = "ddgbesthbrfg"
aClaim.Date = #08/08/2019#
aClaim.ProviderId = aProv.Id
aClaim.GuarantorId = aProv.Id 
aClaim.PatientId = aPatient.Id
aClaim.Save

Profile.MsgBox("The claim '" & aClaimLine.Description & "' has ID = " & aClaim.ID)

Note:

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

Version information

Added in v7.8.0