ISProfile.LoadApprovals

Description

This function returns the approvals loaded on the basis of the selected filter.

Syntax

object.LoadApprovals( [aFilter])

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aFilter`	In, Optional	ISApprovalsFilter	The object that defines conditions for filtering

Return Value

ISList

Returns the approvals loaded on the basis of the selected filter.

Example

Display the number of the approvals loaded on the basis of the selected filter and their descriptions.

Dim aPatient
Dim aFilter
Dim aApproval
Dim aApprovals
Dim aMessage

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateApprovalsFilter
aFilter.Patient = aPatient
set aApprovals = Profile.LoadApprovals(aFilter)

aMessage = "Approvals Count = " & aApprovals.Count
for i = 0 to aApprovals.Count - 1
  set aApproval = aApprovals.Item(i)
  aMessage = aMessage & vbNewLine & "The description of the approval is '" &_
    aApproval.Description & "'" & vbNewLine
next      

Profile.MsgBox(aMessage)

Note:

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

Version information