ISEncounter.Set_Case

Example

Create a new contact and display its ID and case ID of its encounter.

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")