Returns S (Skip) if the patient already has a particular care plan, otherwise returns W (Warn) to inform the patient that this care plan has already been assigned.
object.Clash
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISCareVisit interface |
string
Display S if the patient already has a particular care plan, otherwise display W to inform the patient that this care plan has already been assigned.
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 clash " &_
"for the intervention template '" &_
aVisit.Description & "'" & " is " & aVisit.Clash
next
end if
Profile.MsgBox (aMessage)
In Profile Client v8 on User Interface the Skip radio button and the Warn radio button can be selected in
.int to string
in v8.5.0