ISProvider.POSSetting

Description

The kind of care given at the place of service: 'In-patient' or 'Community' (or blank).

Syntax

object.POSSetting

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

Restriction: This property is readonly.

Return Value

ISShortCode

Example

Display the kind of care given at the place of service: 'In-patient' or 'Community' (or blank).

Dim aFilter 
Dim aPOSList
Dim aPOS
Dim aPOSSetting
Dim aMessage

Set aFilter = Profile.CreateProvidersFilter
aFilter.Category = 3 'pcPOS  

set aPOSList = Profile.LoadProvidersByFilter(aFilter)

for each aPOS in aPOSList
  set aPOSSetting = aPOS.POSSetting
  if aPOSSetting is nothing then 
    aMessage = aMessage & "POS: " & vbNewLine & aPOS.FullName &_
      ": NO DEFINED SETTING " & vbNewLine & vbNewLine
  else
    aMessage = aMessage & vbNewLine & "POS: " & aPOS.FullName & vbNewLine &_  
      "POS SETTING: " & aPOSSetting.Description
  end if   
next  
Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface POS Setting can be found in Organisation > People&Places > People and Places > Open the selected POS > General > POS Setting field.

Version information

Added in v7.8.0