ISProfile.LoadCarePlanByCode

Description

This function returns the care plan by the code.

Syntax

object.LoadCarePlanByCode(aPlanCode)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aPlanCode`	In, Required	string	The code of the care plan

Return Value

ISCarePlan

Returns the care plan by the code.

Example

Display the code of the selected care plan.

Dim aCarePlan
Dim aMessage

Set aCarePlan = Profile.LoadCarePlanByCode("IMM")
if aCarePlan is nothing then 
  aMessage = "There is no care plan with the specified code."
else 
  aMessage = aMessage & aCarePlan.Description
end if 
 
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Care Plans can be found in Maintain > Care Plans.

Version information

Added in v7.8.0