ISPatientProblemLoadParams.ReferralId

Description

This parameter property is used to load the collection of patient problems the referral with the specified ID is linked to.

Syntax

object.ReferralId

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

Return Value

int

Example

Display the number of the patient problems loaded on the basis of the selected parameter, their codes, descriptions and IDs of the referrals linked to them.

Dim aPatient
Dim aReferralsFilter
Dim aReferrals
Dim aReferralId
Dim aParams
Dim aProblems, aProblem
Dim aMessage

Set aPatient = Profile.SelectPatient
set aReferralsFilter = Profile.CreateReferralsFilter

aReferralsFilter.Patient = aPatient 

set aReferrals = Profile.LoadReferrals(aReferralsFilter) 

if aReferrals.Count = 0 then
  aMessage = "No referrals"
else
  aReferralId = aReferrals.Item(0).ID
  set aParams = Profile.MakePatientProblemLoadParams
  aParams.AddProblemType(3) 'ptProcedures
  aParams.ReferralId = aReferralId
  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 & ")" &_ 
      "; ID of the linked referral: " & aProblem.ReferralId 
  next      
end if
Profile.MsgBox(aMessage)

Note: This parameter property is only used for loading the patient's problems of 'Procedures' type.

In Profile Client v8 on User Interface Referral Id cannot be found, but Referral linked to the problem can be found in Clinical > Medical Record > Problems > Open Problem > General > Referral field, in Clinical > Clinical Details > Problems > Open Problem > General > Referral field or in Patient > Cases > Clinical > Problems > Open Problem > General > Referral field, Referrals can be found in Clinical > Medical Record > Referrals.

Version information

Added in v7.8.0