ISProfile.LoadCarePlanByID

Description

This function returns the care plan by ID.

Syntax

object.LoadCarePlanByID(aPlanID)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aPlanID`	In, Required	int	ID of the care plan

Return Value

ISCarePlan

Returns the care plan by ID.

Example

Display ID of the selected care plan and its description.

Dim aCarePlan
Dim aMessage  

set aCarePlan = Profile.LoadCarePlanByCode("IMM") 

if aCarePlan is nothing then 
  Profile.MsgBox("There is no care plan with the specified 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)

Note:

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

Version information

Added in v7.8.0