ISCaseBudgetRequest.Contact

Example

Display the number of the budget requests related to the selected case and some information about them, including the contact persons.

sub main
  Dim aResult 
  Dim aPatientID 
  Dim aCaseID
  Dim aCase
  Dim aBudgetRequests, aBudgetRequest 
  Dim i
  Dim aMessage
  
  aResult = Profile.Lookup_PatientCaseSearch(aPatientID, aCaseID, "Case Search", True)

  Set aCase = Profile.OpenCase(aCaseID)
  set aBudgetRequests = aCase.GetBudgetRequests
  aMessage = aCase.CaseTitle & " was opened on " & aCase.OpenedOn &_
    vbNewLine & "Budget Requests Count = " & aBudgetRequests.Count  
  
  for i = 0 to aBudgetRequests.Count -1
    set aBudgetRequest = aBudgetRequests.Item(i)
    aMessage = aMessage & vbNewLine & (i + 1) & ") Request Info:" & vbNewLine &_ 
      "       Date: " & aBudgetRequest.Date & vbNewLine &_ 
      "       Reference = " & aBudgetRequest.Reference & vbNewLine &_ 
      "       Status = " & GetStatusDescr(aBudgetRequest.Status) 
    if aBudgetRequest.Contact <> "" then 
      aMessage = aMessage & vbNewLine &_ 
        "       Contact = " & aBudgetRequest.Contact
    end if       
  next          

  Profile.MsgBox(aMessage)
end sub

function GetStatusDescr(aStatus)
  Dim aResult

  Select Case aStatus
    Case 1
      aResult = "Unknown"
    Case 2
      aResult = "Pending"
    Case 4
      aResult = "Accepted"
    Case 8
      aResult = "Rejected"
    Case Else
      aResult = "Not Identified"            
  End Select
  
  GetStatusDescr = aResult
end function