ISApproval.AddLink

Description

This function adds a link to the approval.

Syntax

object.AddLink aCID, aOID

Part	Attribute	Type	Description
`object`	Required	ISApproval	The `object` always implements the ISApproval interface
`aCID`	In, Required	int	CID of the object that is added to the approval
`aOID`	In, Required	int	ID of the object that is added to the approval

Example

Link the CDO form with the specified concept to the approvals loaded on the basis of the selected filter.

Dim aPatient
Dim aFilter
Dim aApproval
Dim aApprovals
Dim aMessage
Dim i, j
Dim aCdoForm, aCdoForms

Set aPatient = Profile.SelectPatient                        
set aFilter = Profile.CreateCdoFormFilter
aFilter.PatientId = aPatient.Id
set aCdoForms = Profile.LoadCdoForms(aFilter) 

set aFilter = Profile.CreateApprovalsFilter
aFilter.Patient = aPatient
set aApprovals = Profile.LoadApprovals(aFilter)
aMessage = aMessage & vbNewLine & "Approvals Count = " & aApprovals.Count
  
aMessage = "CDO Forms Count = " & aCdoForms.Count & vbNewLine 
for i = 0 to aCdoForms.Count - 1
  set aCdoForm = aCdoForms.Item(i)

  if aCdoForm.TermsetCode = "IH" and aCdoForm.ConceptCode = "z..11" then
    for j = 0 to aApprovals.Count - 1
      set aApproval = aApprovals.Item(j)
      aApproval.AddLink aCdoForm.TypeId, aCdoForm.Id
      aMessage = aMessage & vbNewLine & "The link '" & aCdoForm.Name &_
        "' was added successfully to the approval " & aApproval.Description
    next 'j
  end if    
next 'i    

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Link can be found and added in Patient > Alter Patient > Approvals > Date or in Financial > Approvals > Approvals > Open selected approval > Attachments > Add attachment.

Version information

Added in v7.10.50