This parameter property is used to load the collection of patient problems including the deleted ones.
object.IncludeDeleted
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatientProblemLoadParams interface |
bool
Display the number of the patient's problems loaded on the basis of the selected parameter, their codes and descriptions.
Dim aPatient
Dim aParams
Dim aProblems
Dim aProblem
Dim aMessage
Set aPatient = Profile.SelectPatient
set aParams = Profile.MakePatientProblemLoadParams
aParams.PatientID = aPatient.ID
aParams.IncludeDeleted = True
set aProblems = Profile.LoadPatientProblems(aParams)
aMessage = "The number of the patient's diagnoses = " & aProblems.Count &_
" (including deleted: " & aParams.IncludeDeleted & ")"
for i = 0 to aProblems.Count - 1
set aProblem = aProblems.Item(i)
aMessage = aMessage & vbNewLine & (i + 1) & ") " & "Code: " & aProblem.DxCode &_
" (Description: " & aProblem.DxDescription & ")"
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Deleted problems cannot be found.