ISContact.Set_Case

Example

Create a new contact for the specified case and display its ID and the case title.

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 
aCurrentPOSId = Profile.CurrentPOSId 
aUserId = Profile.CurrentUserId

set aEncounter = Profile.CreateEncounter(aPatientID, aCaseID)

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)

set aCase = Profile.OpenCase(aCaseID)
aEncounter.Set_Case(aCase)
aContact.Set_Case(aCase)

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 case '" & aContact.Get_Case.CaseTitle &_
  "' was created successfully")