ISPrescription.IsDeleted

Description

Returns True if the loaded prescription is deleted.

Syntax

object.IsDeleted

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

Restriction: This property is readonly.

Return Value

bool

Example

Display IsDeleted for each prescription within the collection.

Dim aPatient 
Dim aFilter
Dim aPrescriptions, aPrescription
Dim i
Dim aMessage

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreatePrescriptionFilter
aFilter.Patient = aPatient
aFilter.IncludeDeleted = True
set aPrescriptions = Profile.LoadPrescriptions(aFilter)

aMessage = "The number of the prescriptions for " & aPatient.SurnameFirstName &_ 
  " = " & aPrescriptions.Count & vbNewLine
for i = 0 to aPrescriptions.Count - 1
  set aPrescription = aPrescriptions.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " & aPrescription.RxName &_ 
    " was prescribed on " & aPrescription.Date & " (Is deleted: " &_ 
    aPrescription.IsDeleted & ")"  
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface the deleted prescriptions cannot be found.

Version information

Added in v8.2.0