ISSignature.GetParentForm

Description

This function returns the parent form of the specified signature control.

Syntax

object.GetParentForm( [aFormTypeName])

Part	Attribute	Type	Description
`object`	Required	ISSignature	The `object` always implements the ISSignature interface
`aFormTypeName`	Optional	string	The name of the form type

Return Value

ISProfileForm

Returns the parent form of the specified signature control.

Example

Display the short name of the form for the control and some information of all parent controls in the hierarchical tree starting from the specified signature control.

sub main()
  Dim aControl
  Dim aSignature
  Dim aControlInfo
  Dim aForm

  Set aSignature = Form.Controls_("Signature1")

  set aForm = aSignature.GetParentForm("TIVisualForm")
  aControlInfo = "Parent Form: " & aForm.ShortName  & vbNewLine & vbNewLine

  set aControl = aSignature
  do while not aControl is nothing
    aControlInfo = aControlInfo &_
      "ShortName: " & aControl.ShortName & vbNewLine &_
      "TypeName: " & aControl.TypeName & vbNewLine &_
      "---------" & vbNewLine
    set aControl = aControl.Parent
  loop  
  
  Profile.MsgBox(aControlInfo)
end sub

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

In Profile Client v8 on User Interface Parent Form can be found in Maintain > Templates > Health Record Collection Templates > Open the selected form template > Open form editor > Object Inspector.

Version information

Added in v8.5.0