ISPatientDocuments.Items

Description

Each of the documents within the patient's documents.

Syntax

object.Items(aIndex)

Part	Attribute	Type	Description
`object`	Required	ISPatientDocuments	The `object` always implements the ISPatientDocuments interface
`aIndex`	In, Required	int	The index of the document

Restriction: This property is readonly.

Return Value

ISPatientDocument

Example

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

Dim aPatient
Dim aFilter
Dim aDocuments
Dim aDocument
Dim aMessage

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreatePatientDocumentFilter
aFilter.PatientId = aPatient.ID 
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.Date & ", " & aDocument.TypeDescription 
next
  
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Documents can be found in Clinical > Medical Record > Documents.

Version information

Added in v7.8.0