22: based on input values passed by calling routines. */
23:
24: PROCEDURE create_resource_team_members
25: (P_API_VERSION IN NUMBER,
26: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
27: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
28: P_TEAM_ID IN JTF_RS_TEAM_MEMBERS.TEAM_ID%TYPE,
29: P_TEAM_NUMBER IN JTF_RS_TEAMS_VL.TEAM_NUMBER%TYPE,
30: P_TEAM_RESOURCE_ID IN JTF_RS_TEAM_MEMBERS.TEAM_RESOURCE_ID%TYPE,
23:
24: PROCEDURE create_resource_team_members
25: (P_API_VERSION IN NUMBER,
26: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
27: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
28: P_TEAM_ID IN JTF_RS_TEAM_MEMBERS.TEAM_ID%TYPE,
29: P_TEAM_NUMBER IN JTF_RS_TEAMS_VL.TEAM_NUMBER%TYPE,
30: P_TEAM_RESOURCE_ID IN JTF_RS_TEAM_MEMBERS.TEAM_RESOURCE_ID%TYPE,
31: P_TEAM_RESOURCE_NUMBER IN NUMBER,
52:
53:
54: SAVEPOINT create_resource_member_pub;
55:
56: x_return_status := fnd_api.g_ret_sts_success;
57:
58: -- DBMS_OUTPUT.put_line(' Started Create Resource Member Pub ');
59:
60:
57:
58: -- DBMS_OUTPUT.put_line(' Started Create Resource Member Pub ');
59:
60:
61: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
62:
63: RAISE fnd_api.g_exc_unexpected_error;
64:
65: END IF;
59:
60:
61: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
62:
63: RAISE fnd_api.g_exc_unexpected_error;
64:
65: END IF;
66:
67:
64:
65: END IF;
66:
67:
68: IF fnd_api.to_boolean(p_init_msg_list) THEN
69:
70: fnd_msg_pub.initialize;
71:
72: END IF;
86: -- added for NOCOPY
87: l_team_id := l_team_id_out;
88:
89:
90: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
91:
92: x_return_status := fnd_api.g_ret_sts_unexp_error;
93:
94: RAISE fnd_api.g_exc_unexpected_error;
88:
89:
90: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
91:
92: x_return_status := fnd_api.g_ret_sts_unexp_error;
93:
94: RAISE fnd_api.g_exc_unexpected_error;
95:
96: END IF;
90: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
91:
92: x_return_status := fnd_api.g_ret_sts_unexp_error;
93:
94: RAISE fnd_api.g_exc_unexpected_error;
95:
96: END IF;
97:
98: END; /* End of Resource Team Validation */
107:
108: fnd_message.set_name('JTF', 'JTF_RS_INVALID_RESOURCE_TYPE');
109: fnd_msg_pub.add;
110:
111: x_return_status := fnd_api.g_ret_sts_unexp_error;
112:
113: RAISE fnd_api.g_exc_unexpected_error;
114:
115: END IF;
109: fnd_msg_pub.add;
110:
111: x_return_status := fnd_api.g_ret_sts_unexp_error;
112:
113: RAISE fnd_api.g_exc_unexpected_error;
114:
115: END IF;
116:
117:
127: );
128: -- added for NOCOPY
129: l_team_resource_id := l_team_resource_id_out;
130:
131: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
132:
133: x_return_status := fnd_api.g_ret_sts_unexp_error;
134:
135: RAISE fnd_api.g_exc_unexpected_error;
129: l_team_resource_id := l_team_resource_id_out;
130:
131: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
132:
133: x_return_status := fnd_api.g_ret_sts_unexp_error;
134:
135: RAISE fnd_api.g_exc_unexpected_error;
136:
137: END IF;
131: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
132:
133: x_return_status := fnd_api.g_ret_sts_unexp_error;
134:
135: RAISE fnd_api.g_exc_unexpected_error;
136:
137: END IF;
138:
139: END IF; /* End of Resource Validation */
150:
151: -- added for NOCOPY
152: l_team_resource_id := l_team_resource_id_out;
153:
154: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
155:
156: x_return_status := fnd_api.g_ret_sts_unexp_error;
157:
158: RAISE fnd_api.g_exc_unexpected_error;
152: l_team_resource_id := l_team_resource_id_out;
153:
154: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
155:
156: x_return_status := fnd_api.g_ret_sts_unexp_error;
157:
158: RAISE fnd_api.g_exc_unexpected_error;
159:
160: END IF;
154: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
155:
156: x_return_status := fnd_api.g_ret_sts_unexp_error;
157:
158: RAISE fnd_api.g_exc_unexpected_error;
159:
160: END IF;
161:
162: END IF; /* End of Resource Validation */
163:
164:
165: jtf_rs_team_members_pvt.create_resource_team_members
166: (P_API_VERSION => 1,
167: P_INIT_MSG_LIST => fnd_api.g_false,
168: P_COMMIT => fnd_api.g_false,
169: P_TEAM_ID => l_team_id,
170: P_TEAM_RESOURCE_ID => l_team_resource_id,
171: P_RESOURCE_TYPE => l_resource_type,
164:
165: jtf_rs_team_members_pvt.create_resource_team_members
166: (P_API_VERSION => 1,
167: P_INIT_MSG_LIST => fnd_api.g_false,
168: P_COMMIT => fnd_api.g_false,
169: P_TEAM_ID => l_team_id,
170: P_TEAM_RESOURCE_ID => l_team_resource_id,
171: P_RESOURCE_TYPE => l_resource_type,
172: X_RETURN_STATUS => x_return_status,
175: X_TEAM_MEMBER_ID => x_team_member_id
176: );
177:
178:
179: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
180:
181: -- dbms_output.put_line('Failed status from call to private procedure');
182:
183: RAISE fnd_api.g_exc_unexpected_error;
179: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
180:
181: -- dbms_output.put_line('Failed status from call to private procedure');
182:
183: RAISE fnd_api.g_exc_unexpected_error;
184:
185: END IF;
186:
187:
184:
185: END IF;
186:
187:
188: IF fnd_api.to_boolean(p_commit) THEN
189:
190: COMMIT WORK;
191:
192: END IF;
196:
197: EXCEPTION
198:
199:
200: WHEN fnd_api.g_exc_unexpected_error THEN
201:
202: -- DBMS_OUTPUT.put_line (' ========================================== ');
203:
204: -- DBMS_OUTPUT.put_line ('=========== Raised Unexpected Error ======= ======== ');
204: -- DBMS_OUTPUT.put_line ('=========== Raised Unexpected Error ======= ======== ');
205:
206: ROLLBACK TO create_resource_member_pub;
207:
208: x_return_status := fnd_api.g_ret_sts_unexp_error;
209:
210: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
211:
212:
219: -- DBMS_OUTPUT.put_line (SQLCODE || SQLERRM);
220:
221: ROLLBACK TO create_resource_member_pub;
222:
223: x_return_status := fnd_api.g_ret_sts_unexp_error;
224:
225: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
226:
227:
233: /* Procedure to delete the resource team members. */
234:
235: PROCEDURE delete_resource_team_members
236: (P_API_VERSION IN NUMBER,
237: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
238: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
239: P_TEAM_ID IN JTF_RS_TEAM_MEMBERS.TEAM_ID%TYPE,
240: P_TEAM_NUMBER IN JTF_RS_TEAMS_VL.TEAM_NUMBER%TYPE,
241: P_TEAM_RESOURCE_ID IN JTF_RS_TEAM_MEMBERS.TEAM_RESOURCE_ID%TYPE,
234:
235: PROCEDURE delete_resource_team_members
236: (P_API_VERSION IN NUMBER,
237: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
238: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
239: P_TEAM_ID IN JTF_RS_TEAM_MEMBERS.TEAM_ID%TYPE,
240: P_TEAM_NUMBER IN JTF_RS_TEAMS_VL.TEAM_NUMBER%TYPE,
241: P_TEAM_RESOURCE_ID IN JTF_RS_TEAM_MEMBERS.TEAM_RESOURCE_ID%TYPE,
242: P_TEAM_RESOURCE_NUMBER IN NUMBER,
264:
265:
266: SAVEPOINT delete_resource_member_pub;
267:
268: x_return_status := fnd_api.g_ret_sts_success;
269:
270: -- DBMS_OUTPUT.put_line(' Started Delete Resource Member Pub ');
271:
272:
269:
270: -- DBMS_OUTPUT.put_line(' Started Delete Resource Member Pub ');
271:
272:
273: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
274:
275: RAISE fnd_api.g_exc_unexpected_error;
276:
277: END IF;
271:
272:
273: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
274:
275: RAISE fnd_api.g_exc_unexpected_error;
276:
277: END IF;
278:
279:
276:
277: END IF;
278:
279:
280: IF fnd_api.to_boolean(p_init_msg_list) THEN
281:
282: fnd_msg_pub.initialize;
283:
284: END IF;
297: );
298: -- added for NOCOPY
299: l_team_id := l_team_id_out;
300:
301: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
302:
303: x_return_status := fnd_api.g_ret_sts_unexp_error;
304:
305: RAISE fnd_api.g_exc_unexpected_error;
299: l_team_id := l_team_id_out;
300:
301: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
302:
303: x_return_status := fnd_api.g_ret_sts_unexp_error;
304:
305: RAISE fnd_api.g_exc_unexpected_error;
306:
307: END IF;
301: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
302:
303: x_return_status := fnd_api.g_ret_sts_unexp_error;
304:
305: RAISE fnd_api.g_exc_unexpected_error;
306:
307: END IF;
308:
309: END; /* End of Resource Team Validation */
318:
319: fnd_message.set_name('JTF', 'JTF_RS_INVALID_RESOURCE_TYPE');
320: fnd_msg_pub.add;
321:
322: x_return_status := fnd_api.g_ret_sts_unexp_error;
323:
324: RAISE fnd_api.g_exc_unexpected_error;
325:
326: END IF;
320: fnd_msg_pub.add;
321:
322: x_return_status := fnd_api.g_ret_sts_unexp_error;
323:
324: RAISE fnd_api.g_exc_unexpected_error;
325:
326: END IF;
327:
328:
338: );
339: -- added for NOCOPY
340: l_team_resource_id := l_team_resource_id_out;
341:
342: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
343:
344: x_return_status := fnd_api.g_ret_sts_unexp_error;
345:
346: RAISE fnd_api.g_exc_unexpected_error;
340: l_team_resource_id := l_team_resource_id_out;
341:
342: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
343:
344: x_return_status := fnd_api.g_ret_sts_unexp_error;
345:
346: RAISE fnd_api.g_exc_unexpected_error;
347:
348: END IF;
342: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
343:
344: x_return_status := fnd_api.g_ret_sts_unexp_error;
345:
346: RAISE fnd_api.g_exc_unexpected_error;
347:
348: END IF;
349:
350: END IF; /* End of Resource Validation */
361:
362: -- added for NOCOPY
363: l_team_resource_id := l_team_resource_id_out;
364:
365: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
366:
367: x_return_status := fnd_api.g_ret_sts_unexp_error;
368:
369: RAISE fnd_api.g_exc_unexpected_error;
363: l_team_resource_id := l_team_resource_id_out;
364:
365: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
366:
367: x_return_status := fnd_api.g_ret_sts_unexp_error;
368:
369: RAISE fnd_api.g_exc_unexpected_error;
370:
371: END IF;
365: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
366:
367: x_return_status := fnd_api.g_ret_sts_unexp_error;
368:
369: RAISE fnd_api.g_exc_unexpected_error;
370:
371: END IF;
372:
373: END IF; /* End of Resource Validation */
377: /* Call the private procedure for delete */
378:
379: jtf_rs_team_members_pvt.delete_resource_team_members
380: (P_API_VERSION => 1,
381: P_INIT_MSG_LIST => fnd_api.g_false,
382: P_COMMIT => fnd_api.g_false,
383: P_TEAM_ID => l_team_id,
384: P_TEAM_RESOURCE_ID => l_team_resource_id,
385: P_RESOURCE_TYPE => l_resource_type,
378:
379: jtf_rs_team_members_pvt.delete_resource_team_members
380: (P_API_VERSION => 1,
381: P_INIT_MSG_LIST => fnd_api.g_false,
382: P_COMMIT => fnd_api.g_false,
383: P_TEAM_ID => l_team_id,
384: P_TEAM_RESOURCE_ID => l_team_resource_id,
385: P_RESOURCE_TYPE => l_resource_type,
386: P_OBJECT_VERSION_NUM => p_object_version_num,
389: X_MSG_DATA => x_msg_data
390: );
391:
392:
393: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
394:
395: -- dbms_output.put_line('Failed status from call to private procedure');
396:
397: RAISE fnd_api.g_exc_unexpected_error;
393: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
394:
395: -- dbms_output.put_line('Failed status from call to private procedure');
396:
397: RAISE fnd_api.g_exc_unexpected_error;
398:
399: END IF;
400:
401:
398:
399: END IF;
400:
401:
402: IF fnd_api.to_boolean(p_commit) THEN
403:
404: COMMIT WORK;
405:
406: END IF;
410:
411: EXCEPTION
412:
413:
414: WHEN fnd_api.g_exc_unexpected_error THEN
415:
416: -- DBMS_OUTPUT.put_line (' ========================================== ');
417:
418: -- DBMS_OUTPUT.put_line ('=========== Raised Unexpected Error ======= ======== ');
418: -- DBMS_OUTPUT.put_line ('=========== Raised Unexpected Error ======= ======== ');
419:
420: ROLLBACK TO delete_resource_member_pub;
421:
422: x_return_status := fnd_api.g_ret_sts_unexp_error;
423:
424: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
425:
426:
433: -- DBMS_OUTPUT.put_line (SQLCODE || SQLERRM);
434:
435: ROLLBACK TO delete_resource_member_pub;
436:
437: x_return_status := fnd_api.g_ret_sts_unexp_error;
438:
439: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
440:
441: