declare
  l_var varchar2(40);
begin
  l_var := Get_Application_Property(OPERATING_SYSTEM);
  message(l_var); pause;
  l_var := Get_Application_Property(USER_INTERFACE);
  message(l_var); pause;
end;

IF :GLOBAL.APPLICATION_ID IS NOT NULL THEN
  MESSAGE('Application is already running.');
ELSE
  -- one
  appl_name := 'C:\Program Files\MicrosoftOffice\Office\WINWORD.EXE';
  :GLOBAL.application_id := DDE.APP_BEGIN(appl_name, DDE.APP_MODE_MAXIMIZED);
  -- two
  appl_name := 'C:\Program Files\Microsoft Office\Office11\WINWORD.EXE';
  :GLOBAL.application_id := DDE.APP_BEGIN(appl_name, DDE.APP_MODE_MAXIMIZED);
END IF;

BEGIN
	
DECLARE

	appl_name		  		varchar2(255);
	appl_name2		  		varchar2(255);
	docid         				pls_integer;
	ws_current_date				varchar2(60);
	ws_current_day_year                     varchar2(20);
	ws_current_month                        varchar2(20);
	hold_city				varchar2(20);
	hold_st					varchar2(02);
	hold_zipcode				varchar2(10);
	hold_street				varchar2(100);
	hold_lab_dir_firstname		        varchar2(25);
	hold_lab_dir_lastname			varchar2(25);
	hold_lab_dir_salutation		        varchar2(15);
	ws_city_st_zip				varchar2(50);
	ws_lab_dir_name         	        varchar2(75);
	ws_lab_dir_salutation   	        varchar2(75);
	ws_user_name	   			varchar2(20);
	ws_password_name			varchar2(20);
	ws_connect_string_name                  varchar2(20);
	
	
BEGIN
	ws_user_name := get_application_property(username);
	ws_password_name := get_application_property(password);
	ws_connect_string_name := get_application_property(connect_string);

	select 
		mailcity, 
		mailst, 
		mailzip, 
		mailstreet, 
		lab_dir_firstname, 
		lab_dir_lastname, 
		lab_dir_salutation
		
	into 
		hold_city, 
		hold_st, 
		hold_zipcode, 
		hold_street, 
		hold_lab_dir_firstname, 
		hold_lab_dir_lastname, 
		hold_lab_dir_salutation
		
	from h64laboratory_details
	where :h64laboratory_details.azlicense = azlicense;
	
	ws_city_st_zip  := hold_city||', '||hold_st||' '||hold_zipcode;
		
	If substr(hold_lab_dir_lastname,1,2) = 'Mc' or
		 substr(hold_lab_dir_lastname,1,2) = 'MC'	then
		 
		 	If substr(hold_lab_dir_salutation,1,3) = 'Dr.'		then
		 		ws_lab_dir_name := hold_lab_dir_firstname||' '||substr(hold_lab_dir_lastname,1,2)||
		 											 substr(hold_lab_dir_lastname,3,23)||', Ph.D';
		 	Else
		 		ws_lab_dir_name := hold_lab_dir_salutation||' '||hold_lab_dir_firstname||' '||
		 											 substr(hold_lab_dir_lastname,1,2)||substr(hold_lab_dir_lastname,3,23);
		 	End if;
		 	
		 	
		 	ws_lab_dir_salutation := hold_lab_dir_salutation||' '||
		 	                         substr(hold_lab_dir_lastname,1,2)||
		 	                         substr(hold_lab_dir_lastname,3,23)||':';
		 	                         
		 	                         
 	ELSE
		
		 	If substr(hold_lab_dir_salutation,1,3) = 'Dr.'		then
		 		ws_lab_dir_name := hold_lab_dir_firstname||' '||hold_lab_dir_lastname||', Ph.D';
		 	Else
		 		ws_lab_dir_name := hold_lab_dir_salutation||' '||hold_lab_dir_firstname||' '||
		 											 hold_lab_dir_lastname;
		 	End if;
		 	ws_lab_dir_salutation := hold_lab_dir_salutation||' '||hold_lab_dir_lastname||':';
			 	
  End if;
	
	
	
	
-- START WORD



IF :GLOBAL.APPLICATION_ID IS NOT NULL THEN
  MESSAGE('Application is already running.');
ELSE
  
  -- FIST DIRECTORY ON WINDOWS 2000 	
  appl_name := 'C:\Program Files\Microsoft Office\Office\WINWORD.EXE';
  :GLOBAL.application_id := DDE.APP_BEGIN(appl_name, DDE.APP_MODE_MAXIMIZED);
  

  -- SECOND DIRECTORY ON WINDOWS XP
  appl_name := 'C:\Program Files\Microsoft Office\Office11\WINWORD.EXE';
  :GLOBAL.application_id := DDE.APP_BEGIN(appl_name, DDE.APP_MODE_MAXIMIZED);
  
END IF;





