ISCaseService.DischargedToID

Example

Display the number of the case sub-referrals loaded on the basis of the selected filter and some information about them, including the place where the patient of each case was discharged to.

Dim aFilter
Dim aCaseServices
Dim aCaseService
Dim aMessage
Dim i
Dim aDischargedTo

Set aFilter = Profile.CreateCaseServiceFilter
aFilter.PosID = Profile.CurrentPOSId 
set aCaseServices = Profile.LoadCaseServices(aFilter)

aMessage = "Case Sub-Referrals Count = " & aCaseServices.Count
for i = 0 to aCaseServices.Count - 1
  set aCaseService = aCaseServices.Item(i)
  aMessage = aMessage & vbNewLine &_
    "Reason: " & aCaseService.Reason & vbNewLine &_
    "Comment: " & aCaseService.Comment & vbNewLine &_
    "Opened: " & aCaseService.Opened & vbNewLine &_
    "Closed: " & aCaseService.Closed & vbNewLine &_
    "Pos Code: " & aCaseService.PosCode & vbNewLine &_
    "Source Ref: " & aCaseService.SourceRef & vbNewLine &_
    "Subreferral Status: " & aCaseService.SubreferralStatus & vbNewLine 

  if aCaseService.DischargedToID <> 0 then
    set aDischargedTo = Profile.LoadShortCode(aCaseService.DischargedToID) 
    aMessage = aMessage & " (Discharged to " & aDischargedTo.Description & ")"
  end if
next     

Profile.MsgBox(aMessage)