ID of the care plan template.
object.ID
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISCarePlan interface |
int
Display ID of the selected care plan template and its description.
Dim aCarePlan
Dim aMessage
Set aCarePlan = Profile.LoadCarePlanByCode("FLU")
if aCarePlan is nothing then
Profile.MsgBox ("There is no care plan with this code")
exit sub
end if
aPlanId = aCarePlan.Id
set aCarePlan2 = Profile.LoadCarePlanById (aPlanId)
aMessage = "The care plan """ & aCarePlan2.Description &_
""" has ID = " & aCarePlan2.Id
Profile.MsgBox (aMessage) In Profile Client v8 on User Interface ID cannot be found.