-- Establishing a DDE communication channel (between Form Builder & a topic in the application server.
If :GLOBAL.channel_id IS NOT NULL THEN
   MESSAGE('Communication channel already established.');

ELSIF 
   :GLOBAL.application_id IS NULL THEN
   MESSAGE('Application must be launched first.');


ELSE

-- INITIATE CONVERSATION WITH WORD 
   :GLOBAL.channel_id := DDE.INITIATE('WINWORD','SYSTEM');

-- OPEN WORD TEMPLATE
    If 
	  	 ws_user_name = 'H64ELBIS' or
	  	 ws_user_name = 'H31SECURITY' then
		 DDE.EXECUTE(:GLOBAL.channel_id,'[FileOpen "F:\ELBIS\LETTERS\ACCEPTANCE_LETTER.DOC"]',10000);
    Else

      DDE.EXECUTE(:GLOBAL.channel_id,'[FileOpen "G:\Env\LETTERS\ACCEPTANCE_LETTER.DOC"]',10000);

    End if;	


--INITIATE CONVERSATION WITH WORD TEMPLATE
    If   	 ws_user_name = 'H64ELBIS' or
	  	 ws_user_name = 'H31SECURITY' then
                 DOCID := DDE.INITIATE('WINWORD','F:\ELBIS\LETTERS\ACCEPTANCE_LETTER.DOC');
    Else

    	         DOCID := DDE.INITIATE('WINWORD','G:\Env\LETTERS\ACCEPTANCE_LETTER.DOC');

    End if;

END IF;
	
	
--BEGIN TRANSFER TO WORD
	select to_char(sysdate, 'Month') into ws_current_month from dual;
	ws_current_month := rtrim(ws_current_month);
	select to_char(sysdate, 'DD, YYYY') into ws_current_day_year from dual;
	ws_current_date := ws_current_month||' '||ws_current_day_year;
	DDE.POKE(DOCID,'TODAYS_DATE',ws_current_date,DDE.CF_TEXT,10000);
	DDE.POKE(DOCID,'LAB_DIRECTOR_NAME',nvl(ws_lab_dir_name, ' '),DDE.CF_TEXT,10000);
	DDE.POKE(DOCID,'LAB_NAME',:h64laboratory_details.labname,DDE.CF_TEXT,10000);
	DDE.POKE(DOCID,'STREET_ADDRESS',nvl(hold_street, ' '),DDE.CF_TEXT,10000);
	DDE.POKE(DOCID,'CITY_STATE_ZIP',nvl(ws_city_st_zip, ' '),DDE.CF_TEXT,10000);
	DDE.POKE(DOCID,'LICENSE_NUMBER',rtrim(:h64laboratory_details.azlicense),DDE.CF_TEXT,10000);
	DDE.POKE(DOCID,'SALUTATION',nvl(ws_lab_dir_salutation, ' '),DDE.CF_TEXT,10000);
	DDE.POKE(DOCID,'LAB_NAME2',:h64laboratory_details.labname,DDE.CF_TEXT,10000);
  

--SAVE THE TEMPLATE
--	DDE.EXECUTE(DOCID,'[FileSaveAs "F:\ELBIS\LETTERS\ACCEPTANCE_LETTER.DOC"]',10000);
	
--END TRANSFER TO WORD
	DDE.TERMINATE(:GLOBAL.channel_id);
	:GLOBAL.channel_id := null;
	:GLOBAL.application_id 	:= null;	
	
--HANDLE EXCEPTIONS	
	EXCEPTION
		WHEN DDE.DDE_APP_FAILURE THEN
			MESSAGE('Word for Windows cannot start.');
			RAISE FORM_TRIGGER_FAILURE;
		WHEN DDE.DDE_PARAM_ERR THEN
			MESSAGE('A Null value was passed to DDE');
			RAISE FORM_TRIGGER_FAILURE;
		WHEN DDE.DDE_INIT_FAILED THEN
			MESSAGE('Could not initialize DDE communication channel.');
			RAISE FORM_TRIGGER_FAILURE;
		WHEN DDE.DMLERR_NO_CONV_ESTABLISHED THEN
			MESSAGE('Could not establish DDE communication channel.');
			RAISE FORM_TRIGGER_FAILURE;
		WHEN DDE.DMLERR_NOTPROCESSED THEN
			MESSAGE('A Transaction Failed.');
			RAISE FORM_TRIGGER_FAILURE;
		WHEN OTHERS THEN
			MESSAGE('Error: '||TO_CHAR(SQLCODE)||' '||SQLERRM);
			RAISE FORM_TRIGGER_FAILURE;	
			
	END;
END;

FUNCTION HelloFile (p_filename VARCHAR2) RETURN BOOLEAN IS 

-- p_filename variable will hold the value of the directory specified in the trigger IF statement


fileID TEXT_IO.FILE_TYPE;

BEGIN

fileID := TEXT_IO.FOPEN(p_filename, 'r');

TEXT_IO.FCLOSE(fileID);

	

RETURN TRUE;


EXCEPTION
 
 WHEN others THEN
 
RETURN FALSE;
	
END HelloFile;

-- START WORD


IF :GLOBAL.APPLICATION_ID IS NOT NULL THEN
	
		MESSAGE('Application is already running.');

	ELSE
	
		IF HelloFile('C:\Program Files\Microsoft Office\Office\WINWORD.EXE') THEN

                             -- the above directory is then stored in the (p_filename) of the function HelloFile
                             -- to see if it can be opened, IF SO then open the directory as below
                             -- IF NOT then go to the else statement and process the next directory to open word. 

				appl_name := 'C:\Program Files\Microsoft Office\Office\WINWORD.EXE';
				:GLOBAL.application_id := DDE.APP_BEGIN(appl_name, DDE.APP_MODE_MAXIMIZED);

		ELSE

				appl_name := 'C:\Program Files\Microsoft Office\Office11\WINWORD.EXE';
				:GLOBAL.application_id := DDE.APP_BEGIN(appl_name, DDE.APP_MODE_MAXIMIZED);
				
		END IF;


		
END IF;