ISProfile.CreateInternalReferralFilter

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)