37: g_workflow_process CONSTANT VARCHAR2(30) := 'AMSGAPP';
38: g_item_type CONSTANT VARCHAR2(30) := 'AMSGAPP';
39: -- addded 08/14/2001 mpande
40: g_activity_type CONSTANT VARCHAR2(30) := 'FREQ';
41: G_DEBUG BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
42: ---------------------------------------------------------------------
43: -- PROCEDURE
44: -- Approve_Request
45: --
168: l_source_rec.committed_amt;
169: IF (c_fund_detail%NOTFOUND) THEN
170: CLOSE c_fund_detail;
171:
172: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
173: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
174: fnd_msg_pub.add;
175: END IF;
176:
170: CLOSE c_fund_detail;
171:
172: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
173: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
174: fnd_msg_pub.add;
175: END IF;
176:
177: RAISE fnd_api.g_exc_error;
178: END IF;
187: NVL(l_source_rec.source_trans_out_amt, 0)-
188: NVL(l_source_rec.committed_amt, 0)
189: ,0)) <
190: p_approved_amount THEN
191: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
192: fnd_message.set_name('OZF', 'OZF_AMT_UNAVAILABLE');
193: fnd_msg_pub.add;
194: END IF;
195:
189: ,0)) <
190: p_approved_amount THEN
191: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
192: fnd_message.set_name('OZF', 'OZF_AMT_UNAVAILABLE');
193: fnd_msg_pub.add;
194: END IF;
195:
196: RAISE fnd_api.g_exc_error;
197: END IF;
202:
203: IF (c_to_fund_currency%NOTFOUND) THEN
204: CLOSE c_to_fund_currency;
205:
206: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
207: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
208: fnd_msg_pub.add;
209: END IF;
210:
204: CLOSE c_to_fund_currency;
205:
206: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
207: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
208: fnd_msg_pub.add;
209: END IF;
210:
211: RAISE fnd_api.g_exc_error;
212: END IF;
271:
272: IF (c_target_fund_detail%NOTFOUND) THEN
273: CLOSE c_target_fund_detail;
274:
275: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
276: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
277: fnd_msg_pub.add;
278: END IF;
279:
273: CLOSE c_target_fund_detail;
274:
275: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
276: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
277: fnd_msg_pub.add;
278: END IF;
279:
280: RAISE fnd_api.g_exc_error;
281: END IF;
336:
337: IF (c_act_budget_detail%NOTFOUND) THEN
338: CLOSE c_act_budget_detail;
339:
340: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
341: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
342: fnd_msg_pub.add;
343: END IF;
344:
338: CLOSE c_act_budget_detail;
339:
340: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
341: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
342: fnd_msg_pub.add;
343: END IF;
344:
345: RAISE fnd_api.g_exc_error;
346: END IF;
406:
407: IF (c_act_budget_detail%NOTFOUND) THEN
408: CLOSE c_act_budget_detail;
409:
410: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
411: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
412: fnd_msg_pub.add;
413: END IF;
414:
408: CLOSE c_act_budget_detail;
409:
410: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
411: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
412: fnd_msg_pub.add;
413: END IF;
414:
415: RAISE fnd_api.g_exc_error;
416: END IF;
444: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
445: RAISE fnd_api.g_exc_unexpected_error;
446: END IF;
447: END IF ;
448: fnd_msg_pub.count_and_get(
449: p_encoded => fnd_api.g_false
450: ,p_count => x_msg_count
451: ,p_data => x_msg_data);
452:
458: EXCEPTION
459: WHEN fnd_api.g_exc_error THEN
460: ROLLBACK TO approve_request;
461: x_return_status := fnd_api.g_ret_sts_error;
462: fnd_msg_pub.count_and_get(
463: p_encoded => fnd_api.g_false
464: ,p_count => x_msg_count
465: ,p_data => x_msg_data);
466: WHEN fnd_api.g_exc_unexpected_error THEN
465: ,p_data => x_msg_data);
466: WHEN fnd_api.g_exc_unexpected_error THEN
467: ROLLBACK TO approve_request;
468: x_return_status := fnd_api.g_ret_sts_unexp_error;
469: fnd_msg_pub.count_and_get(
470: p_encoded => fnd_api.g_false
471: ,p_count => x_msg_count
472: ,p_data => x_msg_data);
473: WHEN OTHERS THEN
473: WHEN OTHERS THEN
474: ROLLBACK TO approve_request;
475: x_return_status := fnd_api.g_ret_sts_unexp_error;
476:
477: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
478: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
479: END IF;
480:
481: fnd_msg_pub.count_and_get(
474: ROLLBACK TO approve_request;
475: x_return_status := fnd_api.g_ret_sts_unexp_error;
476:
477: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
478: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
479: END IF;
480:
481: fnd_msg_pub.count_and_get(
482: p_encoded => fnd_api.g_false
477: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
478: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
479: END IF;
480:
481: fnd_msg_pub.count_and_get(
482: p_encoded => fnd_api.g_false
483: ,p_count => x_msg_count
484: ,p_data => x_msg_data);
485: END approve_request;
600:
601: IF (c_target_fund_detail%NOTFOUND) THEN
602: CLOSE c_target_fund_detail;
603:
604: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
605: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
606: fnd_msg_pub.add;
607: END IF;
608:
602: CLOSE c_target_fund_detail;
603:
604: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
605: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
606: fnd_msg_pub.add;
607: END IF;
608:
609: RAISE fnd_api.g_exc_error;
610: END IF;
671:
672: IF (c_act_budget_detail%NOTFOUND) THEN
673: CLOSE c_act_budget_detail;
674:
675: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
676: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
677: fnd_msg_pub.add;
678: END IF;
679:
673: CLOSE c_act_budget_detail;
674:
675: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
676: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
677: fnd_msg_pub.add;
678: END IF;
679:
680: RAISE fnd_api.g_exc_error;
681: END IF;
736:
737: IF (c_act_budget_detail%NOTFOUND) THEN
738: CLOSE c_act_budget_detail;
739:
740: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
741: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
742: fnd_msg_pub.add;
743: END IF;
744:
738: CLOSE c_act_budget_detail;
739:
740: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
741: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
742: fnd_msg_pub.add;
743: END IF;
744:
745: RAISE fnd_api.g_exc_error;
746: END IF;
774: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
775: RAISE fnd_api.g_exc_unexpected_error;
776: END IF;
777:
778: fnd_msg_pub.count_and_get(
779: p_encoded => fnd_api.g_false
780: ,p_count => x_msg_count
781: ,p_data => x_msg_data);
782:
788: EXCEPTION
789: WHEN fnd_api.g_exc_error THEN
790: ROLLBACK TO negative_request;
791: x_return_status := fnd_api.g_ret_sts_error;
792: fnd_msg_pub.count_and_get(
793: p_encoded => fnd_api.g_false
794: ,p_count => x_msg_count
795: ,p_data => x_msg_data);
796: WHEN fnd_api.g_exc_unexpected_error THEN
795: ,p_data => x_msg_data);
796: WHEN fnd_api.g_exc_unexpected_error THEN
797: ROLLBACK TO negative_request;
798: x_return_status := fnd_api.g_ret_sts_unexp_error;
799: fnd_msg_pub.count_and_get(
800: p_encoded => fnd_api.g_false
801: ,p_count => x_msg_count
802: ,p_data => x_msg_data);
803: WHEN OTHERS THEN
803: WHEN OTHERS THEN
804: ROLLBACK TO negative_request;
805: x_return_status := fnd_api.g_ret_sts_unexp_error;
806:
807: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
808: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
809: END IF;
810:
811: fnd_msg_pub.count_and_get(
804: ROLLBACK TO negative_request;
805: x_return_status := fnd_api.g_ret_sts_unexp_error;
806:
807: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
808: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
809: END IF;
810:
811: fnd_msg_pub.count_and_get(
812: p_encoded => fnd_api.g_false
807: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
808: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
809: END IF;
810:
811: fnd_msg_pub.count_and_get(
812: p_encoded => fnd_api.g_false
813: ,p_count => x_msg_count
814: ,p_data => x_msg_data);
815: END negative_request;
997:
998: IF (c_parent_fund_owner%NOTFOUND) THEN
999: CLOSE c_parent_fund_owner;
1000:
1001: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1002: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
1003: fnd_msg_pub.add;
1004: END IF;
1005:
999: CLOSE c_parent_fund_owner;
1000:
1001: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1002: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
1003: fnd_msg_pub.add;
1004: END IF;
1005:
1006: RAISE fnd_api.g_exc_error;
1007: END IF;
1026:
1027: IF (c_fm_fund_currency%NOTFOUND) THEN
1028: CLOSE c_fm_fund_currency;
1029:
1030: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1031: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
1032: fnd_msg_pub.add;
1033: END IF;
1034:
1028: CLOSE c_fm_fund_currency;
1029:
1030: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1031: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
1032: fnd_msg_pub.add;
1033: END IF;
1034:
1035: RAISE fnd_api.g_exc_error;
1036: END IF;
1041:
1042: IF (c_to_fund_currency%NOTFOUND) THEN
1043: CLOSE c_to_fund_currency;
1044:
1045: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1046: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
1047: fnd_msg_pub.add;
1048: END IF;
1049:
1043: CLOSE c_to_fund_currency;
1044:
1045: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1046: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
1047: fnd_msg_pub.add;
1048: END IF;
1049:
1050: RAISE fnd_api.g_exc_error;
1051: END IF;
1077:
1078: IF (c_act_budget_rec%NOTFOUND) THEN
1079: CLOSE c_act_budget_rec;
1080:
1081: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1082: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
1083: fnd_msg_pub.add;
1084: END IF;
1085:
1079: CLOSE c_act_budget_rec;
1080:
1081: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1082: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
1083: fnd_msg_pub.add;
1084: END IF;
1085:
1086: RAISE fnd_api.g_exc_error;
1087: END IF;
1184: AND x_return_status = fnd_api.g_ret_sts_success THEN
1185: COMMIT WORK;
1186: END IF;
1187:
1188: fnd_msg_pub.count_and_get(
1189: p_encoded => fnd_api.g_false
1190: ,p_count => x_msg_count
1191: ,p_data => x_msg_data);
1192: EXCEPTION
1192: EXCEPTION
1193: WHEN fnd_api.g_exc_error THEN
1194: ROLLBACK TO create_fund_request;
1195: x_return_status := fnd_api.g_ret_sts_error;
1196: fnd_msg_pub.count_and_get(
1197: p_encoded => fnd_api.g_false
1198: ,p_count => x_msg_count
1199: ,p_data => x_msg_data);
1200: WHEN fnd_api.g_exc_unexpected_error THEN
1199: ,p_data => x_msg_data);
1200: WHEN fnd_api.g_exc_unexpected_error THEN
1201: ROLLBACK TO create_fund_request;
1202: x_return_status := fnd_api.g_ret_sts_unexp_error;
1203: fnd_msg_pub.count_and_get(
1204: p_encoded => fnd_api.g_false
1205: ,p_count => x_msg_count
1206: ,p_data => x_msg_data);
1207: WHEN OTHERS THEN
1207: WHEN OTHERS THEN
1208: ROLLBACK TO create_fund_request;
1209: x_return_status := fnd_api.g_ret_sts_unexp_error;
1210:
1211: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1212: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1213: END IF;
1214:
1215: fnd_msg_pub.count_and_get(
1208: ROLLBACK TO create_fund_request;
1209: x_return_status := fnd_api.g_ret_sts_unexp_error;
1210:
1211: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1212: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1213: END IF;
1214:
1215: fnd_msg_pub.count_and_get(
1216: p_encoded => fnd_api.g_false
1211: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1212: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1213: END IF;
1214:
1215: fnd_msg_pub.count_and_get(
1216: p_encoded => fnd_api.g_false
1217: ,p_count => x_msg_count
1218: ,p_data => x_msg_data);
1219: END create_fund_request;
2261: AND note_type = 'AMS_JUSTIFICATION'
2262: AND source_object_id = p_act_budget_id;
2263:
2264: BEGIN
2265: fnd_msg_pub.initialize;
2266: l_activity_id :=
2267: wf_engine.getitemattrnumber(
2268: itemtype => itemtype
2269: ,itemkey => itemkey
2281:
2282: IF (c_act_budget_rec%NOTFOUND) THEN
2283: CLOSE c_act_budget_rec;
2284:
2285: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2286: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
2287: fnd_msg_pub.add;
2288: END IF;
2289:
2283: CLOSE c_act_budget_rec;
2284:
2285: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2286: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
2287: fnd_msg_pub.add;
2288: END IF;
2289:
2290: RAISE fnd_api.g_exc_error;
2291: END IF;
2303:
2304: IF (c_fund_rec%NOTFOUND) THEN
2305: CLOSE c_fund_rec;
2306:
2307: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2308: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
2309: fnd_msg_pub.add;
2310: END IF;
2311:
2305: CLOSE c_fund_rec;
2306:
2307: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2308: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
2309: fnd_msg_pub.add;
2310: END IF;
2311:
2312: RAISE fnd_api.g_exc_error;
2313: END IF;
2325: l_object_details.currency;
2326: IF (c_transfer_rec%NOTFOUND) THEN
2327: CLOSE c_fund_rec;
2328:
2329: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2330: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
2331: fnd_msg_pub.add;
2332: END IF;
2333:
2327: CLOSE c_fund_rec;
2328:
2329: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2330: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
2331: fnd_msg_pub.add;
2332: END IF;
2333:
2334: RAISE fnd_api.g_exc_error;
2335: END IF;
2343:
2344: IF (c_budget_src_rec%NOTFOUND) THEN
2345: CLOSE c_budget_src_rec;
2346:
2347: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2348: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
2349: fnd_msg_pub.add;
2350: END IF;
2351:
2345: CLOSE c_budget_src_rec;
2346:
2347: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2348: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
2349: fnd_msg_pub.add;
2350: END IF;
2351:
2352: RAISE fnd_api.g_exc_error;
2353: END IF;
2474:
2475:
2476: resultout := 'COMPLETE:SUCCESS';
2477: ELSE
2478: fnd_msg_pub.count_and_get(
2479: p_encoded => fnd_api.g_false
2480: ,p_count => l_msg_count
2481: ,p_data => l_msg_data);
2482: ams_gen_approval_pvt.handle_err(
2527: ,funcmode
2528: ,l_error_msg);
2529: RAISE;
2530: WHEN OTHERS THEN
2531: fnd_msg_pub.count_and_get(
2532: p_encoded => fnd_api.g_false
2533: ,p_count => l_msg_count
2534: ,p_data => l_msg_data);
2535: ams_gen_approval_pvt.handle_err(
2829: FETCH c_act_budget_rec INTO l_approval_fm_id, l_approval_for_id, l_to_currency, l_from_currency;
2830: IF (c_act_budget_rec%NOTFOUND) THEN
2831: CLOSE c_act_budget_rec;
2832:
2833: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2834: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
2835: fnd_msg_pub.add;
2836: END IF;
2837:
2831: CLOSE c_act_budget_rec;
2832:
2833: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2834: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
2835: fnd_msg_pub.add;
2836: END IF;
2837:
2838: RAISE fnd_api.g_exc_error;
2839: END IF;
2939: resultout := 'COMPLETE:';
2940: RETURN;
2941: END IF;
2942:
2943: fnd_msg_pub.count_and_get(
2944: p_encoded => fnd_api.g_false
2945: ,p_count => l_msg_count
2946: ,p_data => l_msg_data);
2947: IF G_DEBUG THEN
2949: END IF;
2950: EXCEPTION
2951: WHEN OTHERS THEN
2952: -- x_return_status := fnd_api.g_ret_sts_error;
2953: fnd_msg_pub.count_and_get(
2954: p_encoded => fnd_api.g_false
2955: ,p_count => l_msg_count
2956: ,p_data => l_msg_data);
2957: ams_gen_approval_pvt.handle_err(
3070:
3071: IF (c_fund_detail%NOTFOUND) THEN
3072: CLOSE c_fund_detail;
3073:
3074: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
3075: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
3076: fnd_msg_pub.add;
3077: END IF;
3078:
3072: CLOSE c_fund_detail;
3073:
3074: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
3075: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
3076: fnd_msg_pub.add;
3077: END IF;
3078:
3079: RAISE fnd_api.g_exc_error;
3080: END IF;
3085: ozf_funds_pvt.init_fund_rec(x_fund_rec => l_fund_rec);
3086:
3087: IF p_transfer_type = 'RESERVE' THEN
3088: IF NVL(l_available_amt, 0) < NVL(p_requested_amount, 0) THEN
3089: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
3090: fnd_message.set_name('OZF', 'OZF_AMT_UNAVAILABLE');
3091: fnd_msg_pub.add;
3092: END IF;
3093:
3087: IF p_transfer_type = 'RESERVE' THEN
3088: IF NVL(l_available_amt, 0) < NVL(p_requested_amount, 0) THEN
3089: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
3090: fnd_message.set_name('OZF', 'OZF_AMT_UNAVAILABLE');
3091: fnd_msg_pub.add;
3092: END IF;
3093:
3094: RAISE fnd_api.g_exc_error;
3095: END IF;
3096:
3097: l_fund_rec.holdback_amt := NVL(l_holdback_amt, 0) + NVL(p_requested_amount, 0); -- HOLDBACK AMT
3098: ELSIF p_transfer_type = 'RELEASE' THEN
3099: IF NVL(l_holdback_amt, 0) < NVL(p_requested_amount, 0) THEN
3100: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
3101: fnd_message.set_name('OZF', 'OZF_AMT_UNAVAILABLE');
3102: fnd_msg_pub.add;
3103: END IF;
3104:
3098: ELSIF p_transfer_type = 'RELEASE' THEN
3099: IF NVL(l_holdback_amt, 0) < NVL(p_requested_amount, 0) THEN
3100: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
3101: fnd_message.set_name('OZF', 'OZF_AMT_UNAVAILABLE');
3102: fnd_msg_pub.add;
3103: END IF;
3104:
3105: RAISE fnd_api.g_exc_error;
3106: END IF;
3135: AND l_return_status = fnd_api.g_ret_sts_success THEN
3136: COMMIT WORK;
3137: END IF;
3138:
3139: fnd_msg_pub.count_and_get(
3140: p_encoded => fnd_api.g_false
3141: ,p_count => x_msg_count
3142: ,p_data => x_msg_data);
3143: EXCEPTION
3142: ,p_data => x_msg_data);
3143: EXCEPTION
3144: WHEN fnd_api.g_exc_error THEN
3145: x_return_status := fnd_api.g_ret_sts_error;
3146: fnd_msg_pub.count_and_get(
3147: p_encoded => fnd_api.g_false
3148: ,p_count => x_msg_count
3149: ,p_data => x_msg_data);
3150: WHEN fnd_api.g_exc_unexpected_error THEN
3148: ,p_count => x_msg_count
3149: ,p_data => x_msg_data);
3150: WHEN fnd_api.g_exc_unexpected_error THEN
3151: x_return_status := fnd_api.g_ret_sts_unexp_error;
3152: fnd_msg_pub.count_and_get(
3153: p_encoded => fnd_api.g_false
3154: ,p_count => x_msg_count
3155: ,p_data => x_msg_data);
3156: WHEN OTHERS THEN
3155: ,p_data => x_msg_data);
3156: WHEN OTHERS THEN
3157: x_return_status := fnd_api.g_ret_sts_unexp_error;
3158:
3159: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3160: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3161: END IF;
3162:
3163: fnd_msg_pub.count_and_get(
3156: WHEN OTHERS THEN
3157: x_return_status := fnd_api.g_ret_sts_unexp_error;
3158:
3159: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3160: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3161: END IF;
3162:
3163: fnd_msg_pub.count_and_get(
3164: p_encoded => fnd_api.g_false
3159: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3160: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3161: END IF;
3162:
3163: fnd_msg_pub.count_and_get(
3164: p_encoded => fnd_api.g_false
3165: ,p_count => x_msg_count
3166: ,p_data => x_msg_data);
3167: END approve_holdback;