ISPatientRecallPlan.IsNew

Description

This property checks if the patient's care plan is a new one. The property always returns False because the patient's care plan is automatically saved at the moment it is being created.

Syntax

object.IsNew

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

Restriction: This property is readonly.

Return Value

bool

Returns False because the patient's care plan is automatically saved at the moment it is being created.

Example

Display Is New for the patient's care plan.

Dim aPatient  
Dim aRecallPlan
Dim aProviderID
Dim aPOSID
Dim aDoc
Dim aCarePlan

Set aPatient = Profile.SelectPatient
aPOSID = aPatient.Get_PosId

set aDoc = aPatient.PracticeDr
if aDoc is nothing then
   Profile.MsgBox("----------")
   exit sub
end if   

aProviderID = aDoc.ID
set aCarePlan = Profile.LoadCarePlanByCode("FLU") 
Profile.MsgBox (aCarePlan.Id & " " & aPOSID & " " & aProviderID)
set aRecallPlan = aPatient.AddRecallPlan(aCarePlan, aPOSID, aProviderID)

aMessage = aMessage & vbNewLine
aMessage = aMessage & "New Recall Plan was added successfully!"
  
Profile.MsgBox (aRecallPlan.IsNew)

Note:

In Profile Client v8 on User Interface Is New cannot be found.

Version information

Added in v7.8.0