1: PACKAGE BODY IEC_RESOURCE_PVT AS
2: /* $Header: IECVRESB.pls 115.8 2004/05/18 19:38:18 minwang 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;
9: l_init_msg_list VARCHAR2(1);
10: l_commit VARCHAR2(1);
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;
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;
18: l_source_name JTF_RS_RESOURCE_EXTNS.SOURCE_NAME%TYPE;
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;
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;
18: l_source_name JTF_RS_RESOURCE_EXTNS.SOURCE_NAME%TYPE;
19: l_user_name VARCHAR2(100);
12: l_msg_count NUMBER;
13: l_msg_data VARCHAR2(2000);
14: l_catagory JTF_RS_RESOURCE_EXTNS.CATEGORY%TYPE;
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;
18: l_source_name JTF_RS_RESOURCE_EXTNS.SOURCE_NAME%TYPE;
19: l_user_name VARCHAR2(100);
20: l_count NUMBER;
13: l_msg_data VARCHAR2(2000);
14: l_catagory JTF_RS_RESOURCE_EXTNS.CATEGORY%TYPE;
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;
18: l_source_name JTF_RS_RESOURCE_EXTNS.SOURCE_NAME%TYPE;
19: l_user_name VARCHAR2(100);
20: l_count NUMBER;
21: BEGIN
14: l_catagory JTF_RS_RESOURCE_EXTNS.CATEGORY%TYPE;
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;
18: l_source_name JTF_RS_RESOURCE_EXTNS.SOURCE_NAME%TYPE;
19: l_user_name VARCHAR2(100);
20: l_count NUMBER;
21: BEGIN
22: l_api_version := 1.0;
26: l_resource_name :='ORACLE_PREDICTIVE';
27: l_source_name :='ORACLE_PREDICTIVE';
28: l_user_name :='IECAOUSER';
29: l_count := 0;
30: SELECT count(*) INTO l_count FROM JTF_RS_RESOURCE_EXTNS A,JTF_RS_RESOURCE_EXTNS_TL B
31: WHERE A.source_name = l_source_name and B.resource_name = l_resource_name
32: and A.resource_id = B.resource_id
33: and A.user_name = l_user_name;
34:
61:
62: END CREATE_RESOURCE;
63:
64: PROCEDURE GET_PRED_RES_ID
65: (X_RESOURCE_ID OUT NOCOPY JTF_RS_RESOURCE_EXTNS.RESOURCE_ID%TYPE
66: )
67: IS
68: l_resource_name JTF_RS_RESOURCE_EXTNS_TL.RESOURCE_NAME%TYPE;
69: l_source_name JTF_RS_RESOURCE_EXTNS.SOURCE_NAME%TYPE;
64: PROCEDURE GET_PRED_RES_ID
65: (X_RESOURCE_ID OUT NOCOPY JTF_RS_RESOURCE_EXTNS.RESOURCE_ID%TYPE
66: )
67: IS
68: l_resource_name JTF_RS_RESOURCE_EXTNS_TL.RESOURCE_NAME%TYPE;
69: l_source_name JTF_RS_RESOURCE_EXTNS.SOURCE_NAME%TYPE;
70: l_user_name VARCHAR2(100);
71: l_resource_id JTF_RS_RESOURCE_EXTNS.RESOURCE_ID%TYPE;
72: BEGIN
65: (X_RESOURCE_ID OUT NOCOPY JTF_RS_RESOURCE_EXTNS.RESOURCE_ID%TYPE
66: )
67: IS
68: l_resource_name JTF_RS_RESOURCE_EXTNS_TL.RESOURCE_NAME%TYPE;
69: l_source_name JTF_RS_RESOURCE_EXTNS.SOURCE_NAME%TYPE;
70: l_user_name VARCHAR2(100);
71: l_resource_id JTF_RS_RESOURCE_EXTNS.RESOURCE_ID%TYPE;
72: BEGIN
73: l_resource_name :='ORACLE_PREDICTIVE';
67: IS
68: l_resource_name JTF_RS_RESOURCE_EXTNS_TL.RESOURCE_NAME%TYPE;
69: l_source_name JTF_RS_RESOURCE_EXTNS.SOURCE_NAME%TYPE;
70: l_user_name VARCHAR2(100);
71: l_resource_id JTF_RS_RESOURCE_EXTNS.RESOURCE_ID%TYPE;
72: BEGIN
73: l_resource_name :='ORACLE_PREDICTIVE';
74: l_source_name :='ORACLE_PREDICTIVE';
75: l_user_name :='IECAOUSER';
74: l_source_name :='ORACLE_PREDICTIVE';
75: l_user_name :='IECAOUSER';
76: l_resource_id := -1;
77: SELECT A.resource_id INTO l_resource_id
78: FROM JTF_RS_RESOURCE_EXTNS A,JTF_RS_RESOURCE_EXTNS_TL B
79: WHERE A.source_name = l_source_name and B.resource_name = l_resource_name
80: and A.resource_id = B.resource_id and A.user_name = l_user_name
81: and rownum <2;
82: