ISEncounter.NewContact

Example

Create a new contact and display its ID.

Dim aResult
Dim aPatientId
Dim aCase, aCaseId
Dim aCurrentPOSId
Dim aUserId
Dim aEncounter
Dim aParam
Dim aContact, aContactDate

aResult = Profile.Lookup_PatientCaseSearch(aPatientId, aCaseId, _
  "Select Case for search", true)
  
if not aResult then exit sub 
set aCase = Profile.OpenCase(aCaseID)
aCurrentPOSId = Profile.CurrentPOSId 
aUserId = Profile.CurrentUserId

set aEncounter = Profile.CreateEncounter(aPatientID, aCaseID)
aEncounter.Set_Case(aCase)
  
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 = aEncounter.NewContact(aParam)

aContactDate = Now 

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

Profile.MsgBox("New Contact with Id = " & aContact.Id &_
  " for the encounter with the case '" & aEncounter.Get_Case.CaseTitle &_
  "' was created successfully")