[Home] [Help]
PACKAGE BODY: APPS.IEM_RESOURCE_PVT
Source
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';
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
27
28 IF l_count = 0 THEN
29 -- dbms_output.put_line('Oracle Advanced Outbound Will Create A Resource For Predictive.');
30 JTF_RS_RESOURCE_PUB.create_resource
31 (P_API_VERSION => l_api_version,
32 P_INIT_MSG_LIST => l_init_msg_list,
33 P_COMMIT => l_commit,
34 P_CATEGORY => l_catagory,
35 P_START_DATE_ACTIVE => sysdate,
36 X_RETURN_STATUS => l_return_status,
37 X_MSG_COUNT => l_msg_count,
38 X_MSG_DATA => l_msg_data,
39 X_RESOURCE_ID => l_resource_id,
40 X_RESOURCE_NUMBER => l_resource_number,
41 P_RESOURCE_NAME => l_resource_name,
42 P_SOURCE_NAME => l_source_name,
43 P_USER_NAME => l_user_name
44 );
45 ELSE
46 -- dbms_output.put_line('Oracle Advanced Outbound Already Has A Resource For Predictive');
47
48 GET_PRED_RES_ID(l_resource_id);
49 END IF;
50
51 X_RESOURCE_ID := l_resource_id;
52
53 -- dbms_output.put_line('THE RESOURCE ID FOR Predictive = '||X_RESOURCE_ID);
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';
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
72 X_RESOURCE_ID := l_resource_id;
73 END GET_PRED_RES_ID;
74
75 END IEM_RESOURCE_PVT;
76