ISPatient.AddProblem

Description

This function adds a new problem for the patient.

Syntax

object.AddProblem(aProblemType)

Part	Attribute	Type	Description
`object`	Required	ISPatient	The `object` always implements the ISPatient interface
`aProblemType`	In, Required	TSProblemType	The type of the problem, that will be added

Return Value

ISPatientProblem

Returns the added problem.

Example

Add a new problem of the selected type for the patient and display its Dx code.

Dim aPatient  
Dim aNewProblem
Dim aMessage

Set aPatient = Profile.SelectPatient
Set aNewProblem = aPatient.AddProblem(1) 'ptDiagnosis
aNewProblem.DxCode = "LETH"
aNewProblem.Save

aMessage = "New problem was added successfully " &_ 
  "with Dx Code " & "'" & aNewProblem.DxCode & "'"

Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Problems can be added and found in Clinical > Medical Record > Problems, in Clinical > Clinical Details > Problems or in Patient > Cases > Clinical > Problems.

Version information

Added in v7.8.0