[Home] [Help]
144: ' p_source_credit_id : ' ||p_source_credit_id
145: );
146:
147: --Standard call to check for call compatibility
148: IF NOT fnd_api.compatible_api_call(
149: p_current_version_number => l_api_version,
150: p_caller_version_number => p_api_version,
151: p_api_name => l_api_name,
152: p_pkg_name => g_pkg_name
150: p_caller_version_number => p_api_version,
151: p_api_name => l_api_name,
152: p_pkg_name => g_pkg_name
153: ) THEN
154: RAISE fnd_api.g_exc_unexpected_error;
155: END IF;
156:
157: --Initialize message list if p_init_msg_list is set to TRUE
158: IF fnd_api.to_boolean(p_init_msg_list) THEN
154: RAISE fnd_api.g_exc_unexpected_error;
155: END IF;
156:
157: --Initialize message list if p_init_msg_list is set to TRUE
158: IF fnd_api.to_boolean(p_init_msg_list) THEN
159: fnd_msg_pub.initialize;
160: END IF;
161:
162: --Initialize API return status to success
159: fnd_msg_pub.initialize;
160: END IF;
161:
162: --Initialize API return status to success
163: x_return_status := fnd_api.g_ret_sts_success;
164:
165: ----------------------- Start of API Body---------------------------
166:
167: -- Verify the value of Manage Accounts set in System Options form.
173: IF (l_v_manage_accounts IS NULL OR l_v_manage_accounts = 'OTHER') THEN
174: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
175: fnd_message.set_name ( 'IGS', l_v_message_name );
176: fnd_msg_pub.add;
177: RAISE fnd_api.g_exc_error;
178: END IF;
179: END IF;
180:
181: -- Verify if holds conversion process is currently being executed
189: IF l_n_conv_process_run_ind = 1 AND l_v_message_name IS NULL THEN
190: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
191: fnd_message.set_name('IGS','IGS_FI_REASS_BAL_PRC_RUN');
192: fnd_msg_pub.add;
193: RAISE fnd_api.g_exc_error;
194: END IF;
195: END IF;
196: IF l_v_message_name IS NOT NULL THEN
197: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
196: IF l_v_message_name IS NOT NULL THEN
197: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
198: fnd_message.set_name('IGS',l_v_message_name);
199: fnd_msg_pub.add;
200: RAISE fnd_api.g_exc_error;
201: END IF;
202: END IF;
203:
204: -- Verify if active balance rule for holds balance type has been set up
214: IF l_n_version_number = 0 THEN
215: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
216: fnd_message.set_name('IGS','IGS_FI_CANNOT_CRT_TXN');
217: fnd_msg_pub.add;
218: RAISE fnd_api.g_exc_error;
219: END IF;
220: END IF;
221:
222: -- Validate all the inbound parameters to API
231: p_source_credit_id => p_source_credit_id ,
232: p_b_return_status => l_b_return_status
233: );
234: IF NOT (l_b_return_status) THEN
235: RAISE fnd_api.g_exc_error;
236: END IF;
237:
238: OPEN c_waiver_pgms (
239: cp_v_fee_cal_type => p_fee_cal_type ,
276: );
277: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
278: fnd_message.set_name('IGS','IGS_FI_WAV_NO_TRANS_CREATED');
279: fnd_msg_pub.add;
280: RAISE fnd_api.g_exc_error;
281: END IF;
282: END IF;
283:
284: log_to_fnd(p_v_module => 'create_manual_waivers',
325: );
326: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
327: fnd_message.set_name('IGS','IGS_FI_WAV_NO_TRANS_CREATED');
328: fnd_msg_pub.add;
329: RAISE fnd_api.g_exc_error;
330: END IF;
331: END IF;
332:
333: x_waiver_credit_id := l_n_credit_id;
366: );
367: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
368: fnd_message.set_name('IGS','IGS_FI_WAV_NO_TRANS_CREATED');
369: fnd_msg_pub.add;
370: RAISE fnd_api.g_exc_error;
371: END IF;
372: END IF;
373:
374: log_to_fnd(p_v_module => 'create_manual_waivers',
415: );
416: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
417: fnd_message.set_name('IGS','IGS_FI_WAV_NO_TRANS_CREATED');
418: fnd_msg_pub.add;
419: RAISE fnd_api.g_exc_error;
420: END IF;
421: END IF;
422: x_waiver_adjustment_id := l_n_invoice_id;
423: END IF;
424:
425: ----------------------- End of API Body---------------------------
426:
427: -- Standard check of p_commit
428: IF fnd_api.to_boolean( p_commit) THEN
429: COMMIT WORK;
430: END IF;
431:
432: --Standard call to get message count and if count is 1, get message info.
434: p_count => x_msg_count,
435: p_data => x_msg_data
436: );
437: EXCEPTION
438: WHEN fnd_api.g_exc_error THEN
439: ROLLBACK TO create_manual_waivers_pub;
440: x_return_status := fnd_api.g_ret_sts_error;
441: fnd_msg_pub.count_and_get(
442: p_count => x_msg_count ,
436: );
437: EXCEPTION
438: WHEN fnd_api.g_exc_error THEN
439: ROLLBACK TO create_manual_waivers_pub;
440: x_return_status := fnd_api.g_ret_sts_error;
441: fnd_msg_pub.count_and_get(
442: p_count => x_msg_count ,
443: p_data => x_msg_data
444: );
441: fnd_msg_pub.count_and_get(
442: p_count => x_msg_count ,
443: p_data => x_msg_data
444: );
445: WHEN fnd_api.g_exc_unexpected_error THEN
446: ROLLBACK TO create_manual_waivers_pub ;
447: x_return_status := fnd_api.g_ret_sts_unexp_error;
448: fnd_msg_pub.count_and_get(
449: p_count => x_msg_count ,
443: p_data => x_msg_data
444: );
445: WHEN fnd_api.g_exc_unexpected_error THEN
446: ROLLBACK TO create_manual_waivers_pub ;
447: x_return_status := fnd_api.g_ret_sts_unexp_error;
448: fnd_msg_pub.count_and_get(
449: p_count => x_msg_count ,
450: p_data => x_msg_data
451: );
450: p_data => x_msg_data
451: );
452: WHEN OTHERS THEN
453: ROLLBACK TO create_manual_waivers_pub ;
454: x_return_status := fnd_api.g_ret_sts_unexp_error;
455: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
456: fnd_log.string(fnd_log.level_exception,'igs.plsql.igs_fi_waivers_api_pub.create_manual_waivers.exception','Error : ' || SQLERRM);
457: END IF;
458: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN