ISProfile.Lookup_PatientCaseSearch

Description

This function opens the patient case selection dialog and returns the search result and the selected patient and case IDs.

Syntax

object.Lookup_PatientCaseSearch(aPatientID, aCaseID, aTitle, aForCaseMenu)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aPatientID`	Out, Required	object&	ID of the patient
`aCaseID`	Out, Required	object&	ID of the case
`aTitle`	In, Required	string	The title of the dialog
`aForCaseMenu`	In, Required	bool	Use forced case selection

Return Value

bool

Returns the search result and the selected patient and case IDs.

Example

Display the number of the clinical views and some information about them.

Dim aResult
Dim aPatient, aPatientId
Dim aCaseId  
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

for i = 0 to aClinicalViews.Count - 1
  set aClinicalView = aClinicalViews.Item(i)
  aMessage = aMessage & vbNewLine &_
  (i + 1) & ") " & aClinicalView.Caption & vbNewLine &_
  " PatientId: " & aClinicalView.PatientId & vbNewLine &_
  " CaseID: " & aClinicalView.CaseID & vbNewLine &_
  " ViewID: " & aClinicalView.ViewID & vbNewLine &_
  " Desc: " & aClinicalView.Desc & vbNewLine &_
  " URL: " & aClinicalView.URL & vbNewLine   
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Lookup Patient Case Search cannot be found.

Version information

Added in v7.8.0