ISProfile.CollectWCBFormHistory

Description

This function returns WCB F8/11 Form history.

Syntax

object.CollectWCBFormHistory(aFormID)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aFormID`	In, Required	int	ID of the form

Return Value

ISWCBFormHistory

Returns WCB F8/11 Form history.

Example

Display the number of WCB F8/11 Form history items and some information about them.

Dim aWCBFormHistory
Dim aWCBFormHistoryItem
Dim aService
Dim aMessage
Dim i   

Set aWCBFormHistory = Profile.CollectWCBFormHistory(7448)

aMessage = "WCB Form Histories Count: " & aWCBFormHistory.Count & vbNewLine

for i = 0 to aWCBFormHistory.Count - 1
  set aWCBFormHistoryItem = aWCBFormHistory.Item(i)
  set aService = Profile.LoadServiceByID(aWCBFormHistoryItem.ServiceID) 
  aMessage = aMessage & vbNewLine & (i + 1) & ". " &_
    "Date: " & aWCBFormHistoryItem.Date & vbNewLine &_
    "Amount: " & aWCBFormHistoryItem.Amount & vbNewLine &_
    "Paid: " & aWCBFormHistoryItem.Paid & vbNewLine &_
    "EForm Code ID: " & aWCBFormHistoryItem.EFormCodeID & vbNewLine &_
    "Service: " &  aService.Description & vbNewLine &_
    "Is Claimed: " & aWCBFormHistoryItem.States.IsClaimed & vbNewLine &_
    "Is Paid: " & aWCBFormHistoryItem.States.IsPaid & vbNewLine  
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface WCB Form History can be found in Clinical > Medical Record > Forms > Form F 8/11 > Tracking.

Version information

Added in v7.8.0