This function creates a new CDO form for the specified patient by the specified form template.
object.OpenFormByPath(aPatientID, aFullPath[, aIsVisible
= true[, aIsModal = false]])
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProfile interface |
|
aPatientID |
In, Required | int |
ID of the patient |
aFullPath |
In, Required | string |
The full path to the form in the form templates
tree |
aIsVisible |
In, Optional Default value is
true |
bool |
The flag is True if the form is visible on
opening |
aIsModal |
In, Optional Default value is
false |
bool |
This flag is True if the form is opened in the modal
mode |
Create new CDO form and open it in the modal mode.
Dim aPatient
Dim aForm
Dim aModalResult
Set aPatient = Profile.SelectPatient
set aForm = Profile.OpenFormByPath(aPatient.Id, "Clinical\MainCliniclForm", true, true)
aModalResult = aForm.ShowModal
Profile.MsgBox(aModalResult)
In Profile Client v8 on User Interface CDO Forms can be found in
.aIsModal
added in
v8.2.6aIsVisible
added in
v8.2.6