1: PACKAGE BODY IEM_RESOURCE_PVT AS
2: /* $Header: iemvresb.pls 115.2 2002/12/09 21:47:55 liangxia 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 :='ORACLE_PREDICTIVE';
18: l_source_name JTF_RS_RESOURCE_EXTNS.SOURCE_NAME%TYPE :='ORACLE_PREDICTIVE';
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 :='ORACLE_PREDICTIVE';
18: l_source_name JTF_RS_RESOURCE_EXTNS.SOURCE_NAME%TYPE :='ORACLE_PREDICTIVE';
19: l_user_name VARCHAR2(100) :='IEMDUMMYUSER';
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 :='ORACLE_PREDICTIVE';
18: l_source_name JTF_RS_RESOURCE_EXTNS.SOURCE_NAME%TYPE :='ORACLE_PREDICTIVE';
19: l_user_name VARCHAR2(100) :='IEMDUMMYUSER';
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 :='ORACLE_PREDICTIVE';
18: l_source_name JTF_RS_RESOURCE_EXTNS.SOURCE_NAME%TYPE :='ORACLE_PREDICTIVE';
19: l_user_name VARCHAR2(100) :='IEMDUMMYUSER';
20: l_count NUMBER := 0;
21: BEGIN
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 :='ORACLE_PREDICTIVE';
18: l_source_name JTF_RS_RESOURCE_EXTNS.SOURCE_NAME%TYPE :='ORACLE_PREDICTIVE';
19: l_user_name VARCHAR2(100) :='IEMDUMMYUSER';
20: l_count NUMBER := 0;
21: BEGIN
22: SELECT count(*) INTO l_count FROM JTF_RS_RESOURCE_EXTNS A,JTF_RS_RESOURCE_EXTNS_TL B
18: l_source_name JTF_RS_RESOURCE_EXTNS.SOURCE_NAME%TYPE :='ORACLE_PREDICTIVE';
19: l_user_name VARCHAR2(100) :='IEMDUMMYUSER';
20: l_count NUMBER := 0;
21: BEGIN
22: SELECT count(*) INTO l_count FROM JTF_RS_RESOURCE_EXTNS A,JTF_RS_RESOURCE_EXTNS_TL B
23: WHERE A.source_name = l_source_name and B.resource_name = l_resource_name
24: and A.resource_id = B.resource_id
25: and A.user_name = l_user_name;
26:
54:
55: END CREATE_RESOURCE;
56:
57: PROCEDURE GET_PRED_RES_ID
58: (X_RESOURCE_ID OUT NOCOPY JTF_RS_RESOURCE_EXTNS.RESOURCE_ID%TYPE
59: )
60: IS
61: l_resource_name JTF_RS_RESOURCE_EXTNS_TL.RESOURCE_NAME%TYPE :='ORACLE_PREDICTIVE';
62: l_source_name JTF_RS_RESOURCE_EXTNS.SOURCE_NAME%TYPE :='ORACLE_PREDICTIVE';
57: PROCEDURE GET_PRED_RES_ID
58: (X_RESOURCE_ID OUT NOCOPY JTF_RS_RESOURCE_EXTNS.RESOURCE_ID%TYPE
59: )
60: IS
61: l_resource_name JTF_RS_RESOURCE_EXTNS_TL.RESOURCE_NAME%TYPE :='ORACLE_PREDICTIVE';
62: l_source_name JTF_RS_RESOURCE_EXTNS.SOURCE_NAME%TYPE :='ORACLE_PREDICTIVE';
63: l_user_name VARCHAR2(100) :='IEMDUMMYUSER';
64: l_resource_id JTF_RS_RESOURCE_EXTNS.RESOURCE_ID%TYPE := -1;
65: BEGIN
58: (X_RESOURCE_ID OUT NOCOPY JTF_RS_RESOURCE_EXTNS.RESOURCE_ID%TYPE
59: )
60: IS
61: l_resource_name JTF_RS_RESOURCE_EXTNS_TL.RESOURCE_NAME%TYPE :='ORACLE_PREDICTIVE';
62: l_source_name JTF_RS_RESOURCE_EXTNS.SOURCE_NAME%TYPE :='ORACLE_PREDICTIVE';
63: l_user_name VARCHAR2(100) :='IEMDUMMYUSER';
64: l_resource_id JTF_RS_RESOURCE_EXTNS.RESOURCE_ID%TYPE := -1;
65: BEGIN
66: SELECT A.resource_id INTO l_resource_id
60: IS
61: l_resource_name JTF_RS_RESOURCE_EXTNS_TL.RESOURCE_NAME%TYPE :='ORACLE_PREDICTIVE';
62: l_source_name JTF_RS_RESOURCE_EXTNS.SOURCE_NAME%TYPE :='ORACLE_PREDICTIVE';
63: l_user_name VARCHAR2(100) :='IEMDUMMYUSER';
64: l_resource_id JTF_RS_RESOURCE_EXTNS.RESOURCE_ID%TYPE := -1;
65: BEGIN
66: SELECT A.resource_id INTO l_resource_id
67: FROM JTF_RS_RESOURCE_EXTNS A,JTF_RS_RESOURCE_EXTNS_TL B
68: WHERE A.source_name = l_source_name and B.resource_name = l_resource_name
63: l_user_name VARCHAR2(100) :='IEMDUMMYUSER';
64: l_resource_id JTF_RS_RESOURCE_EXTNS.RESOURCE_ID%TYPE := -1;
65: BEGIN
66: SELECT A.resource_id INTO l_resource_id
67: FROM JTF_RS_RESOURCE_EXTNS A,JTF_RS_RESOURCE_EXTNS_TL B
68: WHERE A.source_name = l_source_name and B.resource_name = l_resource_name
69: and A.resource_id = B.resource_id and A.user_name = l_user_name
70: and rownum <2;
71: