declare
	--
	CurrItem varchar2(30) := get_item_property(:system.cursor_item, item_name) ;
	--
	x number ;
	--
	--cursor c1
	--
  cursor c1 is
	select a.descr
	  from MmsPath a, MmsProgName b
	 where a.Co 			= :B0.Co
	   and b.ProgName = :B0.HelpFile
	   and a.Co 			= b.Co
	   and a.Path 		= b.Path ;
	--	 
	VPath	varchar2(50);
	--
begin
	--
	--checking if some error is shown
	--
	if :B0.LastError is not null then
		--
    --showing help for the specific error messages
    --error number will be passed as parameter.
    --
		ShowHelp(:B0.LastError) ;
		--
	else --if :B0.LastError is not null 
		--
		--if cursor is in some text field
		--
		if CurrItem is not null then
			--  
			-- openning cursor c1 for getting physical path of the 
			-- help file.
			--
			open c1 ;
			fetch c1 into VPath ;
			close c1 ; -- closing cursor c1 ;
			--
			--Calling Function for getting help topic's ID
			--stored against a particular field of block.
			--
			--Parameters for this procedure are
			--
			--1. Block Name
			--2. Field Name
			--	
			x := GetHelpId(get_item_property(:system.cursor_item, block_name), CurrItem) ;
			--
		  --using windows api to display the help of the specific topic
		  --
--		  win_api_shell.winhelp(VPath||:B0.HelpFile||'.hlp', x,win_api.help_context) ;
--	get_windows_directory(VPath||:B0.HelpFile||'.hlp', x,'win_api.help_context') ;
           Host(VPath||:B0.HelpFile||'.hlp', x);--win_api.help_context) ;
			--
		end if ; --if curritem is not null 
		--
	end if ; --if :B0.LastError is not null 
	--
end ;