This function moves the selected intervention to the selected care plan.
object.MoveRecallVisit(aVisit, aDestPlan)
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISPatient interface |
|
aVisit |
In, Required | The intervention of the patient |
|
aDestPlan |
In, Required | The care plan of the patient where the intervention
should be moved to |
Display the number of the completed interventions of the patient and move the first of them to another care plan.
Dim aPatient
Dim aTempPlan
Dim aAllPlans
Dim aVisit
Dim aDestPlan
Dim aMovedVisit
Dim aMessage
Set aPatient = Profile.SelectPatient
if aPatient.RecallVisits.Completed.Count = 0 then
Profile.MsgBox("The patient has no interventions!")
exit sub
end if
set aVisit = aPatient.RecallVisits.Completed.Item(0)
set aAllPlans = aPatient.RecallPlans
for i = 0 to aAllPlans.Count - 1
set aTempPlan = aAllPlans.Item(i)
if aTempPlan.Code <> aVisit.RecallPlan.Code then
set aDestPlan = aTempPlan
end if
next
if aDestPlan is Nothing then
Profile.MsgBox("The patient gas no other plans")
exit sub
end if
set aMovedVisit = aPatient.MoveRecallVisit(aVisit, aDestPlan)
aDestPlan.Save
aMessage = "The Intervention was moved successfully to plan " & aDestPlan.Code
Profile.MsgBox(aMessage) In Profile Client v8 on User Interface Interventions can be found in . .