165: x_msg_data := null;
166: x_msg_count := 0;
167:
168: -- Standard call to check for call compatibility
169: IF NOT FND_API.Compatible_API_Call(
170: l_api_version_number
171: , p_api_version
172: , l_api_name
173: , G_PKG_NAME)
171: , p_api_version
172: , l_api_name
173: , G_PKG_NAME)
174: THEN
175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
176: END IF;
177:
178:
179: -- Initialize message list.
176: END IF;
177:
178:
179: -- Initialize message list.
180: IF fnd_api.to_boolean(p_init_msg_list) THEN
181: fnd_msg_pub.initialize;
182: END IF;
183:
184:
323: WHERE
324: organization_id = l_txn_flow_lines.from_organization_id;
325: EXCEPTION
326: WHEN no_data_found THEN
327: RAISE fnd_api.g_exc_error;
328: END;
329: END IF;--if l_txn_flows.from_organization_id IS ...
330:
331: IF l_txn_flow_lines.to_organization_id IS NOT NULL THEN
336: WHERE
337: organization_id = l_txn_flow_lines.to_organization_id;
338: EXCEPTION
339: WHEN no_data_found THEN
340: RAISE fnd_api.g_exc_error;
341: END;
342: END IF;--IF l_txn_flows.to_organization_id
343:
344: END IF;--if p_get_default_cost_group in ('Y','y') THEN
370: EXCEPTION
371: when no_data_found then
372: FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_START_ORG');
373: FND_MSG_PUB.ADD;
374: raise fnd_api.g_exc_error;
375: end;
376:
377: BEGIN
378: select name
382: EXCEPTION
383: when no_data_found then
384: FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_END_ORG');
385: FND_MSG_PUB.ADD;
386: raise fnd_api.g_exc_error;
387: end;
388:
389: fnd_message.set_name('INV', 'INV_NO_IC_TXN_FLOW');
390: FND_MESSAGE.SET_TOKEN('FROM_OU', l_from_ou_name);
396: x_transaction_flows_tbl.DELETE;
397: END IF;
398:
399: EXCEPTION
400: WHEN FND_API.G_EXC_ERROR THEN
401: x_return_status := FND_API.G_RET_STS_ERROR;
402: x_transaction_flows_tbl.delete;
403: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
404:
397: END IF;
398:
399: EXCEPTION
400: WHEN FND_API.G_EXC_ERROR THEN
401: x_return_status := FND_API.G_RET_STS_ERROR;
402: x_transaction_flows_tbl.delete;
403: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
404:
405: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
401: x_return_status := FND_API.G_RET_STS_ERROR;
402: x_transaction_flows_tbl.delete;
403: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
404:
405: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
407: x_transaction_flows_tbl.delete;
408: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
409:
402: x_transaction_flows_tbl.delete;
403: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
404:
405: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
407: x_transaction_flows_tbl.delete;
408: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
409:
410: WHEN OTHERS THEN
407: x_transaction_flows_tbl.delete;
408: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
409:
410: WHEN OTHERS THEN
411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
412: x_transaction_flows_tbl.delete;
413: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
414:
415: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
511: x_msg_data := null;
512: x_msg_count := 0;
513:
514: -- Standard call to check for call compatibility
515: IF NOT FND_API.compatible_api_call
516: (l_api_version_number
517: , p_api_version
518: , l_api_name
519: , G_PKG_NAME)
517: , p_api_version
518: , l_api_name
519: , G_PKG_NAME)
520: THEN
521: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
522: END IF;
523:
524:
525: -- Initialize message list.
522: END IF;
523:
524:
525: -- Initialize message list.
526: IF fnd_api.to_boolean(p_init_msg_list) THEN
527: fnd_msg_pub.initialize;
528: END IF;
529:
530:
575: WHERE
576: organization_id = l_txn_flows.from_organization_id;
577: EXCEPTION
578: WHEN no_data_found THEN
579: RAISE fnd_api.g_exc_error;
580: END;
581: END IF;--if l_txn_flows.from_organization_id IS ...
582:
583: IF l_txn_flows.to_organization_id IS NOT NULL THEN
588: WHERE
589: organization_id = l_txn_flows.to_organization_id;
590: EXCEPTION
591: WHEN no_data_found THEN
592: RAISE fnd_api.g_exc_error;
593: END;
594: END IF;--IF l_txn_flows.to_organization_id
595:
596: END IF;--if p_get_default_cost_group in ('Y','y') THEN
609: fnd_msg_pub.add;
610: IF l_debug = 1 THEN
611: print_debug(' No transaction flows found ', l_api_name);
612: END IF;
613: RAISE FND_API.g_exc_error;
614: END IF;
615:
616: EXCEPTION
617: WHEN FND_API.G_EXC_ERROR THEN
613: RAISE FND_API.g_exc_error;
614: END IF;
615:
616: EXCEPTION
617: WHEN FND_API.G_EXC_ERROR THEN
618: x_return_status := FND_API.G_RET_STS_ERROR;
619: x_transaction_flows_tbl.delete;
620: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
621:
614: END IF;
615:
616: EXCEPTION
617: WHEN FND_API.G_EXC_ERROR THEN
618: x_return_status := FND_API.G_RET_STS_ERROR;
619: x_transaction_flows_tbl.delete;
620: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
621:
622: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
618: x_return_status := FND_API.G_RET_STS_ERROR;
619: x_transaction_flows_tbl.delete;
620: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
621:
622: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
623: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
624: x_transaction_flows_tbl.delete;
625: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
626:
619: x_transaction_flows_tbl.delete;
620: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
621:
622: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
623: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
624: x_transaction_flows_tbl.delete;
625: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
626:
627: WHEN OTHERS THEN
624: x_transaction_flows_tbl.delete;
625: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
626:
627: WHEN OTHERS THEN
628: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
629: x_transaction_flows_tbl.delete;
630: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
631:
632: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
718: x_msg_count := 0;
719: l_match := FALSE;
720:
721: -- Standard call to check for call compatibility
722: IF NOT FND_API.Compatible_API_Call(
723: l_api_version_number
724: , p_api_version
725: , l_api_name
726: , G_PKG_NAME)
724: , p_api_version
725: , l_api_name
726: , G_PKG_NAME)
727: THEN
728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
729: END IF;
730:
731:
732: -- Initialize message list.
729: END IF;
730:
731:
732: -- Initialize message list.
733: IF fnd_api.to_boolean(p_init_msg_list) THEN
734: fnd_msg_pub.initialize;
735: END IF;
736:
737:
848: EXCEPTION
849: when no_data_found then
850: FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_START_ORG');
851: FND_MSG_PUB.ADD;
852: raise fnd_api.g_exc_error;
853: end;
854:
855: BEGIN
856: select name
860: EXCEPTION
861: when no_data_found then
862: FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_END_ORG');
863: FND_MSG_PUB.ADD;
864: raise fnd_api.g_exc_error;
865: end;
866:
867: fnd_message.set_name('INV', 'INV_NO_IC_TXN_FLOW');
868: FND_MESSAGE.SET_TOKEN('FROM_OU', l_from_ou_name);
877: x_transaction_flow_exists := G_TRANSACTION_FLOW_NOT_FOUND;
878: END IF;
879:
880: EXCEPTION
881: WHEN FND_API.G_EXC_ERROR THEN
882: x_return_status := FND_API.G_RET_STS_ERROR;
883: x_transaction_flow_exists := G_TRANSACTION_FLOW_NOT_FOUND;
884: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
885:
878: END IF;
879:
880: EXCEPTION
881: WHEN FND_API.G_EXC_ERROR THEN
882: x_return_status := FND_API.G_RET_STS_ERROR;
883: x_transaction_flow_exists := G_TRANSACTION_FLOW_NOT_FOUND;
884: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
885:
886: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
882: x_return_status := FND_API.G_RET_STS_ERROR;
883: x_transaction_flow_exists := G_TRANSACTION_FLOW_NOT_FOUND;
884: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
885:
886: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
887: x_return_status := FND_API.G_RET_STS_ERROR;
888: x_transaction_flow_exists := G_TRANSACTION_FLOW_NOT_FOUND;
889: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
890:
883: x_transaction_flow_exists := G_TRANSACTION_FLOW_NOT_FOUND;
884: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
885:
886: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
887: x_return_status := FND_API.G_RET_STS_ERROR;
888: x_transaction_flow_exists := G_TRANSACTION_FLOW_NOT_FOUND;
889: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
890:
891: WHEN OTHERS THEN
888: x_transaction_flow_exists := G_TRANSACTION_FLOW_NOT_FOUND;
889: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
890:
891: WHEN OTHERS THEN
892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
893: x_transaction_flow_exists := G_TRANSACTION_FLOW_NOT_FOUND;
894: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
895:
896: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1037: x_msg_data := null;
1038: x_msg_count := 0;
1039:
1040: -- Standard call to check for call compatibility
1041: IF NOT FND_API.Compatible_API_Call(
1042: l_api_version_number
1043: , p_api_version
1044: , l_api_name
1045: , G_PKG_NAME)
1043: , p_api_version
1044: , l_api_name
1045: , G_PKG_NAME)
1046: THEN
1047: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1048: END IF;
1049:
1050:
1051: -- Initialize message list.
1048: END IF;
1049:
1050:
1051: -- Initialize message list.
1052: IF fnd_api.to_boolean(p_init_msg_list) THEN
1053: fnd_msg_pub.initialize;
1054: END IF;
1055:
1056: SELECT mtl_transaction_flow_headers_s.NEXTVAL
1153: print_debug('After validation of IC RELATION , Ship Org=' || p_ship_organization_id_tbl(i) || ', Sell Org=' || p_Sell_Organization_Id_tbl(i) || ', Return Status=' || l_return_status);
1154: END IF;
1155:
1156: IF l_return_status = g_ret_sts_error THEN
1157: RAISE fnd_api.g_exc_error;
1158: ELSIF l_return_status = g_ret_sts_unexp_error THEN
1159: RAISE fnd_api.g_exc_unexpected_error;
1160:
1161: ELSIF l_valid = g_true THEN
1155:
1156: IF l_return_status = g_ret_sts_error THEN
1157: RAISE fnd_api.g_exc_error;
1158: ELSIF l_return_status = g_ret_sts_unexp_error THEN
1159: RAISE fnd_api.g_exc_unexpected_error;
1160:
1161: ELSIF l_valid = g_true THEN
1162:
1163: IF (g_debug=1) THEN
1224: x_msg_count => l_msg_count,
1225: x_msg_data => l_msg_data,
1226: p_header_id => l_header_id,
1227: p_commit => false,
1228: p_validation_level => fnd_api.g_valid_level_full,
1229: p_start_org_id => p_start_org_id,
1230: p_end_org_id => p_end_org_id,
1231: p_flow_type => p_flow_type,
1232: p_organization_id => p_organization_id,
1260: IF (g_debug=1) THEN
1261: print_debug('After inv_transaction_flow_pvt.create_ic_transaction_flow call... Return Status=' || l_return_status);
1262: END IF;
1263:
1264: IF l_return_status = fnd_api.g_ret_sts_success THEN
1265: x_header_id := l_header_id;
1266: x_line_number_tbl := l_line_number_tbl;
1267: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1268: RAISE fnd_api.g_exc_error;
1263:
1264: IF l_return_status = fnd_api.g_ret_sts_success THEN
1265: x_header_id := l_header_id;
1266: x_line_number_tbl := l_line_number_tbl;
1267: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1268: RAISE fnd_api.g_exc_error;
1269: ELSE
1270: RAISE fnd_api.g_exc_unexpected_error;
1271: END IF;
1264: IF l_return_status = fnd_api.g_ret_sts_success THEN
1265: x_header_id := l_header_id;
1266: x_line_number_tbl := l_line_number_tbl;
1267: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1268: RAISE fnd_api.g_exc_error;
1269: ELSE
1270: RAISE fnd_api.g_exc_unexpected_error;
1271: END IF;
1272:
1266: x_line_number_tbl := l_line_number_tbl;
1267: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1268: RAISE fnd_api.g_exc_error;
1269: ELSE
1270: RAISE fnd_api.g_exc_unexpected_error;
1271: END IF;
1272:
1273: EXCEPTION
1274: WHEN FND_API.G_EXC_ERROR THEN
1270: RAISE fnd_api.g_exc_unexpected_error;
1271: END IF;
1272:
1273: EXCEPTION
1274: WHEN FND_API.G_EXC_ERROR THEN
1275: ROLLBACK TO create_transaction_flow;
1276: x_return_status := FND_API.G_RET_STS_ERROR;
1277: x_header_id := NULL;
1278: x_line_number_tbl.DELETE;
1272:
1273: EXCEPTION
1274: WHEN FND_API.G_EXC_ERROR THEN
1275: ROLLBACK TO create_transaction_flow;
1276: x_return_status := FND_API.G_RET_STS_ERROR;
1277: x_header_id := NULL;
1278: x_line_number_tbl.DELETE;
1279: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
1280:
1277: x_header_id := NULL;
1278: x_line_number_tbl.DELETE;
1279: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
1280:
1281: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1282: ROLLBACK TO create_transaction_flow;
1283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1284: x_header_id := NULL;
1285: x_line_number_tbl.DELETE;
1279: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
1280:
1281: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1282: ROLLBACK TO create_transaction_flow;
1283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1284: x_header_id := NULL;
1285: x_line_number_tbl.DELETE;
1286: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
1287: WHEN OTHERS THEN
1285: x_line_number_tbl.DELETE;
1286: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
1287: WHEN OTHERS THEN
1288: ROLLBACK TO create_transaction_flow;
1289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1290: x_header_id := NULL;
1291: x_line_number_tbl.DELETE;
1292:
1293: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1398:
1399: SAVEPOINT UPDATE_TRANSACTION_FLOW;
1400:
1401: -- Standard call to check for call compatibility
1402: IF NOT FND_API.Compatible_API_Call(
1403: l_api_version_number
1404: , p_api_version
1405: , l_api_name
1406: , G_PKG_NAME)
1404: , p_api_version
1405: , l_api_name
1406: , G_PKG_NAME)
1407: THEN
1408: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1409: END IF;
1410:
1411:
1412: -- Initialize message list.
1409: END IF;
1410:
1411:
1412: -- Initialize message list.
1413: IF fnd_api.to_boolean(p_init_msg_list) THEN
1414: fnd_msg_pub.initialize;
1415: END IF;
1416:
1417: IF (g_debug=1) THEN
1448: IF (g_debug=1) THEN
1449: print_debug('After inv_transaction_flow_pub.update_transaction_flow_header call... Return Status=' || l_return_status);
1450: END IF;
1451:
1452: IF x_return_status = fnd_api.g_ret_sts_error THEN
1453: RAISE fnd_api.g_exc_error;
1454: ELSIF l_return_status = g_ret_sts_unexp_error THEN
1455: RAISE fnd_api.g_exc_unexpected_error;
1456: END IF;
1449: print_debug('After inv_transaction_flow_pub.update_transaction_flow_header call... Return Status=' || l_return_status);
1450: END IF;
1451:
1452: IF x_return_status = fnd_api.g_ret_sts_error THEN
1453: RAISE fnd_api.g_exc_error;
1454: ELSIF l_return_status = g_ret_sts_unexp_error THEN
1455: RAISE fnd_api.g_exc_unexpected_error;
1456: END IF;
1457:
1451:
1452: IF x_return_status = fnd_api.g_ret_sts_error THEN
1453: RAISE fnd_api.g_exc_error;
1454: ELSIF l_return_status = g_ret_sts_unexp_error THEN
1455: RAISE fnd_api.g_exc_unexpected_error;
1456: END IF;
1457:
1458: l_return_status:=NULL;
1459: l_msg_data:=NULL;
1495: print_debug('After inv_transaction_flow_pub.update_transaction_flow_line call... Return Status=' || l_return_status);
1496: END IF;
1497:
1498: IF l_return_status = g_ret_sts_error THEN
1499: RAISE fnd_api.g_exc_error;
1500: ELSIF l_return_status = g_ret_sts_unexp_error THEN
1501: RAISE fnd_api.g_exc_unexpected_error;
1502: END IF;
1503: l_return_status:=NULL;
1497:
1498: IF l_return_status = g_ret_sts_error THEN
1499: RAISE fnd_api.g_exc_error;
1500: ELSIF l_return_status = g_ret_sts_unexp_error THEN
1501: RAISE fnd_api.g_exc_unexpected_error;
1502: END IF;
1503: l_return_status:=NULL;
1504: l_msg_data:=NULL;
1505: l_msg_count:=NULL;
1552: print_debug('After inv_transaction_flow_pub.update_ic_relation call...Return Status=' || l_return_status);
1553: END IF;
1554:
1555: IF l_return_status = g_ret_sts_error THEN
1556: RAISE fnd_api.g_exc_error;
1557: ELSIF l_return_status = g_ret_sts_unexp_error THEN
1558: RAISE fnd_api.g_exc_unexpected_error;
1559: END IF;
1560: END LOOP;
1554:
1555: IF l_return_status = g_ret_sts_error THEN
1556: RAISE fnd_api.g_exc_error;
1557: ELSIF l_return_status = g_ret_sts_unexp_error THEN
1558: RAISE fnd_api.g_exc_unexpected_error;
1559: END IF;
1560: END LOOP;
1561:
1562:
1561:
1562:
1563:
1564: EXCEPTION
1565: WHEN FND_API.G_EXC_ERROR THEN
1566: ROLLBACK TO UPDATE_TRANSACTION_FLOW;
1567: x_return_status := FND_API.G_RET_STS_ERROR;
1568: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
1569:
1563:
1564: EXCEPTION
1565: WHEN FND_API.G_EXC_ERROR THEN
1566: ROLLBACK TO UPDATE_TRANSACTION_FLOW;
1567: x_return_status := FND_API.G_RET_STS_ERROR;
1568: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
1569:
1570: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1571: ROLLBACK TO UPDATE_TRANSACTION_FLOW;
1566: ROLLBACK TO UPDATE_TRANSACTION_FLOW;
1567: x_return_status := FND_API.G_RET_STS_ERROR;
1568: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
1569:
1570: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1571: ROLLBACK TO UPDATE_TRANSACTION_FLOW;
1572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1573: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
1574: WHEN OTHERS THEN
1568: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
1569:
1570: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1571: ROLLBACK TO UPDATE_TRANSACTION_FLOW;
1572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1573: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
1574: WHEN OTHERS THEN
1575: ROLLBACK TO UPDATE_TRANSACTION_FLOW;
1576: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1573: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
1574: WHEN OTHERS THEN
1575: ROLLBACK TO UPDATE_TRANSACTION_FLOW;
1576: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1577: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1578: FND_MSG_PUB.Add_Exc_Msg
1579: ( G_PACKAGE_NAME, 'CREATE_TRANSACTION_FLOW');
1580: end if;
1626: x_msg_data := null;
1627: x_msg_count := 0;
1628:
1629: -- Standard call to check for call compatibility
1630: IF NOT FND_API.compatible_api_call
1631: (l_api_version_number
1632: , p_api_version
1633: , l_api_name
1634: , G_PKG_NAME)
1632: , p_api_version
1633: , l_api_name
1634: , G_PKG_NAME)
1635: THEN
1636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1637: END IF;
1638:
1639: -- Initialize message list.
1640: IF fnd_api.to_boolean(p_init_msg_list) THEN
1636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1637: END IF;
1638:
1639: -- Initialize message list.
1640: IF fnd_api.to_boolean(p_init_msg_list) THEN
1641: fnd_msg_pub.initialize;
1642: END IF;
1643:
1644:
1681:
1682: IF l_return_status = g_ret_sts_success THEN
1683: --Successful
1684: x_return_status := l_return_status;
1685: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1686: IF l_debug = 1 THEN
1687: print_debug('l_msg_data from'||
1688: 'inv_transaction_flow_pvt.update_ic_txn_flow_hdr'||
1689: l_msg_data,l_api_name);
1688: 'inv_transaction_flow_pvt.update_ic_txn_flow_hdr'||
1689: l_msg_data,l_api_name);
1690: END IF;
1691:
1692: RAISE fnd_api.g_exc_error;
1693: ELSE
1694: IF l_debug = 1 THEN
1695: print_debug('l_msg_data from'||
1696: 'inv_transaction_flow_pvt.update_ic_txn_flow_hdr'||
1695: print_debug('l_msg_data from'||
1696: 'inv_transaction_flow_pvt.update_ic_txn_flow_hdr'||
1697: l_msg_data,l_api_name);
1698: END IF;
1699: RAISE fnd_api.g_exc_unexpected_error;
1700: END IF;
1701:
1702: EXCEPTION
1703: WHEN FND_API.G_EXC_ERROR THEN
1699: RAISE fnd_api.g_exc_unexpected_error;
1700: END IF;
1701:
1702: EXCEPTION
1703: WHEN FND_API.G_EXC_ERROR THEN
1704: ROLLBACK TO UPDATE_TRANSACTION_FLOW_HEADER;
1705: x_return_status := FND_API.G_RET_STS_ERROR;
1706: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
1707:
1701:
1702: EXCEPTION
1703: WHEN FND_API.G_EXC_ERROR THEN
1704: ROLLBACK TO UPDATE_TRANSACTION_FLOW_HEADER;
1705: x_return_status := FND_API.G_RET_STS_ERROR;
1706: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
1707:
1708: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1709: ROLLBACK TO UPDATE_TRANSACTION_FLOW_HEADER;
1704: ROLLBACK TO UPDATE_TRANSACTION_FLOW_HEADER;
1705: x_return_status := FND_API.G_RET_STS_ERROR;
1706: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
1707:
1708: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1709: ROLLBACK TO UPDATE_TRANSACTION_FLOW_HEADER;
1710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1711: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
1712: WHEN OTHERS THEN
1706: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
1707:
1708: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1709: ROLLBACK TO UPDATE_TRANSACTION_FLOW_HEADER;
1710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1711: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
1712: WHEN OTHERS THEN
1713: ROLLBACK TO UPDATE_TRANSACTION_FLOW_HEADER;
1714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1711: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
1712: WHEN OTHERS THEN
1713: ROLLBACK TO UPDATE_TRANSACTION_FLOW_HEADER;
1714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1715:
1716: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1717: FND_MSG_PUB.Add_Exc_Msg
1718: ( G_PACKAGE_NAME, 'UPDATE_TRANSACTION_FLOW_HEADER');
1760: x_msg_data := null;
1761: x_msg_count := 0;
1762:
1763: -- Standard call to check for call compatibility
1764: IF NOT FND_API.compatible_api_call
1765: (l_api_version_number
1766: , p_api_version
1767: , l_api_name
1768: , G_PKG_NAME)
1766: , p_api_version
1767: , l_api_name
1768: , G_PKG_NAME)
1769: THEN
1770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1771: END IF;
1772:
1773:
1774: -- Initialize message list.
1771: END IF;
1772:
1773:
1774: -- Initialize message list.
1775: IF fnd_api.to_boolean(p_init_msg_list) THEN
1776: fnd_msg_pub.initialize;
1777: END IF;
1778:
1779:
1814:
1815: IF l_return_status = g_ret_sts_success THEN
1816: --Successful
1817: x_return_status := l_return_status;
1818: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1819: IF l_debug = 1 THEN
1820: print_debug('l_msg_data from'||
1821: 'inv_transaction_flow_pvt.update_ic_txn_flow_line'||
1822: l_msg_data,l_api_name);
1821: 'inv_transaction_flow_pvt.update_ic_txn_flow_line'||
1822: l_msg_data,l_api_name);
1823: END IF;
1824:
1825: RAISE fnd_api.g_exc_error;
1826: ELSE
1827: IF l_debug = 1 THEN
1828: print_debug('l_msg_data from'||
1829: 'inv_transaction_flow_pvt.update_ic_txn_flow_line'||
1828: print_debug('l_msg_data from'||
1829: 'inv_transaction_flow_pvt.update_ic_txn_flow_line'||
1830: l_msg_data,l_api_name);
1831: END IF;
1832: RAISE fnd_api.g_exc_unexpected_error;
1833: END IF;
1834:
1835: EXCEPTION
1836: WHEN FND_API.G_EXC_ERROR THEN
1832: RAISE fnd_api.g_exc_unexpected_error;
1833: END IF;
1834:
1835: EXCEPTION
1836: WHEN FND_API.G_EXC_ERROR THEN
1837: ROLLBACK TO update_transaction_flow_line;
1838: x_return_status := FND_API.G_RET_STS_ERROR;
1839: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
1840:
1834:
1835: EXCEPTION
1836: WHEN FND_API.G_EXC_ERROR THEN
1837: ROLLBACK TO update_transaction_flow_line;
1838: x_return_status := FND_API.G_RET_STS_ERROR;
1839: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
1840:
1841: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1842: ROLLBACK TO update_transaction_flow_line;
1837: ROLLBACK TO update_transaction_flow_line;
1838: x_return_status := FND_API.G_RET_STS_ERROR;
1839: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
1840:
1841: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1842: ROLLBACK TO update_transaction_flow_line;
1843: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1844: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
1845: WHEN OTHERS THEN
1839: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
1840:
1841: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1842: ROLLBACK TO update_transaction_flow_line;
1843: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1844: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
1845: WHEN OTHERS THEN
1846: ROLLBACK TO update_transaction_flow_line;
1847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1843: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1844: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
1845: WHEN OTHERS THEN
1846: ROLLBACK TO update_transaction_flow_line;
1847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1848:
1849: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1850: FND_MSG_PUB.Add_Exc_Msg
1851: ( G_PACKAGE_NAME, 'UPDATE_TRANSACTION_FLOW');
1970: x_msg_data := null;
1971: x_msg_count := 0;
1972:
1973: -- Standard call to check for call compatibility
1974: IF NOT FND_API.compatible_api_call
1975: (l_api_version_number
1976: , p_api_version
1977: , l_api_name
1978: , G_PKG_NAME)
1976: , p_api_version
1977: , l_api_name
1978: , G_PKG_NAME)
1979: THEN
1980: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1981: END IF;
1982:
1983:
1984: -- Initialize message list.
1981: END IF;
1982:
1983:
1984: -- Initialize message list.
1985: IF fnd_api.to_boolean(p_init_msg_list) THEN
1986: fnd_msg_pub.initialize;
1987: END IF;
1988:
1989: SAVEPOINT update_ic_relation;
2028: p_expense_accrual_account_id => p_expense_accrual_account_id
2029: );
2030:
2031: IF l_return_status = g_ret_sts_error THEN
2032: RAISE fnd_api.g_exc_error;
2033: ELSIF l_return_status = g_ret_sts_unexp_error THEN
2034: RAISE fnd_api.g_exc_unexpected_error;
2035: ELSIF l_valid = g_true THEN
2036:
2030:
2031: IF l_return_status = g_ret_sts_error THEN
2032: RAISE fnd_api.g_exc_error;
2033: ELSIF l_return_status = g_ret_sts_unexp_error THEN
2034: RAISE fnd_api.g_exc_unexpected_error;
2035: ELSIF l_valid = g_true THEN
2036:
2037: FOR ic_information_rec IN ic_information(p_ship_organization_id,p_sell_organization_id,p_flow_type) LOOP
2038:
2127: END IF;
2128:
2129:
2130: EXCEPTION
2131: WHEN FND_API.G_EXC_ERROR THEN
2132: ROLLBACK TO update_ic_relation;
2133: x_return_status := FND_API.G_RET_STS_ERROR;
2134: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
2135:
2129:
2130: EXCEPTION
2131: WHEN FND_API.G_EXC_ERROR THEN
2132: ROLLBACK TO update_ic_relation;
2133: x_return_status := FND_API.G_RET_STS_ERROR;
2134: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
2135:
2136: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2137: ROLLBACK TO update_ic_relation;
2132: ROLLBACK TO update_ic_relation;
2133: x_return_status := FND_API.G_RET_STS_ERROR;
2134: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
2135:
2136: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2137: ROLLBACK TO update_ic_relation;
2138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2139: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
2140: WHEN OTHERS THEN
2134: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
2135:
2136: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2137: ROLLBACK TO update_ic_relation;
2138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2139: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
2140: WHEN OTHERS THEN
2141: ROLLBACK TO update_ic_relation;
2142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2139: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
2140: WHEN OTHERS THEN
2141: ROLLBACK TO update_ic_relation;
2142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2143:
2144: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2145: FND_MSG_PUB.Add_Exc_Msg
2146: ( G_PACKAGE_NAME, 'UPDATE_TRANSACTION_FLOW');
2212: x_msg_data := null;
2213: x_msg_count := 0;
2214:
2215: -- Standard call to check for call compatibility
2216: IF NOT FND_API.compatible_api_call
2217: (l_api_version_number
2218: , p_api_version
2219: , l_api_name
2220: , G_PKG_NAME)
2218: , p_api_version
2219: , l_api_name
2220: , G_PKG_NAME)
2221: THEN
2222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2223: END IF;
2224:
2225:
2226: -- Initialize message list.
2223: END IF;
2224:
2225:
2226: -- Initialize message list.
2227: IF fnd_api.to_boolean(p_init_msg_list) THEN
2228: fnd_msg_pub.initialize;
2229: END IF;
2230:
2231: /* NOT NULL CHECK - ALL THE NOT NULL ERROR MESSAGES WOULD BE GROUPED AND
2350: NULL;
2351: END;
2352:
2353: IF (hasNotNullError) THEN
2354: RAISE FND_API.G_EXC_ERROR;
2355: END IF;
2356:
2357: END; -- END NOT NULL CHECK
2358:
2377:
2378: IF l_valid = 'N' THEN
2379: FND_MESSAGE.SET_NAME('INV','INV_INVALID_COLUMN');
2380: FND_MESSAGE.SET_TOKEN('COLUMN','CUSTOMER_ID');
2381: RAISE FND_API.G_EXC_ERROR;
2382: END IF;
2383: END IF;
2384:
2385: --Validating Address_id
2438:
2439: IF l_valid = 'N' THEN
2440: FND_MESSAGE.SET_NAME('INV','INV_INVALID_COLUMN');
2441: FND_MESSAGE.SET_TOKEN('COLUMN','ADDRESS_ID');
2442: RAISE FND_API.G_EXC_ERROR;
2443: END IF;
2444: END IF;
2445:
2446: --Validating customer_site_id
2498:
2499: IF l_valid = 'N' THEN
2500: FND_MESSAGE.SET_NAME('INV','INV_INVALID_COLUMN');
2501: FND_MESSAGE.SET_TOKEN('COLUMN','CUSTOMER_SITE_ID');
2502: RAISE FND_API.G_EXC_ERROR;
2503: END IF;
2504: END IF;
2505:
2506: --Validating cust_trx_type_id
2529:
2530: IF l_valid = 'N' THEN
2531: FND_MESSAGE.SET_NAME('INV','INV_INVALID_COLUMN');
2532: FND_MESSAGE.SET_TOKEN('COLUMN','CUST_TRX_TYPE_ID');
2533: RAISE FND_API.G_EXC_ERROR;
2534: END IF;
2535: END IF;
2536:
2537: --Validating vendor_id
2563:
2564: IF l_valid = 'N' THEN
2565: FND_MESSAGE.SET_NAME('INV','INV_INVALID_COLUMN');
2566: FND_MESSAGE.SET_TOKEN('COLUMN','VENDOR_ID');
2567: RAISE FND_API.G_EXC_ERROR;
2568: END IF;
2569: END IF;
2570:
2571: --Validating vendor_site_id
2592:
2593: IF l_valid = 'N' THEN
2594: FND_MESSAGE.SET_NAME('INV','INV_INVALID_COLUMN');
2595: FND_MESSAGE.SET_TOKEN('COLUMN','VENDOR_SITE_ID');
2596: RAISE FND_API.G_EXC_ERROR;
2597: END IF;
2598: END IF;
2599:
2600: --Getting chart_of_accounts_id
2620: EXCEPTION
2621: WHEN no_data_found THEN
2622: FND_MESSAGE.SET_NAME('INV','INV_INVALID_COLUMN');
2623: FND_MESSAGE.SET_TOKEN('COLUMN','SHIP_CHART_OF_ACCOUNTS_ID');
2624: RAISE FND_API.G_EXC_ERROR;
2625: END;
2626: */
2627:
2628: BEGIN
2636: p_account_info_context => 'COA');
2637: IF NVL(lreturn_status , 'S') = 'E' THEN
2638: FND_MESSAGE.SET_NAME('INV','INV_INVALID_COLUMN');
2639: FND_MESSAGE.SET_TOKEN('COLUMN','SHIP_CHART_OF_ACCOUNTS_ID');
2640: RAISE FND_API.G_EXC_ERROR;
2641: END IF;
2642: l_ship_chart_of_accounts_id := lcoa_id;
2643: END;
2644:
2664: EXCEPTION
2665: WHEN no_data_found THEN
2666: FND_MESSAGE.SET_NAME('INV','INV_INVALID_COLUMN');
2667: FND_MESSAGE.SET_TOKEN('COLUMN','CHART_OF_ACCOUNTS_ID');
2668: RAISE FND_API.G_EXC_ERROR;
2669: END;
2670: */
2671:
2672: BEGIN
2680: p_account_info_context => 'COA');
2681: IF NVL(lreturn_status , 'S') = 'E' THEN
2682: FND_MESSAGE.SET_NAME('INV','INV_INVALID_COLUMN');
2683: FND_MESSAGE.SET_TOKEN('COLUMN','CHART_OF_ACCOUNTS_ID');
2684: RAISE FND_API.G_EXC_ERROR;
2685: END IF;
2686: l_chart_of_accounts_id:= lcoa_id;
2687: END;
2688:
2704: IF NOT l_valid_ccid THEN
2705:
2706: FND_MESSAGE.SET_NAME('INV','INV_INVALID_COLUMN');
2707: FND_MESSAGE.SET_TOKEN('COLUMN','FREIGHT_CODE_COMBINATION_ID');
2708: RAISE FND_API.G_EXC_ERROR;
2709: END IF;
2710: END IF;
2711:
2712: --Validating intercompany_cogs_account_id
2725:
2726: IF NOT l_valid_ccid THEN
2727: FND_MESSAGE.SET_NAME('INV','INV_INVALID_COLUMN');
2728: FND_MESSAGE.SET_TOKEN('COLUMN','INTERCOMPANY_COGS_ACCOUNT_ID');
2729: RAISE FND_API.G_EXC_ERROR;
2730: END IF;
2731: END IF;
2732:
2733: --Validating inventory_accrual_account_id
2746:
2747: IF NOT l_valid_ccid THEN
2748: FND_MESSAGE.SET_NAME('INV','INV_INVALID_COLUMN');
2749: FND_MESSAGE.SET_TOKEN('COLUMN','INVENTORY_ACCRUAL_ACCOUNT_ID');
2750: RAISE FND_API.G_EXC_ERROR;
2751: END IF;
2752: END IF;
2753:
2754: --Validating expense_accrual_account_id
2767:
2768: IF NOT l_valid_ccid THEN
2769: FND_MESSAGE.SET_NAME('INV','INV_INVALID_COLUMN');
2770: FND_MESSAGE.SET_TOKEN('COLUMN','EXPENSE_ACCRUAL_ACCOUNT_ID');
2771: RAISE FND_API.G_EXC_ERROR;
2772: END IF;
2773: END IF;
2774:
2775: IF p_attribute_category = g_miss_num THEN
2792: P_ATTRIBUTE14 => p_attribute14,
2793: P_ATTRIBUTE15 => p_attribute15,
2794: P_ATTRIBUTE_CATEGORY => p_attribute_category
2795: ) THEN
2796: RAISE FND_API.G_EXC_ERROR;
2797: END IF;
2798:
2799: EXCEPTION
2800: WHEN FND_API.G_EXC_ERROR THEN
2796: RAISE FND_API.G_EXC_ERROR;
2797: END IF;
2798:
2799: EXCEPTION
2800: WHEN FND_API.G_EXC_ERROR THEN
2801: x_return_status := FND_API.G_RET_STS_ERROR;
2802: x_valid := g_false;
2803: FND_MSG_PUB.ADD;
2804: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
2797: END IF;
2798:
2799: EXCEPTION
2800: WHEN FND_API.G_EXC_ERROR THEN
2801: x_return_status := FND_API.G_RET_STS_ERROR;
2802: x_valid := g_false;
2803: FND_MSG_PUB.ADD;
2804: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
2805:
2802: x_valid := g_false;
2803: FND_MSG_PUB.ADD;
2804: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
2805:
2806: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2808: x_valid := g_false;
2809: FND_MSG_PUB.ADD;
2810: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
2803: FND_MSG_PUB.ADD;
2804: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
2805:
2806: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2808: x_valid := g_false;
2809: FND_MSG_PUB.ADD;
2810: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
2811: WHEN OTHERS THEN
2808: x_valid := g_false;
2809: FND_MSG_PUB.ADD;
2810: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
2811: WHEN OTHERS THEN
2812: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2813: x_valid := g_false;
2814: FND_MSG_PUB.ADD;
2815: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2816: FND_MSG_PUB.Add_Exc_Msg
2908: ' p_global_procurement_flag '||p_global_procurement_flag, l_api_name);
2909: END IF;
2910:
2911: -- Standard call to check for call compatibility
2912: IF NOT FND_API.Compatible_API_Call(
2913: l_api_version_number
2914: , p_api_version
2915: , l_api_name
2916: , G_PKG_NAME)
2914: , p_api_version
2915: , l_api_name
2916: , G_PKG_NAME)
2917: THEN
2918: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2919: END IF;
2920:
2921:
2922: -- Initialize message list.
2919: END IF;
2920:
2921:
2922: -- Initialize message list.
2923: IF fnd_api.to_boolean(p_init_msg_list) THEN
2924: fnd_msg_pub.initialize;
2925: END IF;
2926:
2927:
2939: print_debug('incorrect p_rcv_transaction_id', l_api_name);
2940: END IF;
2941: fnd_message.set_name('INV', 'INV_NO_RCVTXNID');
2942: fnd_msg_pub.add;
2943: RAISE fnd_api.g_exc_error;
2944: END IF;
2945:
2946: BEGIN
2947: SELECT rt.po_header_id, rt.po_line_id, rt.po_line_location_id,
2961: print_debug('no record found in rcv_transcations', l_api_name);
2962: END IF;
2963: fnd_message.set_name('INV', 'INV_NO_RCVTXN');
2964: fnd_msg_pub.add;
2965: RAISE fnd_api.g_exc_error;
2966: END;
2967:
2968: IF l_debug = 1 then
2969: print_debug(' l_po_header_id '||l_po_header_id||
2980: print_debug('Insufficient information in rcv_transactions', l_api_name);
2981: END IF;
2982: fnd_message.set_name('INV', 'INV_NO_RCVTXN_INFO');
2983: fnd_msg_pub.add;
2984: RAISE fnd_api.g_exc_error;
2985: END IF;
2986:
2987:
2988: IF l_transaction_type in ('RETURN TO RECEIVING',
3058: print_debug('cannot find sales order line ', l_api_name);
3059: END IF;
3060: fnd_message.set_name('INV', 'INV_NO_SALES_ORDER_LINE');
3061: fnd_msg_pub.add;
3062: RAISE fnd_api.g_exc_error;
3063: END;
3064:
3065: IF l_debug = 1 then
3066: print_debug('l_selling_ou '||l_selling_ou||
3087:
3088: IF (l_selling_ou IS NULL) OR (l_ship_from_ou IS NULL) THEN
3089: fnd_message.set_name('INV', 'INV_NULL_SELLSHIP_OU');
3090: fnd_msg_pub.add;
3091: RAISE fnd_api.g_exc_error;
3092: END IF;
3093:
3094: /******* Calling get transaction flow for the operating units*******/
3095:
3117:
3118: when too_many_rows then
3119: fnd_message.set_name('INV', 'INV_TOO_MANY_CATEGORIES');
3120: fnd_msg_pub.add;
3121: RAISE fnd_api.g_exc_error;
3122: END;
3123:
3124: INV_TRANSACTION_FLOW_PUB.CHECK_TRANSACTION_FLOW
3125: (p_api_version => 1.0
3145: print_debug('l_txn_flow_header_id '||l_txn_flow_header_id, l_api_name);
3146: print_debug('l_new_accounting_flag '||l_new_accounting_flag, l_api_name);
3147: END IF;
3148:
3149: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3150:
3151: RAISE fnd_api.g_exc_unexpected_error;
3152:
3153: ELSIF (l_transaction_flow_exists = g_transaction_flow_found)
3147: END IF;
3148:
3149: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3150:
3151: RAISE fnd_api.g_exc_unexpected_error;
3152:
3153: ELSIF (l_transaction_flow_exists = g_transaction_flow_found)
3154: AND (l_new_accounting_flag in ('Y','y')) THEN
3155: --Drop ship logical
3190: ' x_transaction_action_id '||x_transaction_action_id||
3191: ' x_transaction_source_type_id '||x_transaction_source_type_id, l_api_name);
3192: END IF;
3193: EXCEPTION
3194: WHEN FND_API.G_EXC_ERROR THEN
3195: x_return_status := FND_API.G_RET_STS_ERROR;
3196: x_dropship_type_code := -99;
3197: x_transaction_type_id := -99;
3198: x_transaction_action_id := -99;
3191: ' x_transaction_source_type_id '||x_transaction_source_type_id, l_api_name);
3192: END IF;
3193: EXCEPTION
3194: WHEN FND_API.G_EXC_ERROR THEN
3195: x_return_status := FND_API.G_RET_STS_ERROR;
3196: x_dropship_type_code := -99;
3197: x_transaction_type_id := -99;
3198: x_transaction_action_id := -99;
3199: x_transaction_source_type_id := -99;
3198: x_transaction_action_id := -99;
3199: x_transaction_source_type_id := -99;
3200: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3201:
3202: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3204: x_dropship_type_code := -99;
3205: x_transaction_type_id := -99;
3206: x_transaction_action_id := -99;
3199: x_transaction_source_type_id := -99;
3200: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3201:
3202: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3204: x_dropship_type_code := -99;
3205: x_transaction_type_id := -99;
3206: x_transaction_action_id := -99;
3207: x_transaction_source_type_id := -99;
3207: x_transaction_source_type_id := -99;
3208: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3209:
3210: WHEN OTHERS THEN
3211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3212: x_dropship_type_code := -99;
3213: x_transaction_type_id := -99;
3214: x_transaction_action_id := -99;
3215: x_transaction_source_type_id := -99;
3302: WHEN NO_DATA_FOUND then
3303: FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_TRANSACTIONS');
3304: FND_MESSAGE.SET_TOKEN('ID', p_reference_id);
3305: FND_MSG_PUB.ADD;
3306: raise FND_API.G_EXC_ERROR;
3307: END;
3308: else
3309: l_progress := 2;
3310: -- this is a true drop ship with procuring flow
3318: WHEN NO_DATA_FOUND then
3319: FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_SALES_ORDER');
3320: FND_MESSAGE.SET_TOKEN('LINE', p_reference_id);
3321: FND_MSG_PUB.ADD;
3322: raise FND_API.G_EXC_ERROR;
3323: END;
3324: end if;
3325: else
3326: -- this is global procurement flow.
3334: WHEN NO_DATA_FOUND then
3335: FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_RCV_TRANSACTION');
3336: FND_MESSAGE.SET_TOKEN('RCVID', p_reference_id);
3337: FND_MSG_PUB.ADD;
3338: raise FND_API.G_EXC_ERROR;
3339: END;
3340: end if;
3341: -- end if; OPM INVCONV
3342:
3342:
3343: x_transaction_date := l_transaction_date;
3344: x_return_status := G_RET_STS_SUCCESS;
3345: fnd_msg_pub.count_and_get(
3346: p_encoded => fnd_api.g_false,
3347: p_count => x_msg_count,
3348: p_data => x_msg_data
3349: );
3350:
3349: );
3350:
3351: return l_organization_id;
3352: EXCEPTION
3353: WHEN FND_API.G_EXC_ERROR then
3354: x_return_status := G_RET_STS_ERROR;
3355: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3356: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
3357:
3352: EXCEPTION
3353: WHEN FND_API.G_EXC_ERROR then
3354: x_return_status := G_RET_STS_ERROR;
3355: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3356: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
3357:
3358: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3359: x_return_status := G_RET_STS_UNEXP_ERROR;
3360: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3354: x_return_status := G_RET_STS_ERROR;
3355: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3356: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
3357:
3358: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3359: x_return_status := G_RET_STS_UNEXP_ERROR;
3360: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3361: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
3362:
3357:
3358: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3359: x_return_status := G_RET_STS_UNEXP_ERROR;
3360: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3361: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
3362:
3363: WHEN OTHERS then
3364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3365: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3360: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3361: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
3362:
3363: WHEN OTHERS then
3364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3365: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3366: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
3367:
3368: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3362:
3363: WHEN OTHERS then
3364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3365: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3366: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
3367:
3368: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3369: FND_MSG_PUB.Add_Exc_Msg(G_PACKAGE_NAME, 'Get_Inventory_Org');
3370: end if;
3425: print_Debug('cannot find the ledger of the ou ', 'Get_Functional_Currency_Code');
3426: FND_MESSAGE.SET_NAME('INV', 'IC-INVALID BOOKS');
3427: FND_MESSAGE.SET_TOKEN('ID', p_org_id);
3428: FND_MSG_PUB.ADD;
3429: raise FND_API.G_EXC_ERROR;
3430: END;
3431: */
3432: BEGIN
3433: l_progress := 1;
3443: FND_MESSAGE.SET_NAME('INV', 'IC-INVALID BOOKS');
3444: FND_MESSAGE.SET_TOKEN('ID', p_org_id);
3445: FND_MSG_PUB.ADD;
3446: print_debug('Cannot find the ledger information for operating unit = '||p_org_id , 9);
3447: RAISE FND_API.G_EXC_ERROR;
3448: END IF;
3449: l_set_of_book_id := lsob_id;
3450: END;
3451:
3461: when NO_DATA_FOUND then
3462: print_debug('cannot find the functional currency code', 'get_functional_currency_code');
3463: FND_MESSAGE.SET_NAME('SQLGL', 'GL funct curr does not exist');
3464: FND_MSG_PUB.ADD;
3465: raise FND_API.G_EXC_ERROR;
3466: end;
3467:
3468: print_debug('l_functional_currency_code is ' || l_functional_currency_code, 'get_functional_currency_code');
3469: x_sets_of_book_id := l_set_of_book_id;
3469: x_sets_of_book_id := l_set_of_book_id;
3470: return l_functional_currency_code;
3471:
3472: EXCEPTION
3473: WHEN FND_API.G_EXC_ERROR then
3474: x_return_status := G_RET_STS_ERROR;
3475: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3476: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
3477: return null;
3472: EXCEPTION
3473: WHEN FND_API.G_EXC_ERROR then
3474: x_return_status := G_RET_STS_ERROR;
3475: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3476: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
3477: return null;
3478: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3479: x_return_status := G_RET_STS_UNEXP_ERROR;
3480: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3474: x_return_status := G_RET_STS_ERROR;
3475: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3476: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
3477: return null;
3478: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3479: x_return_status := G_RET_STS_UNEXP_ERROR;
3480: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3481: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
3482: return null;
3477: return null;
3478: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3479: x_return_status := G_RET_STS_UNEXP_ERROR;
3480: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3481: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
3482: return null;
3483:
3484: WHEN OTHERS THEN
3485: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3481: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
3482: return null;
3483:
3484: WHEN OTHERS THEN
3485: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3486: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3487: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
3488:
3489: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3483:
3484: WHEN OTHERS THEN
3485: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3486: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3487: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
3488:
3489: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3490: FND_MSG_PUB.Add_Exc_Msg(G_PACKAGE_NAME, 'get_functional_currency_code');
3491: end if;
3554: G_FROM_ORG_ID := p_org_id;
3555: l_functional_currency_code := get_functional_currency_code(
3556: p_org_id, l_set_of_book_id, x_return_status, x_msg_data, x_msg_count);
3557: if( x_return_status <> G_RET_STS_SUCCESS ) then
3558: raise FND_API.G_EXC_ERROR;
3559: else
3560: G_FUNCTIONAL_CURRENCY_CODE := l_functional_currency_code;
3561: G_SETS_OF_BOOK_ID := l_set_of_book_id;
3562: end if;
3628: FND_MESSAGE.SET_TOKEN('CONV_TYPE', l_conversion_type);
3629: FND_MESSAGE.SET_TOKEN('FROM_CURR', p_currency_code);
3630: FND_MESSAGE.SET_TOKEN('TO_CURR', l_functional_currency_code);
3631: FND_MSG_PUB.ADD;
3632: raise FND_API.G_EXC_ERROR;
3633: elsif( l_transfer_price = -2 ) then
3634: print_Debug('ic invalid currency', 'convert_currency');
3635: FND_MESSAGE.SET_NAME('INV', 'IC-Invalid_Currency');
3636: FND_MESSAGE.SET_TOKEN('FROM_CURR', p_currency_code);
3634: print_Debug('ic invalid currency', 'convert_currency');
3635: FND_MESSAGE.SET_NAME('INV', 'IC-Invalid_Currency');
3636: FND_MESSAGE.SET_TOKEN('FROM_CURR', p_currency_code);
3637: FND_MSG_PUB.ADD;
3638: raise FND_API.G_EXC_ERROR;
3639: end if;
3640: else
3641: l_transfer_price := p_transfer_price;
3642: end if;
3643:
3644: print_debug('l_transfer_price is ' || l_transfer_price, 'convert_currency');
3645: x_return_status := G_RET_STS_SUCCESS;
3646: fnd_msg_pub.count_and_get (
3647: p_encoded => fnd_api.g_false,
3648: p_count => x_msg_count,
3649: p_data => x_msg_data
3650: );
3651:
3652:
3653: return l_transfer_price;
3654:
3655: EXCEPTION
3656: WHEN FND_API.G_EXC_ERROR then
3657: x_return_status := G_RET_STS_ERROR;
3658: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3659: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
3660: return -99;
3655: EXCEPTION
3656: WHEN FND_API.G_EXC_ERROR then
3657: x_return_status := G_RET_STS_ERROR;
3658: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3659: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
3660: return -99;
3661: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3662: x_return_status := G_RET_STS_UNEXP_ERROR;
3663: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3657: x_return_status := G_RET_STS_ERROR;
3658: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3659: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
3660: return -99;
3661: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3662: x_return_status := G_RET_STS_UNEXP_ERROR;
3663: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3664: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
3665: return -99;
3660: return -99;
3661: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3662: x_return_status := G_RET_STS_UNEXP_ERROR;
3663: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3664: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
3665: return -99;
3666:
3667: WHEN OTHERS THEN
3668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3664: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
3665: return -99;
3666:
3667: WHEN OTHERS THEN
3668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3669: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3670: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
3671:
3672: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3666:
3667: WHEN OTHERS THEN
3668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3669: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3670: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
3671:
3672: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3673: FND_MSG_PUB.Add_Exc_Msg(G_PACKAGE_NAME, 'Convert_Currency');
3674: end if;
3788: x_transfer_price := 0;
3789: x_currency_code := null;
3790:
3791: -- Standard call to check for call compatibility
3792: IF NOT FND_API.Compatible_API_Call(
3793: l_api_version_number
3794: , p_api_version
3795: , l_api_name
3796: , G_PKG_NAME)
3794: , p_api_version
3795: , l_api_name
3796: , G_PKG_NAME)
3797: THEN
3798: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3799: END IF;
3800:
3801: -- Initialize message list.
3802: IF fnd_api.to_boolean(p_init_msg_list) THEN
3798: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3799: END IF;
3800:
3801: -- Initialize message list.
3802: IF fnd_api.to_boolean(p_init_msg_list) THEN
3803: fnd_msg_pub.initialize;
3804: END IF;
3805:
3806: --
3917: if( l_return_status <> G_RET_STS_SUCCESS ) then
3918: print_Debug('Error from mtl_intercompany_invoices.get_transfer_price', 'get_transfer_price_for_item');
3919: FND_MESSAGE.SET_NAME('INV', 'INV_ERROR_EXT_TRANSFER_PRICE');
3920: FND_MSG_PUB.ADD;
3921: raise FND_API.G_EXC_ERROR;
3922: end if;
3923:
3924: if( nvl(l_transfer_price, -1) = -1 ) then
3925: -- This means that we get nothing from the external api
3943: print_debug('l_organization_id = ' || l_organization_id, 'geT_transfer_price_for_item');
3944:
3945: if( l_return_status <> G_RET_STS_SUCCESS ) then
3946: print_debug('Error from get_inventory_org', 'get_transfer_price_for_item');
3947: raise FND_API.G_EXC_ERROR;
3948: end if;
3949: end if;
3950:
3951: print_debug('l_qp_profile = ' || l_qp_profile, 'get_transfer_price_for_item');
3972:
3973: print_debug('l_trf_price_date ='||l_trf_price_date, 'Get_Transfer_Price_For_Item');
3974: if( l_return_status <> G_RET_STS_SUCCESS ) then
3975: print_debug('Error from get_transfer_price_date', 'get_transfer_price_for_item');
3976: raise FND_API.G_EXC_ERROR;
3977: end if;
3978:
3979: BEGIN
3980: l_transfer_price_code := 1;
4057: FND_MESSAGE.SET_TOKEN('ITEM', l_item_description);
4058: FND_MESSAGE.SET_TOKEN('UNIT', l_primary_uom);
4059: FND_MESSAGE.SET_TOKEN('PRICE_LIST', l_price_list_name);
4060: FND_MSG_PUB.ADD;
4061: raise fnd_api.g_exc_error;
4062: end if;
4063: end;
4064: when others then
4065: print_debug('sqlerrm = ' || sqlerrm, 'get_transfer_price_for_item');
4066: l_transfer_price := 0;
4067: l_return_status := G_RET_STS_ERROR;
4068: FND_MESSAGE.SET_NAME('INV', 'IC-No Transfer Price');
4069: FND_MSG_PUB.ADD;
4070: raise fnd_api.g_exc_error;
4071: END;
4072: else
4073: l_qp_price_flag := TRUE;
4074: if( p_global_procurement_flag = 'Y' ) then
4141: EXCEPTION
4142: when others then
4143: fnd_message.set_name('INV', 'INV_INT_SQLCODE');
4144: fnd_msg_pub.add;
4145: raise FND_API.G_EXC_ERROR;
4146: end;*/
4147:
4148: /* Added this for bug 3141793
4149: * The currency code in which the transfer price will be return is control by the
4186: FND_MESSAGE.SET_NAME('INV', 'IC-No INTERCO RELATION');
4187: FND_MESSAGE.SET_TOKEN('FROM_OU', l_from_ou_name);
4188: FND_MESSAGE.SET_TOKEN('TO_OU', l_to_ou_name);
4189: FND_MSG_PUB.ADD;
4190: raise FND_API.G_EXC_ERROR;
4191: END;
4192:
4193:
4194:
4221: l_currency_code := get_functional_currency_code(
4222: l_currency_org, l_set_of_book_id, x_return_status, x_msg_data, x_msg_count);
4223:
4224: if( x_return_status <> G_RET_STS_SUCCESS ) then
4225: raise FND_API.G_EXC_ERROR;
4226: end if;
4227: end if;
4228: G_INV_CURR_CODE := l_currency_code;
4229: ELSIF( (G_FROM_ORG_ID = p_from_org_id ) AND (G_TO_ORG_ID = p_to_org_id ) AND (G_FLOW_TYPE = l_flow_type) ) THEN
4260: print_Debug('l_msg_count = ' || l_msg_count, 'get_transfer_price_for_item');
4261:
4262: if( l_return_status <> G_RET_STS_SUCCESS ) THEN
4263: print_Debug('Error from mtl_qp_price', 'get_transfer_price_for_item');
4264: raise FND_API.G_EXC_ERROR;
4265: end if;
4266:
4267: --Fixed for bug#9049184
4268: --primary uom is not derived in this part. When tranfer price code is
4344: FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_UOM_CONV');
4345: FND_MESSAGE.SET_TOKEN('VALUE1', p_transaction_uom);
4346: FND_MESSAGE.SET_TOKEN('VALUE2', l_primary_uom);
4347: FND_MSG_PUB.ADD;
4348: raise FND_API.G_EXC_ERROR;
4349: end if;
4350: print_debug('l_uom_rate is ' || l_uom_rate, 'get_transfer_price_for_item');
4351:
4352: l_transfer_price := l_uom_rate * l_transfer_price;
4371: );
4372:
4373: if( l_return_status <> G_RET_STS_SUCCESS ) then
4374: print_debug('Error from convert_currency', 'get_transfer_price_for_item');
4375: raise FND_API.G_EXC_ERROR;
4376: end if;
4377: else*/
4378:
4379: l_functional_currency_code := l_invoice_currency_code;
4388: x_currency_code := l_functional_currency_code;
4389: x_return_status := l_return_status;
4390:
4391: fnd_msg_pub.count_and_get(
4392: p_encoded => fnd_api.g_false,
4393: p_count => x_msg_count,
4394: p_data => x_msg_data
4395: );
4396: EXCEPTION
4393: p_count => x_msg_count,
4394: p_data => x_msg_data
4395: );
4396: EXCEPTION
4397: WHEN FND_API.G_EXC_ERROR THEN
4398: x_return_status := G_RET_STS_ERROR;
4399: x_transfer_price := -99;
4400: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
4401: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
4397: WHEN FND_API.G_EXC_ERROR THEN
4398: x_return_status := G_RET_STS_ERROR;
4399: x_transfer_price := -99;
4400: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
4401: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
4402:
4403: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4404: x_return_status := G_RET_STS_UNEXP_ERROR;
4405: x_transfer_price := -99;
4399: x_transfer_price := -99;
4400: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
4401: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
4402:
4403: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4404: x_return_status := G_RET_STS_UNEXP_ERROR;
4405: x_transfer_price := -99;
4406: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
4407: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
4403: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4404: x_return_status := G_RET_STS_UNEXP_ERROR;
4405: x_transfer_price := -99;
4406: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
4407: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
4408:
4409: WHEN OTHERS then
4410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4411: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
4406: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
4407: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
4408:
4409: WHEN OTHERS then
4410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4411: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
4412: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
4413:
4414: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4408:
4409: WHEN OTHERS then
4410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4411: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
4412: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
4413:
4414: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4415: FND_MSG_PUB.Add_Exc_Msg(G_PACKAGE_NAME, l_api_name);
4416: end if;
4512: x_transfer_price := 0;
4513: x_currency_code := null;
4514:
4515: -- Standard call to check for call compatibility
4516: IF NOT FND_API.Compatible_API_Call(
4517: l_api_version_number
4518: , p_api_version
4519: , l_api_name
4520: , G_PKG_NAME)
4518: , p_api_version
4519: , l_api_name
4520: , G_PKG_NAME)
4521: THEN
4522: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4523: END IF;
4524:
4525:
4526: -- Initialize message list.
4523: END IF;
4524:
4525:
4526: -- Initialize message list.
4527: IF fnd_api.to_boolean(p_init_msg_list) THEN
4528: fnd_msg_pub.initialize;
4529: END IF;
4530:
4531:
4582: WHEN NO_DATA_FOUND then
4583: FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_TRANSACTIONS');
4584: FND_MESSAGE.SET_TOKEN('ID', p_transaction_id);
4585: FND_MSG_PUB.ADD;
4586: raise FND_API.G_EXC_ERROR;
4587: END;
4588: else
4589: print_debug('Inside p_drop_ship_flag = Y', 'GET_TRANSFER_PRICE');
4590: BEGIN
4597: WHEN NO_DATA_FOUND then
4598: FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_SALES_ORDER');
4599: FND_MESSAGE.SET_TOKEN('LINE', p_transaction_id);
4600: FND_MSG_PUB.ADD;
4601: raise FND_API.G_EXC_ERROR;
4602: END;
4603: end if;
4604: else
4605: print_debug('Inside p_global_procurement_flag = Y', 'GET_TRANSFER_PRICE');
4612: WHEN NO_DATA_FOUND then
4613: FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_RCV_TRANSACTION');
4614: FND_MESSAGE.SET_TOKEN('RCVID', p_transaction_id);
4615: FND_MSG_PUB.ADD;
4616: raise FND_API.G_EXC_ERROR;
4617: END;
4618: end if;
4619:
4620: print_debug('l_transaction_date ='||l_transaction_date, 'GET_TRANSFER_PRICE');
4633: );
4634:
4635: if( l_return_status <> G_RET_STS_SUCCESS ) then
4636: print_debug('Error from get_inventory_org', 'GET_TRANSFER_PRICE');
4637: raise FND_API.G_EXC_ERROR;
4638: end if;
4639: end if;
4640:
4641: print_debug('Inventory org is ' || l_organization_id, 'GET_TRANSFER_PRICE');
4653: if( l_exists = 0 ) then
4654: print_debug('FROM OU is invalid', 'GET_TRANSFER_PRICE');
4655: FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_FROM_OU');
4656: FND_MSG_PUB.ADD;
4657: raise FND_API.G_EXC_ERROR;
4658: -- throw error invalid from operating unit
4659: end if;
4660:
4661: l_progress := 2;
4684: FND_MESSAGE.SET_NAME('INV', 'IC-No INTERCO Relation');
4685: FND_MESSAGE.SET_TOKEN('FROM_OU', l_from_ou_name);
4686: FND_MESSAGE.SET_TOKEN('TO_OU', l_to_ou_name);
4687: FND_MSG_PUB.ADD;
4688: raise FND_API.G_EXC_ERROR;
4689: -- throw error invalid no intercompany parameters defined
4690: END;
4691:
4692: l_progress := 3;
4706: FND_MESSAGE.SET_NAME('INV', 'INV_IC_INVALID_ITEM_ORG');
4707: FND_MESSAGE.SET_TOKEN('ITEM', p_inventory_item_id);
4708: FND_MESSAGE.SET_TOKEN('ORG', l_organization_id);
4709: FND_MSG_PUB.ADD;
4710: raise FND_API.G_EXC_ERROR;
4711: END;
4712:
4713: l_progress := 4;
4714: -- get price list id
4756: FND_MESSAGE.SET_TOKEN('LOC', l_location);
4757: FND_MESSAGE.SET_TOKEN('CUST_NUM', l_customer_number);
4758: FND_MESSAGE.SET_TOKEN('CUST_NAME', l_customer_name);
4759: FND_MSG_PUB.ADD;
4760: raise FND_API.G_EXC_ERROR;
4761: end if;
4762: EXCEPTION
4763: when no_data_found then
4764: print_debug('no price list found ', 'GET_TRANSFER_PRICE');
4769:
4770: FND_MESSAGE.SET_NAME('INV', 'IC-Invalid Customer');
4771: FND_MESSAGE.SET_TOKEN('OU', l_from_ou_name);
4772: FND_MSG_PUB.ADD;
4773: raise FND_API.G_EXC_ERROR;
4774: END;
4775:
4776: -- call get_transfer_price_for_item for the base item
4777: if( l_base_item <> 0 ) then
4805: );
4806:
4807: if( l_cto_item_flag = 'N' AND x_return_status <> G_RET_STS_SUCCESS ) then
4808: print_debug('Error from get_transfer_price_for_item', 'GET_TRANSFER_PRICE');
4809: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4810: end if;
4811:
4812: /* Added following logic for ISO with confgiured items calling of the CTO roll-up price API
4813: only when the price is not associated with the configured item */
4865: );
4866:
4867: if( l_return_status <> G_RET_STS_SUCCESS ) then
4868: print_debug('Error from CTO_Transfer_price', 'GET_TRANSFER_PRICE');
4869: raise FND_API.G_EXC_ERROR;
4870: end if;
4871: print_debug('l_transfer_price from CTO is ' || l_inv_transfer_price, 'GET_TRANSFER_PRICE');
4872: end if;
4873:
4884: );
4885:
4886: if( l_return_status <> G_RET_STS_SUCCESS ) then
4887: print_debug('Error from convert_currency', 'get_transfer_price_for_item');
4888: raise FND_API.G_EXC_ERROR;
4889: end if;
4890: print_Debug('l_transfer_price = ' || l_transfer_price, 'get_transfer_price');
4891: print_Debug('x_currency_code = ' || l_functional_currency_code, 'get_transfer_price');
4892:
4895: x_incr_transfer_price := l_inv_transfer_price;
4896: x_incr_currency_code := l_inv_currency_code;
4897: x_return_status := G_RET_STS_SUCCESS;
4898: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4899: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
4900: EXCEPTION
4901: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4902: x_return_status := G_RET_STS_UNEXP_ERROR;
4903: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4897: x_return_status := G_RET_STS_SUCCESS;
4898: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4899: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
4900: EXCEPTION
4901: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4902: x_return_status := G_RET_STS_UNEXP_ERROR;
4903: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4904: print_debug('In Exc_Unexpected_Error ' || l_progress, 'Get_Transfer_price');
4905: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
4901: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4902: x_return_status := G_RET_STS_UNEXP_ERROR;
4903: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4904: print_debug('In Exc_Unexpected_Error ' || l_progress, 'Get_Transfer_price');
4905: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
4906:
4907: WHEN FND_API.G_EXC_ERROR THEN
4908: x_return_status := G_RET_STS_ERROR;
4909: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4903: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4904: print_debug('In Exc_Unexpected_Error ' || l_progress, 'Get_Transfer_price');
4905: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
4906:
4907: WHEN FND_API.G_EXC_ERROR THEN
4908: x_return_status := G_RET_STS_ERROR;
4909: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4910: print_debug('In EXC_ERROR ' || l_progress, 'Get_Transfer_Price');
4911: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
4907: WHEN FND_API.G_EXC_ERROR THEN
4908: x_return_status := G_RET_STS_ERROR;
4909: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4910: print_debug('In EXC_ERROR ' || l_progress, 'Get_Transfer_Price');
4911: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
4912:
4913:
4914: WHEN OTHERS then
4915: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4911: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
4912:
4913:
4914: WHEN OTHERS then
4915: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4916: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
4917: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
4918:
4919: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4913:
4914: WHEN OTHERS then
4915: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4916: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
4917: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
4918:
4919: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4920: FND_MSG_PUB.Add_Exc_Msg(G_PACKAGE_NAME, l_api_name);
4921: end if;
4990: when no_data_found then
4991: FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_SALES_ORDER');
4992: FND_MESSAGE.SET_TOKEN('LINE', p_order_line_id);
4993: FND_MSG_PUB.ADD;
4994: raise FND_API.G_EXC_ERROR;
4995: end;
4996: else
4997: -- this is global procurement flow.
4998: print_debug('Inside p_global_procurement_flag =Y', 'GET_TRANSFER_PRICE_DATE');
5005: exception
5006: when no_data_found then
5007: FND_MESSAGE.SET_NAME('INV', 'INV_INT_PO');
5008: FND_MSG_PUB.ADD;
5009: raise FND_API.G_EXC_ERROR;
5010: end;
5011: end if; --p_global_procurement_flag = 'N'
5012: else
5013: if ( GML_PROCESS_FLAGS.process_orgn = 1 AND GML_PROCESS_FLAGS.opmitem_flag = 1 ) then
5029: when no_data_found then
5030: FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_SALES_ORDER');
5031: FND_MESSAGE.SET_TOKEN('ID', l_line_id);
5032: FND_MSG_PUB.ADD;
5033: raise FND_API.G_EXC_ERROR;
5034: end;
5035: elsif l_doc_type = 'PORC' THEN
5036: begin
5037: select oel.pricing_date
5049: when no_data_found then
5050: FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_RCV_TRANSACTION');
5051: FND_MESSAGE.SET_TOKEN('RCVID', l_line_id);
5052: FND_MSG_PUB.ADD;
5053: raise FND_API.G_EXC_ERROR;
5054: end;
5055: end if;
5056: else
5057: if( p_global_procurement_flag = 'N' ) then
5068: when no_data_found then
5069: FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_SALES_ORDER');
5070: FND_MESSAGE.SET_TOKEN('ID', p_order_line_id);
5071: FND_MSG_PUB.ADD;
5072: raise FND_API.G_EXC_ERROR;
5073: end;
5074: else
5075: -- this is a true drop ship with procuring flow
5076: BEGIN
5082: WHEN NO_DATA_FOUND then
5083: FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_SALES_ORDER');
5084: FND_MESSAGE.SET_TOKEN('LINE', p_transaction_id);
5085: FND_MSG_PUB.ADD;
5086: raise FND_API.G_EXC_ERROR;
5087: END;
5088: end if; --if( p_drop_ship_flag = 'N')
5089: else
5090: -- this is global procurement flow.
5099: when no_data_found then
5100: FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_RCV_TRANSACTION');
5101: FND_MESSAGE.SET_TOKEN('RCVID', p_transaction_id);
5102: FND_MSG_PUB.ADD;
5103: raise FND_API.G_EXC_ERROR;
5104: end;
5105: end if; --if( p_global_procurement_flag = 'N' )
5106: end if; --if ( GML_PROCESS_FLAGS.process_orgn = 1
5107: end if; -- p_call <> 'I'
5111: end if; --if l_trf_date_profile <>1
5112:
5113: if l_trf_price_date is null then
5114: print_debug('Error: l_trf_price_date is null' , 'GET_TRANSFER_PRICE_DATE');
5115: raise FND_API.G_EXC_ERROR;
5116: end if;
5117:
5118: x_return_status := G_RET_STS_SUCCESS;
5119: /* Added trunc() function for bug 8796195 */
5119: /* Added trunc() function for bug 8796195 */
5120: return trunc(l_trf_price_date);
5121:
5122: EXCEPTION
5123: WHEN FND_API.G_EXC_ERROR then
5124: x_return_status := G_RET_STS_ERROR;
5125: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
5126: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
5127: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5122: EXCEPTION
5123: WHEN FND_API.G_EXC_ERROR then
5124: x_return_status := G_RET_STS_ERROR;
5125: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
5126: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
5127: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5128: x_return_status := G_RET_STS_UNEXP_ERROR;
5129: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
5130: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
5123: WHEN FND_API.G_EXC_ERROR then
5124: x_return_status := G_RET_STS_ERROR;
5125: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
5126: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
5127: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5128: x_return_status := G_RET_STS_UNEXP_ERROR;
5129: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
5130: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
5131: WHEN OTHERS then
5126: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
5127: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5128: x_return_status := G_RET_STS_UNEXP_ERROR;
5129: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
5130: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
5131: WHEN OTHERS then
5132: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5133: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
5134: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
5128: x_return_status := G_RET_STS_UNEXP_ERROR;
5129: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
5130: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
5131: WHEN OTHERS then
5132: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5133: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
5134: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
5135:
5136: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5130: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
5131: WHEN OTHERS then
5132: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5133: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
5134: x_msg_data := fnd_msg_pub.get(p_msg_index => x_msg_count, p_encoded => fnd_api.g_false);
5135:
5136: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5137: FND_MSG_PUB.Add_Exc_Msg(G_PACKAGE_NAME, 'GET_TRANSFER_PRICE_DATE');
5138: end if;