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';
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';
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;
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:
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
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: /*
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';
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:
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
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: /*
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: