ISRecallObjective.TypeID

Description

ID of the care plan objective type.

Syntax

object.TypeID

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

Return Value

int

Example

Display ID of the care plan objective type.

Dim aPatient
Dim aRecallPlans
Dim aMessage
Dim aPlan
Dim i
Dim aObjectives
Dim aObjective

Set aPatient = Profile.SelectPatient
set aRecallPlans = aPatient.RecallPlans

if aRecallPlans.Count = 0 then
  Profile.MsgBox("The patient has no care plans!")
  exit sub
end if

for each aPlan in aRecallPlans
  set aObjectives = aPlan.RecallObjectives
  aMessage = aMessage & "PLAN: '" & aPlan.Description & "'" & vbNewLine
  
  if aObjectives.Count = 0 then
    aMessage = aMessage & "  NO OBJECTIVES" & vbNewLine
  end if  
         
  for i = 0 to aObjectives.Count - 1
    set aObjective = aObjectives.Item(i)
    aMessage = aMessage & "  OBJECTIVE:" & vbNewLine &_
      "      Name: '" & aObjective.DisplayName & "'" & vbNewLine &_
      "      Type ID = " & aObjective.TypeID & vbNewLine  
  next  
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Type ID cannot be found. Objective ID can be found in Clinical > Care Plans > Open active objective > Objective > Type field.

Version information

Added in v7.8.0