Forms Library: PKG_MESSAGE
This is just a post to document the standard library that I like to create in Oracle Forms, if equivalents are not already available. Suggestions or critiques are welcome.
“No warranty is express or implied about the suitability of this code for any purpose.”
Forms Package Specification: PKG_MESSAGE
PACKAGE PKG_MESSAGE IS PROCEDURE error (message IN VARCHAR2 ,popup_title IN VARCHAR2 := 'Error'); PROCEDURE note (message IN VARCHAR2 ,popup_title IN VARCHAR2 := 'Note'); PROCEDURE warning (message IN VARCHAR2 ,popup_title IN VARCHAR2 := 'Warning'); END PKG_MESSAGE;
Forms Package Body: PKG_MESSAGE
PACKAGE PKG_MESSAGE IS PROCEDURE error (message IN VARCHAR2 ,popup_title IN VARCHAR2 := 'Error') IS -- requires a suitable alert called "ERROR" n NUMBER; BEGIN msg('PKG_MESSAGE.error('''||message||''','''||popup_title||''')'); SET_ALERT_PROPERTY('ERROR', TITLE, popup_title); SET_ALERT_PROPERTY('ERROR', ALERT_MESSAGE_TEXT, message); n := SHOW_ALERT('ERROR'); RAISE FORM_TRIGGER_FAILURE; END error; PROCEDURE note (message IN VARCHAR2 ,popup_title IN VARCHAR2 := 'Note') IS --requires a suitable alert "NOTE" n NUMBER; BEGIN msg('PKG_MESSAGE.note('''||message||''','''||popup_title||''')'); SET_ALERT_PROPERTY('NOTE', TITLE, popup_title); SET_ALERT_PROPERTY('NOTE', ALERT_MESSAGE_TEXT, message); n := SHOW_ALERT('NOTE'); END note; PROCEDURE warning (message IN VARCHAR2 ,popup_title IN VARCHAR2 := 'Warning') IS -- requires a suitable alert "WARNING" n NUMBER; BEGIN msg('PKG_MESSAGE.warning('''||message||''','''||popup_title||''')'); SET_ALERT_PROPERTY('WARNING', TITLE, popup_title); SET_ALERT_PROPERTY('WARNING', ALERT_MESSAGE_TEXT, message); n := SHOW_ALERT('WARNING'); END warning; END PKG_MESSAGE;