PACKAGE BODY: APPS.ICX_EXT_SUPPLIER

Source

1 package body icx_ext_supplier  as
2 /* $Header: ICXEXSPB.pls 115.4 2001/11/14 09:50:13 pkm ship    $ */
3 
4 PROCEDURE authenticate_user(ticket in number) is
5 
6 	user_record		icx_requisitioner_info%ROWTYPE;
7 	l_session_id 	number;
8 	l_company 	varchar2(100);
9 	l_url			varchar2(2000);
10 	l_user_name		varchar2(100);
11 
12 	CURSOR req_user_cursor IS
13 	SELECT fu.user_name, ipss.company, iri.operating_unit,
14 		 iri.ship_to, iri.deliver_to, iri.req_token,
15 		 iri.http_host, ipss.callback_URL
16 	FROM 	 icx_procurement_server_setup ipss,
17 		 icx_sessions ics, fnd_user fu,
18 		 icx_requisitioner_info iri,
19                  icx_por_item_sources it
20 	WHERE	 ics.disabled_flag = 'N'
21 	AND	 iri.session_id = ics.session_id
22 	AND 	 ics.user_id = fu.user_id
23 	AND 	 iri.encrypted_session_id = ticket
24         AND      it.item_source_id = ipss.item_source_id
25         AND      it.protocol_supported is null;
26 BEGIN
27 
28 	OPEN req_user_cursor ;
29 
30 	FETCH req_user_cursor
31 	INTO  l_user_name, l_company, user_record.operating_unit,
32 	      user_record.ship_to, user_record.deliver_to,
33 	      user_record.req_token, user_record.http_host, l_url;
34 
35 	if (req_user_cursor%FOUND) THEN
36 
37 		htp.p('<?xml version=''1.0''?>');
38 		htp.p('<RequisitionUser>');
39 		htp.p('<userName>'||l_user_name||'</userName>');
40 		htp.p('<company>'||l_company ||'</company>');
41 		htp.p('<operatingUnit>'||user_record.operating_unit||'</operatingUnit>');
42 		htp.p('<shipTo>'||user_record.ship_to||'</shipTo>');
43 		htp.p('<deliverTo>'||user_record.deliver_to||'</deliverTo>');
44 		htp.p('<reqToken>'||user_record.req_token||'</reqToken>');
45 		htp.p('<returnURL>'|| FND_WEB_CONFIG.PROTOCOL ||'//'||user_record.http_host||l_url||'</returnURL>');
46 		htp.p('</RequisitionUser>');
47 
48 	else
49 		htp.p('<?xml version=''1.0''?>');
50 		htp.p('<InvalidUser>');
51 		htp.p('<message>Invalid User</message>');
52 		htp.p('</InvalidUser>');
53 
54 	end if;
55 
56 	CLOSE req_user_cursor;
57 
58 	EXCEPTION
59         	when others then
60                 htp.p(SQLERRM);
61 
62 
63 END authenticate_user;
64 
65 END icx_ext_supplier;