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,
56:
57:
58: SAVEPOINT create_resource_group_pub;
59:
60: x_return_status := fnd_api.g_ret_sts_success;
61:
62: -- DBMS_OUTPUT.put_line(' Started Create Resource Group Pub ');
63:
64:
61:
62: -- DBMS_OUTPUT.put_line(' Started Create Resource Group Pub ');
63:
64:
65: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
66:
67: RAISE fnd_api.g_exc_unexpected_error;
68:
69: END IF;
63:
64:
65: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
66:
67: RAISE fnd_api.g_exc_unexpected_error;
68:
69: END IF;
70:
71:
68:
69: END IF;
70:
71:
72: IF fnd_api.to_boolean(p_init_msg_list) THEN
73:
74: fnd_msg_pub.initialize;
75:
76: END IF;
83: -- dbms_output.put_line('Group Name cannot be null');
84:
85: fnd_message.set_name('JTF', 'JTF_RS_GROUP_NAME_NULL');
86: fnd_msg_pub.add;
87: RAISE fnd_api.g_exc_error;
88:
89: END IF;
90:
91:
97:
98: fnd_message.set_name('JTF', 'JTF_RS_START_DATE_NULL');
99: fnd_msg_pub.add;
100:
101: RAISE fnd_api.g_exc_error;
102:
103: END IF;
104:
105: /* Validate the Time Zone */
103: END IF;
104:
105: /* Validate the Time Zone */
106:
107: IF l_time_zone <> fnd_api.g_miss_num AND l_time_zone IS NOT NULL THEN
108:
109: jtf_resource_utl.validate_time_zone(
110: p_time_zone_id => l_time_zone,
111: x_return_status => x_return_status
110: p_time_zone_id => l_time_zone,
111: x_return_status => x_return_status
112: );
113:
114: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
115: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
116: RAISE FND_API.G_EXC_ERROR;
117: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
111: x_return_status => x_return_status
112: );
113:
114: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
115: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
116: RAISE FND_API.G_EXC_ERROR;
117: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
119: END IF;
112: );
113:
114: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
115: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
116: RAISE FND_API.G_EXC_ERROR;
117: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
119: END IF;
120: END IF;
113:
114: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
115: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
116: RAISE FND_API.G_EXC_ERROR;
117: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
119: END IF;
120: END IF;
121: END IF;
114: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
115: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
116: RAISE FND_API.G_EXC_ERROR;
117: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
119: END IF;
120: END IF;
121: END IF;
122:
122:
123: -- Bug#8708207
124: -- Assigning 'N' to exclusive_flag when parameter is g_miss_char
125: -- Its not fix for this bug but adding this to handle g_miss_char along with NULL value.
126: IF l_exclusive_flag = fnd_api.g_miss_char THEN
127: l_exclusive_flag := 'N';
128: END IF;
129:
130: /* Check the Global Variable for GROUP ID, and call the appropriate Private API */
136: /* Call the private procedure with the validated parameters. */
137:
138: jtf_rs_groups_pvt.create_resource_group
139: (P_API_VERSION => 1,
140: P_INIT_MSG_LIST => fnd_api.g_false,
141: P_COMMIT => fnd_api.g_false,
142: P_GROUP_NAME => l_group_name,
143: P_GROUP_DESC => l_group_desc,
144: P_EXCLUSIVE_FLAG => l_exclusive_flag,
137:
138: jtf_rs_groups_pvt.create_resource_group
139: (P_API_VERSION => 1,
140: P_INIT_MSG_LIST => fnd_api.g_false,
141: P_COMMIT => fnd_api.g_false,
142: P_GROUP_NAME => l_group_name,
143: P_GROUP_DESC => l_group_desc,
144: P_EXCLUSIVE_FLAG => l_exclusive_flag,
145: P_EMAIL_ADDRESS => l_email_address,
152: X_GROUP_ID => x_group_id,
153: X_GROUP_NUMBER => x_group_number,
154: P_TIME_ZONE => l_time_zone
155: );
156: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
157: RAISE FND_API.G_EXC_ERROR;
158: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
160: END IF;
153: X_GROUP_NUMBER => x_group_number,
154: P_TIME_ZONE => l_time_zone
155: );
156: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
157: RAISE FND_API.G_EXC_ERROR;
158: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
160: END IF;
161: END IF;
154: P_TIME_ZONE => l_time_zone
155: );
156: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
157: RAISE FND_API.G_EXC_ERROR;
158: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
160: END IF;
161: END IF;
162: ELSE
155: );
156: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
157: RAISE FND_API.G_EXC_ERROR;
158: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
160: END IF;
161: END IF;
162: ELSE
163: /* Call the private procedure for Migration. */
162: ELSE
163: /* Call the private procedure for Migration. */
164: jtf_rs_groups_pvt.create_resource_group_migrate
165: (P_API_VERSION => 1,
166: P_INIT_MSG_LIST => fnd_api.g_false,
167: P_COMMIT => fnd_api.g_false,
168: P_GROUP_NAME => l_group_name,
169: P_GROUP_DESC => l_group_desc,
170: P_EXCLUSIVE_FLAG => l_exclusive_flag,
163: /* Call the private procedure for Migration. */
164: jtf_rs_groups_pvt.create_resource_group_migrate
165: (P_API_VERSION => 1,
166: P_INIT_MSG_LIST => fnd_api.g_false,
167: P_COMMIT => fnd_api.g_false,
168: P_GROUP_NAME => l_group_name,
169: P_GROUP_DESC => l_group_desc,
170: P_EXCLUSIVE_FLAG => l_exclusive_flag,
171: P_EMAIL_ADDRESS => l_email_address,
195: X_GROUP_ID => x_group_id,
196: X_GROUP_NUMBER => x_group_number,
197: P_TIME_ZONE => l_time_zone
198: );
199: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
200: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
201: RAISE FND_API.G_EXC_ERROR;
202: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
196: X_GROUP_NUMBER => x_group_number,
197: P_TIME_ZONE => l_time_zone
198: );
199: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
200: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
201: RAISE FND_API.G_EXC_ERROR;
202: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
204: END IF;
197: P_TIME_ZONE => l_time_zone
198: );
199: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
200: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
201: RAISE FND_API.G_EXC_ERROR;
202: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
204: END IF;
205: END IF;
198: );
199: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
200: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
201: RAISE FND_API.G_EXC_ERROR;
202: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
204: END IF;
205: END IF;
206: END IF;
199: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
200: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
201: RAISE FND_API.G_EXC_ERROR;
202: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
204: END IF;
205: END IF;
206: END IF;
207:
204: END IF;
205: END IF;
206: END IF;
207:
208: IF fnd_api.to_boolean(p_commit) THEN
209:
210: COMMIT WORK;
211:
212: END IF;
215:
216:
217: EXCEPTION
218:
219: WHEN fnd_api.g_exc_error THEN
220: ROLLBACK TO create_resource_group_pub;
221: x_return_status := fnd_api.g_ret_sts_error;
222: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
223: p_data => x_msg_data);
217: EXCEPTION
218:
219: WHEN fnd_api.g_exc_error THEN
220: ROLLBACK TO create_resource_group_pub;
221: x_return_status := fnd_api.g_ret_sts_error;
222: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
223: p_data => x_msg_data);
224: WHEN fnd_api.g_exc_unexpected_error THEN
225: ROLLBACK TO create_resource_group_pub;
220: ROLLBACK TO create_resource_group_pub;
221: x_return_status := fnd_api.g_ret_sts_error;
222: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
223: p_data => x_msg_data);
224: WHEN fnd_api.g_exc_unexpected_error THEN
225: ROLLBACK TO create_resource_group_pub;
226: x_return_status := fnd_api.g_ret_sts_unexp_error;
227: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
228: p_data => x_msg_data);
222: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
223: p_data => x_msg_data);
224: WHEN fnd_api.g_exc_unexpected_error THEN
225: ROLLBACK TO create_resource_group_pub;
226: x_return_status := fnd_api.g_ret_sts_unexp_error;
227: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
228: p_data => x_msg_data);
229: WHEN OTHERS THEN
230: ROLLBACK TO create_resource_group_pub;
232: fnd_message.set_token('P_SQLCODE',SQLCODE);
233: fnd_message.set_token('P_SQLERRM',SQLERRM);
234: fnd_message.set_token('P_API_NAME', l_api_name);
235: FND_MSG_PUB.add;
236: x_return_status := fnd_api.g_ret_sts_unexp_error;
237: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
238: p_data => x_msg_data);
239: END create_resource_group;
240:
239: END create_resource_group;
240:
241: PROCEDURE create_resource_group_migrate
242: (P_API_VERSION IN NUMBER,
243: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
244: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
245: P_GROUP_NAME IN JTF_RS_GROUPS_VL.GROUP_NAME%TYPE,
246: P_GROUP_DESC IN JTF_RS_GROUPS_VL.GROUP_DESC%TYPE DEFAULT NULL,
247: P_EXCLUSIVE_FLAG IN JTF_RS_GROUPS_VL.EXCLUSIVE_FLAG%TYPE DEFAULT 'N',
240:
241: PROCEDURE create_resource_group_migrate
242: (P_API_VERSION IN NUMBER,
243: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
244: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
245: P_GROUP_NAME IN JTF_RS_GROUPS_VL.GROUP_NAME%TYPE,
246: P_GROUP_DESC IN JTF_RS_GROUPS_VL.GROUP_DESC%TYPE DEFAULT NULL,
247: P_EXCLUSIVE_FLAG IN JTF_RS_GROUPS_VL.EXCLUSIVE_FLAG%TYPE DEFAULT 'N',
248: P_EMAIL_ADDRESS IN JTF_RS_GROUPS_VL.EMAIL_ADDRESS%TYPE DEFAULT NULL,
321: passed by calling routines. */
322:
323: PROCEDURE update_resource_group
324: (P_API_VERSION IN NUMBER,
325: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
326: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
327: P_GROUP_ID IN JTF_RS_GROUPS_VL.GROUP_ID%TYPE,
328: P_GROUP_NUMBER IN JTF_RS_GROUPS_VL.GROUP_NUMBER%TYPE,
329: P_GROUP_NAME IN JTF_RS_GROUPS_VL.GROUP_NAME%TYPE DEFAULT FND_API.G_MISS_CHAR,
322:
323: PROCEDURE update_resource_group
324: (P_API_VERSION IN NUMBER,
325: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
326: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
327: P_GROUP_ID IN JTF_RS_GROUPS_VL.GROUP_ID%TYPE,
328: P_GROUP_NUMBER IN JTF_RS_GROUPS_VL.GROUP_NUMBER%TYPE,
329: P_GROUP_NAME IN JTF_RS_GROUPS_VL.GROUP_NAME%TYPE DEFAULT FND_API.G_MISS_CHAR,
330: P_GROUP_DESC IN JTF_RS_GROUPS_VL.GROUP_DESC%TYPE DEFAULT FND_API.G_MISS_CHAR,
325: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
326: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
327: P_GROUP_ID IN JTF_RS_GROUPS_VL.GROUP_ID%TYPE,
328: P_GROUP_NUMBER IN JTF_RS_GROUPS_VL.GROUP_NUMBER%TYPE,
329: P_GROUP_NAME IN JTF_RS_GROUPS_VL.GROUP_NAME%TYPE DEFAULT FND_API.G_MISS_CHAR,
330: P_GROUP_DESC IN JTF_RS_GROUPS_VL.GROUP_DESC%TYPE DEFAULT FND_API.G_MISS_CHAR,
331: P_EXCLUSIVE_FLAG IN JTF_RS_GROUPS_VL.EXCLUSIVE_FLAG%TYPE DEFAULT FND_API.G_MISS_CHAR,
332: P_EMAIL_ADDRESS IN JTF_RS_GROUPS_VL.EMAIL_ADDRESS%TYPE DEFAULT FND_API.G_MISS_CHAR,
333: P_START_DATE_ACTIVE IN JTF_RS_GROUPS_VL.START_DATE_ACTIVE%TYPE DEFAULT FND_API.G_MISS_DATE,
326: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
327: P_GROUP_ID IN JTF_RS_GROUPS_VL.GROUP_ID%TYPE,
328: P_GROUP_NUMBER IN JTF_RS_GROUPS_VL.GROUP_NUMBER%TYPE,
329: P_GROUP_NAME IN JTF_RS_GROUPS_VL.GROUP_NAME%TYPE DEFAULT FND_API.G_MISS_CHAR,
330: P_GROUP_DESC IN JTF_RS_GROUPS_VL.GROUP_DESC%TYPE DEFAULT FND_API.G_MISS_CHAR,
331: P_EXCLUSIVE_FLAG IN JTF_RS_GROUPS_VL.EXCLUSIVE_FLAG%TYPE DEFAULT FND_API.G_MISS_CHAR,
332: P_EMAIL_ADDRESS IN JTF_RS_GROUPS_VL.EMAIL_ADDRESS%TYPE DEFAULT FND_API.G_MISS_CHAR,
333: P_START_DATE_ACTIVE IN JTF_RS_GROUPS_VL.START_DATE_ACTIVE%TYPE DEFAULT FND_API.G_MISS_DATE,
334: P_END_DATE_ACTIVE IN JTF_RS_GROUPS_VL.END_DATE_ACTIVE%TYPE DEFAULT FND_API.G_MISS_DATE,
327: P_GROUP_ID IN JTF_RS_GROUPS_VL.GROUP_ID%TYPE,
328: P_GROUP_NUMBER IN JTF_RS_GROUPS_VL.GROUP_NUMBER%TYPE,
329: P_GROUP_NAME IN JTF_RS_GROUPS_VL.GROUP_NAME%TYPE DEFAULT FND_API.G_MISS_CHAR,
330: P_GROUP_DESC IN JTF_RS_GROUPS_VL.GROUP_DESC%TYPE DEFAULT FND_API.G_MISS_CHAR,
331: P_EXCLUSIVE_FLAG IN JTF_RS_GROUPS_VL.EXCLUSIVE_FLAG%TYPE DEFAULT FND_API.G_MISS_CHAR,
332: P_EMAIL_ADDRESS IN JTF_RS_GROUPS_VL.EMAIL_ADDRESS%TYPE DEFAULT FND_API.G_MISS_CHAR,
333: P_START_DATE_ACTIVE IN JTF_RS_GROUPS_VL.START_DATE_ACTIVE%TYPE DEFAULT FND_API.G_MISS_DATE,
334: P_END_DATE_ACTIVE IN JTF_RS_GROUPS_VL.END_DATE_ACTIVE%TYPE DEFAULT FND_API.G_MISS_DATE,
335: P_ACCOUNTING_CODE IN JTF_RS_GROUPS_VL.ACCOUNTING_CODE%TYPE DEFAULT FND_API.G_MISS_CHAR,
328: P_GROUP_NUMBER IN JTF_RS_GROUPS_VL.GROUP_NUMBER%TYPE,
329: P_GROUP_NAME IN JTF_RS_GROUPS_VL.GROUP_NAME%TYPE DEFAULT FND_API.G_MISS_CHAR,
330: P_GROUP_DESC IN JTF_RS_GROUPS_VL.GROUP_DESC%TYPE DEFAULT FND_API.G_MISS_CHAR,
331: P_EXCLUSIVE_FLAG IN JTF_RS_GROUPS_VL.EXCLUSIVE_FLAG%TYPE DEFAULT FND_API.G_MISS_CHAR,
332: P_EMAIL_ADDRESS IN JTF_RS_GROUPS_VL.EMAIL_ADDRESS%TYPE DEFAULT FND_API.G_MISS_CHAR,
333: P_START_DATE_ACTIVE IN JTF_RS_GROUPS_VL.START_DATE_ACTIVE%TYPE DEFAULT FND_API.G_MISS_DATE,
334: P_END_DATE_ACTIVE IN JTF_RS_GROUPS_VL.END_DATE_ACTIVE%TYPE DEFAULT FND_API.G_MISS_DATE,
335: P_ACCOUNTING_CODE IN JTF_RS_GROUPS_VL.ACCOUNTING_CODE%TYPE DEFAULT FND_API.G_MISS_CHAR,
336: P_OBJECT_VERSION_NUM IN OUT NOCOPY JTF_RS_GROUPS_VL.OBJECT_VERSION_NUMBER%TYPE,
329: P_GROUP_NAME IN JTF_RS_GROUPS_VL.GROUP_NAME%TYPE DEFAULT FND_API.G_MISS_CHAR,
330: P_GROUP_DESC IN JTF_RS_GROUPS_VL.GROUP_DESC%TYPE DEFAULT FND_API.G_MISS_CHAR,
331: P_EXCLUSIVE_FLAG IN JTF_RS_GROUPS_VL.EXCLUSIVE_FLAG%TYPE DEFAULT FND_API.G_MISS_CHAR,
332: P_EMAIL_ADDRESS IN JTF_RS_GROUPS_VL.EMAIL_ADDRESS%TYPE DEFAULT FND_API.G_MISS_CHAR,
333: P_START_DATE_ACTIVE IN JTF_RS_GROUPS_VL.START_DATE_ACTIVE%TYPE DEFAULT FND_API.G_MISS_DATE,
334: P_END_DATE_ACTIVE IN JTF_RS_GROUPS_VL.END_DATE_ACTIVE%TYPE DEFAULT FND_API.G_MISS_DATE,
335: P_ACCOUNTING_CODE IN JTF_RS_GROUPS_VL.ACCOUNTING_CODE%TYPE DEFAULT FND_API.G_MISS_CHAR,
336: P_OBJECT_VERSION_NUM IN OUT NOCOPY JTF_RS_GROUPS_VL.OBJECT_VERSION_NUMBER%TYPE,
337: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
330: P_GROUP_DESC IN JTF_RS_GROUPS_VL.GROUP_DESC%TYPE DEFAULT FND_API.G_MISS_CHAR,
331: P_EXCLUSIVE_FLAG IN JTF_RS_GROUPS_VL.EXCLUSIVE_FLAG%TYPE DEFAULT FND_API.G_MISS_CHAR,
332: P_EMAIL_ADDRESS IN JTF_RS_GROUPS_VL.EMAIL_ADDRESS%TYPE DEFAULT FND_API.G_MISS_CHAR,
333: P_START_DATE_ACTIVE IN JTF_RS_GROUPS_VL.START_DATE_ACTIVE%TYPE DEFAULT FND_API.G_MISS_DATE,
334: P_END_DATE_ACTIVE IN JTF_RS_GROUPS_VL.END_DATE_ACTIVE%TYPE DEFAULT FND_API.G_MISS_DATE,
335: P_ACCOUNTING_CODE IN JTF_RS_GROUPS_VL.ACCOUNTING_CODE%TYPE DEFAULT FND_API.G_MISS_CHAR,
336: P_OBJECT_VERSION_NUM IN OUT NOCOPY JTF_RS_GROUPS_VL.OBJECT_VERSION_NUMBER%TYPE,
337: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
338: X_MSG_COUNT OUT NOCOPY NUMBER,
331: P_EXCLUSIVE_FLAG IN JTF_RS_GROUPS_VL.EXCLUSIVE_FLAG%TYPE DEFAULT FND_API.G_MISS_CHAR,
332: P_EMAIL_ADDRESS IN JTF_RS_GROUPS_VL.EMAIL_ADDRESS%TYPE DEFAULT FND_API.G_MISS_CHAR,
333: P_START_DATE_ACTIVE IN JTF_RS_GROUPS_VL.START_DATE_ACTIVE%TYPE DEFAULT FND_API.G_MISS_DATE,
334: P_END_DATE_ACTIVE IN JTF_RS_GROUPS_VL.END_DATE_ACTIVE%TYPE DEFAULT FND_API.G_MISS_DATE,
335: P_ACCOUNTING_CODE IN JTF_RS_GROUPS_VL.ACCOUNTING_CODE%TYPE DEFAULT FND_API.G_MISS_CHAR,
336: P_OBJECT_VERSION_NUM IN OUT NOCOPY JTF_RS_GROUPS_VL.OBJECT_VERSION_NUMBER%TYPE,
337: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
338: X_MSG_COUNT OUT NOCOPY NUMBER,
339: X_MSG_DATA OUT NOCOPY VARCHAR2,
336: P_OBJECT_VERSION_NUM IN OUT NOCOPY JTF_RS_GROUPS_VL.OBJECT_VERSION_NUMBER%TYPE,
337: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
338: X_MSG_COUNT OUT NOCOPY NUMBER,
339: X_MSG_DATA OUT NOCOPY VARCHAR2,
340: P_TIME_ZONE IN JTF_RS_GROUPS_VL.TIME_ZONE%TYPE DEFAULT FND_API.G_MISS_NUM
341: ) IS
342:
343: l_api_version CONSTANT NUMBER := 1.0;
344: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_RESOURCE_GROUP';
360:
361:
362: SAVEPOINT update_resource_group_pub;
363:
364: x_return_status := fnd_api.g_ret_sts_success;
365:
366: -- DBMS_OUTPUT.put_line(' Started Update Resource Group Pub ');
367:
368:
365:
366: -- DBMS_OUTPUT.put_line(' Started Update Resource Group Pub ');
367:
368:
369: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
370:
371: RAISE fnd_api.g_exc_unexpected_error;
372:
373: END IF;
367:
368:
369: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
370:
371: RAISE fnd_api.g_exc_unexpected_error;
372:
373: END IF;
374:
375:
372:
373: END IF;
374:
375:
376: IF fnd_api.to_boolean(p_init_msg_list) THEN
377:
378: fnd_msg_pub.initialize;
379:
380: END IF;
391: -- added for NOCOPY
392: l_group_id := l_group_id_out;
393:
394:
395: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
396: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
397: RAISE FND_API.G_EXC_ERROR;
398: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
392: l_group_id := l_group_id_out;
393:
394:
395: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
396: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
397: RAISE FND_API.G_EXC_ERROR;
398: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
400: END IF;
393:
394:
395: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
396: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
397: RAISE FND_API.G_EXC_ERROR;
398: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
400: END IF;
401: END IF;
394:
395: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
396: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
397: RAISE FND_API.G_EXC_ERROR;
398: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
400: END IF;
401: END IF;
402:
395: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
396: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
397: RAISE FND_API.G_EXC_ERROR;
398: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
400: END IF;
401: END IF;
402:
403: -- Bug#8708207
408: /* Call the private procedure with the validated parameters. */
409:
410: jtf_rs_groups_pvt.update_resource_group
411: (P_API_VERSION => 1,
412: P_INIT_MSG_LIST => fnd_api.g_false,
413: P_COMMIT => fnd_api.g_false,
414: P_GROUP_ID => l_group_id,
415: P_GROUP_NAME => l_group_name,
416: P_GROUP_DESC => l_group_desc,
409:
410: jtf_rs_groups_pvt.update_resource_group
411: (P_API_VERSION => 1,
412: P_INIT_MSG_LIST => fnd_api.g_false,
413: P_COMMIT => fnd_api.g_false,
414: P_GROUP_ID => l_group_id,
415: P_GROUP_NAME => l_group_name,
416: P_GROUP_DESC => l_group_desc,
417: P_EXCLUSIVE_FLAG => l_exclusive_flag,
426: P_TIME_ZONE => l_time_zone
427: );
428:
429:
430: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
431: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
432: RAISE FND_API.G_EXC_ERROR;
433: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
434: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
427: );
428:
429:
430: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
431: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
432: RAISE FND_API.G_EXC_ERROR;
433: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
434: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
435: END IF;
428:
429:
430: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
431: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
432: RAISE FND_API.G_EXC_ERROR;
433: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
434: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
435: END IF;
436: END IF;
429:
430: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
431: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
432: RAISE FND_API.G_EXC_ERROR;
433: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
434: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
435: END IF;
436: END IF;
437:
430: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
431: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
432: RAISE FND_API.G_EXC_ERROR;
433: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
434: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
435: END IF;
436: END IF;
437:
438: /* Return the new value of the object version number */
438: /* Return the new value of the object version number */
439:
440: p_object_version_num := l_object_version_num;
441:
442: IF fnd_api.to_boolean(p_commit) THEN
443:
444: COMMIT WORK;
445:
446: END IF;
449:
450:
451: EXCEPTION
452:
453: WHEN fnd_api.g_exc_error THEN
454: ROLLBACK TO update_resource_group_pub;
455: x_return_status := fnd_api.g_ret_sts_error;
456: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
457: p_data => x_msg_data);
451: EXCEPTION
452:
453: WHEN fnd_api.g_exc_error THEN
454: ROLLBACK TO update_resource_group_pub;
455: x_return_status := fnd_api.g_ret_sts_error;
456: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
457: p_data => x_msg_data);
458: WHEN fnd_api.g_exc_unexpected_error THEN
459: ROLLBACK TO update_resource_group_pub;
454: ROLLBACK TO update_resource_group_pub;
455: x_return_status := fnd_api.g_ret_sts_error;
456: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
457: p_data => x_msg_data);
458: WHEN fnd_api.g_exc_unexpected_error THEN
459: ROLLBACK TO update_resource_group_pub;
460: x_return_status := fnd_api.g_ret_sts_unexp_error;
461: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
462: p_data => x_msg_data);
456: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
457: p_data => x_msg_data);
458: WHEN fnd_api.g_exc_unexpected_error THEN
459: ROLLBACK TO update_resource_group_pub;
460: x_return_status := fnd_api.g_ret_sts_unexp_error;
461: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
462: p_data => x_msg_data);
463: WHEN OTHERS THEN
464: ROLLBACK TO update_resource_group_pub;
466: fnd_message.set_token('P_SQLCODE',SQLCODE);
467: fnd_message.set_token('P_SQLERRM',SQLERRM);
468: fnd_message.set_token('P_API_NAME', l_api_name);
469: FND_MSG_PUB.add;
470: x_return_status := fnd_api.g_ret_sts_unexp_error;
471: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
472: p_data => x_msg_data);
473:
474: END update_resource_group;