Searches the list of valid alerts in Oracle Forms. When the given alert is located, the subprogram returns an alert ID. You must return the ID to an appropriately typed variable. Define the variable with a type of Alert.
FUNCTION FIND_ALERT
(alert_name VARCHAR2);
Built-in Type unrestricted function
Returns Alert
Enter Query Mode yes
/*
** Built-in: FIND_ALERT
** Example: Show a user-warning alert. If the user presses
** the OK button, then make REALLY sure they want
** to continue with another alert.
*/
DECLARE
al_id Alert;
al_button NUMBER;
BEGIN
al_id := Find_Alert('User_Warning');
IF Id_Null(al_id) THEN
Message('User_Warning alert does not exist');
RAISE Form_Trigger_Failure;
ELSE
/*
** Show the warning alert
*/
al_button := Show_Alert(al_id);
/*
** If user pressed OK (button 1) then bring up another
** alert to confirm -- button mappings are specified
** in the alert design
*/
IF al_button = ALERT_BUTTON1 THEN
al_id := Find_Alert('Are_You_Sure');
IF Id_Null(al_id) THEN
Message('The alert named: Are you sure? does not exist');
RAISE Form_Trigger_Failure;
ELSE
al_button := Show_Alert(al_id);
IF al_button = ALERT_BUTTON2 THEN
Erase_All_Employee_Records;
END IF;
END IF;
END IF;
END IF;
END;
Referencing Oracle Forms Objects by Internal ID