ISProfile.CreateApproval

Description

This function creates a new approval.

Syntax

object.CreateApproval()

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

Return Value

ISApproval

Returns the created approval.

Example

Add a new approval 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.

Version information

Added in v7.8.0