The activity type of the care action template.
| 0 | raatBase |
| 1 | raatTypingTemplate |
| 2 | raatForm |
| 3 | raatService |
| 4 | raatImmunisation |
| 5 | raatOrderRx |
| 6 | raatOrderInvestigation |
| 7 | raatOpenCalculator |
| 8 | raatReference |
| 9 | raatPatientInfoSheet |
| 10 | raatLetter |
| 11 | raatApplyVisitTemplate |
| 12 | raatResult |
| 13 | raatNewCareVisit |
| 14 | raatObservation |
| 15 | raatProviderInfoSheet |
object.ActivityType
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISCareAction interface |
int
Display the activity type of the care action template.
Dim aCarePlan
Dim aMessage
Dim aVisits
Dim aVisit
Dim aActions
Dim aAction
Set aCarePlan = Profile.LoadCarePlanByCode ("FLU")
set aVisits = aCarePlan.Visits
if aVisits.Count = 0 then
Profile.MsgBox ("NO INTERVENTIONS!")
exit sub
end if
for i = 0 to aVisits.Count - 1
set aVisit = aVisits.Item(i)
aMessage = aMessage & vbNewLine &_
"Intervention: " & aVisit.Description
set aActions = aVisit.Actions
if aActions.Count = 0 then
aMessage = aMessage & vbNewLine & " No Actions!"
else
for j = 0 to aActions.Count - 1
set aAction = aActions.Item(j)
aMessage = aMessage & vbNewLine & " Action: " & aAction.Description & vbNewLine &_
" Action Activity Type: " & aAction.ActivityType
next 'j
end if
next 'i
Profile.MsgBox (aMessage) In Profile Client v8 on User Interface Activity Type can be found in .