DECLARE

counter	NUMBER(2);
sett_itm	ITEM;
dflt_dir	VARCHAR2(256);
app_name	applications.application_desc%TYPE;

BEGIN
EXECUTE_TRIGGER('WNFI');
DEFAULT_VALUE('','GLOBAL.user_code');
DEFAULT_VALUE('','GLOBAL.user_dsp_name');

app_name := 'Unknown';

IF :SYSTEM.CURRENT_FORM = 'NHPC' THEN
	disable_menu;
END IF;

SET_WINDOW_PROPERTY(FORMS_MDI_WINDOW,TITLE, 'National Hydroelectric Power Corporation ' || ' User : ' || :GLOBAL.user_code);
READ_IMAGE_FILE('nhpc.bmp', 'BMP', 'tool.nhpcpic');
SET_WINDOW_PROPERTY(FORMS_MDI_WINDOW,WINDOW_STATE,MAXIMIZE);

dflt_dir := GET_FORM_PROPERTY('nhpc', FILE_NAME);

FOR cntr IN REVERSE 1..LENGTH(dflt_dir)
LOOP
	IF SUBSTR(dflt_dir, cntr, 1) = '\' THEN
		counter := cntr;
		EXIT;
	END IF;
END LOOP;

dflt_dir := SUBSTR(dflt_dir, 1, counter);
:GLOBAL.default_dir := dflt_dir;

END;

IF :GLOBAL.user_code <> '' THEN
	GO_BLOCK('control');
END IF;

:tool.dsp_heading := 'National Hydroelectric Power Corporation';

FOR apprec IN (	SELECT	application_desc
			FROM		applications
			WHERE		application_code = (	SELECT	application_code
									FROM		modules
									WHERE		module_code = :system.current_form))
LOOP
	:tool.dsp_heading := apprec.application_desc;
END LOOP;

FOR apprec IN (	SELECT	module_desc
			FROM		modules
			WHERE		module_code = :system.current_form)
LOOP
	:tool.dsp_sub_heading := apprec.module_desc;
END LOOP;

:tool.dsp_heading := 'National Hydroelectric Power Corporation';
or
:tool.dsp_heading := apprec.application_desc;
or
:tool.dsp_sub_heading := apprec.module_desc;