This function returns additional information about the patient's care plan that would be useful for a provider to know.
object.GetProviderInfo()
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatientRecallPlan interface |
Display the additional information about the patient's care.
Dim aPatient
Dim aRecallPlans
Dim aPlan
Dim aHelpInfo
set aPatient = Profile.SelectPatient
set aRecallPlans = aPatient.RecallPlans
for each aPlan in aRecallPlans
set aHelpInfo = aPlan.GetProviderInfo
if aHelpInfo is nothing then
aMessage = aMessage & vbNewLine & "No Patient Info"
else
aMessage = aMessage & vbNewLine & "Information about the patient's " &_
"care plan '" & aPlan.Description & "' useful for a provider: " &_
Profile.Rtf2Plain(aHelpInfo.GetBody)
end if
next
Profile.MsgBox (aMessage)
In Profile Client v8 on User Interface Provider Info can be found in
.