This function appends the contact entry form to the contact.
object.NewCEFContact(AFormFullPath)
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISEncounter interface |
|
AFormFullPath |
In, Required | string |
The full path to the form template |
Create a new encounter and append the contact entry form to the contact.
Dim aPatient, aPatientID
Dim aCaseID
Dim aEncounter
Dim aContact
set aPatient = Profile.SelectPatient
aPatientID = aPatient.ID
aCaseID = 0
set aEncounter = Profile.CreateEncounter(aPatientID, aCaseID)
set aContact = aEncounter.NewCEFContact("Contact Entry Forms\Community Health\Encounter-Contact Form")
aContact.DiagnosisDescription = "111111111111"
Profile.MessageBox("New form was added into the contact with id = " & aContact.Id)In Profile Client v8 on User Interface CEF can be found in .