ISNewContactParams.AddMeasure

Example

Create a new contact that contains the patient's measurements and add the value of the measure which will be inserted into the created contact.

Dim aTermsetCode
Dim aConceptCode
Dim aConceptId
Dim aPatient
Dim aPatientId
Dim aCurrentPOSId
Dim aUserId
Dim aParam 
Dim aContact
Dim aDate

aTermsetCode = "IH"
aConceptCode = "z..K8" 
aConceptId = Profile.Concept(aTermsetCode, aConceptCode).Id

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                                                        
aParam.AddMeasure aConceptID, "104"
                                                              
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")