ISApproval.Save

Description

This function saves the created approval.

Syntax

object.Save

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

Example

Add a new approval, save it and display its ID.

Dim aPatient
Dim aNewApproval
Dim aApproval

Set aPatient = Profile.SelectPatient
set aNewApproval = Profile.CreateApproval
aNewApproval.Date = #09/09/2019#
aNewApproval.Description = "blooo"
aNewApproval.PatientId = aPatient.Id

aNewApproval.Save 

set aApproval = Profile.LoadApproval(aNewApproval.ID)

Profile.MsgBox("ID of the created approval is " & aApproval.ID)

Note:

In Profile Client v8 on User Interface Approvals can be found in Patient > Alter Patient > Approvals or in Financial > Approvals > Approvals.

Version information

Added in v7.8.0