ISPatientFilter.AddAliasParams

Description

This filter is used to load the collection of patients who have the cards with the specified alias code of the payer and card number.

Syntax

object.AddAliasParams aAliasCode, aNumber

Part	Attribute	Type	Description
`object`	Required	ISPatientFilter	The `object` always implements the ISPatientFilter interface
`aAliasCode`	In, Required	string	The alias code of the payer
`aNumber`	In, Required	string	The number of the payer

Example

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

Dim aIterator  
Dim aFilter  
Dim aCanProcessItem
Dim aPatient
Dim aMessage

Set aIterator = Profile.CreatePatientIterator
set aFilter = Profile.CreatePatientFilter  
aFilter.AddAliasParams "HUC", 1234                            
aIterator.Open(aFilter)

aMessage = "Patients Count = " & aIterator.Count &_
  vbNewLine & vbNewLine &_
  "Selected Patients: " & 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 Alias Code can be found in Financial > Payers > Edit an existing payer > Alias field, Card Number can be found in Patient > Alter Patient > Financial > Health Plans and Cards > Number.

Version information

Added in v7.8.0