Returns True if the intervention is a missing history summary within the patient's care plan.
object.MissHistory
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatientRecallVisit interface |
bool
Display MissHistory for the patient's intervention.
sub main()
Dim aPatient, aRecallVisits, aMessage
set aPatient = Profile.SelectPatient
set aRecallPlans = aPatient.RecallPlans
aMessage = aMessage & GetPlanCollectionInfo(aRecallPlans)
Profile.MsgBox(aMessage)
end sub
function GetPlanCollectionInfo(aRecallPlans)
for each aPlan in aRecallPlans
info = aPlan.Description & vbNewLine
set aVisits = aPlan.Visits
for each aVisit in aVisits
info = info & " >" & aVisit.Description & " (" & aVisit.Code & ")" &_
" - " & aVisit.MissHistory & vbNewLine
next
next
GetPlanCollectionInfo = info
end function
In Profile Client v8 on User Interface Miss History can be found in
.