ISPatientRecallVisit.AddAction

Description

This function adds an action to the patient's intervention by its service code.

Syntax

object.AddAction(pCode)

Part	Attribute	Type	Description
`object`	Required	ISPatientRecallVisit	The `object` always implements the ISPatientRecallVisit interface
`pCode`	In, Required	string	The code of the action

Return Value

ISRecallAction

Returns the action added to the patient's intervention.

Example

Add the action to the patient's intervention by its service code.

Dim aPatient
Dim aRecallVisits
Dim aVisits
Dim aVisit
Dim aNewAction
Dim aActions
Dim aAction
Dim aMessage

set aPatient = Profile.SelectPatient
set aRecallVisits = aPatient.RecallVisits
set aVisits = aRecallVisits.Due 
for each aVisit in aVisits 
  set aNewAction = aVisit.AddAction("122")
  aNewAction.Description = aNewAction.Description & " (Test Only)"
next

for each aVisit in aVisits
  aMessage = aMessage & "Intervention: " & aVisit.Description & vbNewLine
  set aActions = aVisit.Actions
  for i = 0 to aActions.Count - 1 
    set aAction = aActions.Item(i)
    aMessage = aMessage & "  Action: " & aAction.Description & vbNewLine   
  next
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Actions can be found and added in Clinical > Medical Record > Care Plans.

Version information

Added in v7.8.0