ISPatientFilter.MemberOfPOS

Description

This filter property is used to load the collection of patients who are the members of the POS with the specified ID.

Syntax

object.MemberOfPOS

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

Return Value

int

Example

Display the number of the patients loaded on the basis of the selected filter, their full names and IDs.

Dim aPOS
Dim aIterator  
Dim aFilter  
Dim aCount
Dim aCanProcessItem
Dim aPatient
Dim aMessage

Set aPOS = Profile.LoadProviderById(Profile.CurrentPOSId)
set aIterator = Profile.CreatePatientIterator
set aFilter = Profile.CreatePatientFilter
aFilter.MemberOfPOS = aPOS.Id
aFilter.MemberOfPOSAsAtDate = #09/19/2019#
aIterator.Open(aFilter)
aCount = aIterator.Count

aMessage = "Patients Count = " & aCount & vbNewLine & vbNewLine
 
aMessage = aMessage & "The members of " & aPOS.FullName & ": " & vbNewLine
aIterator.Reset
aCanProcessItem = aIterator.Next

i = 1
do while aCanProcessItem 
  set aPatient = aIterator.Patient
  aMessage = aMessage & vbNewLine & i & ")  " &_
   aPatient.FirstName & " " & aPatient.LastName &_
   " ( " & aIterator.PatientId & " ) "
  i = i + 1
  aCanProcessItem = aIterator.Next
loop

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface the membership of the patient in the selected POS can be checked in Report > Find Objects > Patient > Member of.

Version information

Added in v8.5.0