ISProfile.CreateCase

Description

This function creates a new case.

Syntax

object.CreateCase(aPatientID)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aPatientID`	In, Required	int	ID of the patient

Return Value

ISCase

Returns the created case.

Example

Add a new case and display its title and ID.

Dim aPatient
Dim aCase

Set aPatient = Profile.SelectPatient
set aCase = Profile.CreateCase(aPatient.ID) 
aCase.CaseTitle = "Case 7"

Profile.MsgBox("ID of the case with the title '" & aCase.CaseTitle & "' is " &_
  aCase.ID)

Note:

In Profile Client v8 on User Interface Cases can be found in Patient > Cases.

Version information

Added in v7.8.0