The type of the provider who performed the patient's intervention.
| 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.PerformedByType
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISPatientRecallVisit interface |
int
Display the type of the provider who performed the patient's intervention.
sub main()
Dim aPatient, aRecallPlans, aMessage
set aPatient = Profile.SelectPatient
set aRecallPlans = aPatient.RecallPlans
for each aPlan in aRecallPlans
aMessage = aMessage & GetVisitCollectionInfo(aPlan.Visits)
next
Profile.MsgBox(aMessage)
end sub
function GetVisitCollectionInfo(aVisits)
for each aVisit in aVisits
info = info & vbNewLine & "The type of the provider " &_
"who performed the intervention '" & aVisit.Description &_
"' = " & aVisit.PerformedByType
next
GetVisitCollectionInfo = info & vbNewLine
end function In Profile Client v8 on User Interface Performed By Type can be found in .