ISNewContactParams.PosID

Example

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

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