ISPatient.AddAlert

Example

Add a new alert for the patient.

Dim aPatient 
Dim aPatientSelected 
Dim aNewProblem
Dim aPatientID 
Dim aCaseID
Dim aCategory
Dim aCode

aCategory = 105 'TSShortCodeCategory.sscCaseAlertType
aCode = "DU0008" 
Set aShortCode = Profile.LoadShortCodeByCodeType(aCode, aCategory)

aPatientSelected = Profile.Lookup_PatientCaseSearch(aPatientID, aCaseID,_
  "Select Patient and Case", True)
if not aPatientSelected then exit sub   

set aPatient = Profile.LoadPatient(aPatientID)
set aNewProblem = aPatient.AddAlert
aNewProblem.CaseAlertType = aShortCode.Id
aNewProblem.CaseId = aCaseID
aNewProblem.DXDescription = "New Alert DX Description"
aNewProblem.Save

Profile.MsgBox("New problem was added successfully!")