ISProfileForm.FindLinkedEncounterViaActionLinks

Description

This function finds the encounter the form is linked to via the action links.

Syntax

object.FindLinkedEncounterViaActionLinks()

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

Return Value

ISEncounter

Returns the encounter the form is linked to via the action links.

Example

Find the encounter the form is linked to via the action links and display some information about it.

Dim aForm
Dim aFormInfo
Dim aLinkedEncounter

Set aForm = Profile.Form
set aLinkedEncounter = aForm.FindLinkedEncounterViaActionLinks

aFormInfo =_
  "Short Name: " & aForm.ShortName & vbNewLine &_
  "TypeName: " & aForm.TypeName & vbNewLine
  
if aLinkedEncounter is nothing then 
  aFormInfo = aFormInfo & "No Linked Encounter"
else    
  aFormInfo = aFormInfo &  "Form Linked Encounter: " & vbNewLine &_
    "    Encounter ID: " & aLinkedEncounter.ID & vbNewLine &_
    "    Encounter Date: " & aLinkedEncounter.Date
end if
Profile.MsgBox(aFormInfo)

Note: This macro should be executed in any event handler of the form control.

In Profile Client v8 on User Interface CDO Forms can be found in Case Clinical > Forms.

Version information

Added in v7.8.0