The provider type associated with the intervention template.
| 0 | rcppUnknown |
| 1 | rcppOwn |
| 2 | rcppOwn_Alt |
| 3 | rcppIs |
| 4 | rcppExternal |
| 5 | rcppInternal |
| 6 | rcppInPOS |
| 7 | rcppExtDr1 |
| 8 | rcppExtDr2 |
| 9 | rcppExtDr3 |
| 10 | rcppExtDr4 |
| 11 | rcppExtDr5 |
| 12 | rcppAltDoctor |
| 13 | rcppPatient |
| 14 | rcppLoggedOn |
| 15 | rcppType |
| 16 | rcppOtherPatient |
| 17 | rcppNonPatient |
| 18 | rcppAdHoc |
object.ProviderType
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISCareVisit interface |
int
Display the provider type associated with the intervention template.
Dim aCarePlan
Dim aMessage
Dim aVisits
Dim aVisit
Set aCarePlan = Profile.LoadCarePlanByCode ("FLU")
set aVisits = aCarePlan.Visits
if aVisits.Count = 0 then
aMessage = aMessage & vbNewLine & "There are no care visits!"
else
for i = 0 to aVisits.Count - 1
set aVisit = aVisits.Item(i)
aMessage = aMessage & vbNewLine & "The provider type" &_
" for the intervention template '" &_
aVisit.Description & "'" & " is " & aVisit.ProviderType
next
end if
Profile.MsgBox (aMessage) In Profile Client v8 on User Interface Provider Type can be found in .