This lookup parameter property is used to specify the value by which the collection of patients is loaded. It is used only with the lookup parameter properties that do not work without the inserted values: ISPatientLookupParam.Index, ISPatientLookupParam.IsIncludeAlternatives, ISPatientLookupParam.IsStartsWith, ISPatientLookupParam.IsUseSoundex, ISPatientLookupParam.LoadAction, ISPatientLookupParam.PatientField.
| If ISPatientLookupParam.IsIncludeAlternatives = True, | then ISPatientLookupParam.Value = the patient's alternative names, maiden name or alias |
| If ISPatientLookupParam.IsStartsWith = True, | then ISPatientLookupParam.Value = the first characters of the patients' first and last names |
| If ISPatientLookupParam.IsUseSoundex = True, | then ISPatientLookupParam.Value = the surname sounded like the patient's one |
| If ISPatientLookupParam.PatientField = the name of the database column, | then ISPatientLookupParam.Value = the value from this database column |
| If ISPatientLookupParam.LoadAction = | then ISPatientLookupParam.Value = |
|---|---|
| 0 | the patient's code, ID or last name |
| 1 | the patient's code (file number) |
| 2 | the patient's ID |
| 3 | the patient's last or full name |
| If ISPatientLookupParam.Index = | then ISPatientLookupParam.Value = |
|---|---|
| 0 | the patient's index |
| 1 | the patient's file number |
| 2 | the patient's folder number |
| 3 | the patient's date of birth |
| 4 | the patient's national number |
| 5 | the patient's insurance number (not used) |
| 6 | the patient's code |
object.Value
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISPatientLookupParam interface |
object
Display the number of the patients loaded on the basis of the selected Lookup Parameter and their full names.
Dim aParam
Dim aList
Dim aPatientLookupItem
Dim aLookupType
Dim aMessage
Set aParam = Profile.MakePatientLookupParam 'ISPatientLookupParam
aParam.IsMasterPatientSearch = True
aParam.IsStartsWith = True
aParam.Value = "s,s" 'Surname,First name
aParam.OnlyActive = 1 'spasAll
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
next
Profile.MsgBox(aMessage)