ISProfile.CreatePatientContact

Description

This function creates a new contact.

Syntax

object.CreatePatientContact(aContactParams)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aContactParams`	In, Required	ISNewContactParams	The parameters for creating a new contact

Return Value

ISContact

Returns the created contact.

Example

Create a new contact including some observations.

Dim aPatient
Dim aPatientId
Dim aCurrentPOSId
Dim aUserId
Dim aParam 
Dim aContact
Dim aDate

Set aPatient = Profile.SelectPatient
aPatientId = aPatient.ID
aCurrentPOSId = Profile.CurrentPOSId 
aUserId = Profile.CurrentUserId
  
set aParam = Profile.CreateNewContactParamObj(aCurrentPOSId, aUserId, aPatientID)
aParam.ClinicalNote = "These observations were done by the patient."
aParam.Height = 172.5
aParam.HeightUnits = 4 'CM  
aParam.Weight = 77
aParam.WeightUnits = 2 'Kg
aParam.Temperature = 36.6
aParam.TemperatureUnits = 0 'Celsius
aParam.BloodPressureTop = 121
aParam.BloodPressureLow = 81
aParam.BMI = 25 
aParam.Glucose = 4
aParam.PeakFlow = 500
aParam.PEFR = 500
aParam.LowerWeight = 70
aParam.UpperWeight = 80
aParam.IdealWeight = 73 
aParam.PulseRate = 71
aParam.Waist = 80                                                        
 
set aContact = Profile.CreatePatientContact(aParam)

aDate = Now 

aContact.Date = aDate 
aContact.Time = aDate
aContact.DiagnosisDescription = "Patient's measures on " & aDate

aContact.Encounter.DateTime = aDate 

Profile.MsgBox("The contact with the specified patient's observations was created")

Note:

In Profile Client v8 on User Interface Contacts can be found in Clinical > Medical Record > Encounters.

Version information