ISClaimFilter.PosID

Description

This filter property is used to load the collection of claims with the specified Pos ID.

Syntax

object.PosID

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

Return Value

int

Example

Display the number of the claims loaded on the basis of the selected filter, their dates, time and linked places of service.

Dim aFilter
Dim aClaims, aClaim
Dim aMessage
Dim aPOS
Dim i

Set aFilter = Profile.CreateClaimFilter
set aPos = Profile.LoadProvider("DOCTOROFF")

aFilter.PosId = aPos.Id
set aClaims = Profile.LoadClaims(aFilter)   

aMessage = "Claims Count = " & aClaims.Count & vbNewLine &_
  "Date/Time" & vbTab & vbTab & "Pos"
  
for i = 0 to aClaims.Count - 1
  set aClaim = aClaims.Item(i)
  set aPOS = Profile.LoadProviderById(aClaim.PosId)

  aMessage = aMessage & vbNewLine &_  
    aClaim.Date & vbTab & aPOS.FullName 
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Pos ID cannot be found, but Pos can be found in Organisation > Control Centre > Financial > Billing > Details > POS.

Version information

Added in v7.8.0