ISPatientProblemVers.ProcedureType

Example

Display the codes, descriptions of the patient's problems of 'Procedures' type and the types of the procedure codes in each problem version.

sub main
  Dim aPatient
  Dim aProblemList
  Dim aCategory
  Dim aProblems, aProblem
  Dim aFilter
  Dim aProblemVersColl, aVersion
  Dim aMessage
  
  Set aPatient = Profile.SelectPatient

  set aProblemList = aPatient.ProblemList
  set aCategory = aProblemList.Categories.Item(2) 'Procedures  
  aMessage = aMessage & vbNewLine &_ 
    "---------" & aCategory.Description & "---------"  & vbNewLine  
  set aProblems = aCategory.Problems
  if aProblems.Count = 0 then 
    aMessage = aMessage & "No procedures"
  end if
    for each aProblem in aProblems 
      aMessage = aMessage & "    " & GetProblemInfo(aProblem) & vbNewLine
      set aFilter = Profile.CreateVersionFilter
      aFilter.FromDate = #01/01/2019#
      aFilter.ToDate = #06/06/2019#
      set aProblemVersColl = aProblem.FindVersions(aFilter)
      for each aVersion in aProblemVersColl
        aMessage = aMessage & "      -" & GetProblemInfo(aVersion) & vbNewLine 
      next ' aVersion                  
    next ' aProblem
  Profile.MsgBox(aMessage)
end sub

function GetProblemInfo(aProblem)
  Dim aInfo
  Dim aProcType

  aProcType = aProblem.ProcedureType  
  Select Case aProcType
    Case 0 ' spctDisease 
      aResult = "Disease"
    Case 1 ' spctProcedure
      aResult = "Procedure"
    Case 2 ' spctService 
      aResult = "Service"         
    End Select
  aInfo = "Code: " & aProblem.DxCode & "; Description: " &_ 
    aProblem.DxDescription & "; Procedure type = " & aResult
  GetProblemInfo = aInfo
end function