declare
	htree item;
	node_value VARCHAR2(100);
	akt_node ftree.node;
	pl_id        PARAMLIST; 
begin
	htree := find_item('TREE_BLOCK.FILE_NAME');
	akt_node := ftree.get_tree_selection(htree, 1);
	node_value := ftree.get_tree_node_property (htree, akt_node, ftree.node_value);

  pl_id := get_parameter_list('mylist');
  If not Id_null(pl_id) Then
     Destroy_parameter_list('mylist');
  End If;
  pl_id := Create_parameter_list('mylist');
	--message(:ptype||' - '||node_value);message(:ptype||' - '||node_value);
	BEGIN
		SELECT CS_TYPE
			INTO :PTYPE
		 FROM COMM_SCREENS
		 	WHERE LTRIM(RTRIM(CS_FILE_NAME)) = LTRIM(RTRIM(NODE_VALUE));

		 	IF :PTYPE = 'F' THEN
			 	ADD_PARAMETER(PL_ID,'P_USERID', TEXT_PARAMETER,:USER_ID);
			 	ADD_PARAMETER(PL_ID,'P_SCREENID', TEXT_PARAMETER, NODE_VALUE);
			 	ADD_PARAMETER(PL_ID,'P_COMPC', TEXT_PARAMETER,:COMPC);
			 	ADD_PARAMETER(PL_ID,'P_BRANC', TEXT_PARAMETER,:BRANC);
			 	ADD_PARAMETER(PL_ID,'P_SEASON', TEXT_PARAMETER,:SEASON);
				ADD_PARAMETER(PL_ID,'P_SESSION', TEXT_PARAMETER,:SESSION);		 	
			 	CALL_FORM(NODE_VALUE,NO_HIDE,DO_REPLACE,NO_QUERY_ONLY,SHARE_LIBRARY_DATA,PL_ID);
			ELSIF :PTYPE = 'R' THEN
			 	ADD_PARAMETER(PL_ID,'P_USERID', TEXT_PARAMETER,:USER_ID);
			 	ADD_PARAMETER(PL_ID,'P_COMPC', TEXT_PARAMETER,:COMPC);
			 	ADD_PARAMETER(PL_ID,'P_BRANC', TEXT_PARAMETER,:BRANC);
			 	ADD_PARAMETER(PL_ID,'P_SEASON', TEXT_PARAMETER,:SEASON);
				Run_Product(REPORTS,NODE_VALUE,ASYNCHRONOUS,RUNTIME,FILESYSTEM,pl_id, NULL);
			ELSIF :PTYPE = 'M' THEN
				NULL;
			ELSE
				NULL;
			END IF;
			--:ptype := null;
	EXCEPTION
		WHEN OTHERS THEN
		NULL;
	END;
EXCEPTION
	WHEN OTHERS THEN
	MESSAGE(SQLERRM);MESSAGE(SQLERRM);
end;