This function returns information about the selected care plan objective intended for the patient's use.
object.GetHelpInfo()
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISRecallObjective interface |
Display the information about the selected care plan objective intended for the patient's use.
Dim aPatient
Dim aRecallPlans
Dim aMessage
Dim aPlan
Dim i
Dim aObjectives
Dim aObjective
Dim aHelpInfo
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 Name: '" &_
aObjective.DisplayName & "'"
set aHelpInfo = aObjective.GetHelpInfo
if aHelpInfo is nothing then
aMessage = aMessage & vbNewLine & " No patient info!" & vbNewLine
else
aMessage = aMessage & vbNewLine & " Patient Info: " &_
Profile.Rtf2Plain(aHelpInfo.GetBody)
end if
next
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Help Info can be found in
.