[Home] [Help]
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;