[Home] [Help]
PACKAGE BODY: APPS.IEC_RESOURCE_PVT
Source
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;
19 l_user_name VARCHAR2(100);
20 l_count NUMBER;
21 BEGIN
22 l_api_version := 1.0;
23 l_init_msg_list :=FND_API.G_TRUE;
24 l_commit :=FND_API.G_TRUE;
25 l_catagory := 'OTHER';
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
35 IF l_count = 0 THEN
36 -- dbms_output.put_line('Oracle Advanced Outbound Will Create A Resource For Predictive.');
37 JTF_RS_RESOURCE_PUB.create_resource
38 (P_API_VERSION => l_api_version,
39 P_INIT_MSG_LIST => l_init_msg_list,
40 P_COMMIT => l_commit,
41 P_CATEGORY => l_catagory,
42 P_START_DATE_ACTIVE => sysdate,
43 X_RETURN_STATUS => l_return_status,
44 X_MSG_COUNT => l_msg_count,
45 X_MSG_DATA => l_msg_data,
46 X_RESOURCE_ID => l_resource_id,
47 X_RESOURCE_NUMBER => l_resource_number,
48 P_RESOURCE_NAME => l_resource_name,
49 P_SOURCE_NAME => l_source_name,
50 P_USER_NAME => l_user_name
51 );
52 ELSE
53 -- dbms_output.put_line('Oracle Advanced Outbound Already Has A Resource For Predictive');
54
55 GET_PRED_RES_ID(l_resource_id);
56 END IF;
57
58 X_RESOURCE_ID := l_resource_id;
59
60 -- dbms_output.put_line('THE RESOURCE ID FOR Predictive = '||X_RESOURCE_ID);
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;
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';
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
83 X_RESOURCE_ID := l_resource_id;
84 END GET_PRED_RES_ID;
85
86 END IEC_RESOURCE_PVT;
87