ISCareAction.Funded

Description

Returns True if the care action template is flagged as being billed to the government or patient.

Syntax

object.Funded

Part	Attribute	Type	Description
`object`	Required	ISCareAction	The `object` always implements the ISCareAction interface

Return Value

bool

Example

Display Funded for 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 Funded: " & aAction.Funded
         
    next 'j
  end if
    
next 'i
  
Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface the Funded checkbox can be checked in Maintain > Care Plans > Open Plan > Interventions > Alter Action > Funded.

Version information

Added in v7.10.120