ISPatientDocument.Extension

Description

The extension of the patient's document.

Syntax

object.Extension

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

Restriction: This property is readonly.

Return Value

string

Example

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

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.Extension
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