ISPatientProblem.Save

Description

This procedure updates the current patient problem object as stored within Profile.

Syntax

object.Save

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

Example

Add a new patient problem object and save it.

Dim aPatient  
Dim aNewProblem
Dim aMessage

Set aPatient = Profile.SelectPatient
Set aNewProblem = aPatient.AddProblem(1) 'ptDiagnosis
aNewProblem.DxCode = "LETH" 
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:

Version information

Added in v7.8.0