ISClaim.PosID

Description

ID of the POS linked to the claim.

Syntax

object.PosID

Part	Attribute	Type	Description
`object`	Required	ISClaim	The `object` always implements the ISClaim 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
aFilter.DateFrom = #06/08/2018#
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 & " (" & aPOS.Code & ")"  
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