ISPatientProblem.IsNew

Description

Returns True if the patient's problem is being created and has not been saved in the database yet.

Syntax

object.IsNew

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

Restriction: This property is readonly.

Return Value

bool

Example

Display IsNew for the patient's problem.

Dim aPatient  
Dim aNewProblem
Dim aMessage

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

Profile.MsgBox ("The added problem with Dx Code " & "'" & aNewProblem.DxCode &_ 
  "'" & " is new : " & aNewProblem.IsNew)
 
aNewProblem.Save

aMessage = aMessage & vbNewLine & "New problem was added successfully " &_ 
  "with Dx Code " & "'" & aNewProblem.DxCode & "'" &_ 
  ", the problem is still new: " & aNewProblem.IsNew  

Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Is New cannot be found.

Version information

Added in v7.8.0