Declare 
	n NUMBER;
	
BEGIN
	
	set_alert_property ('ALERT_CHOOSE', alert_message_text, 'Please choose a Division');
	set_alert_button_property ('ALERT_CHOOSE', alert_button1, label, 'OK');
	n := show_alert ('ALERT_CHOOSE');
	
	if n = alert_button1 then
	go_item('list_of_divisions');
	
	BEGIN 
		IF :DIVISIONS.LIST_OF_DIVISIONS = 'Systems Management Division' THEn
		 	call_form ('C:\nomb\SMDSCHED.fmx');
		 				 				
		ELSIF :DIVISIONS.LIST_OF_DIVISIONS = 'ICT Planning & Standards Division' THEn
		 	call_form ('C:\nomb\ICTSCHED.fmx');
	
		ELSIF :DIVISIONS.LIST_OF_DIVISIONS = 'Knowledge Management Division' THEn
		 	call_form ('C:\nomb\KMDSCHED.fmx');
				
		ELSE :DIVISIONS.LIST_OF_DIVISIONS = 'Network Operations & Management Division' THEN
				call_form('c:\nomb\NOMDSCHED.fmx');
  
END;

	
ELSE :DIVISIONS.LIST_OF_DIVISIONS = 'Network Operations & Management Division' THEN
				call_form('c:\nomb\NOMDSCHED.fmx');