ISPatientVers.OrganisationID

Description

ID of the organisation which "owned" the patient in the selected patient version.

Syntax

object.OrganisationID

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

Restriction: This property is readonly.

Return Value

int

Example

Display ID of the organisation which "owned" the patient in the selected patient version.

Dim aPatient  
Dim aPatientVers
Dim aMessage  

Set aPatient = Profile.SelectPatient
set aPatientVers = aPatient.VersionOnDate(#01/01/2019#)

if aPatientVers is nothing then
  aMessage = "There are no patient versions for this date!"
    
else 

  aMessage = aMessage & vbNewLine &_
   "On 01/01/2019 ID of the organisation which 'owned' the patient was " &_ 
   aPatientVers.OrganisationID & ", " & "now ID of the organisation " &_ 
   " which 'owns' the patient is " & aPatient.OrganisationID
  
end if

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Organisation ID cannot be found.

Version information

Added in v7.8.0