ISPatient.PhotoId

Description

It is returned as the stream, which includes the content of the patient's photo.

Syntax

object.PhotoId

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

Return Value

object

Example

Save the patient's photo, if any. Otherwise, display "Photo is not assigned for the Patient...".

Dim aPatient  
Dim aPhotoId
Dim aPhotoFileName

aPhotoFileName = "d:\PatientPhoto.bmp"  

Set aPatient = Profile.SelectPatient   
set aPhotoId  = aPatient.PhotoId
if aPhotoId is nothing then
  Profile.MsgBox ("Photo is not assigned for the Patient '" + aPatient.SurnameFirstName + "'")
else
  aPhotoId.SaveToFile aPhotoFileName
  Profile.MsgBox ("Photo for '" + aPatient.SurnameFirstName + "' is saved to file " + aPhotoFileName)
end if

Note:

In Profile Client v8 on User Interface Photo ID can be found in Patient > Alter Patient > Personal > Photo ID.

Version information

Added in v7.8.0