ISProfile.LoadInternalReferrals

Description

This function returns case sub-referrals by the specified filter.

Syntax

object.LoadInternalReferrals(aFilter)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aFilter`	In, Required	ISCaseServiceFilter	The object that defines conditions for filtering

Return Value

ISCaseServices

Returns case sub-referrals by the specified filter.

Example

Display the number of case sub-referrals loaded on the basis of the selected filter and some information about them.

Dim aResult
Dim aPatientId
Dim aCaseId
Dim aFilter
Dim aInternalReferral, aInternalReferrals
Dim aMessage
Dim i

aResult = Profile.Lookup_PatientCaseSearch(aPatientId, aCaseId, _
  "Select Case for search", true)
  
if not aResult then exit sub 

Set aFilter = Profile.CreateInternalReferralFilter
aFilter.CaseID = CaseId
set aInternalReferrals = Profile.LoadInternalReferrals(aFilter)

aMessage = "Internal Referrals Count = " & aInternalReferrals.Count
for i = 0 to aInternalReferrals.Count - 1
  set aInternalReferral = aInternalReferrals.Item(i)
  aMessage = aMessage & vbNewLine &_
    "Pos Code: " & aInternalReferral.PosCode & vbNewLine &_
    "Comment: " & aInternalReferral.Comment & vbNewLine &_
    "Opened: " & aInternalReferral.Opened & vbNewLine &_
    "Closed: " & aInternalReferral.Closed & vbNewLine 
                                        
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Case Sub-Referrals can be created in Clinical > Medical Record > Case Sub-Referrals.

Version information