ISCDOTransaction.Comment

Description

The comment of the CDO transaction contains additional information for the transaction, that can be added on import or somewhere else. The comment of the CDO transaction usually contains multiline text where every line has format key = value. Most commonly used keys are presented in the list below, but this list can be extended in the future.

trmFamilyName	Family name
trmFirstName	First name
trmSecondName	Second name
trmDOB	DOB
trmNationalNum	NHI
trmSex	Sex
trmResAddress	Res address
trmSuburb	Suburb
trmCity	City
trmPostCode	Post code
trmState	State
trmCountryCode	Country code
trmAddressType	Address Type
trmHomePhone	Home Phone
trmBusinessPhone	Business Phone
trmMessageID	MessageID
trmProviderFirstName	Provider`s First name
trmProviderSurname	Provider`s Family name

Syntax

object.Comment

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

Return Value

string

Example

Display some information about the transactions, including their comments, that can be added on import or somewhere else.

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

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateCDOTransFilter
aFilter.PatientId = aPatient.Id
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 &_
    "     Comment: " & aCDOTransaction.Comment & vbNewLine &_
    "     Pos Code: " & aCDOTransaction.PosCode & vbNewLine &_
    "     Privacy: " & aCDOTransaction.Privacy & vbNewLine &_ 
    "     Recorder: " & aCDOTransaction.Recorder & vbNewLine &_ 
    "     Authorizer: " & aCDOTransaction.Authorizer & vbNewLine  
next    

Profile.MsgBox(aMessage)

Note:

Version information

Added in v7.9.4