ISPatientDocument.CID

Description

Class Identifier of the patient's document.

Syntax

object.CID

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

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.CID
next
  
Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0