The code of the care plan template.
object.Code
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISCarePlan interface |
string
Display the code of the selected care plan template.
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
aMessage = "The code of the care plan template """ &_
aCarePlan.Description & """ is " & aCarePlan.Code & ""
Profile.MsgBox (aMessage)
In Profile Client v8 on User Interface Code can be found in
.