The SCP (Specimen Collection Point) ID associated with the place of service.
object.SCPID
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISProvider interface |
string
Display the SCP (Specimen Collection Point) ID associated with the place of service.
Dim aFilter
Dim aPOSList, aPOS
Dim aMessage
Set aFilter = Profile.CreateProvidersFilter
aFilter.Category = 3 'pcPOS
set aPOSList = Profile.LoadProvidersByFilter(aFilter)
aMessage = aMessage & vbNewLine &_
"The number of the providers is " & aPOSList.Count
aMessage = aMessage & vbNewLine &_
"Full Name:" & vbTab & "SCPID:"
for each aPOS in aPOSList
aMessage = aMessage & vbNewLine &_
aPOS.FullName & vbTab &_
aPOS.SCPID
next
Profile.MsgBox (aMessage) In Profile Client v8 on User Interface SCP ID can be found in .