ISProblemDiagnosisFilter.CaseID

Description

This filter property is used to load the diagnoses by IDs of the cases to which the diagnoses apply.

Syntax

object.CaseID

Part	Attribute	Type	Description
`object`	Required	ISProblemDiagnosisFilter	The `object` always implements the ISProblemDiagnosisFilter interface

Return Value

int

Example

Display the number of the diagnoses loaded on the basis of the selected filter, their codes and descriptions.

Dim aSelected
Dim aFilter
Dim aDiagnoses
Dim aDiagnosis
Dim aMessage

aSelected = Profile.Lookup_PatientCaseSearch(aPatientId, aCaseId, _ 
  "Select Patient and Case", true)
if not aSelected then exit sub  

Set aFilter = Profile.CreateProblemDiagnosisFilter 
aFilter.PatientId = aPatientId
aFilter.CaseID = aCaseId  
set aDiagnoses = Profile.LoadDiagnoses(aFilter)

aMessage = "Diagnoses Count = " & aDiagnoses.Count
for i = 0 to aDiagnoses.Count - 1
  set aDiagnosis = aDiagnoses.Item(i)
  aMessage = aMessage & vbNewLine & "Code: " & aDiagnosis.DxCode &_ 
    "; Description: " & aDiagnosis.DxDescription 
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Case ID cannot be found, but Case can be found in Clinical > Medical Record > Problems > Open Problem > General > Case or in Clinical > Clinical Details > Problems > Open Problem > General > Case.

Version information

Added in v7.8.0