ISQuestion.FinancialProviderId

Example

Display the number of questions and some information about them, including the full names of the financial providers.

Dim aPatient
Dim aQuestions, aQuestion
Dim aMessage
Dim i
Dim aFinancialProvider

Set aPatient = Profile.SelectPatient
set aQuestions = Profile.ProfileInternal.LoadQuestionsForPatient(aPatient.ID)
aMessage = "Questions Count = " & aQuestions.Count
for i = 0 to aQuestions.Count - 1
  set aQuestion = aQuestions.Item(i)
  aMessage = aMessage & vbNewLine &_
    "Title: " & aQuestion.Title & vbNewLine &_
    "Amend Date: " & aQuestion.AmendDate & vbNewLine &_
    "Answer: " & aQuestion.Answer & vbNewLine &_
    "Body: " & aQuestion.Body & vbNewLine &_
    "Category ID: " & aQuestion.CategoryID & vbNewLine &_
    "Date: " & aQuestion.Date & vbNewLine &_
    "Patient: " & aPatient.SurnameFirstName & vbNewLine &_
    "Status: " & aQuestion.Status & vbNewLine 
    
  if aQuestion.FinancialProviderId <> 0 then
    set aFinancialProvider = Profile.LoadProviderById(aQuestion.FinancialProviderId)
    aMessage = aMessage & vbNewLine & "Financial Provider: " &_
      aFinancialProvider.FullName & vbNewLine 
  end if
next
Profile.MsgBox(aMessage)