ISProblemList.NewProblem

Description

This function adds a new patient problem for the selected patient.

Syntax

object.NewProblem()

Part	Attribute	Type	Description
`object`	Required	ISProblemList	The `object` always implements the ISProblemList interface

Return Value

ISPatientProblem

Returns the patient problem added for the selected patient.

Example

Add a new patient problem for the selected patient. Display the number of the problems, loaded for the selected patient, their codes and descriptions.

Dim aPatient  
Dim aProblemList
Dim aNewProblem
Dim aProblem
Dim i
Dim aMessage

Set aPatient = Profile.SelectPatient 
set aProblemList = aPatient.ProblemList

aMessage = "Problems Count = " & aProblemList.Count & vbNewLine

set aNewProblem = aProblemList.NewProblem
aNewProblem.DxCode = "LETH"
aNewProblem.Save

set aPatient = Profile.LoadPatient(aPatient.Id)
set aProblemList = aPatient.ProblemList
aMessage = aMessage & "The number of problems after adding a new one = " &_ 
  aProblemList.Count
for i = 0 to aProblemList.Count - 1
  set aProblem = aProblemList.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " & "Code: " & aProblem.DxCode &_
    " (Description: " & aProblem.DxDescription & ")" 
next

Profile.MsgBox(aMessage)

Note: This function doesn't add the created problem to the problem list. In order to see the created problem in the problem list the Patient object should be reloaded.

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