This function returns information about the intervention that would be useful for a health care provider.
object.GetProviderInfo()
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatientRecallVisit interface |
Display the information about the intervention for a health care provider.
sub main()
Dim aPatient, aRecallVisits, aMessage
set aPatient = Profile.SelectPatient
set aRecallPlans = aPatient.RecallPlans
for each aPlan in aRecallPlans
aMessage = aMessage & GetVisitCollectionInfo(aPlan.Visits)
next
Profile.MsgBox(aMessage)
end sub
function GetVisitCollectionInfo(aVisits)
for each aVisit in aVisits
info = info & vbNewLine & aVisit.Description
set aProviderInfo = aVisit.GetProviderInfo
if aProviderInfo is nothing then
info = info & vbNewLine & "No Provider Info"
else
info = info & vbNewLine & Profile.Rtf2Plain(aProviderInfo.GetBody)
end if
next
GetVisitCollectionInfo = info
end function
In Profile Client v8 on User Interface Provider Info can be found in
.