This function returns True if the current organisation node contains the place of service or provider with the specified ID.
object.ContainsPPPUID(PPPUId)
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISOrgMember interface |
|
PPPUId |
In, Required | int |
ID of the provider or place of service |
bool
Load the organisation node and the provider (or POS) and display if the organisation node contains the provider (or POS).
Dim aFilter
Dim aOrgMembersA
Dim aProvider
Dim aOrgMemberA
Dim aMessage
Set aFilter = Profile.CreateOrgMembersFilter
aFilter.Code = "AUTO13"
set aOrgMembersA = Profile.LoadOrgMembers(aFilter)
if aOrgMembersA.Count = 0 then
Profile.MsgBox("There is no organisation node with the specified code")
exit sub
end if
set aProvider = Profile.LoadProvider ("VE3")
set aOrgMemberA = aOrgMembersA.Item(0)
if aOrgMemberA.ContainsPPPUID(aProvider.Id) then
Profile.MsgBox("The org member " & aOrgMemberA.Name & " contains " &_
aProvider.FullName)
else
Profile.MsgBox("The org member " & aOrgMemberA.Name & " does not contain " &_
aProvider.FullName)
end if
In Profile Client v8 on User Interface Organisational Structure Tree can be found in
.