25: x_rec_count := 0;
26: x_msg_data := '';
27: Fnd_Msg_Pub.initialize;
28:
29: x_return_status := fnd_api.g_ret_sts_success;
30:
31: IF p_status_change = 'CANCELLED' THEN
32: BEGIN
33: SELECT DISTINCT 'Y' INTO l_flag
118:
119: IF l_flag = 'Y' THEN
120: fnd_message.set_name('DPP', 'DPP_TXN_NOT_CANCELLED');
121: fnd_msg_pub.add;
122: RAISE FND_API.G_EXC_ERROR;
123: END IF;
124:
125: ELSIF p_status_change = 'CLOSED' THEN
126:
142: EXCEPTION
143: WHEN NO_DATA_FOUND THEN
144: NULL;
145: WHEN OTHERS THEN
146: RAISE FND_API.G_EXC_ERROR;
147: END;
148:
149:
150: BEGIN
165: EXCEPTION
166: WHEN NO_DATA_FOUND THEN
167: NULL;
168: WHEN OTHERS THEN
169: RAISE FND_API.G_EXC_ERROR;
170: END;
171:
172:
173: BEGIN
188: EXCEPTION
189: WHEN NO_DATA_FOUND THEN
190: NULL;
191: WHEN OTHERS THEN
192: RAISE FND_API.G_EXC_ERROR;
193: END;
194:
195: BEGIN
196: SELECT DISTINCT 'Y' INTO l_flag
210: EXCEPTION
211: WHEN NO_DATA_FOUND THEN
212: NULL;
213: WHEN OTHERS THEN
214: RAISE FND_API.G_EXC_ERROR;
215: END;
216:
217: BEGIN
218: SELECT DISTINCT 'Y' INTO l_flag
232: EXCEPTION
233: WHEN NO_DATA_FOUND THEN
234: NULL;
235: WHEN OTHERS THEN
236: RAISE FND_API.G_EXC_ERROR;
237: END;
238:
239: BEGIN
240: SELECT DISTINCT 'Y' INTO l_flag
254: EXCEPTION
255: WHEN NO_DATA_FOUND THEN
256: NULL;
257: WHEN OTHERS THEN
258: RAISE FND_API.G_EXC_ERROR;
259: END;
260:
261: BEGIN
262: SELECT DISTINCT 'Y' INTO l_flag
276: EXCEPTION
277: WHEN NO_DATA_FOUND THEN
278: NULL;
279: WHEN OTHERS THEN
280: RAISE FND_API.G_EXC_ERROR;
281: END;
282:
283: BEGIN
284: SELECT DISTINCT 'Y' INTO l_flag
298: EXCEPTION
299: WHEN NO_DATA_FOUND THEN
300: NULL;
301: WHEN OTHERS THEN
302: RAISE FND_API.G_EXC_ERROR;
303: END;
304:
305: BEGIN
306: SELECT DISTINCT 'Y' INTO l_flag
320: EXCEPTION
321: WHEN NO_DATA_FOUND THEN
322: NULL;
323: WHEN OTHERS THEN
324: RAISE FND_API.G_EXC_ERROR;
325: END;
326:
327: FOR select_claims_rec IN select_claims_csr(p_transaction_header_id)
328: LOOP
334: END IF;
335: IF l_flag = 'Y' THEN
336: fnd_message.set_name('DPP', 'DPP_TXN_NOT_CLOSED');
337: fnd_msg_pub.add;
338: RAISE FND_API.G_EXC_ERROR;
339: END IF;
340: EXCEPTION
341: WHEN FND_API.G_EXC_ERROR THEN
342: x_return_status := FND_API.G_RET_STS_ERROR;
337: fnd_msg_pub.add;
338: RAISE FND_API.G_EXC_ERROR;
339: END IF;
340: EXCEPTION
341: WHEN FND_API.G_EXC_ERROR THEN
342: x_return_status := FND_API.G_RET_STS_ERROR;
343: -- Standard call to get message count and if count=1, get the message
344: FND_MSG_PUB.Count_And_Get (
345: p_encoded => FND_API.G_FALSE,
338: RAISE FND_API.G_EXC_ERROR;
339: END IF;
340: EXCEPTION
341: WHEN FND_API.G_EXC_ERROR THEN
342: x_return_status := FND_API.G_RET_STS_ERROR;
343: -- Standard call to get message count and if count=1, get the message
344: FND_MSG_PUB.Count_And_Get (
345: p_encoded => FND_API.G_FALSE,
346: p_count => x_rec_count,
341: WHEN FND_API.G_EXC_ERROR THEN
342: x_return_status := FND_API.G_RET_STS_ERROR;
343: -- Standard call to get message count and if count=1, get the message
344: FND_MSG_PUB.Count_And_Get (
345: p_encoded => FND_API.G_FALSE,
346: p_count => x_rec_count,
347: p_data => x_msg_data
348: );
349: IF x_rec_count > 1 THEN
352: END LOOP;
353: END IF;
354:
355: WHEN OTHERS THEN
356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
357: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
358: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.check_txnclose');
359: fnd_message.set_token('ERRNO', sqlcode);
360: fnd_message.set_token('REASON', sqlerrm);
361: FND_MSG_PUB.add;
362:
363: -- Standard call to get message count and if count=1, get the message
364: FND_MSG_PUB.Count_And_Get (
365: p_encoded => FND_API.G_FALSE,
366: p_count => x_rec_count,
367: p_data => x_msg_data
368: );
369: IF x_rec_count > 1 THEN
412:
413: CLOSE get_vendor_csr;
414: x_rec_count := l_vendor_tbl.COUNT;
415: x_vendor_tbl := l_vendor_tbl;
416: x_return_status := fnd_api.g_ret_sts_success;
417:
418: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'search_vendors(): x_return_status: ' || x_return_status);
419:
420: EXCEPTION
418: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'search_vendors(): x_return_status: ' || x_return_status);
419:
420: EXCEPTION
421: WHEN OTHERS THEN
422: x_return_status := fnd_api.g_ret_sts_unexp_error;
423:
424: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
425: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_vendors');
426: fnd_message.set_token('ERRNO', sqlcode);
477:
478: IF l_search_criteria_tbl(1).search_text IS NULL THEN
479: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_VENDORID');
480: fnd_msg_pub.add;
481: RAISE FND_API.G_EXC_ERROR;
482:
483: ELSIF l_search_criteria_tbl(3).search_text IS NULL THEN
484: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_ORGID');
485: fnd_msg_pub.add;
482:
483: ELSIF l_search_criteria_tbl(3).search_text IS NULL THEN
484: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_ORGID');
485: fnd_msg_pub.add;
486: RAISE FND_API.G_EXC_ERROR;
487: END IF;
488:
489: OPEN get_vendor_sites_csr(NVL(l_search_criteria_tbl(1).search_criteria,'VENDOR_ID'), l_search_criteria_tbl(1).search_text,
490: NVL(l_search_criteria_tbl(2).search_criteria,'VENDOR_SITE_CODE'), NVL(l_search_criteria_tbl(2).search_text,'%'),
497: CLOSE get_vendor_sites_csr;
498:
499: x_rec_count := l_vendor_site_tbl.COUNT;
500: x_vendor_site_tbl := l_vendor_site_tbl;
501: x_return_status := fnd_api.g_ret_sts_success;
502:
503: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'search_vendor_sites(): x_return_status: ' || x_return_status);
504:
505: EXCEPTION
503: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'search_vendor_sites(): x_return_status: ' || x_return_status);
504:
505: EXCEPTION
506:
507: WHEN FND_API.G_EXC_ERROR THEN
508: x_return_status := FND_API.G_RET_STS_ERROR;
509:
510: WHEN OTHERS THEN
511: x_return_status := fnd_api.g_ret_sts_unexp_error;
504:
505: EXCEPTION
506:
507: WHEN FND_API.G_EXC_ERROR THEN
508: x_return_status := FND_API.G_RET_STS_ERROR;
509:
510: WHEN OTHERS THEN
511: x_return_status := fnd_api.g_ret_sts_unexp_error;
512:
507: WHEN FND_API.G_EXC_ERROR THEN
508: x_return_status := FND_API.G_RET_STS_ERROR;
509:
510: WHEN OTHERS THEN
511: x_return_status := fnd_api.g_ret_sts_unexp_error;
512:
513: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
514: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_vendor_sites');
515: fnd_message.set_token('ERRNO', sqlcode);
562: IF l_search_criteria_tbl(1).search_text IS NULL THEN
563: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_VENDORSITEID');
564: fnd_msg_pub.add;
565:
566: RAISE fnd_api.g_exc_error;
567: END IF;
568:
569: OPEN get_vendor_contacts_csr(NVL(l_search_criteria_tbl(1).search_criteria,'VENDOR_SITE_ID'), l_search_criteria_tbl(1).search_text,
570: NVL(l_search_criteria_tbl(2).search_criteria,'FIRST_NAME'), NVL(l_search_criteria_tbl(2).search_text,'%'));
575: CLOSE get_vendor_contacts_csr;
576:
577: x_rec_count := l_vendor_contact_tbl.COUNT;
578: x_vendor_contact_tbl := l_vendor_contact_tbl;
579: x_return_status := fnd_api.g_ret_sts_success;
580:
581: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'search_vendor_contacts(): x_return_status: ' || x_return_status);
582:
583: EXCEPTION
580:
581: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'search_vendor_contacts(): x_return_status: ' || x_return_status);
582:
583: EXCEPTION
584: WHEN FND_API.G_EXC_ERROR THEN
585: x_return_status := FND_API.G_RET_STS_ERROR;
586:
587: WHEN OTHERS THEN
588: x_return_status := fnd_api.g_ret_sts_unexp_error;
581: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'search_vendor_contacts(): x_return_status: ' || x_return_status);
582:
583: EXCEPTION
584: WHEN FND_API.G_EXC_ERROR THEN
585: x_return_status := FND_API.G_RET_STS_ERROR;
586:
587: WHEN OTHERS THEN
588: x_return_status := fnd_api.g_ret_sts_unexp_error;
589:
584: WHEN FND_API.G_EXC_ERROR THEN
585: x_return_status := FND_API.G_RET_STS_ERROR;
586:
587: WHEN OTHERS THEN
588: x_return_status := fnd_api.g_ret_sts_unexp_error;
589:
590: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
591: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_vendor_contacts');
592: fnd_message.set_token('ERRNO', sqlcode);
695: IF l_search_criteria_tbl(1).search_text IS NULL THEN
696: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_ORGID');
697: fnd_msg_pub.add;
698:
699: RAISE fnd_api.g_exc_error;
700: ELSIF l_search_criteria_tbl(3).search_text IS NULL THEN
701: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_VENDORID');
702: fnd_msg_pub.add;
703: RAISE fnd_api.g_exc_error;
699: RAISE fnd_api.g_exc_error;
700: ELSIF l_search_criteria_tbl(3).search_text IS NULL THEN
701: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_VENDORID');
702: fnd_msg_pub.add;
703: RAISE fnd_api.g_exc_error;
704: ELSIF l_search_criteria_tbl(4).search_text IS NULL THEN
705: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_VENDORSITEID');
706: fnd_msg_pub.add;
707: RAISE fnd_api.g_exc_error;
703: RAISE fnd_api.g_exc_error;
704: ELSIF l_search_criteria_tbl(4).search_text IS NULL THEN
705: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_VENDORSITEID');
706: fnd_msg_pub.add;
707: RAISE fnd_api.g_exc_error;
708: END IF;
709:
710: BEGIN
711: SELECT supp_trade_profile_id
783: END IF;
784:
785: x_rec_count := l_itemnum_tbl.COUNT;
786: x_item_tbl := l_itemnum_tbl;
787: x_return_status := fnd_api.g_ret_sts_success;
788:
789: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'search_items(): x_return_status: ' || x_return_status);
790:
791: EXCEPTION
789: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'search_items(): x_return_status: ' || x_return_status);
790:
791: EXCEPTION
792:
793: WHEN FND_API.G_EXC_ERROR THEN
794: x_return_status := FND_API.G_RET_STS_ERROR;
795:
796: WHEN OTHERS THEN
797: x_return_status := fnd_api.g_ret_sts_unexp_error;
790:
791: EXCEPTION
792:
793: WHEN FND_API.G_EXC_ERROR THEN
794: x_return_status := FND_API.G_RET_STS_ERROR;
795:
796: WHEN OTHERS THEN
797: x_return_status := fnd_api.g_ret_sts_unexp_error;
798:
793: WHEN FND_API.G_EXC_ERROR THEN
794: x_return_status := FND_API.G_RET_STS_ERROR;
795:
796: WHEN OTHERS THEN
797: x_return_status := fnd_api.g_ret_sts_unexp_error;
798:
799: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
800: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_items');
801: fnd_message.set_token('ERRNO', sqlcode);
855: IF l_search_criteria_tbl(1).search_text IS NULL THEN
856: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_TRANSACTIONID');
857: fnd_msg_pub.add;
858:
859: RAISE fnd_api.g_exc_error;
860: ELSIF l_search_criteria_tbl(3).search_text IS NULL THEN
861: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_CUST_ACCT_ID');
862: fnd_msg_pub.add;
863: RAISE fnd_api.g_exc_error;
859: RAISE fnd_api.g_exc_error;
860: ELSIF l_search_criteria_tbl(3).search_text IS NULL THEN
861: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_CUST_ACCT_ID');
862: fnd_msg_pub.add;
863: RAISE fnd_api.g_exc_error;
864: END IF;
865:
866: OPEN get_customer_item_csr(NVL(l_search_criteria_tbl(1).search_criteria,'TRANSACTION_HEADER_ID'),
867: l_search_criteria_tbl(1).search_text,
877: CLOSE get_customer_item_csr;
878:
879: x_rec_count := l_customer_item_tbl.COUNT;
880: x_customer_item_tbl := l_customer_item_tbl;
881: x_return_status := fnd_api.g_ret_sts_success;
882:
883: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'search_customer_items(): x_return_status: ' || x_return_status);
884:
885: EXCEPTION
882:
883: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'search_customer_items(): x_return_status: ' || x_return_status);
884:
885: EXCEPTION
886: WHEN FND_API.G_EXC_ERROR THEN
887: x_return_status := FND_API.G_RET_STS_ERROR;
888:
889: WHEN OTHERS THEN
890: x_return_status := fnd_api.g_ret_sts_unexp_error;
883: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'search_customer_items(): x_return_status: ' || x_return_status);
884:
885: EXCEPTION
886: WHEN FND_API.G_EXC_ERROR THEN
887: x_return_status := FND_API.G_RET_STS_ERROR;
888:
889: WHEN OTHERS THEN
890: x_return_status := fnd_api.g_ret_sts_unexp_error;
891:
886: WHEN FND_API.G_EXC_ERROR THEN
887: x_return_status := FND_API.G_RET_STS_ERROR;
888:
889: WHEN OTHERS THEN
890: x_return_status := fnd_api.g_ret_sts_unexp_error;
891:
892: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
893: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_customer_items');
894: fnd_message.set_token('ERRNO', sqlcode);
943: IF l_search_criteria_tbl(1).search_text IS NULL THEN
944: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_TRANSACTIONID');
945: fnd_msg_pub.add;
946:
947: RAISE fnd_api.g_exc_error;
948: ELSIF l_search_criteria_tbl(3).search_text IS NULL THEN
949: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_CUST_ACCT_ID');
950: fnd_msg_pub.add;
951: RAISE fnd_api.g_exc_error;
947: RAISE fnd_api.g_exc_error;
948: ELSIF l_search_criteria_tbl(3).search_text IS NULL THEN
949: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_CUST_ACCT_ID');
950: fnd_msg_pub.add;
951: RAISE fnd_api.g_exc_error;
952: END IF;
953:
954: OPEN get_customer_items_all_csr(NVL(l_search_criteria_tbl(1).search_criteria,'TRANSACTION_HEADER_ID'),
955: l_search_criteria_tbl(1).search_text,
964: CLOSE get_customer_items_all_csr;
965:
966: x_rec_count := l_customer_item_tbl.COUNT;
967: x_customer_item_tbl := l_customer_item_tbl;
968: x_return_status := fnd_api.g_ret_sts_success;
969:
970: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'search_customer_items_all(): x_return_status: ' || x_return_status);
971:
972: EXCEPTION
969:
970: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'search_customer_items_all(): x_return_status: ' || x_return_status);
971:
972: EXCEPTION
973: WHEN FND_API.G_EXC_ERROR THEN
974: x_return_status := FND_API.G_RET_STS_ERROR;
975:
976: WHEN OTHERS THEN
977: x_return_status := fnd_api.g_ret_sts_unexp_error;
970: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'search_customer_items_all(): x_return_status: ' || x_return_status);
971:
972: EXCEPTION
973: WHEN FND_API.G_EXC_ERROR THEN
974: x_return_status := FND_API.G_RET_STS_ERROR;
975:
976: WHEN OTHERS THEN
977: x_return_status := fnd_api.g_ret_sts_unexp_error;
978:
973: WHEN FND_API.G_EXC_ERROR THEN
974: x_return_status := FND_API.G_RET_STS_ERROR;
975:
976: WHEN OTHERS THEN
977: x_return_status := fnd_api.g_ret_sts_unexp_error;
978:
979: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
980: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_customer_items_all');
981: fnd_message.set_token('ERRNO', sqlcode);
1015: l_module CONSTANT VARCHAR2(100) := 'dpp.plsql.DPP_UTILITY_PVT.SEARCH_WAREHOUSES';
1016:
1017: BEGIN
1018: x_rec_count := 0;
1019: x_return_status := fnd_api.g_ret_sts_success;
1020: IF l_search_criteria_tbl(2).search_text IS NULL THEN
1021: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_ORGID');
1022: fnd_msg_pub.add;
1023:
1020: IF l_search_criteria_tbl(2).search_text IS NULL THEN
1021: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_ORGID');
1022: fnd_msg_pub.add;
1023:
1024: RAISE FND_API.G_EXC_ERROR;
1025: END IF;
1026: OPEN get_warehouse_csr(NVL(l_search_criteria_tbl(1).search_criteria,'WAREHOUSE_CODE'),
1027: NVL(l_search_criteria_tbl(1).search_text,'%'),
1028: NVL(l_search_criteria_tbl(2).search_criteria,'ORG_ID'),
1039:
1040: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'search_warehouses(): x_return_status: ' || x_return_status);
1041:
1042: EXCEPTION
1043: WHEN FND_API.G_EXC_ERROR THEN
1044: x_return_status := FND_API.G_RET_STS_ERROR;
1045:
1046: WHEN OTHERS THEN
1047: x_return_status := fnd_api.g_ret_sts_unexp_error;
1040: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'search_warehouses(): x_return_status: ' || x_return_status);
1041:
1042: EXCEPTION
1043: WHEN FND_API.G_EXC_ERROR THEN
1044: x_return_status := FND_API.G_RET_STS_ERROR;
1045:
1046: WHEN OTHERS THEN
1047: x_return_status := fnd_api.g_ret_sts_unexp_error;
1048:
1043: WHEN FND_API.G_EXC_ERROR THEN
1044: x_return_status := FND_API.G_RET_STS_ERROR;
1045:
1046: WHEN OTHERS THEN
1047: x_return_status := fnd_api.g_ret_sts_unexp_error;
1048:
1049: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1050: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_warehouses');
1051: fnd_message.set_token('ERRNO', sqlcode);
1196: AND rownum = 1;
1197: EXCEPTION
1198: WHEN OTHERS THEN
1199: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'Error in fetching primary UOM: ' || SQLERRM);
1200: x_return_status := FND_API.G_RET_STS_ERROR;
1201: END;
1202:
1203: l_covered_inv_tbl(i).uom_code := l_primary_uom_code; -- Default to Primary UOM
1204: END IF;
1206: END LOOP;
1207:
1208: p_covered_inv_tbl := l_covered_inv_tbl;
1209:
1210: x_return_status := fnd_api.g_ret_sts_success;
1211:
1212: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'get_coveredinventory(): x_return_status: ' || x_return_status);
1213:
1214: EXCEPTION
1213:
1214: EXCEPTION
1215:
1216: WHEN OTHERS THEN
1217: x_return_status := fnd_api.g_ret_sts_unexp_error;
1218:
1219: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1220: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_CoveredInventory');
1221: fnd_message.set_token('ERRNO', sqlcode);
1321:
1322: BEGIN
1323:
1324: x_rec_count := 0;
1325: x_return_status := fnd_api.g_ret_sts_success;
1326: IF l_hdr_rec.org_id IS NULL THEN
1327: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1328: FND_MESSAGE.set_token('ID', 'Org ID');
1329: FND_MSG_PUB.add;
1326: IF l_hdr_rec.org_id IS NULL THEN
1327: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1328: FND_MESSAGE.set_token('ID', 'Org ID');
1329: FND_MSG_PUB.add;
1330: RAISE FND_API.G_EXC_ERROR;
1331: ELSIF l_hdr_rec.effective_start_date IS NULL THEN
1332: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1333: FND_MESSAGE.set_token('ID', 'Effective Start Date');
1334: FND_MSG_PUB.add;
1331: ELSIF l_hdr_rec.effective_start_date IS NULL THEN
1332: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1333: FND_MESSAGE.set_token('ID', 'Effective Start Date');
1334: FND_MSG_PUB.add;
1335: RAISE FND_API.G_EXC_ERROR;
1336: ELSIF l_hdr_rec.effective_end_date IS NULL THEN
1337: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1338: FND_MESSAGE.set_token('ID', 'Effective End Date');
1339: FND_MSG_PUB.add;
1336: ELSIF l_hdr_rec.effective_end_date IS NULL THEN
1337: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1338: FND_MESSAGE.set_token('ID', 'Effective End Date');
1339: FND_MSG_PUB.add;
1340: RAISE FND_API.G_EXC_ERROR;
1341: END IF;
1342:
1343: FOR i in l_inventorydetails_tbl.FIRST..l_inventorydetails_tbl.LAST
1344: LOOP
1346: IF l_inventorydetails_tbl(i).Inventory_Item_ID IS NULL THEN
1347: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1348: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
1349: FND_MSG_PUB.add;
1350: x_return_status := FND_API.G_RET_STS_ERROR;
1351: ELSE
1352: FOR get_covered_inventory_rec IN get_covered_inventory_csr(l_hdr_rec.org_id, l_hdr_rec.effective_start_date, l_hdr_rec.effective_end_date, l_inventorydetails_tbl(i).Inventory_Item_ID)
1353: LOOP
1354: l_inventorydetails_tbl(i).covered_quantity := NVL(get_covered_inventory_rec.covered_qty,0);
1504: AND rownum = 1;
1505: EXCEPTION
1506: WHEN OTHERS THEN
1507: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_EXCEPTION, l_module, 'Error in fetching primary UOM: ' || SQLERRM);
1508: x_return_status := FND_API.G_RET_STS_ERROR;
1509: END;
1510:
1511: l_inventorydetails_tbl(i).uom_code := l_primary_uom_code; -- Default to Primary UOM
1512: END IF;
1519:
1520: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'get_inventorydetails(): x_return_status: ' || x_return_status);
1521:
1522: EXCEPTION
1523: WHEN FND_API.G_EXC_ERROR THEN
1524: x_return_status := FND_API.G_RET_STS_ERROR;
1525:
1526: WHEN OTHERS THEN
1527: x_return_status := fnd_api.g_ret_sts_unexp_error;
1520: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'get_inventorydetails(): x_return_status: ' || x_return_status);
1521:
1522: EXCEPTION
1523: WHEN FND_API.G_EXC_ERROR THEN
1524: x_return_status := FND_API.G_RET_STS_ERROR;
1525:
1526: WHEN OTHERS THEN
1527: x_return_status := fnd_api.g_ret_sts_unexp_error;
1528:
1523: WHEN FND_API.G_EXC_ERROR THEN
1524: x_return_status := FND_API.G_RET_STS_ERROR;
1525:
1526: WHEN OTHERS THEN
1527: x_return_status := fnd_api.g_ret_sts_unexp_error;
1528:
1529: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1530: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_InventoryDetails');
1531: fnd_message.set_token('ERRNO', sqlcode);
1567: osta.primary_uom_code;
1568: BEGIN
1569:
1570: x_rec_count := 0;
1571: x_return_status := fnd_api.g_ret_sts_success;
1572: IF l_hdr_rec.effective_start_date IS NULL THEN
1573: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1574: FND_MESSAGE.set_token('ID', 'Effective Start Date');
1575: FND_MSG_PUB.add;
1572: IF l_hdr_rec.effective_start_date IS NULL THEN
1573: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1574: FND_MESSAGE.set_token('ID', 'Effective Start Date');
1575: FND_MSG_PUB.add;
1576: RAISE FND_API.G_EXC_ERROR;
1577: ELSIF l_hdr_rec.effective_end_date IS NULL THEN
1578: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1579: FND_MESSAGE.set_token('ID', 'Effective End Date');
1580: FND_MSG_PUB.add;
1577: ELSIF l_hdr_rec.effective_end_date IS NULL THEN
1578: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1579: FND_MESSAGE.set_token('ID', 'Effective End Date');
1580: FND_MSG_PUB.add;
1581: RAISE FND_API.G_EXC_ERROR;
1582: END IF;
1583:
1584: FOR i in l_cust_inv_tbl.FIRST..l_cust_inv_tbl.LAST
1585: LOOP
1587: IF l_cust_inv_tbl(i).Inventory_Item_ID IS NULL THEN
1588: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1589: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
1590: FND_MSG_PUB.add;
1591: x_return_status := FND_API.G_RET_STS_ERROR;
1592: ELSIF l_cust_inv_tbl(i).Customer_ID IS NULL THEN
1593: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1594: FND_MESSAGE.set_token('ID', 'Customer ID');
1595: FND_MSG_PUB.add;
1592: ELSIF l_cust_inv_tbl(i).Customer_ID IS NULL THEN
1593: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1594: FND_MESSAGE.set_token('ID', 'Customer ID');
1595: FND_MSG_PUB.add;
1596: x_return_status := FND_API.G_RET_STS_ERROR;
1597: ELSE
1598: FOR get_customer_inventory_rec IN get_customer_inventory_csr(l_hdr_rec.effective_start_date,
1599: l_hdr_rec.effective_end_date,
1600: l_cust_inv_tbl(i).customer_ID,
1611:
1612: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'get_customerInventory(): x_return_status: ' || x_return_status);
1613:
1614: EXCEPTION
1615: WHEN FND_API.G_EXC_ERROR THEN
1616: x_return_status := FND_API.G_RET_STS_ERROR;
1617:
1618: WHEN OTHERS THEN
1619: x_return_status := fnd_api.g_ret_sts_unexp_error;
1612: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'get_customerInventory(): x_return_status: ' || x_return_status);
1613:
1614: EXCEPTION
1615: WHEN FND_API.G_EXC_ERROR THEN
1616: x_return_status := FND_API.G_RET_STS_ERROR;
1617:
1618: WHEN OTHERS THEN
1619: x_return_status := fnd_api.g_ret_sts_unexp_error;
1620: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1615: WHEN FND_API.G_EXC_ERROR THEN
1616: x_return_status := FND_API.G_RET_STS_ERROR;
1617:
1618: WHEN OTHERS THEN
1619: x_return_status := fnd_api.g_ret_sts_unexp_error;
1620: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1621: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_CustomerInventory');
1622: fnd_message.set_token('ERRNO', sqlcode);
1623: fnd_message.set_token('REASON', sqlerrm);
1670: ORDER BY hp.party_name desc, hz.account_number desc;
1671:
1672: BEGIN
1673: x_rec_count := 0;
1674: x_return_status := fnd_api.g_ret_sts_success;
1675: IF l_search_criteria_tbl(2).search_text IS NULL THEN
1676: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_TRANSACTIONID');
1677: fnd_msg_pub.add;
1678: RAISE FND_API.G_EXC_ERROR;
1674: x_return_status := fnd_api.g_ret_sts_success;
1675: IF l_search_criteria_tbl(2).search_text IS NULL THEN
1676: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_TRANSACTIONID');
1677: fnd_msg_pub.add;
1678: RAISE FND_API.G_EXC_ERROR;
1679: END IF;
1680:
1681: OPEN get_customer_csr(l_search_criteria_tbl(1).search_criteria,
1682: NVL(l_search_criteria_tbl(1).search_text,'%'),
1693:
1694: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'search_customers(): x_return_status: ' || x_return_status);
1695:
1696: EXCEPTION
1697: WHEN FND_API.G_EXC_ERROR THEN
1698: x_return_status := FND_API.G_RET_STS_ERROR;
1699:
1700: WHEN OTHERS THEN
1701: x_return_status := fnd_api.g_ret_sts_unexp_error;
1694: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'search_customers(): x_return_status: ' || x_return_status);
1695:
1696: EXCEPTION
1697: WHEN FND_API.G_EXC_ERROR THEN
1698: x_return_status := FND_API.G_RET_STS_ERROR;
1699:
1700: WHEN OTHERS THEN
1701: x_return_status := fnd_api.g_ret_sts_unexp_error;
1702:
1697: WHEN FND_API.G_EXC_ERROR THEN
1698: x_return_status := FND_API.G_RET_STS_ERROR;
1699:
1700: WHEN OTHERS THEN
1701: x_return_status := fnd_api.g_ret_sts_unexp_error;
1702:
1703: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1704: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_customers');
1705: fnd_message.set_token('ERRNO', sqlcode);
1740: ORDER BY hp.party_name desc, hz.account_number desc;
1741:
1742: BEGIN
1743: x_rec_count := 0;
1744: x_return_status := fnd_api.g_ret_sts_success;
1745: IF l_search_criteria_tbl(2).search_text IS NULL THEN
1746: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_TRANSACTIONID');
1747: fnd_msg_pub.add;
1748: RAISE FND_API.G_EXC_ERROR;
1744: x_return_status := fnd_api.g_ret_sts_success;
1745: IF l_search_criteria_tbl(2).search_text IS NULL THEN
1746: fnd_message.set_name('DPP', 'DPP_UI_LOV_NO_TRANSACTIONID');
1747: fnd_msg_pub.add;
1748: RAISE FND_API.G_EXC_ERROR;
1749: END IF;
1750:
1751: OPEN get_customers_all_csr(l_search_criteria_tbl(1).search_criteria,
1752: NVL(l_search_criteria_tbl(1).search_text,'%')
1762:
1763: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'search_customers_all(): x_return_status: ' || x_return_status);
1764:
1765: EXCEPTION
1766: WHEN FND_API.G_EXC_ERROR THEN
1767: x_return_status := FND_API.G_RET_STS_ERROR;
1768:
1769: WHEN OTHERS THEN
1770: x_return_status := fnd_api.g_ret_sts_unexp_error;
1763: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'search_customers_all(): x_return_status: ' || x_return_status);
1764:
1765: EXCEPTION
1766: WHEN FND_API.G_EXC_ERROR THEN
1767: x_return_status := FND_API.G_RET_STS_ERROR;
1768:
1769: WHEN OTHERS THEN
1770: x_return_status := fnd_api.g_ret_sts_unexp_error;
1771:
1766: WHEN FND_API.G_EXC_ERROR THEN
1767: x_return_status := FND_API.G_RET_STS_ERROR;
1768:
1769: WHEN OTHERS THEN
1770: x_return_status := fnd_api.g_ret_sts_unexp_error;
1771:
1772: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1773: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.search_customers_all');
1774: fnd_message.set_token('ERRNO', sqlcode);
1839:
1840: BEGIN
1841:
1842: x_rec_count := 0;
1843: x_return_status := fnd_api.g_ret_sts_success;
1844: IF l_hdr_rec.org_id IS NULL THEN
1845: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1846: FND_MESSAGE.set_token('ID', 'Org ID');
1847: FND_MSG_PUB.add;
1844: IF l_hdr_rec.org_id IS NULL THEN
1845: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1846: FND_MESSAGE.set_token('ID', 'Org ID');
1847: FND_MSG_PUB.add;
1848: RAISE FND_API.G_EXC_ERROR;
1849: END IF;
1850:
1851: FOR i in l_cust_price_tbl.FIRST..l_cust_price_tbl.LAST
1852: LOOP
1854: IF l_cust_price_tbl(i).Inventory_Item_ID IS NULL THEN
1855: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1856: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
1857: FND_MSG_PUB.add;
1858: x_return_status := FND_API.G_RET_STS_ERROR;
1859: ELSIF l_cust_price_tbl(i).Customer_ID IS NULL THEN
1860: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1861: FND_MESSAGE.set_token('ID', 'Customer ID');
1862: FND_MSG_PUB.add;
1859: ELSIF l_cust_price_tbl(i).Customer_ID IS NULL THEN
1860: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1861: FND_MESSAGE.set_token('ID', 'Customer ID');
1862: FND_MSG_PUB.add;
1863: x_return_status := FND_API.G_RET_STS_ERROR;
1864: ELSIF l_cust_price_tbl(i).UOM_Code IS NULL THEN
1865: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1866: FND_MESSAGE.set_token('ID', 'UOM Code');
1867: FND_MSG_PUB.add;
1864: ELSIF l_cust_price_tbl(i).UOM_Code IS NULL THEN
1865: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1866: FND_MESSAGE.set_token('ID', 'UOM Code');
1867: FND_MSG_PUB.add;
1868: x_return_status := FND_API.G_RET_STS_ERROR;
1869: ELSIF l_cust_price_tbl(i).price_change IS NULL THEN
1870: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1871: FND_MESSAGE.set_token('ID', 'Price Change');
1872: FND_MSG_PUB.add;
1869: ELSIF l_cust_price_tbl(i).price_change IS NULL THEN
1870: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1871: FND_MESSAGE.set_token('ID', 'Price Change');
1872: FND_MSG_PUB.add;
1873: x_return_status := FND_API.G_RET_STS_ERROR;
1874: ELSE
1875: FOR get_last_price_rec IN get_last_price_csr(l_hdr_rec.org_id,
1876: l_cust_price_tbl(i).Inventory_Item_ID,
1877: l_cust_price_tbl(i).Customer_ID,
1888: --Call the convert currency API to get the converted value of Price change
1889: l_to_amount := 0;
1890: DPP_UTILITY_PVT.convert_currency( p_from_currency => l_hdr_rec.currency_code
1891: ,p_to_currency => l_cust_price_tbl(i).invoice_currency_code
1892: ,p_conv_type => FND_API.G_MISS_CHAR
1893: ,p_conv_rate => FND_API.G_MISS_NUM
1894: ,p_conv_date => l_trunc_sysdate
1895: ,p_from_amount => l_cust_price_tbl(i).price_change
1896: ,x_return_status => l_return_status
1889: l_to_amount := 0;
1890: DPP_UTILITY_PVT.convert_currency( p_from_currency => l_hdr_rec.currency_code
1891: ,p_to_currency => l_cust_price_tbl(i).invoice_currency_code
1892: ,p_conv_type => FND_API.G_MISS_CHAR
1893: ,p_conv_rate => FND_API.G_MISS_NUM
1894: ,p_conv_date => l_trunc_sysdate
1895: ,p_from_amount => l_cust_price_tbl(i).price_change
1896: ,x_return_status => l_return_status
1897: ,x_to_amount => l_to_amount
1917:
1918: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'get_lastprice(): x_return_status: ' || x_return_status);
1919:
1920: EXCEPTION
1921: WHEN FND_API.G_EXC_ERROR THEN
1922: x_return_status := FND_API.G_RET_STS_ERROR;
1923:
1924: WHEN OTHERS THEN
1925: x_return_status := fnd_api.g_ret_sts_unexp_error;
1918: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'get_lastprice(): x_return_status: ' || x_return_status);
1919:
1920: EXCEPTION
1921: WHEN FND_API.G_EXC_ERROR THEN
1922: x_return_status := FND_API.G_RET_STS_ERROR;
1923:
1924: WHEN OTHERS THEN
1925: x_return_status := fnd_api.g_ret_sts_unexp_error;
1926:
1921: WHEN FND_API.G_EXC_ERROR THEN
1922: x_return_status := FND_API.G_RET_STS_ERROR;
1923:
1924: WHEN OTHERS THEN
1925: x_return_status := fnd_api.g_ret_sts_unexp_error;
1926:
1927: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1928: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_LastPrice');
1929: fnd_message.set_token('ERRNO', sqlcode);
1964:
1965: BEGIN
1966:
1967: x_rec_count := 0;
1968: x_return_status := fnd_api.g_ret_sts_success;
1969:
1970: IF l_header_rec.org_id IS NULL THEN
1971: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1972: FND_MESSAGE.set_token('ID', 'Org ID');
1970: IF l_header_rec.org_id IS NULL THEN
1971: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1972: FND_MESSAGE.set_token('ID', 'Org ID');
1973: FND_MSG_PUB.add;
1974: RAISE FND_API.G_EXC_ERROR;
1975: ELSIF l_header_rec.currency_code IS NULL THEN
1976: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1977: FND_MESSAGE.set_token('ID', 'Currency Code');
1978: FND_MSG_PUB.add;
1975: ELSIF l_header_rec.currency_code IS NULL THEN
1976: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1977: FND_MESSAGE.set_token('ID', 'Currency Code');
1978: FND_MSG_PUB.add;
1979: RAISE FND_API.G_EXC_ERROR;
1980: END IF;
1981: po_moac_utils_pvt.set_org_context(l_header_rec.org_id);
1982:
1983: SELECT inventory_organization_id
1999: IF l_listprice_tbl(i).Inventory_Item_ID IS NULL THEN
2000: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2001: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
2002: FND_MSG_PUB.add;
2003: x_return_status := FND_API.G_RET_STS_ERROR;
2004: ELSE
2005: FOR get_list_price_rec IN get_list_price_csr(l_header_rec.org_id, l_listprice_tbl(i).Inventory_Item_ID)
2006: LOOP
2007: IF l_functional_currency = l_header_rec.currency_code THEN
2010: l_to_amount := 0;
2011: DPP_UTILITY_PVT.convert_currency(
2012: p_from_currency => l_functional_currency
2013: ,p_to_currency => l_header_rec.currency_code
2014: ,p_conv_type => FND_API.G_MISS_CHAR
2015: ,p_conv_rate => FND_API.G_MISS_NUM
2016: ,p_conv_date => l_trunc_sysdate
2017: ,p_from_amount => get_list_price_rec.list_price
2018: ,x_return_status => l_return_status
2011: DPP_UTILITY_PVT.convert_currency(
2012: p_from_currency => l_functional_currency
2013: ,p_to_currency => l_header_rec.currency_code
2014: ,p_conv_type => FND_API.G_MISS_CHAR
2015: ,p_conv_rate => FND_API.G_MISS_NUM
2016: ,p_conv_date => l_trunc_sysdate
2017: ,p_from_amount => get_list_price_rec.list_price
2018: ,x_return_status => l_return_status
2019: ,x_to_amount => l_to_amount
2029:
2030: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'get_listprice(): x_return_status: ' || x_return_status);
2031:
2032: EXCEPTION
2033: WHEN FND_API.G_EXC_ERROR THEN
2034: x_return_status := FND_API.G_RET_STS_ERROR;
2035:
2036: WHEN OTHERS THEN
2037: x_return_status := fnd_api.g_ret_sts_unexp_error;
2030: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'get_listprice(): x_return_status: ' || x_return_status);
2031:
2032: EXCEPTION
2033: WHEN FND_API.G_EXC_ERROR THEN
2034: x_return_status := FND_API.G_RET_STS_ERROR;
2035:
2036: WHEN OTHERS THEN
2037: x_return_status := fnd_api.g_ret_sts_unexp_error;
2038:
2033: WHEN FND_API.G_EXC_ERROR THEN
2034: x_return_status := FND_API.G_RET_STS_ERROR;
2035:
2036: WHEN OTHERS THEN
2037: x_return_status := fnd_api.g_ret_sts_unexp_error;
2038:
2039: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2040: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_ListPrice');
2041: fnd_message.set_token('ERRNO', sqlcode);
2063:
2064: l_vendor_rec vendor_rec_type := p_vendor_rec;
2065: BEGIN
2066: x_rec_count := 0;
2067: x_return_status := fnd_api.g_ret_sts_success;
2068:
2069: IF l_vendor_rec.vendor_ID IS NULL THEN
2070: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2071: FND_MESSAGE.set_token('ID', 'Vendor ID');
2069: IF l_vendor_rec.vendor_ID IS NULL THEN
2070: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2071: FND_MESSAGE.set_token('ID', 'Vendor ID');
2072: FND_MSG_PUB.add;
2073: RAISE FND_API.G_EXC_ERROR;
2074: END IF;
2075: FOR get_vendor_rec IN get_vendor_csr(l_vendor_rec.vendor_ID)
2076: LOOP
2077: l_vendor_rec.vendor_number := get_vendor_rec.vendor_num;
2081:
2082: p_vendor_rec := l_vendor_rec;
2083:
2084: EXCEPTION
2085: WHEN FND_API.G_EXC_ERROR THEN
2086: x_return_status := FND_API.G_RET_STS_ERROR;
2087:
2088: WHEN OTHERS THEN
2089: x_return_status := fnd_api.g_ret_sts_unexp_error;
2082: p_vendor_rec := l_vendor_rec;
2083:
2084: EXCEPTION
2085: WHEN FND_API.G_EXC_ERROR THEN
2086: x_return_status := FND_API.G_RET_STS_ERROR;
2087:
2088: WHEN OTHERS THEN
2089: x_return_status := fnd_api.g_ret_sts_unexp_error;
2090:
2085: WHEN FND_API.G_EXC_ERROR THEN
2086: x_return_status := FND_API.G_RET_STS_ERROR;
2087:
2088: WHEN OTHERS THEN
2089: x_return_status := fnd_api.g_ret_sts_unexp_error;
2090:
2091: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2092: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_Vendor');
2093: fnd_message.set_token('ERRNO', sqlcode);
2121:
2122: l_vendor_site_rec vendor_site_rec_type := p_vendor_site_rec;
2123: BEGIN
2124: x_rec_count := 0;
2125: x_return_status := fnd_api.g_ret_sts_success;
2126:
2127: IF l_vendor_site_rec.vendor_ID IS NULL THEN
2128: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2129: FND_MESSAGE.set_token('ID', 'Vendor ID');
2127: IF l_vendor_site_rec.vendor_ID IS NULL THEN
2128: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2129: FND_MESSAGE.set_token('ID', 'Vendor ID');
2130: FND_MSG_PUB.add;
2131: RAISE FND_API.G_EXC_ERROR;
2132: ELSIF l_vendor_site_rec.vendor_site_ID IS NULL THEN
2133: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2134: FND_MESSAGE.set_token('ID', 'Vendor Site ID');
2135: FND_MSG_PUB.add;
2132: ELSIF l_vendor_site_rec.vendor_site_ID IS NULL THEN
2133: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2134: FND_MESSAGE.set_token('ID', 'Vendor Site ID');
2135: FND_MSG_PUB.add;
2136: RAISE FND_API.G_EXC_ERROR;
2137: END IF;
2138:
2139: FOR get_vendor_site_rec IN get_vendor_site_csr(l_vendor_site_rec.vendor_ID,l_vendor_site_rec.vendor_site_ID)
2140: LOOP
2151:
2152: p_vendor_site_rec := l_vendor_site_rec;
2153:
2154: EXCEPTION
2155: WHEN FND_API.G_EXC_ERROR THEN
2156: x_return_status := FND_API.G_RET_STS_ERROR;
2157:
2158: WHEN OTHERS THEN
2159: x_return_status := fnd_api.g_ret_sts_unexp_error;
2152: p_vendor_site_rec := l_vendor_site_rec;
2153:
2154: EXCEPTION
2155: WHEN FND_API.G_EXC_ERROR THEN
2156: x_return_status := FND_API.G_RET_STS_ERROR;
2157:
2158: WHEN OTHERS THEN
2159: x_return_status := fnd_api.g_ret_sts_unexp_error;
2160:
2155: WHEN FND_API.G_EXC_ERROR THEN
2156: x_return_status := FND_API.G_RET_STS_ERROR;
2157:
2158: WHEN OTHERS THEN
2159: x_return_status := fnd_api.g_ret_sts_unexp_error;
2160:
2161: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2162: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_Vendor_Site');
2163: fnd_message.set_token('ERRNO', sqlcode);
2190: l_vendor_contact_rec vendor_contact_rec_type := p_vendor_contact_rec;
2191:
2192: BEGIN
2193: x_rec_count := 0;
2194: x_return_status := fnd_api.g_ret_sts_success;
2195:
2196: IF l_vendor_contact_rec.vendor_site_ID IS NULL THEN
2197: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2198: FND_MESSAGE.set_token('ID', 'Vendor Site ID');
2196: IF l_vendor_contact_rec.vendor_site_ID IS NULL THEN
2197: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2198: FND_MESSAGE.set_token('ID', 'Vendor Site ID');
2199: FND_MSG_PUB.add;
2200: RAISE FND_API.G_EXC_ERROR;
2201: ELSIF l_vendor_contact_rec.vendor_contact_ID IS NULL THEN
2202: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2203: FND_MESSAGE.set_token('ID', 'Vendor Contact ID');
2204: FND_MSG_PUB.add;
2201: ELSIF l_vendor_contact_rec.vendor_contact_ID IS NULL THEN
2202: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2203: FND_MESSAGE.set_token('ID', 'Vendor Contact ID');
2204: FND_MSG_PUB.add;
2205: RAISE FND_API.G_EXC_ERROR;
2206: END IF;
2207:
2208: FOR get_vendor_contact_rec IN get_vendor_contact_csr(l_vendor_contact_rec.vendor_site_ID,l_vendor_contact_rec.vendor_contact_ID)
2209: LOOP
2219:
2220: p_vendor_contact_rec := l_vendor_contact_rec;
2221:
2222: EXCEPTION
2223: WHEN FND_API.G_EXC_ERROR THEN
2224: x_return_status := FND_API.G_RET_STS_ERROR;
2225:
2226: WHEN OTHERS THEN
2227: x_return_status := fnd_api.g_ret_sts_unexp_error;
2220: p_vendor_contact_rec := l_vendor_contact_rec;
2221:
2222: EXCEPTION
2223: WHEN FND_API.G_EXC_ERROR THEN
2224: x_return_status := FND_API.G_RET_STS_ERROR;
2225:
2226: WHEN OTHERS THEN
2227: x_return_status := fnd_api.g_ret_sts_unexp_error;
2228:
2223: WHEN FND_API.G_EXC_ERROR THEN
2224: x_return_status := FND_API.G_RET_STS_ERROR;
2225:
2226: WHEN OTHERS THEN
2227: x_return_status := fnd_api.g_ret_sts_unexp_error;
2228:
2229: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2230: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_Vendor_Contact');
2231: fnd_message.set_token('ERRNO', sqlcode);
2251: l_module CONSTANT VARCHAR2(100) := 'dpp.plsql.DPP_UTILITY_PVT.GET_WAREHOUSE';
2252:
2253: BEGIN
2254: x_rec_count := 0;
2255: x_return_status := fnd_api.g_ret_sts_success;
2256:
2257:
2258:
2259: IF l_warehouse_tbl.COUNT > 0 THEN
2263: IF l_warehouse_tbl(i).warehouse_id IS NULL THEN
2264: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2265: FND_MESSAGE.set_token('ID', 'Warehouse ID');
2266: FND_MSG_PUB.add;
2267: x_return_status := FND_API.G_RET_STS_ERROR;
2268: ELSE
2269: FOR get_warehouse_rec IN get_warehouse_csr(l_warehouse_tbl(i).warehouse_id)
2270: LOOP
2271: l_warehouse_tbl(i).warehouse_name := get_warehouse_rec.warehouse;
2279:
2280: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'get_warehouse(): x_return_status: ' || x_return_status);
2281:
2282: EXCEPTION
2283: WHEN FND_API.G_EXC_ERROR THEN
2284: x_return_status := FND_API.G_RET_STS_ERROR;
2285: WHEN OTHERS THEN
2286: x_return_status := fnd_api.g_ret_sts_unexp_error;
2287:
2280: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'get_warehouse(): x_return_status: ' || x_return_status);
2281:
2282: EXCEPTION
2283: WHEN FND_API.G_EXC_ERROR THEN
2284: x_return_status := FND_API.G_RET_STS_ERROR;
2285: WHEN OTHERS THEN
2286: x_return_status := fnd_api.g_ret_sts_unexp_error;
2287:
2288: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2282: EXCEPTION
2283: WHEN FND_API.G_EXC_ERROR THEN
2284: x_return_status := FND_API.G_RET_STS_ERROR;
2285: WHEN OTHERS THEN
2286: x_return_status := fnd_api.g_ret_sts_unexp_error;
2287:
2288: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2289: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_Warehouse');
2290: fnd_message.set_token('ERRNO', sqlcode);
2313: l_module CONSTANT VARCHAR2(100) := 'dpp.plsql.DPP_UTILITY_PVT.GET_CUSTOMER';
2314:
2315: BEGIN
2316: x_rec_count := 0;
2317: x_return_status := fnd_api.g_ret_sts_success;
2318:
2319: FOR i in l_customer_tbl.FIRST..l_customer_tbl.LAST
2320: LOOP
2321:
2322: IF l_customer_tbl(i).customer_id IS NULL THEN
2323: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2324: FND_MESSAGE.set_token('ID', 'Customer ID');
2325: FND_MSG_PUB.add;
2326: x_return_status := FND_API.G_RET_STS_ERROR;
2327: ELSE
2328:
2329: FOR get_customer_rec IN get_customer_csr(l_customer_tbl(i).customer_id)
2330: LOOP
2342: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'get_customer(): x_return_status: ' || x_return_status);
2343:
2344: EXCEPTION
2345: WHEN OTHERS THEN
2346: x_return_status := fnd_api.g_ret_sts_unexp_error;
2347: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2348: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_Customer');
2349: fnd_message.set_token('ERRNO', sqlcode);
2350: fnd_message.set_token('REASON', sqlerrm);
2381: ELSE
2382: fnd_message.set_name('DPP', 'DPP_ORG_ID_NOTFOUND');
2383: fnd_msg_pub.add;
2384:
2385: RAISE fnd_api.g_exc_error;
2386: END IF;
2387:
2388: dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'debug: start ' || l_org_id);
2389:
2387:
2388: dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'debug: start ' || l_org_id);
2389:
2390: x_rec_count := 0;
2391: x_return_status := fnd_api.g_ret_sts_success;
2392:
2393: FOR i in l_item_tbl.FIRST..l_item_tbl.LAST
2394: LOOP
2395:
2396: IF l_item_tbl(i).inventory_item_id IS NULL THEN
2397: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2398: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
2399: FND_MSG_PUB.add;
2400: x_return_status := FND_API.G_RET_STS_ERROR;
2401:
2402: ELSE
2403:
2404: FOR Get_Product_rec IN Get_Product_csr(l_item_tbl(i).inventory_item_id, l_org_id)
2415: DPP_UTILITY_PVT.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, 'get_product(): x_return_status: ' || x_return_status);
2416:
2417: EXCEPTION
2418: WHEN OTHERS THEN
2419: x_return_status := fnd_api.g_ret_sts_unexp_error;
2420:
2421: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2422: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.Get_Product');
2423: fnd_message.set_token('ERRNO', sqlcode);
2486:
2487: l_user_id NUMBER := p_user_id;
2488:
2489: BEGIN
2490: x_return_status := fnd_api.g_ret_sts_success;
2491:
2492: IF l_user_id IS NULL THEN
2493: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2494: FND_MESSAGE.set_token('ID', 'User ID');
2492: IF l_user_id IS NULL THEN
2493: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
2494: FND_MESSAGE.set_token('ID', 'User ID');
2495: FND_MSG_PUB.add;
2496: RAISE FND_API.G_EXC_ERROR;
2497: ELSE
2498:
2499: FOR Get_Mail_ID_rec IN Get_Mail_ID_csr(l_user_id)
2500: LOOP
2503:
2504: END IF;
2505:
2506: IF x_email_address IS NULL THEN
2507: x_return_status := FND_API.G_RET_STS_ERROR;
2508: END IF;
2509:
2510: EXCEPTION
2511: WHEN FND_API.G_EXC_ERROR THEN
2507: x_return_status := FND_API.G_RET_STS_ERROR;
2508: END IF;
2509:
2510: EXCEPTION
2511: WHEN FND_API.G_EXC_ERROR THEN
2512: x_return_status := FND_API.G_RET_STS_ERROR;
2513: WHEN OTHERS THEN
2514: x_return_status := fnd_api.g_ret_sts_unexp_error;
2515:
2508: END IF;
2509:
2510: EXCEPTION
2511: WHEN FND_API.G_EXC_ERROR THEN
2512: x_return_status := FND_API.G_RET_STS_ERROR;
2513: WHEN OTHERS THEN
2514: x_return_status := fnd_api.g_ret_sts_unexp_error;
2515:
2516: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2510: EXCEPTION
2511: WHEN FND_API.G_EXC_ERROR THEN
2512: x_return_status := FND_API.G_RET_STS_ERROR;
2513: WHEN OTHERS THEN
2514: x_return_status := fnd_api.g_ret_sts_unexp_error;
2515:
2516: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
2517: fnd_message.set_token('ROUTINE', 'DPP_UTILITY_PVT.get_EmailAddress');
2518: fnd_message.set_token('ERRNO', sqlcode);
2522:
2523: PROCEDURE convert_currency(
2524: p_from_currency IN VARCHAR2
2525: ,p_to_currency IN VARCHAR2
2526: ,p_conv_type IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR
2527: ,p_conv_rate IN NUMBER DEFAULT FND_API.G_MISS_NUM
2528: ,p_conv_date IN DATE DEFAULT SYSDATE
2529: ,p_from_amount IN NUMBER
2530: ,x_return_status OUT NOCOPY VARCHAR2
2523: PROCEDURE convert_currency(
2524: p_from_currency IN VARCHAR2
2525: ,p_to_currency IN VARCHAR2
2526: ,p_conv_type IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR
2527: ,p_conv_rate IN NUMBER DEFAULT FND_API.G_MISS_NUM
2528: ,p_conv_date IN DATE DEFAULT SYSDATE
2529: ,p_from_amount IN NUMBER
2530: ,x_return_status OUT NOCOPY VARCHAR2
2531: ,x_to_amount OUT NOCOPY NUMBER
2544: l_module CONSTANT VARCHAR2(100) := 'dpp.plsql.DPP_UTILITY_PVT.CONVERT_CURRENCY';
2545:
2546: BEGIN
2547: -- Initialize return status.
2548: x_return_status := fnd_api.g_ret_sts_success;
2549: -- condition added to pass conversion types
2550: IF p_conv_type = FND_API.G_MISS_CHAR THEN
2551: -- Get the currency conversion type from profile option
2552: l_conversion_type := fnd_profile.VALUE(l_conversion_type_profile);
2546: BEGIN
2547: -- Initialize return status.
2548: x_return_status := fnd_api.g_ret_sts_success;
2549: -- condition added to pass conversion types
2550: IF p_conv_type = FND_API.G_MISS_CHAR THEN
2551: -- Get the currency conversion type from profile option
2552: l_conversion_type := fnd_profile.VALUE(l_conversion_type_profile);
2553: -- Conversion type cannot be null in profile
2554: IF l_conversion_type IS NULL THEN
2553: -- Conversion type cannot be null in profile
2554: IF l_conversion_type IS NULL THEN
2555: fnd_message.set_name('DPP', 'DPP_NO_EXCHANGE_TYPE');
2556: fnd_msg_pub.add;
2557: x_return_status := fnd_api.g_ret_sts_error;
2558: RETURN;
2559: END IF;
2560: ELSE
2561: l_conversion_type := p_conv_type;
2582: fnd_message.set_token('CURRENCY_FROM', p_from_currency);
2583: fnd_message.set_token('CURRENCY_TO', p_to_currency);
2584: fnd_msg_pub.add;
2585:
2586: x_return_status := fnd_api.g_ret_sts_error;
2587: WHEN gl_currency_api.invalid_currency THEN
2588: fnd_message.set_name('DPP', 'DPP_INVALID_CURR');
2589: fnd_message.set_token('CURRENCY_FROM', p_from_currency);
2590: fnd_message.set_token('CURRENCY_TO', p_to_currency);
2589: fnd_message.set_token('CURRENCY_FROM', p_from_currency);
2590: fnd_message.set_token('CURRENCY_TO', p_to_currency);
2591: fnd_msg_pub.add;
2592:
2593: x_return_status := fnd_api.g_ret_sts_error;
2594: WHEN OTHERS THEN
2595: x_return_status := fnd_api.g_ret_sts_unexp_error;
2596: FND_MESSAGE.SET_NAME('FND', 'SQL_PLSQL_ERROR');
2597: FND_MESSAGE.SET_TOKEN('ROUTINE', 'DPP_UTILITY_PVT.convert_currency');
2591: fnd_msg_pub.add;
2592:
2593: x_return_status := fnd_api.g_ret_sts_error;
2594: WHEN OTHERS THEN
2595: x_return_status := fnd_api.g_ret_sts_unexp_error;
2596: FND_MESSAGE.SET_NAME('FND', 'SQL_PLSQL_ERROR');
2597: FND_MESSAGE.SET_TOKEN('ROUTINE', 'DPP_UTILITY_PVT.convert_currency');
2598: FND_MESSAGE.SET_TOKEN('ERRNO', sqlcode);
2599: FND_MESSAGE.SET_TOKEN('REASON', sqlerrm);
2638: AND hr.organization_id = p_org_id;
2639:
2640: BEGIN
2641: -- Initialize return status.
2642: x_return_status := fnd_api.g_ret_sts_success;
2643:
2644: -- Get the currency conversion type from profile option
2645: IF x_exchange_rate_type IS NULL THEN
2646: l_conversion_type := fnd_profile.VALUE(l_conversion_type_profile);
2651: IF l_conversion_type IS NULL THEN
2652: fnd_message.set_name('DPP', 'DPP_NO_EXCHANGE_TYPE');
2653: fnd_msg_pub.add;
2654:
2655: x_return_status := fnd_api.g_ret_sts_error;
2656: RETURN;
2657: ELSE
2658: IF ozf_utility_pvt.check_fk_exists('GL_DAILY_CONVERSION_TYPES',
2659: 'CONVERSION_TYPE'
2656: RETURN;
2657: ELSE
2658: IF ozf_utility_pvt.check_fk_exists('GL_DAILY_CONVERSION_TYPES',
2659: 'CONVERSION_TYPE'
2660: ,l_conversion_type) = fnd_api.g_false
2661: THEN
2662: fnd_message.set_name('DPP', 'DPP_WRONG_CONVERSION_TYPE');
2663: fnd_msg_pub.add;
2664: x_return_status := fnd_api.g_ret_sts_error;
2660: ,l_conversion_type) = fnd_api.g_false
2661: THEN
2662: fnd_message.set_name('DPP', 'DPP_WRONG_CONVERSION_TYPE');
2663: fnd_msg_pub.add;
2664: x_return_status := fnd_api.g_ret_sts_error;
2665: RETURN;
2666: END IF;
2667: END IF;
2668:
2677: IF l_org_id IS NULL THEN
2678: fnd_message.set_name('DPP', 'DPP_ORG_ID_NOTFOUND');
2679: fnd_msg_pub.add;
2680:
2681: RAISE fnd_api.g_exc_error;
2682: END IF;
2683:
2684: END IF;
2685:
2692: IF c_get_gl_info%NOTFOUND THEN
2693: fnd_message.set_name('DPP', 'DPP_GL_SOB_NOTFOUND');
2694: fnd_msg_pub.add;
2695:
2696: RAISE fnd_api.g_exc_error;
2697: END IF;
2698:
2699: CLOSE c_get_gl_info;
2700: -- Call the proper GL API to convert the amount.
2714: x_exchange_rate_type := l_conversion_type;
2715: --
2716:
2717: EXCEPTION
2718: WHEN fnd_api.g_exc_error THEN
2719: x_return_status := fnd_api.g_ret_sts_error;
2720: WHEN gl_currency_api.no_rate THEN
2721: fnd_message.set_name('DPP', 'DPP_NO_RATE');
2722: fnd_msg_pub.add;
2715: --
2716:
2717: EXCEPTION
2718: WHEN fnd_api.g_exc_error THEN
2719: x_return_status := fnd_api.g_ret_sts_error;
2720: WHEN gl_currency_api.no_rate THEN
2721: fnd_message.set_name('DPP', 'DPP_NO_RATE');
2722: fnd_msg_pub.add;
2723:
2720: WHEN gl_currency_api.no_rate THEN
2721: fnd_message.set_name('DPP', 'DPP_NO_RATE');
2722: fnd_msg_pub.add;
2723:
2724: x_return_status := fnd_api.g_ret_sts_error;
2725: WHEN gl_currency_api.invalid_currency THEN
2726: fnd_message.set_name('DPP', 'DPP_INVALID_CURR');
2727: fnd_msg_pub.add;
2728:
2725: WHEN gl_currency_api.invalid_currency THEN
2726: fnd_message.set_name('DPP', 'DPP_INVALID_CURR');
2727: fnd_msg_pub.add;
2728:
2729: x_return_status := fnd_api.g_ret_sts_error;
2730: WHEN OTHERS THEN
2731: x_return_status := fnd_api.g_ret_sts_unexp_error;
2732:
2733: FND_MESSAGE.SET_NAME('FND', 'SQL_PLSQL_ERROR');
2727: fnd_msg_pub.add;
2728:
2729: x_return_status := fnd_api.g_ret_sts_error;
2730: WHEN OTHERS THEN
2731: x_return_status := fnd_api.g_ret_sts_unexp_error;
2732:
2733: FND_MESSAGE.SET_NAME('FND', 'SQL_PLSQL_ERROR');
2734: FND_MESSAGE.SET_TOKEN('ROUTINE', 'DPP_UTILITY_PVT.Convert_functional_curr');
2735: FND_MESSAGE.SET_TOKEN('ERRNO', sqlcode);