ISCDOTransaction.SignTransaction

Example

Sign the unsigned CDO transactions and display some information about them.

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

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)
  if not aCDOTransaction.IsSigned then
    aCDOTransaction.SignTransaction
    aSignedInfo = "     Signed now" & vbNewLine
  else
    aSignedInfo = ""  
  end if
  aMessage = aMessage & vbNewLine & (i + 1) & ") " &_
    "Created on: " & aCDOTransaction.CreatedOn & vbNewLine &_
    "     Code: " & aCDOTransaction.Code & vbNewLine &_
    "     ID: " & aCDOTransaction.ID & vbNewLine &_
    "     GUID: " & aCDOTransaction.GUID & vbNewLine &_
    "     DisplayDate: " & aCDOTransaction.DisplayDate & vbNewLine &_
    "     Patient: " & aCDOTransaction.Patient.SurnameFirstName & vbNewLine &_
    "     Patient ID: " & aCDOTransaction.PatientId & vbNewLine &_
    aSignedInfo
next 'i    

Profile.MsgBox(aMessage)