Cancel the Note Function in Oracle Apps

function note()
Dim Message
If OracleNotification("title:=Note").Exist Then
Message = OracleNotification("title:=Note").GetROProperty("message")
reporter.ReportEvent micWarning, "Note Message: ", ""&Message OracleNotification("title:=Note").Approve
note = 1
Else
note = 0
End If
End Function