ISPatientProblem.OutcomeID

Description

The concept ID of the pregnancy outcome and ID of the short code of type 'Diagnosis Outcome'.

Syntax

object.OutcomeID

Part	Attribute	Type	Description
`object`	Required	ISPatientProblem	The `object` always implements the ISPatientProblem interface

Return Value

int

Example

Display the codes, descriptions and outcomes for the patient's problems of 'Pregnancy' and 'Diagnosis' types.

sub main()
  Dim aPatient
  Dim aProblemList
  Dim aCategories
  Dim aMessage

  Set aPatient = Profile.SelectPatient

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

  aMessage = GetDiagnosisProblemsInfo(aCategories.Item(0)) &_
    GetPregnancyProblemsInfo(aCategories.Item(5)) 

  Profile.MsgBox(aMessage)  
end sub

function GetDiagnosisProblemsInfo(aCategory)
  Dim aMessage
  Dim aProblems, aProblem
  Dim aShortCode
  
  aMessage = aMessage & vbNewLine & vbNewLine &_
    "---------" & aCategory.Description & "---------"  & vbNewLine 

  set aProblems = aCategory.Problems
  for each aProblem in aProblems
    aMessage = aMessage & vbNewLine & "    " &_ 
      "Code: " & aProblem.DxCode & "; Description: " & aProblem.DxDescription 
    if aProblem.OutcomeID > 0 then
      set aShortCode = Profile.LoadShortCode(aProblem.OutcomeID)
      aMessage = aMessage & "; Outcome: " & aShortCode.Description      
    end if  
  next
  GetDiagnosisProblemsInfo = aMessage
end function

function GetPregnancyProblemsInfo(aCategory)
  Dim aMessage
  Dim aProblems, aProblem
  Dim aConcept
  
  aMessage = aMessage & vbNewLine & vbNewLine &_
    "---------" & aCategory.Description & "---------"  & vbNewLine 

  set aProblems = aCategory.Problems
  for each aProblem in aProblems
    aMessage = aMessage & vbNewLine & "    " &_ 
      "Code: " & aProblem.DxCode & "; Description: " & aProblem.DxDescription 
    if aProblem.OutcomeID > 0 then
      set aConcept = Profile.ProfileInternal.LoadConcept(aProblem.OutcomeID)
      aMessage = aMessage & "; Outcome: " & aConcept.Name      
    end if  
  next
  GetPregnancyProblemsInfo = aMessage
end function

Note:

In Profile Client v8 on User Interface ID of the concept cannot be found, but Outcome can be found in Clinical > Medical Record > Obstetric > Open selected pregnancy record > General > Outcome field, in Clinical > Clinical Details > Obstetric History > Open selected pregnancy record > General > Outcome field or in Patient > Cases > Clinical > Obstetric > Open selected pregnancy record > General > Outcome field. ID of the short code cannot be found, but Outcome can be found in Clinical > Medical Record > Problems > Open Problem > General > Outcome field,in Clinical > Clinical Details > Problems > Open Problem > General > Outcome fieldor in Patient > Cases > Clinical > Problems > Open Problem > General > Outcome field.

Version information

Added in v7.8.0