ISClinicalViews.CaseID

Example

Display the number of the clinical views and some information about them, including their case IDs.

Dim aResult
Dim aPatient, aPatientId
Dim aCase, aCaseId, aCaseTitle  
Dim aClinicalView, aClinicalViews
Dim i
Dim aMessage


aResult = Profile.Lookup_PatientCaseSearch(aPatientId, aCaseId, _
  "Select Case for search", true)
if not aResult then exit sub

set aPatient = Profile.LoadPatient(aPatientId)
set aClinicalViews = aPatient.LoadClinicalViews
aClinicalViews.CaseId = aCaseId
aMessage = "The number of the Clinical Views is " & aClinicalViews.Count & ": " & vbNewLine

set aCase = Nothing

for i = 0 to aClinicalViews.Count - 1
  set aClinicalView = aClinicalViews.Item(i)
  
  if aClinicalView.CaseID = 0 then
    aCaseTitle = " - "
  else
    if (aCase is Nothing) then set aCase = Profile.OpenCase(aClinicalView.CaseID)
    if (aCase.Id <> aClinicalView.CaseID) then set aCase = Profile.OpenCase(aClinicalView.CaseID)
    aCaseTitle = aCase.CaseTitle
  end if
  
  aMessage = aMessage & vbNewLine &_
    (i + 1) & ") " & aClinicalView.Caption & vbNewLine &_
    " Patient: " & Profile.LoadPatient(aClinicalView.PatientId).SurnameFirstName & vbNewLine &_
    " Patient Id: " & aClinicalView.PatientId & vbNewLine &_
    " Case ID: " & aClinicalView.CaseID & vbNewLine &_
    " Case Title: " & aCaseTitle & vbNewLine &_  
    " View ID: " & aClinicalView.ViewID & vbNewLine &_
    " Clinical View Description: " & aClinicalView.Desc & vbNewLine &_
    " URL: " & aClinicalView.URL & vbNewLine   
next

Profile.MsgBox(aMessage)