The status of the CDO form.
| 0 | fsNone |
| 1 | fsIncomplete |
| 2 | fsComplete |
| 3 | fsLoaded |
| 4 | fsDuplicate |
| 5 | fsFailed |
| 6 | fsInvalid |
| 7 | fsSent |
| 8 | fsHeld |
| 9 | fsReceipted |
| 10 | fsInactive |
| 11 | fsPaid |
object.FormStatus
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISCDOTransaction interface |
int
Display some information about the CDO transactions, including the statuses of the CDO forms.
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 &_
" ID: " & aCDOTransaction.ID & vbNewLine &_
" CID: " & aCDOTransaction.CID & vbNewLine &_
" Pos Code: " & aCDOTransaction.PosCode & vbNewLine &_
" Privacy: " & aCDOTransaction.Privacy & vbNewLine &_
" Recorder: " & aCDOTransaction.Recorder & vbNewLine &_
" Form Status: " & aCDOTransaction.FormStatus & vbNewLine
next
Profile.MsgBox(aMessage) In Profile Client v8 on User Interface Form Status can be found in .