ISPatientLookupItem.PtntType

Description

The types of the patients who were loaded on the basis of the selected Lookup Parameter.

0	Unknown
1	Patient
2	Employer
3	Non-Patient
4	Organisation
5	Payer
6	Bulk Biller
7	Supplier
8	Item
9	Card
10	Community
11	School
12	Group

Syntax

object.PtntType

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

Restriction: This property is readonly.

Return Value

int

Example

Display the number of the patients loaded on the basis of the selected Lookup Parameter, their full names and types.

Dim aParam
Dim aList
Dim aPatientLookupItem
Dim aLookupType  
Dim aMessage 

Set aParam = Profile.MakePatientLookupParam 'ISPatientLookupParam
aParam.Index = 1 'smppiFileNum
aParam.Value = 9125
aLookupType = 23 'patient lookup 
set aList = Profile.LoadLookupList2(aLookupType, aParam)  'ISPatientLookupItem collection

aMessage = "Patients Count = " & aList.Count & vbNewLine & vbNewLine  

for each aPatientLookupItem in aList 

  aMessage = aMessage &_
    "Name: " & aPatientLookupItem.Name & vbNewLine &_
    "Type: " & aPatientLookupItem.PtntType & vbNewLine & vbNewLine
  
next
  
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Patient Type can be found in Patient > Alter Patient > General > Type field.

Version information

Added in v7.8.0