ISProvider.GetOrgNodeWithThisClinicalPos

Description

This function returns the organisation node for each place of service.

Syntax

object.GetOrgNodeWithThisClinicalPos()

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

Return Value

ISOrgMember

Returns the organisation node for each place of service.

Example

Display the number of the children of the organisation node for each place of service.

Dim aFilter 
Dim aProviders
Dim aProvider
Dim aOrgNode
Dim aMessage

Set aFilter = Profile.CreateProvidersFilter
aFilter.Category = 3 'pcPOS
set aProviders = Profile.LoadProvidersByFilter(aFilter)

aMessage = aMessage & vbNewLine &_
  "The number of the providers is " & aProviders.Count

for each aProvider in aProviders
  set aOrgNode = aProvider.GetOrgNodeWithThisClinicalPos
  
  if aOrgNode is nothing then 
    aMessage = aMessage & vbNewLine & "The POS '" & aProvider.FullName &_
      "' has no Org Node"
  else    
    aMessage = aMessage & vbNewLine & "The POS '" & aProvider.FullName &_
      "' has no Org Node with " & aOrgNode.Children.Count & " child(children)"    
  end if
next
 
Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Organisation Node can be found in Organisation > People&Places > Organisational Structure.

Version information

Added in v7.10.90