ISOrder.IsAnon

Description

Returns True if only the first letter of the patient's surname and name will appear on the order printout.

Syntax

object.IsAnon

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

Restriction: This property is readonly.

Return Value

bool

Example

Display IsAnon for the order.

Dim aPatient
Dim aOrdersLoader
Dim aOrders, aOrder
Dim i
Dim aMessage

Set aPatient = Profile.SelectPatient
set aOrdersLoader = Profile.CreateOrdersLoader
aOrdersLoader.Patient = aPatient
aOrdersLoader.ChangedSince = #01/01/2000#

set aOrders = aOrdersLoader.LoadOrders

aMessage = "Orders Count = " & aOrders.Count & vbNewLine

for i = 0 to aOrders.Count - 1
  set aOrder = aOrders.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " &_
    "DT Modified: " & aOrder.GetDTModified & vbNewLine &_
    "    ID: " & aOrder.ID & vbNewLine &_
    "    GUID: " & aOrder.GUID & vbNewLine &_
    "    Patient: " & aOrder.Patient.SurnameFirstName & vbNewLine &_
    "    Encounter: " & aOrder.Encounter.Date & vbNewLine &_
    "    Clinical Detail: " & aOrder.ClinicalDetail & vbNewLine &_
    "    Dx Info: " & aOrder.DxInfo & vbNewLine &_
    "    Is Deleted: " & aOrder.IsDeleted & vbNewLine &_
    "    Is Anon: " & aOrder.IsAnon & vbNewLine &_
    "    Is Pregnant: " & aOrder.IsPregnant & vbNewLine &_
    "    Is Urgent: " & aOrder.IsUrgent & vbNewLine &_
    "    Is Fasting Required: " & aOrder.IsFastingRequired & vbNewLine 
next    

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface the Anon checkbox can be checked in Clinical > Medical Record > Past Orders > Select the order > Edit the related encounter > New Encounter > Pathology/Radiology/Other Ix > Details.

Version information

Added in v7.8.0