ISRecallAction.IsNew

Description

Returns True if the action is being created and has not been saved in the database yet.

Syntax

object.IsNew

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

Restriction: This property is readonly.

Return Value

bool

Example

Display IsNew for the action.

Dim aPatient
Dim aRecallVisits
Dim aVisits
Dim aVisit
Dim aNewAction
Dim aActions
Dim aAction
Dim aMessage

set aPatient = Profile.SelectPatient
set aRecallVisits = aPatient.RecallVisits
set aVisits = aRecallVisits.Due 
for each aVisit in aVisits 
  set aNewAction = aVisit.AddAction("18")
  aNewAction.Description = aNewAction.Description & " (Test Only)"
next

for each aVisit in aVisits
  aMessage = aMessage & "Intervention: " & aVisit.Description & vbNewLine
  set aActions = aVisit.Actions
  for i = 0 to aActions.Count - 1 
    set aAction = aActions.Item(i)
    aMessage = aMessage & "  Action: " & aAction.Description & " - " &_
      aAction.IsNew & vbNewLine   
  next
next

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0