20: based on input values passed by calling routines. */
21:
22: PROCEDURE create_resource_group
23: (P_API_VERSION IN NUMBER,
24: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
25: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
26: P_GROUP_NAME IN JTF_RS_GROUPS_VL.GROUP_NAME%TYPE,
27: P_GROUP_DESC IN JTF_RS_GROUPS_VL.GROUP_DESC%TYPE DEFAULT NULL,
28: P_EXCLUSIVE_FLAG IN JTF_RS_GROUPS_VL.EXCLUSIVE_FLAG%TYPE DEFAULT 'N',
21:
22: PROCEDURE create_resource_group
23: (P_API_VERSION IN NUMBER,
24: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
25: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
26: P_GROUP_NAME IN JTF_RS_GROUPS_VL.GROUP_NAME%TYPE,
27: P_GROUP_DESC IN JTF_RS_GROUPS_VL.GROUP_DESC%TYPE DEFAULT NULL,
28: P_EXCLUSIVE_FLAG IN JTF_RS_GROUPS_VL.EXCLUSIVE_FLAG%TYPE DEFAULT 'N',
29: P_EMAIL_ADDRESS IN JTF_RS_GROUPS_VL.EMAIL_ADDRESS%TYPE DEFAULT NULL,
54:
55:
56: SAVEPOINT create_resource_group_pub;
57:
58: x_return_status := fnd_api.g_ret_sts_success;
59:
60: -- DBMS_OUTPUT.put_line(' Started Create Resource Group Pub ');
61:
62:
59:
60: -- DBMS_OUTPUT.put_line(' Started Create Resource Group Pub ');
61:
62:
63: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
64:
65: RAISE fnd_api.g_exc_unexpected_error;
66:
67: END IF;
61:
62:
63: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
64:
65: RAISE fnd_api.g_exc_unexpected_error;
66:
67: END IF;
68:
69:
66:
67: END IF;
68:
69:
70: IF fnd_api.to_boolean(p_init_msg_list) THEN
71:
72: fnd_msg_pub.initialize;
73:
74: END IF;
81: -- dbms_output.put_line('Group Name cannot be null');
82:
83: fnd_message.set_name('JTF', 'JTF_RS_GROUP_NAME_NULL');
84: fnd_msg_pub.add;
85: RAISE fnd_api.g_exc_error;
86:
87: END IF;
88:
89:
95:
96: fnd_message.set_name('JTF', 'JTF_RS_START_DATE_NULL');
97: fnd_msg_pub.add;
98:
99: RAISE fnd_api.g_exc_error;
100:
101: END IF;
102:
103:
110: /* Call the private procedure with the validated parameters. */
111:
112: jtf_rs_groups_pvt.create_resource_group
113: (P_API_VERSION => 1,
114: P_INIT_MSG_LIST => fnd_api.g_false,
115: P_COMMIT => fnd_api.g_false,
116: P_GROUP_NAME => l_group_name,
117: P_GROUP_DESC => l_group_desc,
118: P_EXCLUSIVE_FLAG => l_exclusive_flag,
111:
112: jtf_rs_groups_pvt.create_resource_group
113: (P_API_VERSION => 1,
114: P_INIT_MSG_LIST => fnd_api.g_false,
115: P_COMMIT => fnd_api.g_false,
116: P_GROUP_NAME => l_group_name,
117: P_GROUP_DESC => l_group_desc,
118: P_EXCLUSIVE_FLAG => l_exclusive_flag,
119: P_EMAIL_ADDRESS => l_email_address,
125: X_MSG_DATA => x_msg_data,
126: X_GROUP_ID => x_group_id,
127: X_GROUP_NUMBER => x_group_number
128: );
129: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
130: RAISE FND_API.G_EXC_ERROR;
131: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
133: END IF;
126: X_GROUP_ID => x_group_id,
127: X_GROUP_NUMBER => x_group_number
128: );
129: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
130: RAISE FND_API.G_EXC_ERROR;
131: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
133: END IF;
134: END IF;
127: X_GROUP_NUMBER => x_group_number
128: );
129: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
130: RAISE FND_API.G_EXC_ERROR;
131: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
133: END IF;
134: END IF;
135: ELSE
128: );
129: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
130: RAISE FND_API.G_EXC_ERROR;
131: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
133: END IF;
134: END IF;
135: ELSE
136: /* Call the private procedure for Migration. */
135: ELSE
136: /* Call the private procedure for Migration. */
137: jtf_rs_groups_pvt.create_resource_group_migrate
138: (P_API_VERSION => 1,
139: P_INIT_MSG_LIST => fnd_api.g_false,
140: P_COMMIT => fnd_api.g_false,
141: P_GROUP_NAME => l_group_name,
142: P_GROUP_DESC => l_group_desc,
143: P_EXCLUSIVE_FLAG => l_exclusive_flag,
136: /* Call the private procedure for Migration. */
137: jtf_rs_groups_pvt.create_resource_group_migrate
138: (P_API_VERSION => 1,
139: P_INIT_MSG_LIST => fnd_api.g_false,
140: P_COMMIT => fnd_api.g_false,
141: P_GROUP_NAME => l_group_name,
142: P_GROUP_DESC => l_group_desc,
143: P_EXCLUSIVE_FLAG => l_exclusive_flag,
144: P_EMAIL_ADDRESS => l_email_address,
167: X_MSG_DATA => x_msg_data,
168: X_GROUP_ID => x_group_id,
169: X_GROUP_NUMBER => x_group_number
170: );
171: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
172: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
173: RAISE FND_API.G_EXC_ERROR;
174: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
168: X_GROUP_ID => x_group_id,
169: X_GROUP_NUMBER => x_group_number
170: );
171: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
172: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
173: RAISE FND_API.G_EXC_ERROR;
174: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
176: END IF;
169: X_GROUP_NUMBER => x_group_number
170: );
171: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
172: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
173: RAISE FND_API.G_EXC_ERROR;
174: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
176: END IF;
177: END IF;
170: );
171: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
172: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
173: RAISE FND_API.G_EXC_ERROR;
174: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
176: END IF;
177: END IF;
178: END IF;
171: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
172: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
173: RAISE FND_API.G_EXC_ERROR;
174: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
176: END IF;
177: END IF;
178: END IF;
179:
176: END IF;
177: END IF;
178: END IF;
179:
180: IF fnd_api.to_boolean(p_commit) THEN
181:
182: COMMIT WORK;
183:
184: END IF;
187:
188:
189: EXCEPTION
190:
191: WHEN fnd_api.g_exc_error THEN
192: ROLLBACK TO create_resource_group_pub;
193: x_return_status := fnd_api.g_ret_sts_error;
194: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
195: p_data => x_msg_data);
189: EXCEPTION
190:
191: WHEN fnd_api.g_exc_error THEN
192: ROLLBACK TO create_resource_group_pub;
193: x_return_status := fnd_api.g_ret_sts_error;
194: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
195: p_data => x_msg_data);
196: WHEN fnd_api.g_exc_unexpected_error THEN
197: ROLLBACK TO create_resource_group_pub;
192: ROLLBACK TO create_resource_group_pub;
193: x_return_status := fnd_api.g_ret_sts_error;
194: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
195: p_data => x_msg_data);
196: WHEN fnd_api.g_exc_unexpected_error THEN
197: ROLLBACK TO create_resource_group_pub;
198: x_return_status := fnd_api.g_ret_sts_unexp_error;
199: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
200: p_data => x_msg_data);
194: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
195: p_data => x_msg_data);
196: WHEN fnd_api.g_exc_unexpected_error THEN
197: ROLLBACK TO create_resource_group_pub;
198: x_return_status := fnd_api.g_ret_sts_unexp_error;
199: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
200: p_data => x_msg_data);
201: WHEN OTHERS THEN
202: ROLLBACK TO create_resource_group_pub;
204: fnd_message.set_token('P_SQLCODE',SQLCODE);
205: fnd_message.set_token('P_SQLERRM',SQLERRM);
206: fnd_message.set_token('P_API_NAME', l_api_name);
207: FND_MSG_PUB.add;
208: x_return_status := fnd_api.g_ret_sts_unexp_error;
209: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
210: p_data => x_msg_data);
211: END create_resource_group;
212:
211: END create_resource_group;
212:
213: PROCEDURE create_resource_group_migrate
214: (P_API_VERSION IN NUMBER,
215: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
216: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
217: P_GROUP_NAME IN JTF_RS_GROUPS_VL.GROUP_NAME%TYPE,
218: P_GROUP_DESC IN JTF_RS_GROUPS_VL.GROUP_DESC%TYPE DEFAULT NULL,
219: P_EXCLUSIVE_FLAG IN JTF_RS_GROUPS_VL.EXCLUSIVE_FLAG%TYPE DEFAULT 'N',
212:
213: PROCEDURE create_resource_group_migrate
214: (P_API_VERSION IN NUMBER,
215: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
216: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
217: P_GROUP_NAME IN JTF_RS_GROUPS_VL.GROUP_NAME%TYPE,
218: P_GROUP_DESC IN JTF_RS_GROUPS_VL.GROUP_DESC%TYPE DEFAULT NULL,
219: P_EXCLUSIVE_FLAG IN JTF_RS_GROUPS_VL.EXCLUSIVE_FLAG%TYPE DEFAULT 'N',
220: P_EMAIL_ADDRESS IN JTF_RS_GROUPS_VL.EMAIL_ADDRESS%TYPE DEFAULT NULL,
291: passed by calling routines. */
292:
293: PROCEDURE update_resource_group
294: (P_API_VERSION IN NUMBER,
295: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
296: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
297: P_GROUP_ID IN JTF_RS_GROUPS_VL.GROUP_ID%TYPE,
298: P_GROUP_NUMBER IN JTF_RS_GROUPS_VL.GROUP_NUMBER%TYPE,
299: P_GROUP_NAME IN JTF_RS_GROUPS_VL.GROUP_NAME%TYPE DEFAULT FND_API.G_MISS_CHAR,
292:
293: PROCEDURE update_resource_group
294: (P_API_VERSION IN NUMBER,
295: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
296: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
297: P_GROUP_ID IN JTF_RS_GROUPS_VL.GROUP_ID%TYPE,
298: P_GROUP_NUMBER IN JTF_RS_GROUPS_VL.GROUP_NUMBER%TYPE,
299: P_GROUP_NAME IN JTF_RS_GROUPS_VL.GROUP_NAME%TYPE DEFAULT FND_API.G_MISS_CHAR,
300: P_GROUP_DESC IN JTF_RS_GROUPS_VL.GROUP_DESC%TYPE DEFAULT FND_API.G_MISS_CHAR,
295: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
296: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
297: P_GROUP_ID IN JTF_RS_GROUPS_VL.GROUP_ID%TYPE,
298: P_GROUP_NUMBER IN JTF_RS_GROUPS_VL.GROUP_NUMBER%TYPE,
299: P_GROUP_NAME IN JTF_RS_GROUPS_VL.GROUP_NAME%TYPE DEFAULT FND_API.G_MISS_CHAR,
300: P_GROUP_DESC IN JTF_RS_GROUPS_VL.GROUP_DESC%TYPE DEFAULT FND_API.G_MISS_CHAR,
301: P_EXCLUSIVE_FLAG IN JTF_RS_GROUPS_VL.EXCLUSIVE_FLAG%TYPE DEFAULT FND_API.G_MISS_CHAR,
302: P_EMAIL_ADDRESS IN JTF_RS_GROUPS_VL.EMAIL_ADDRESS%TYPE DEFAULT FND_API.G_MISS_CHAR,
303: P_START_DATE_ACTIVE IN JTF_RS_GROUPS_VL.START_DATE_ACTIVE%TYPE DEFAULT FND_API.G_MISS_DATE,
296: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
297: P_GROUP_ID IN JTF_RS_GROUPS_VL.GROUP_ID%TYPE,
298: P_GROUP_NUMBER IN JTF_RS_GROUPS_VL.GROUP_NUMBER%TYPE,
299: P_GROUP_NAME IN JTF_RS_GROUPS_VL.GROUP_NAME%TYPE DEFAULT FND_API.G_MISS_CHAR,
300: P_GROUP_DESC IN JTF_RS_GROUPS_VL.GROUP_DESC%TYPE DEFAULT FND_API.G_MISS_CHAR,
301: P_EXCLUSIVE_FLAG IN JTF_RS_GROUPS_VL.EXCLUSIVE_FLAG%TYPE DEFAULT FND_API.G_MISS_CHAR,
302: P_EMAIL_ADDRESS IN JTF_RS_GROUPS_VL.EMAIL_ADDRESS%TYPE DEFAULT FND_API.G_MISS_CHAR,
303: P_START_DATE_ACTIVE IN JTF_RS_GROUPS_VL.START_DATE_ACTIVE%TYPE DEFAULT FND_API.G_MISS_DATE,
304: P_END_DATE_ACTIVE IN JTF_RS_GROUPS_VL.END_DATE_ACTIVE%TYPE DEFAULT FND_API.G_MISS_DATE,
297: P_GROUP_ID IN JTF_RS_GROUPS_VL.GROUP_ID%TYPE,
298: P_GROUP_NUMBER IN JTF_RS_GROUPS_VL.GROUP_NUMBER%TYPE,
299: P_GROUP_NAME IN JTF_RS_GROUPS_VL.GROUP_NAME%TYPE DEFAULT FND_API.G_MISS_CHAR,
300: P_GROUP_DESC IN JTF_RS_GROUPS_VL.GROUP_DESC%TYPE DEFAULT FND_API.G_MISS_CHAR,
301: P_EXCLUSIVE_FLAG IN JTF_RS_GROUPS_VL.EXCLUSIVE_FLAG%TYPE DEFAULT FND_API.G_MISS_CHAR,
302: P_EMAIL_ADDRESS IN JTF_RS_GROUPS_VL.EMAIL_ADDRESS%TYPE DEFAULT FND_API.G_MISS_CHAR,
303: P_START_DATE_ACTIVE IN JTF_RS_GROUPS_VL.START_DATE_ACTIVE%TYPE DEFAULT FND_API.G_MISS_DATE,
304: P_END_DATE_ACTIVE IN JTF_RS_GROUPS_VL.END_DATE_ACTIVE%TYPE DEFAULT FND_API.G_MISS_DATE,
305: P_ACCOUNTING_CODE IN JTF_RS_GROUPS_VL.ACCOUNTING_CODE%TYPE DEFAULT FND_API.G_MISS_CHAR,
298: P_GROUP_NUMBER IN JTF_RS_GROUPS_VL.GROUP_NUMBER%TYPE,
299: P_GROUP_NAME IN JTF_RS_GROUPS_VL.GROUP_NAME%TYPE DEFAULT FND_API.G_MISS_CHAR,
300: P_GROUP_DESC IN JTF_RS_GROUPS_VL.GROUP_DESC%TYPE DEFAULT FND_API.G_MISS_CHAR,
301: P_EXCLUSIVE_FLAG IN JTF_RS_GROUPS_VL.EXCLUSIVE_FLAG%TYPE DEFAULT FND_API.G_MISS_CHAR,
302: P_EMAIL_ADDRESS IN JTF_RS_GROUPS_VL.EMAIL_ADDRESS%TYPE DEFAULT FND_API.G_MISS_CHAR,
303: P_START_DATE_ACTIVE IN JTF_RS_GROUPS_VL.START_DATE_ACTIVE%TYPE DEFAULT FND_API.G_MISS_DATE,
304: P_END_DATE_ACTIVE IN JTF_RS_GROUPS_VL.END_DATE_ACTIVE%TYPE DEFAULT FND_API.G_MISS_DATE,
305: P_ACCOUNTING_CODE IN JTF_RS_GROUPS_VL.ACCOUNTING_CODE%TYPE DEFAULT FND_API.G_MISS_CHAR,
306: P_OBJECT_VERSION_NUM IN OUT NOCOPY JTF_RS_GROUPS_VL.OBJECT_VERSION_NUMBER%TYPE,
299: P_GROUP_NAME IN JTF_RS_GROUPS_VL.GROUP_NAME%TYPE DEFAULT FND_API.G_MISS_CHAR,
300: P_GROUP_DESC IN JTF_RS_GROUPS_VL.GROUP_DESC%TYPE DEFAULT FND_API.G_MISS_CHAR,
301: P_EXCLUSIVE_FLAG IN JTF_RS_GROUPS_VL.EXCLUSIVE_FLAG%TYPE DEFAULT FND_API.G_MISS_CHAR,
302: P_EMAIL_ADDRESS IN JTF_RS_GROUPS_VL.EMAIL_ADDRESS%TYPE DEFAULT FND_API.G_MISS_CHAR,
303: P_START_DATE_ACTIVE IN JTF_RS_GROUPS_VL.START_DATE_ACTIVE%TYPE DEFAULT FND_API.G_MISS_DATE,
304: P_END_DATE_ACTIVE IN JTF_RS_GROUPS_VL.END_DATE_ACTIVE%TYPE DEFAULT FND_API.G_MISS_DATE,
305: P_ACCOUNTING_CODE IN JTF_RS_GROUPS_VL.ACCOUNTING_CODE%TYPE DEFAULT FND_API.G_MISS_CHAR,
306: P_OBJECT_VERSION_NUM IN OUT NOCOPY JTF_RS_GROUPS_VL.OBJECT_VERSION_NUMBER%TYPE,
307: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
300: P_GROUP_DESC IN JTF_RS_GROUPS_VL.GROUP_DESC%TYPE DEFAULT FND_API.G_MISS_CHAR,
301: P_EXCLUSIVE_FLAG IN JTF_RS_GROUPS_VL.EXCLUSIVE_FLAG%TYPE DEFAULT FND_API.G_MISS_CHAR,
302: P_EMAIL_ADDRESS IN JTF_RS_GROUPS_VL.EMAIL_ADDRESS%TYPE DEFAULT FND_API.G_MISS_CHAR,
303: P_START_DATE_ACTIVE IN JTF_RS_GROUPS_VL.START_DATE_ACTIVE%TYPE DEFAULT FND_API.G_MISS_DATE,
304: P_END_DATE_ACTIVE IN JTF_RS_GROUPS_VL.END_DATE_ACTIVE%TYPE DEFAULT FND_API.G_MISS_DATE,
305: P_ACCOUNTING_CODE IN JTF_RS_GROUPS_VL.ACCOUNTING_CODE%TYPE DEFAULT FND_API.G_MISS_CHAR,
306: P_OBJECT_VERSION_NUM IN OUT NOCOPY JTF_RS_GROUPS_VL.OBJECT_VERSION_NUMBER%TYPE,
307: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
308: X_MSG_COUNT OUT NOCOPY NUMBER,
301: P_EXCLUSIVE_FLAG IN JTF_RS_GROUPS_VL.EXCLUSIVE_FLAG%TYPE DEFAULT FND_API.G_MISS_CHAR,
302: P_EMAIL_ADDRESS IN JTF_RS_GROUPS_VL.EMAIL_ADDRESS%TYPE DEFAULT FND_API.G_MISS_CHAR,
303: P_START_DATE_ACTIVE IN JTF_RS_GROUPS_VL.START_DATE_ACTIVE%TYPE DEFAULT FND_API.G_MISS_DATE,
304: P_END_DATE_ACTIVE IN JTF_RS_GROUPS_VL.END_DATE_ACTIVE%TYPE DEFAULT FND_API.G_MISS_DATE,
305: P_ACCOUNTING_CODE IN JTF_RS_GROUPS_VL.ACCOUNTING_CODE%TYPE DEFAULT FND_API.G_MISS_CHAR,
306: P_OBJECT_VERSION_NUM IN OUT NOCOPY JTF_RS_GROUPS_VL.OBJECT_VERSION_NUMBER%TYPE,
307: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
308: X_MSG_COUNT OUT NOCOPY NUMBER,
309: X_MSG_DATA OUT NOCOPY VARCHAR2
328:
329:
330: SAVEPOINT update_resource_group_pub;
331:
332: x_return_status := fnd_api.g_ret_sts_success;
333:
334: -- DBMS_OUTPUT.put_line(' Started Update Resource Group Pub ');
335:
336:
333:
334: -- DBMS_OUTPUT.put_line(' Started Update Resource Group Pub ');
335:
336:
337: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
338:
339: RAISE fnd_api.g_exc_unexpected_error;
340:
341: END IF;
335:
336:
337: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
338:
339: RAISE fnd_api.g_exc_unexpected_error;
340:
341: END IF;
342:
343:
340:
341: END IF;
342:
343:
344: IF fnd_api.to_boolean(p_init_msg_list) THEN
345:
346: fnd_msg_pub.initialize;
347:
348: END IF;
359: -- added for NOCOPY
360: l_group_id := l_group_id_out;
361:
362:
363: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
364: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
365: RAISE FND_API.G_EXC_ERROR;
366: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
360: l_group_id := l_group_id_out;
361:
362:
363: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
364: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
365: RAISE FND_API.G_EXC_ERROR;
366: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
368: END IF;
361:
362:
363: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
364: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
365: RAISE FND_API.G_EXC_ERROR;
366: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
368: END IF;
369: END IF;
362:
363: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
364: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
365: RAISE FND_API.G_EXC_ERROR;
366: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
368: END IF;
369: END IF;
370:
363: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
364: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
365: RAISE FND_API.G_EXC_ERROR;
366: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
368: END IF;
369: END IF;
370:
371: /* Call the private procedure with the validated parameters. */
371: /* Call the private procedure with the validated parameters. */
372:
373: jtf_rs_groups_pvt.update_resource_group
374: (P_API_VERSION => 1,
375: P_INIT_MSG_LIST => fnd_api.g_false,
376: P_COMMIT => fnd_api.g_false,
377: P_GROUP_ID => l_group_id,
378: P_GROUP_NAME => l_group_name,
379: P_GROUP_DESC => l_group_desc,
372:
373: jtf_rs_groups_pvt.update_resource_group
374: (P_API_VERSION => 1,
375: P_INIT_MSG_LIST => fnd_api.g_false,
376: P_COMMIT => fnd_api.g_false,
377: P_GROUP_ID => l_group_id,
378: P_GROUP_NAME => l_group_name,
379: P_GROUP_DESC => l_group_desc,
380: P_EXCLUSIVE_FLAG => l_exclusive_flag,
388: X_MSG_DATA => x_msg_data
389: );
390:
391:
392: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
393: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
394: RAISE FND_API.G_EXC_ERROR;
395: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
389: );
390:
391:
392: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
393: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
394: RAISE FND_API.G_EXC_ERROR;
395: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
397: END IF;
390:
391:
392: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
393: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
394: RAISE FND_API.G_EXC_ERROR;
395: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
397: END IF;
398: END IF;
391:
392: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
393: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
394: RAISE FND_API.G_EXC_ERROR;
395: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
397: END IF;
398: END IF;
399:
392: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
393: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
394: RAISE FND_API.G_EXC_ERROR;
395: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
397: END IF;
398: END IF;
399:
400: /* Return the new value of the object version number */
400: /* Return the new value of the object version number */
401:
402: p_object_version_num := l_object_version_num;
403:
404: IF fnd_api.to_boolean(p_commit) THEN
405:
406: COMMIT WORK;
407:
408: END IF;
411:
412:
413: EXCEPTION
414:
415: WHEN fnd_api.g_exc_error THEN
416: ROLLBACK TO update_resource_group_pub;
417: x_return_status := fnd_api.g_ret_sts_error;
418: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
419: p_data => x_msg_data);
413: EXCEPTION
414:
415: WHEN fnd_api.g_exc_error THEN
416: ROLLBACK TO update_resource_group_pub;
417: x_return_status := fnd_api.g_ret_sts_error;
418: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
419: p_data => x_msg_data);
420: WHEN fnd_api.g_exc_unexpected_error THEN
421: ROLLBACK TO update_resource_group_pub;
416: ROLLBACK TO update_resource_group_pub;
417: x_return_status := fnd_api.g_ret_sts_error;
418: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
419: p_data => x_msg_data);
420: WHEN fnd_api.g_exc_unexpected_error THEN
421: ROLLBACK TO update_resource_group_pub;
422: x_return_status := fnd_api.g_ret_sts_unexp_error;
423: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
424: p_data => x_msg_data);
418: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
419: p_data => x_msg_data);
420: WHEN fnd_api.g_exc_unexpected_error THEN
421: ROLLBACK TO update_resource_group_pub;
422: x_return_status := fnd_api.g_ret_sts_unexp_error;
423: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
424: p_data => x_msg_data);
425: WHEN OTHERS THEN
426: ROLLBACK TO update_resource_group_pub;
428: fnd_message.set_token('P_SQLCODE',SQLCODE);
429: fnd_message.set_token('P_SQLERRM',SQLERRM);
430: fnd_message.set_token('P_API_NAME', l_api_name);
431: FND_MSG_PUB.add;
432: x_return_status := fnd_api.g_ret_sts_unexp_error;
433: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
434: p_data => x_msg_data);
435:
436: END update_resource_group;