This function closes the patient's care plans, returned by outcomes of care plan, objective and intervention.
object.CloseRecallPlans
aRecallPlans, aPlanOutcome, aObjectiveOutcome,
aInterventionOutcome
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISPatient interface |
|
aRecallPlans |
In, Required | The care plans of the patient |
|
aPlanOutcome |
In, Required | int |
ID of the care plan outcome |
aObjectiveOutcome |
In, Required | int |
ID of the objective outcome |
aInterventionOutcome |
In, Required | int |
ID of the intervention outcome |
Close the selected care plans.
Dim aPatient
Dim aRecallPlans
Dim aOutcomeSC
Dim aOutcomeId
Dim aObjOutcomeSC
Dim aObjOutcomeId
Set aPatient = Profile.SelectPatient
set aRecallPlans = aPatient.RecallPlans
set aOutcomeSC = Profile.LoadShortCodeByCodeType("D", 13) 'outcome code, sscRecallExpl
aOutcomeId = aOutcomeSC.Id
set aObjOutcomeSC = Profile.LoadShortCodeByCodeType("O1", 52) 'care objective outcome code, sscRecallObjectiveOutcome
aObjOutcomeId = aObjOutcomeSC.Id
aPatient.CloseRecallPlans aRecallPlans, aOutcomeId, aObjOutcomeId, aOutcomeId
Profile.MsgBox ("The care plan was closed successfully!") In Profile Client v8 on User Interface Care Plans can be set closed in .