ISPatient.MakePayment

Description

This function creates a new payment of the patient.

Syntax

object.MakePayment()

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

Return Value

ISPayment

Returns the created payment.

Example

Create a new payment of the patient with the specified amount, date and the selected provider.

Dim aPatient  
Dim aPayment

Set aPatient = Profile.SelectPatient
set aPayment = aPatient.MakePayment
aPayment.Amount = 15
aPayment.Date = now
aPayment.PaymentProviderId = CurrentUserId 
aPayment.Save
Profile.MsgBox("New payment was created successfully!")

Note:

In Profile Client v8 on User Interface Payment can be created in Patient > Alter Patient > Transactions > New Paymentor in Financial > Payment.

Version information

Added in v7.8.0