ISPatient.LoadPrincipalProvisionalDiagnoses

Description

This function returns the diagnoses with principal and provisional nature by the selected case ID of the patient.

Syntax

object.LoadPrincipalProvisionalDiagnoses(aCaseID)

Part	Attribute	Type	Description
`object`	Required	ISPatient	The `object` always implements the ISPatient interface
`aCaseID`	In, Required	int	ID of the patient's case

Return Value

ISProblemList

Example

Display the number of the principal and provisional diagnoses for the selected case and list their codes and descriptions.

Dim aPatient  
Dim aDiagnoses
Dim aDiagnosis
Dim aFilter
Dim aCases
Dim aFirstCase
Dim aCaseID
Dim aMessage

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 aDiagnoses = aPatient.LoadPrincipalProvisionalDiagnoses(aCaseID)
  aMessage = "Principal and Provisional Diagnoses Count = " & aDiagnoses.Count
    
  for i = 0 to aDiagnoses.Count - 1
    set aDiagnosis = aDiagnoses.Item(i)
    aMessage = aMessage & vbNewLine
    aMessage = aMessage & aDiagnosis.DxCode & ", "
    aMessage = aMessage & aDiagnosis.DxDescription
  next
  
  Profile.MsgBox(aMessage)

end if

Note:

In Profile Client v8 on User Interface Principal and Provisional Diagnoses can be found in Clinical > Medical Record > Problems > Diagnosis.

Version information

Added in v7.8.0