ISPatientProblem.GetContraceptives

Example

Display the codes, descriptions of the patient's problems of 'Pregnancy' type and check whether contraception was stopped prior to the patient's pregnancy.

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

  Set aPatient = Profile.SelectPatient
  if aPatient.Sex <> "F" then
    Profile.MsgBox("You should select female patient!")
    exit sub
  end if

  set aProblemList = aPatient.ProblemList
  set aCategory = aProblemList.Categories.Item(5) 'Pregnancy  
  aMessage = aMessage & vbNewLine &_ 
    "---------" & aCategory.Description & "---------"  & vbNewLine & vbNewLine 
  set aProblems = aCategory.Problems
  if aProblems.Count = 0 then 
    aMessage = aMessage & "No pregnancies"
  else
    for each aProblem in aProblems
      aMessage = aMessage & "    " & "Code: " & aProblem.DxCode &_ 
        "; Description: " & aProblem.DxDescription & "; Contraceptives: " &_ 
        GetContraceptiveTypeDescr(aProblem.GetContraceptives) & vbNewLine
    next 
  end if
  Profile.MsgBox(aMessage)
end sub

function GetContraceptiveTypeDescr(ByVal aType)
  Dim aResult

  Select Case aType
    Case 1
      aResult = "Null"
    Case 2
      aResult = "Never used"
    Case 3
      aResult = "Not stopped"
    Case 4
      aResult = "Stopped on"
    Case Else
      aResult = " Unknown "                
  End Select
  
  GetContraceptiveTypeDescr = aResult
end function