Globally Unique Identifier of the patient's document.
object.GUID
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatientDocument interface |
string
Display the number of the patient's documents, their type and GUID.
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.GUID
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface GUID cannot be found.