ISNewContactParams.CaseID

Example

Create a new contact that contains the patient's measurements.

Dim aResult
Dim aCaseId
Dim aPatientId
Dim aCurrentPOSId
Dim aUserId
Dim aParam 
Dim aContact
Dim aDate

aResult = Profile.Lookup_PatientCaseSearch(aPatientId, aCaseId, _
  "Select Case for search", true)
  
if not aResult then exit sub  

aCurrentPOSId = Profile.CurrentPOSId 
aUserId = Profile.CurrentUserId
  
set aParam = Profile.CreateNewContactParamObj(aCurrentPOSId, aUserId, aPatientID)
aParam.CaseId = aCaseId             
aParam.ClinicalNoteRtf =_
  Profile.ProfileInternal.Html2Rtf(_
    "These observations were done by the patient.<br>Please, confirm the information.")
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")