This function adds a new care plan for the patient.
object.AddRecallPlan(aCarePlan[, aPOSID = 0[,
aProviderID = 0]])
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISPatient interface |
|
aCarePlan |
In, Required | The care plan template on the basis of which new
care plan will be created |
|
aPOSID |
In, Optional Default value is 0 |
int |
ID of the POS |
aProviderID |
Optional Default value is 0 |
int |
ID of the provider |
Add a new care plan for the patient with the selected Provider, POS and care plan code.
Dim aPatient
Dim aDoc
Dim aRecallPlan
Dim aProviderID
Dim aPOSID
Dim aCarePlan
Set aPatient = Profile.SelectPatient
aPOSID = aPatient.Get_PosId
set aDoc = aPatient.PracticeDr
if aDoc is nothing then
Profile.MsgBox("No practice doctor")
exit sub
end if
aProviderID = aDoc.ID
set aCarePlan = Profile.LoadCarePlanByCode("BP")
set aRecallPlan = aPatient.AddRecallPlan(aCarePlan, aPOSID, aProviderID)
aMessage = aMessage & vbNewLine
aMessage = aMessage & "New Recall Plan was added successfully!"
Profile.MsgBox (aMessage) In Profile Client v8 on User Interface Care Plans can be found in .