ISPatientDocument.OID

Description

ID of the patient's document.

Syntax

object.OID

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

Restriction: This property is readonly.

Return Value

int

Example

Display the number of the patient's documents, their type and OID.

Dim aPatient
Dim aFilter
Dim aDocuments
Dim aDocument
Dim aMessage

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreatePatientDocumentFilter
aFilter.PatientId = aPatient.ID 
aFilter.IncludeScanDoc = True 
set aDocuments = Profile.LoadPatientDocuments(aFilter)
aMessage = "Documents Count = " & aDocuments.Count

for i = 0 to aDocuments.Count - 1
  set aDocument = aDocuments.Items(i)
  aMessage = aMessage & vbNewLine
  aMessage = aMessage & aDocument.TypeDescription  & ", " & aDocument.OID
next
  
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface OID cannot be found.

Version information

Added in v7.8.0