[Home] [Help]
PACKAGE BODY: APPS.AMS_RESOURCE_PVT
Source
1 PACKAGE BODY AMS_RESOURCE_PVT AS
2 /* $Header: amsvrctb.pls 120.0 2005/05/31 14:50:00 appldev noship $ */
3
4 PROCEDURE CREATE_RESOURCE
5 (X_RESOURCE_ID OUT NOCOPY JTF_RS_RESOURCE_EXTNS.RESOURCE_ID%TYPE
6 )
7 IS
8 l_api_version NUMBER := 1.0;
9 l_init_msg_list VARCHAR2(1) :=FND_API.G_TRUE;
10 l_commit VARCHAR2(1) :=FND_API.G_TRUE;
11 l_return_status VARCHAR2(1);
12 l_msg_count NUMBER;
13 l_msg_data VARCHAR2(2000);
14 l_catagory JTF_RS_RESOURCE_EXTNS.CATEGORY%TYPE := 'OTHER';
15 l_resource_id JTF_RS_RESOURCE_EXTNS.RESOURCE_ID%TYPE;
16 l_resource_number JTF_RS_RESOURCE_EXTNS.RESOURCE_NUMBER%TYPE;
17 l_resource_name JTF_RS_RESOURCE_EXTNS_TL.RESOURCE_NAME%TYPE :='AMS_WEB_INTERACTION';
18 l_source_name JTF_RS_RESOURCE_EXTNS.SOURCE_NAME%TYPE :='AMS_WEB_INTERACTION';
19 l_user_name VARCHAR2(100) :='AMSWEBUSER';
20 l_count NUMBER := 0;
21
22 BEGIN
23
24 SELECT count(*) INTO l_count FROM JTF_RS_RESOURCE_EXTNS A,JTF_RS_RESOURCE_EXTNS_TL B
25 WHERE A.source_name = l_source_name and B.resource_name = l_resource_name
26 and A.resource_id = B.resource_id
27 and A.user_name = l_user_name;
28 /*
29 IF l_count = 0 THEN
30 -- dbms_output.put_line('Oracle Advanced Outbound Will Create A Resource For Web Interaction');
31 JTF_RS_RESOURCE_PUB.create_resource
32 (P_API_VERSION => l_api_version,
33 P_INIT_MSG_LIST => l_init_msg_list,
34 P_COMMIT => l_commit,
35 P_CATEGORY => l_catagory,
36 P_START_DATE_ACTIVE => sysdate,
37 X_RETURN_STATUS => l_return_status,
38 X_MSG_COUNT => l_msg_count,
39 X_MSG_DATA => l_msg_data,
40 X_RESOURCE_ID => l_resource_id,
41 X_RESOURCE_NUMBER => l_resource_number,
42 P_RESOURCE_NAME => l_resource_name,
43 P_SOURCE_NAME => l_source_name,
44 P_USER_NAME => l_user_name
45 );
46 ELSE
47 -- dbms_output.put_line('Oracle Advanced Outbound Already Has A Resource For Web Interaction');
48
49 GET_WEB_INTERACTION_RES_ID(l_resource_id);
50 END IF;
51
52 X_RESOURCE_ID := l_resource_id;
53 */
54 -- dbms_output.put_line('THE RESOURCE ID FOR WEB INTERACTION = '||X_RESOURCE_ID);
55
56 END CREATE_RESOURCE;
57
58 PROCEDURE GET_WEB_INTERACTION_RES_ID
59 (X_RESOURCE_ID OUT NOCOPY JTF_RS_RESOURCE_EXTNS.RESOURCE_ID%TYPE
60 )
61 IS
62 l_resource_name JTF_RS_RESOURCE_EXTNS_TL.RESOURCE_NAME%TYPE :='AMS_WEB_INTERACTION';
63 l_source_name JTF_RS_RESOURCE_EXTNS.SOURCE_NAME%TYPE :='AMS_WEB_INTERACTION';
64 l_user_name VARCHAR2(100) :='AMSWEBUSER';
65 l_resource_id JTF_RS_RESOURCE_EXTNS.RESOURCE_ID%TYPE := -1;
66
67 BEGIN
68 select 'X' into l_user_name from dual;
69 /*
70 SELECT A.resource_id INTO l_resource_id
71 FROM JTF_RS_RESOURCE_EXTNS A,JTF_RS_RESOURCE_EXTNS_TL B
72 WHERE A.source_name = l_source_name and B.resource_name = l_resource_name
73 and A.resource_id = B.resource_id and A.user_name = l_user_name
74 and rownum < 2;
75
76 X_RESOURCE_ID := l_resource_id;
77 */
78 END GET_WEB_INTERACTION_RES_ID;
79
80 END AMS_RESOURCE_PVT;
81