ISCaseOrg.OrgId

Description

ID of the organisation.

Syntax

object.OrgId

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

Restriction: This property is readonly.

Return Value

int

Example

Display the number of the cases loaded on the basis of the selected filter and some information about them, including the information about the involved organisations.

Dim aPatient 
Dim aFilter
Dim aCases, aCase
Dim aCaseOrganisation
Dim aOrganisation
Dim i
Dim aMessage
  
Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateCasesFilter
aFilter.Patient = aPatient
set aCases = Profile.LoadCases(aFilter)

aMessage = "The number of the cases for " & aPatient.SurnameFirstName &_ 
  " = " & aCases.Count 
  
for i = 0 to aCases.Count -1
  set aCase = aCases.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " & aCase.CaseTitle &_ 
    " was opened on " & aCase.OpenedOn 
  if aCase.Organizations.Count <> 0 then
    aMessage = aMessage & vbNewLine & "     Organisations: " 
    for each aCaseOrganisation in aCase.Organizations
      set aOrganisation = Profile.LoadPatient(aCaseOrganisation.OrgId)
      aMessage = aMessage & vbNewLine & "         - " & aOrganisation.SurnameFirstName & vbNewLine &_
        "         - Contact Email: " & aCaseOrganisation.ContactEmail & vbNewLine &_
        "         - Contact Name: " & aCaseOrganisation.ContactName & vbNewLine &_
        "         - Contact Phone: " & aCaseOrganisation.ContactPhone & vbNewLine &_
        "         - Contact position: " & aCaseOrganisation.ContactPos & vbNewLine &_
        "         - Organisation ID: " & aCaseOrganisation.OrgId & vbNewLine    
    next
  end if
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface ID cannot be found, but Organisations can be found in Organisation > Work Centre > Work > Cases > Edit Case > Administrative > Organisations.

Version information

Added in v7.8.0