ISCDOTransaction.BlockFromPatientAccess

Description

This property is True if the encounter is blocked from the patient's access.

Syntax

object.BlockFromPatientAccess

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

Return Value

bool

Example

Display BlockFromPatientAccess for the encounter.

Dim aPatient
Dim aFilter 
Dim aCDOTransactions, aCDOTransaction
Dim i
Dim aMessage

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateCDOTransFilter
aFilter.PatientId = aPatient.Id
aFilter.TransactionTypes = 1  'tsotweEncounters 
set aCDOTransactions = Profile.LoadCDOTransactions(aFilter)

aMessage = "CDO Transactions Count = " & aCDOTransactions.Count & vbNewLine
for i = 0 to aCDOTransactions.Count - 1
  set aCDOTransaction = aCDOTransactions.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " &_
    "Created on: " & aCDOTransaction.CreatedOn & vbNewLine &_
    "     Code: " & aCDOTransaction.Code & vbNewLine &_
    "     ID: " & aCDOTransaction.ID & vbNewLine &_
    "     GUID: " & aCDOTransaction.GUID & vbNewLine &_
    "     Pos Code: " & aCDOTransaction.PosCode & vbNewLine &_
    "     Privacy: " & aCDOTransaction.Privacy & vbNewLine &_ 
    "     Recorder: " & aCDOTransaction.Recorder & vbNewLine &_ 
    "     IS Encounter: " & aCDOTransaction.ISEncounter & vbNewLine &_ 
    "     Contact With: " & aCDOTransaction.ContactWith & vbNewLine &_
    "     Contact With Id: " & aCDOTransaction.ContactWithId & vbNewLine &_ 
    "     Block From Patient Access: " & aCDOTransaction.BlockFromPatientAccess & vbNewLine    
next    

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface the Block from patient access checkbox can be checked in Clinical > Medical Record > Encounters > Open Encounter > Encounter Properties.

Version information

Added in v8.3.18