ISProfile.CreateCDOFormHost

Description

This function creates the tool set which allows to work with CDO forms using XML and JSON.

Syntax

object.CreateCDOFormHost()

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

Return Value

ISCDOFormHost

Returns the tool set which allows to work with CDO forms using XML and JSON.

Example

Display the short information about the form templates, which are allowed in Aero & Accession preferences for the patient, provider and external provider.

sub main
  Dim aHost
  Dim aList
  Dim aLayout
  Dim aMessage
  
  Set aHost = Profile.CreateCDOFormHost
  aLayout = 0
  
  set aList = aHost.GetAccessionPatientTemplateList(0, aLayout)
  aMessage = GetPrefsInfo(aList, "Patient prefs")
  set aList = aHost.GetAccessionProviderTemplateList(aLayout)
  aMessage = aMessage & GetPrefsInfo(aList, "Provider prefs")
  set aList = aHost.GetAccessionExtProviderTemplateList(aLayout)
  aMessage = aMessage & GetPrefsInfo(aList, "Ext Provider prefs")
  Profile.MsgBox(aMessage)
end sub

function GetPrefsInfo(aList, aCaption)
  Dim aText
  
  aText = aCaption & ":" & vbCrLf
  for i = 0 to aList.Count - 1
    aText = aText & aList.Item(i) & "  (" & aList.Data(i) & ")" & vbCrLf
  next
  aText = aText & vbNewLine & "----------------------------- " & vbNewLine
  GetPrefsInfo = aText
end function

Note:

In Profile Client v8 on User Interface patient's CDO Forms can be found in Clinical > Review Forms > Forms.

Version information

Added in v7.8.0