ISCareVisit.Reset

Description

This function rescinds all the changes and reloads field values from database.

Syntax

object.Reset

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

Example

Display the modified value of the selected field, rescind it and reload the field value from the database.

Dim aCarePlan
Dim aMessage
Dim aVisits
Dim aVisit

Set aCarePlan = Profile.LoadCarePlanByCode ("FLU") 
set aVisits = aCarePlan.Visits

if aVisits.Count = 0 then
  aMessage = "There are no care visits!"
else
  set aFirstVisit = aVisits.Item(0)  
  aMessage = "Description 1: " & aFirstVisit.Description & vbNewLine    
  aFirstVisit.Description = aFirstVisit.Description & " (changed) "
  aMessage = aMessage & "Description 2: " & aFirstVisit.Description & vbNewLine  
  aFirstVisit.Reset  
  aMessage = aMessage & "Description 3: " & aFirstVisit.Description & vbNewLine   
end if       
   
Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Reset cannot be found.

Version information

Added in v7.8.0