[Home] [Help]
PACKAGE BODY: APPS.AS_SALES_METH_TASK_MAP_PVT
Source
1 PACKAGE BODY AS_SALES_METH_TASK_MAP_PVT AS
2 /* $Header: asxsmtkb.pls 120.2 2005/12/14 01:42:38 sumahali noship $ */
3 --Procedure to Create a Sales Methodology
4 Procedure CREATE_SALES_METH_TASK_MAP
5 (
6 P_API_VERSION IN NUMBER,
7 P_INIT_MSG_LIST IN VARCHAR2 DEFAULT fnd_api.g_false,
8 P_COMMIT IN VARCHAR2 DEFAULT fnd_api.g_false,
9 P_VALIDATE_LEVEL IN VARCHAR2 DEFAULT fnd_api.g_valid_level_full,
10 P_SALES_STAGE_ID IN NUMBER,
11 P_SALES_METHODOLOGY_ID IN NUMBER ,
12 P_SOURCE_OBJECT_ID IN NUMBER ,
13 P_SOURCE_OBJECT_TYPE_CODE IN VARCHAR2 ,
14 P_SOURCE_OBJECT_NAME IN VARCHAR2 ,
15 P_TASK_ID IN NUMBER ,
16 P_TASK_TEMPLATE_ID IN NUMBER ,
17 P_TASK_TEMPLATE_GROUP_ID IN NUMBER,
18 X_RETURN_STATUS OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
19 X_MSG_COUNT OUT NOCOPY /* file.sql.39 change */ NUMBER,
20 X_MSG_DATA OUT NOCOPY /* file.sql.39 change */ VARCHAR2 ) IS
21 l_api_name VARCHAR2(30) := 'CREATE_SALES_METH_TASK_MAP';
22 l_task_id NUMBER := p_task_id;
23 l_sales_methodology_id NUMBER := p_sales_methodology_id;
24 l_sales_stage_id NUMBER := p_sales_stage_id;
25 l_source_object_id NUMBER := p_source_object_id;
26 l_task_template_group_id NUMBER := p_task_template_group_id;
27 l_task_template_id NUMBER := p_task_template_id;
28 l_source_object_type_code VARCHAR2(30) := p_source_object_type_code;
29 BEGIN
30 x_return_status := fnd_api.g_ret_sts_success;
31 SAVEPOINT create_sales_meth_task_pvt;
32 -- call table handler to insert into as_sales_methodology_b
33 INSERT INTO AS_SALES_METH_TASK_MAP ( sales_stage_id,
34 sales_methodology_id,
35 object_id,
36 object_type_code,
37 task_id,
38 task_template_id,
39 task_template_group_id,
40 created_by,
41 creation_date,
42 last_updated_by,
43 last_update_date,
44 last_update_login) VALUES
45 ( l_sales_stage_id,
46 l_sales_methodology_id,
47 l_source_object_id,
48 l_source_object_type_code,
49 l_task_id,
50 l_task_template_id,
51 l_task_template_group_id,
52 fnd_global.user_id,
53 SYSDATE,
54 fnd_global.user_id,
55 SYSDATE,
56 fnd_global.login_id);
57 IF (fnd_api.to_boolean (p_commit)) THEN
58 COMMIT WORK;
59 END IF;
60 EXCEPTION
61 WHEN fnd_api.g_exc_error
62 THEN
63 ROLLBACK TO create_sales_meth_task_pvt;
64 x_return_status := fnd_api.g_ret_sts_error;
65 fnd_msg_pub.count_and_get ( p_count => x_msg_count,
66 p_data => x_msg_data );
67 WHEN fnd_api.g_exc_unexpected_error
68 THEN
69 ROLLBACK TO create_sales_meth_task_pvt;
70 x_return_status := fnd_api.g_ret_sts_unexp_error;
71 fnd_msg_pub.count_and_get ( p_count => x_msg_count,
72 p_data => x_msg_data );
73 WHEN OTHERS
74 THEN
75 ROLLBACK TO create_sales_meth_task_pvt;
76 x_return_status := fnd_api.g_ret_sts_unexp_error;
77 IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
78 THEN
79 fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
80 END IF;
81 fnd_msg_pub.count_and_get ( p_count => x_msg_count,
82 p_data => x_msg_data );
83 END CREATE_SALES_METH_TASK_MAP;
84 -------------------------------------------
85 -------------------------------------------
86 Procedure UPDATE_SALES_METH_TASK_MAP
87 (
88 P_API_VERSION IN NUMBER,
89 P_INIT_MSG_LIST IN VARCHAR2 DEFAULT fnd_api.g_false,
90 P_COMMIT IN VARCHAR2 DEFAULT fnd_api.g_false,
91 P_VALIDATE_LEVEL IN VARCHAR2 DEFAULT fnd_api.g_valid_level_full,
92 P_SALES_STAGE_ID IN NUMBER,
93 P_SALES_METHODOLOGY_ID IN NUMBER ,
94 P_SOURCE_OBJECT_ID IN NUMBER ,
95 P_SOURCE_OBJECT_TYPE_CODE IN VARCHAR2 ,
96 P_SOURCE_OBJECT_NAME IN VARCHAR2 ,
97 P_TASK_ID IN NUMBER ,
98 P_TASK_TEMPLATE_ID IN NUMBER ,
99 P_TASK_TEMPLATE_GROUP_ID IN NUMBER,
100 X_RETURN_STATUS OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
101 X_MSG_COUNT OUT NOCOPY /* file.sql.39 change */ NUMBER,
102 X_MSG_DATA OUT NOCOPY /* file.sql.39 change */ VARCHAR2 ) IS
103 l_api_name VARCHAR2(30) := 'UPDATE_SALES_METH_TASK_MAP';
104 l_task_id NUMBER := p_task_id;
105 l_sales_methodology_id NUMBER := p_sales_methodology_id;
106 l_sales_stage_id NUMBER := p_sales_stage_id;
107 l_source_object_id NUMBER := p_source_object_id;
108 l_task_template_group_id NUMBER := p_task_template_group_id;
109 l_task_template_id NUMBER := p_task_template_id;
110 BEGIN
111 x_return_status := fnd_api.g_ret_sts_success;
112 SAVEPOINT update_sales_meth_task_pvt;
113 -- call table handler to insert into as_sales_methodology_b
114 UPDATE AS_SALES_METH_TASK_MAP SET
115 sales_methodology_id = l_sales_methodology_id,
116 task_template_id = l_task_template_id,
117 last_updated_by = fnd_global.user_id,
118 last_update_date = SYSDATE ,
119 last_update_login = fnd_global.login_id
120 WHERE object_id = l_source_object_id
121 AND sales_stage_id = l_sales_stage_id
122 AND task_template_group_id = l_task_template_group_id ;
123 IF (SQL%NOTFOUND) THEN
124 RAISE no_data_found;
125 END IF;
126 IF (fnd_api.to_boolean (p_commit))
127 THEN
128 COMMIT WORK;
129 END IF;
130 EXCEPTION
131 WHEN fnd_api.g_exc_error
132 THEN
133 ROLLBACK TO delete_sm_stage_map_pvt;
134 x_return_status := fnd_api.g_ret_sts_error;
135 fnd_msg_pub.count_and_get (
136 p_count => x_msg_count,
137 p_data => x_msg_data
138 );
139 WHEN fnd_api.g_exc_unexpected_error
140 THEN
141 ROLLBACK TO delete_sm_stage_map_pvt;
142 x_return_status := fnd_api.g_ret_sts_unexp_error;
143 fnd_msg_pub.count_and_get (
144 p_count => x_msg_count,
145 p_data => x_msg_data
146 );
147 WHEN OTHERS
148 THEN
149 ROLLBACK TO delete_sm_stage_map_pvt;
150 x_return_status := fnd_api.g_ret_sts_unexp_error;
151 IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
152 THEN
153 fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
154 END IF;
155 fnd_msg_pub.count_and_get (
156 p_count => x_msg_count,
157 p_data => x_msg_data
158 );
159 END UPDATE_SALES_METH_TASK_MAP;
160 -----------------------------------------------
161 -----------------------------------------------
162 Procedure DELETE_SALES_METH_TASK_MAP
163 ( P_API_VERSION IN NUMBER,
164 P_INIT_MSG_LIST IN VARCHAR2 default fnd_api.g_false,
165 P_COMMIT IN VARCHAR2 default fnd_api.g_false,
166 P_VALIDATE_LEVEL IN VARCHAR2 default fnd_api.g_valid_level_full,
167 P_SALES_METHODOLOGY_ID IN NUMBER,
168 P_SOURCE_OBJECT_ID IN NUMBER ,
169 P_SOURCE_OBJECT_TYPE_CODE IN VARCHAR2 ,
170 P_SOURCE_OBJECT_NAME IN VARCHAR2 ,
171 P_SALES_STAGE_ID IN NUMBER,
172 P_TASK_TEMPLATE_ID IN NUMBER,
173 P_TASK_TEMPLATE_GROUP_ID IN NUMBER,
174 X_RETURN_STATUS OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
175 X_MSG_COUNT OUT NOCOPY /* file.sql.39 change */ NUMBER,
176 X_MSG_DATA OUT NOCOPY /* file.sql.39 change */ VARCHAR2 ) IS
177 l_api_name VARCHAR2(30) := 'UPDATE_SALES_METH_TASK_MAP';
178 --l_task_id NUMBER := p_task_id;
179 l_sales_methodology_id NUMBER := p_sales_methodology_id;
180 l_sales_stage_id NUMBER := p_sales_stage_id;
181 l_source_object_id NUMBER := p_source_object_id;
182 l_task_template_group_id NUMBER := p_task_template_group_id;
183 l_task_template_id NUMBER := p_task_template_id;
184 BEGIN
185 x_return_status := fnd_api.g_ret_sts_success;
186 SAVEPOINT update_sales_meth_task_pvt;
187 DELETE FROM AS_SALES_METH_TASK_MAP
188 WHERE object_id = l_source_object_id
189 AND sales_stage_id = l_sales_stage_id
190 AND task_template_group_id = l_task_template_group_id ;
191 IF (SQL%NOTFOUND) THEN
192 RAISE no_data_found;
193 END IF;
194 IF (fnd_api.to_boolean (p_commit))
195 THEN
196 COMMIT WORK;
197 END IF;
198 EXCEPTION
199 WHEN fnd_api.g_exc_error
200 THEN
201 ROLLBACK TO delete_sm_stage_map_pvt;
202 x_return_status := fnd_api.g_ret_sts_error;
203 fnd_msg_pub.count_and_get (
204 p_count => x_msg_count,
205 p_data => x_msg_data
206 );
207 WHEN fnd_api.g_exc_unexpected_error
208 THEN
209 ROLLBACK TO delete_sm_stage_map_pvt;
210 x_return_status := fnd_api.g_ret_sts_unexp_error;
211 fnd_msg_pub.count_and_get (
212 p_count => x_msg_count,
213 p_data => x_msg_data
214 );
215 WHEN OTHERS
216 THEN
217 ROLLBACK TO delete_sm_stage_map_pvt;
218 x_return_status := fnd_api.g_ret_sts_unexp_error;
219 IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
220 THEN
221 fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
222 END IF;
223 fnd_msg_pub.count_and_get (
224 p_count => x_msg_count,
225 p_data => x_msg_data
226 );
227 END DELETE_SALES_METH_TASK_MAP;
228 end AS_SALES_METH_TASK_MAP_PVT;
229