ISPatient.MakeCareTeam

Description

This function adds a new Care Team Member for the patient with the selected care team role, provider ID, role ID and payer ID.

Syntax

object.MakeCareTeam(aRoleCode, aPPPUID, aPPPURoleID, aPayerID)

Part	Attribute	Type	Description
`object`	Required	ISPatient	The `object` always implements the ISPatient interface
`aRoleCode`	In, Required	string	The code of the care team role
`aPPPUID`	In, Required	int	ID of the provider
`aPPPURoleID`	In, Required	int	ID of the role, on User Interface roles can be found in Patient/Alter Patient/Care Team/Provider field or in Clinical/Medical Record/Care Team/Provider field
`aPayerID`	In, Required	int	ID of the payer

Return Value

ISCareTeam

Returns the added Care Team.

Example

Add two Care Team Members for the patient with the selected care team role, provider ID, role ID and payer ID.

Dim aPatient
Dim aRole 
Dim aProvider
Dim aRoleCode
Dim aPPPUID
Dim aPPPURoleID
Dim aPayerID
Dim aCareTeam
Dim aTrans

Set aPatient = Profile.SelectPatient 
set aProvider = Profile.LoadProvider("MM")
set aRole = Profile.LoadRole("New Role")

set aTrans = Profile.StartMapTransaction

aRoleCode = "UP"
aPPPUID = aProvider.ID
aPPPURoleID = 0
aPayerID = 0
set aCareTeam = aPatient.MakeCareTeam(aRoleCode, aPPPUID, aPPPURoleID, aPayerID)
aTrans.Snapshot
Profile.MsgBox("The care team member (with the specified provider) was created successfully!")

aRoleCode = "UP"
aPPPUID = 0
aPPPURoleID = aRole.RoleId
aPayerID = 0
set aCareTeam = aPatient.MakeCareTeam(aRoleCode, aPPPUID, aPPPURoleID, aPayerID)
aTrans.Snapshot
Profile.MsgBox("The care team member (with the specified role) was created successfully!")

Note:

In Profile Client v8 on User Interface Care Team can be found in Patient > Alter Patient > Care Team or in Clinical > Medical Record > Care Team.

Version information

Added in v7.8.0