ISNewContactParams.BmiInterpretation

Example

Create a new contact that contains the patient's measurements, including the interpretation of the patient's body mass index.

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.BmiInterpretation = "Pre-obese"
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")