ISProfile.ShowModalPatientForm

Description

This function opens the patient form in the modal mode.

Syntax

object.ShowModalPatientForm(aPatientID)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aPatientID`	In, Required	int	ID of the patient

Return Value

int

Returns the modal result.

Example

Display the patient form in the modal mode.

Dim aPatient
Dim aPatientId 
Dim aResult

Set aPatient = Profile.SelectPatient
aPatientId =  aPatient.Id   
aResult = Profile.ShowModalPatientForm(aPatientId)

if aResult = idOk then
  Profile.MsgBox "The changes are accepted"
else
  Profile.MsgBox "The changes are declined"
end if

Note:

Version information

Added in v7.8.0