ISNewContactParams.IdealWeight

Example

Create a new contact that contains the patient's measurements, including the ideal weight of the patient.

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