ISPatientProblem.ProcedureType

Example

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

sub main() 
  Dim aPatient
  Dim aProblemList
  Dim aCategories
  Dim aCategory
  Dim aProblems
  Dim aProblem
  Dim aMessage

  Set aPatient = Profile.SelectPatient

  set aProblemList = aPatient.ProblemList
  set aCategories = aProblemList.Categories

  for each aCategory in aCategories
    aMessage = aMessage & vbNewLine & "---------" & aCategory.Description &_ 
      "---------"  & vbNewLine & vbNewLine 
    set aProblems = aCategory.Problems
    for each aProblem in aProblems
      aMessage = aMessage & "    " &_ 
        "Code: " & aProblem.DxCode &_ 
        "; Description: " & aProblem.DxDescription &_
        "; Procedure Type: " & GetProcedureTypeDescr(aProblem) &_ 
        vbNewLine
    next
  next 

  Profile.MsgBox(aMessage)
end sub

function GetProcedureTypeDescr(ByVal aProblem)
  Dim aResult
  Dim aProcType 

  aResult = " - "

  if aProblem.ProblemType = 3 then  'Procedure
    aProcType = aProblem.ProcedureType  
    Select Case aProcType
      Case 0 ' spctDisease 
        aResult = "Disease"
      Case 1 ' spctProcedure
        aResult = "Procedure"
      Case 2 ' spctService 
        aResult = "Service"         
    End Select
  end if       
  
  GetProcedureTypeDescr = aResult
end function