ISNewContactParams.HeightWeightDate

Example

Create a new contact that contains the patient's measurements, including the date and time of the last observation of the patient's height and weight.

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.HeightWeightDate = #11/29/2019#
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")