ISPatientProblemLoadParams.SourceRef

Description

This parameter property is used to load the collection of patient problems by the specified source reference.

Syntax

object.SourceRef

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

Return Value

string

Example

Display the number of the patient problems loaded on the basis of the selected parameter, their codes, descriptions and source refs.

Dim aPatient
Dim aNewProblem
Dim aParams
Dim aProblems, aProblem
Dim aMessage

Set aPatient = Profile.SelectPatient
set aNewProblem = aPatient.AddProblem(1) 'ptDiagnosis
aNewProblem.DxCode = "LETH"
aNewProblem.Save
aNewProblem.SourceRef = "MySourceRef " & aNewProblem.ID
aNewProblem.Save

Set aParams = Profile.MakePatientProblemLoadParams 
aParams.SourceRef = aNewProblem.SourceRef
aParams.SourceRefLoadKind = 4 'sflkContains
set aProblems = Profile.LoadPatientProblems(aParams)

aMessage = "Problems Count = " & aProblems.Count
for i = 0 to aProblems.Count - 1
  set aProblem = aProblems.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " & "Code: " & aProblem.DxCode &_
    " (Description: " & aProblem.DxDescription & "); Source Ref = " & aProblem.SourceRef 
next      

Profile.MsgBox(aMessage)

Note: If no other problem types are specified, only problems of 'Diagnosis' type will be loaded on the basis of the selected parameter.

In Profile Client v8 on User Interface Source Ref cannot be found.

Version information

Added in v7.8.0