ISPatientDocumentFilter.CaseID

Example

Display the number, types and dates of the documents loaded on the basis of the selected filter.

Dim aPatient
Dim aCases
Dim aFirstCase
Dim aCaseID
Dim aFilter
Dim aDocuments

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateCasesFilter
aFilter.PatientId = aPatient.ID
set aCases = Profile.LoadCases(aFilter) 

if aCases.Count = 0 then
  Profile.MsgBox("No cases!")
else   
  set aFirstCase = aCases.Item(0)
  aCaseID = aFirstCase.ID 
  
  set aFilter = Profile.CreatePatientDocumentFilter

  aFilter.PatientId = aPatient.Id
  aFilter.IncludeScanDoc = false
  aFilter.CaseID = aCaseID

  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.Date
  next
  
  Profile.MsgBox(aMessage)
  
end if