108: --OUT:
109: --x_return_status
110: -- Standard API specification parameter
111: -- Can hold one of the following values:
112: -- FND_API.G_RET_STS_SUCCESS (='S')
113: -- FND_API.G_RET_STS_ERROR (='E')
114: -- FND_API.G_RET_STS_UNEXP_ERROR (='U')
115: --Notes:
116: -- 1. Calls out to EBTax APIs calculate_tax and determine recovery to
109: --x_return_status
110: -- Standard API specification parameter
111: -- Can hold one of the following values:
112: -- FND_API.G_RET_STS_SUCCESS (='S')
113: -- FND_API.G_RET_STS_ERROR (='E')
114: -- FND_API.G_RET_STS_UNEXP_ERROR (='U')
115: --Notes:
116: -- 1. Calls out to EBTax APIs calculate_tax and determine recovery to
117: -- generate tax lines and distributions. Populates recoverable_tax and
110: -- Standard API specification parameter
111: -- Can hold one of the following values:
112: -- FND_API.G_RET_STS_SUCCESS (='S')
113: -- FND_API.G_RET_STS_ERROR (='E')
114: -- FND_API.G_RET_STS_UNEXP_ERROR (='U')
115: --Notes:
116: -- 1. Calls out to EBTax APIs calculate_tax and determine recovery to
117: -- generate tax lines and distributions. Populates recoverable_tax and
118: -- nonrecoverable_tax columns in distributions with the corrsponding tax
158:
159: d_progress := 0;
160:
161: -- By default return status is SUCCESS if no exception occurs
162: x_return_status := FND_API.G_RET_STS_SUCCESS;
163: -- Set global error record to uninitialized local record to set all its
164: -- components to null
165: G_TAX_ERRORS_TBL := null;
166: d_progress := 10;
285: PO_LOG.stmt(d_module_base,d_progress,'Calling validate_and_default_tax_attr');
286: END IF;
287: ZX_API_PUB.validate_and_default_tax_attr(
288: p_api_version => 1.0,
289: p_init_msg_list => FND_API.G_TRUE,
290: p_commit => FND_API.G_FALSE,
291: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
292: x_return_status => l_return_status,
293: x_msg_count => l_msg_count,
286: END IF;
287: ZX_API_PUB.validate_and_default_tax_attr(
288: p_api_version => 1.0,
289: p_init_msg_list => FND_API.G_TRUE,
290: p_commit => FND_API.G_FALSE,
291: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
292: x_return_status => l_return_status,
293: x_msg_count => l_msg_count,
294: x_msg_data => l_msg_data
287: ZX_API_PUB.validate_and_default_tax_attr(
288: p_api_version => 1.0,
289: p_init_msg_list => FND_API.G_TRUE,
290: p_commit => FND_API.G_FALSE,
291: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
292: x_return_status => l_return_status,
293: x_msg_count => l_msg_count,
294: x_msg_data => l_msg_data
295: );
299: PO_LOG.stmt(d_module_base,d_progress,'validate_and_default_tax_attr returned with status '||l_return_status);
300: END IF;
301:
302: -- Raise if any unexpected error
303: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
305: END IF;
306:
307: -- If expected errors, store error details in po_session_gt temporarily
300: END IF;
301:
302: -- Raise if any unexpected error
303: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
305: END IF;
306:
307: -- If expected errors, store error details in po_session_gt temporarily
308: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
305: END IF;
306:
307: -- If expected errors, store error details in po_session_gt temporarily
308: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
309: d_progress := 140;
310: x_return_status := l_return_status;
311: INSERT INTO po_session_gt(
312: key
392: PO_LOG.stmt(d_module_base,d_progress,'Calling get_default_tax_det_attribs');
393: END IF;
394: ZX_API_PUB.get_default_tax_det_attribs(
395: p_api_version => 1.0,
396: p_init_msg_list => FND_API.G_TRUE,
397: p_commit => FND_API.G_FALSE,
398: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
399: x_return_status => l_return_status,
400: x_msg_count => l_msg_count,
393: END IF;
394: ZX_API_PUB.get_default_tax_det_attribs(
395: p_api_version => 1.0,
396: p_init_msg_list => FND_API.G_TRUE,
397: p_commit => FND_API.G_FALSE,
398: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
399: x_return_status => l_return_status,
400: x_msg_count => l_msg_count,
401: x_msg_data => l_msg_data
394: ZX_API_PUB.get_default_tax_det_attribs(
395: p_api_version => 1.0,
396: p_init_msg_list => FND_API.G_TRUE,
397: p_commit => FND_API.G_FALSE,
398: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
399: x_return_status => l_return_status,
400: x_msg_count => l_msg_count,
401: x_msg_data => l_msg_data
402: );
406: PO_LOG.stmt(d_module_base,d_progress,'get_default_tax_det_attribs returned with status '||l_return_status);
407: END IF;
408:
409: -- This API cannot give expected errors. However raise unexpected errors
410: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
411: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
412: END IF;
413:
414: END IF; -- IF (p_calling_program = 'PDOI')
407: END IF;
408:
409: -- This API cannot give expected errors. However raise unexpected errors
410: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
411: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
412: END IF;
413:
414: END IF; -- IF (p_calling_program = 'PDOI')
415:
438: END IF;
439:
440: ZX_API_PUB.calculate_tax(
441: p_api_version => 1.0,
442: p_init_msg_list => FND_API.G_TRUE,
443: p_commit => FND_API.G_FALSE,
444: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
445: x_return_status => l_return_status,
446: x_msg_count => l_msg_count,
439:
440: ZX_API_PUB.calculate_tax(
441: p_api_version => 1.0,
442: p_init_msg_list => FND_API.G_TRUE,
443: p_commit => FND_API.G_FALSE,
444: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
445: x_return_status => l_return_status,
446: x_msg_count => l_msg_count,
447: x_msg_data => l_msg_data
440: ZX_API_PUB.calculate_tax(
441: p_api_version => 1.0,
442: p_init_msg_list => FND_API.G_TRUE,
443: p_commit => FND_API.G_FALSE,
444: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
445: x_return_status => l_return_status,
446: x_msg_count => l_msg_count,
447: x_msg_data => l_msg_data
448: );
452: PO_LOG.stmt(d_module_base,d_progress,'calculate_tax returned with status '||l_return_status);
453: END IF;
454:
455: -- Raise if any unexpected error
456: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
457: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
458: END IF;
459:
460: -- If expected errors, store error details in po_session_gt temporarily
453: END IF;
454:
455: -- Raise if any unexpected error
456: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
457: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
458: END IF;
459:
460: -- If expected errors, store error details in po_session_gt temporarily
461: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
457: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
458: END IF;
459:
460: -- If expected errors, store error details in po_session_gt temporarily
461: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
462: x_return_status := l_return_status;
463: d_progress := 230;
464: INSERT INTO po_session_gt(
465: key
622: END IF;
623:
624: ZX_API_PUB.determine_recovery(
625: p_api_version => 1.0,
626: p_init_msg_list => FND_API.G_TRUE,
627: p_commit => FND_API.G_FALSE,
628: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
629: x_return_status => l_return_status,
630: x_msg_count => l_msg_count,
623:
624: ZX_API_PUB.determine_recovery(
625: p_api_version => 1.0,
626: p_init_msg_list => FND_API.G_TRUE,
627: p_commit => FND_API.G_FALSE,
628: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
629: x_return_status => l_return_status,
630: x_msg_count => l_msg_count,
631: x_msg_data => l_msg_data
624: ZX_API_PUB.determine_recovery(
625: p_api_version => 1.0,
626: p_init_msg_list => FND_API.G_TRUE,
627: p_commit => FND_API.G_FALSE,
628: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
629: x_return_status => l_return_status,
630: x_msg_count => l_msg_count,
631: x_msg_data => l_msg_data
632: );
636: PO_LOG.stmt(d_module_base,d_progress,'determine_recovery returned with status '||l_return_status);
637: END IF;
638:
639: -- Raise if any unexpected error
640: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
642: END IF;
643:
644: -- If expected errors, store error details in po_session_gt temporarily
637: END IF;
638:
639: -- Raise if any unexpected error
640: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
642: END IF;
643:
644: -- If expected errors, store error details in po_session_gt temporarily
645: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
642: END IF;
643:
644: -- If expected errors, store error details in po_session_gt temporarily
645: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
646: x_return_status := l_return_status;
647: d_progress := 350;
648: INSERT INTO po_session_gt(
649: key
739: AND po_distribution_id IN (SELECT psgt.NUM2 FROM po_session_gt psgt
740: WHERE psgt.key = l_po_session_gt_key
741: AND psgt.char3 = 'DETERMINE_RECOVERY');
742:
743: END IF; --IF (l_return_status = FND_API.G_RET_STS_ERROR)
744:
745: d_progress := 450;
746:
747: -- bug5650927
912: END IF;
913: d_progress := 540;
914:
915: EXCEPTION
916: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
917: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
918: ROLLBACK TO SAVEPOINT calculate_tax_savepoint;
919:
920: -- Initialize to flush out expected errors if any
913: d_progress := 540;
914:
915: EXCEPTION
916: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
917: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
918: ROLLBACK TO SAVEPOINT calculate_tax_savepoint;
919:
920: -- Initialize to flush out expected errors if any
921: initialize_global_error_record();
937: PO_LOG.proc_end(d_module_base, 'x_return_status', x_return_status);
938: END IF;
939:
940: WHEN OTHERS THEN
941: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
942: ROLLBACK TO SAVEPOINT calculate_tax_savepoint;
943:
944: -- Initialize to flush out expected errors if any
945: initialize_global_error_record();
992: --OUT:
993: --x_return_status
994: -- Standard API specification parameter
995: -- Can hold one of the following values:
996: -- FND_API.G_RET_STS_SUCCESS (='S')
997: -- FND_API.G_RET_STS_ERROR (='E')
998: -- FND_API.G_RET_STS_UNEXP_ERROR (='U')
999: --Notes:
1000: -- 1. Wrapper procedure that calls its overloaded bulk version
993: --x_return_status
994: -- Standard API specification parameter
995: -- Can hold one of the following values:
996: -- FND_API.G_RET_STS_SUCCESS (='S')
997: -- FND_API.G_RET_STS_ERROR (='E')
998: -- FND_API.G_RET_STS_UNEXP_ERROR (='U')
999: --Notes:
1000: -- 1. Wrapper procedure that calls its overloaded bulk version
1001: -- Called from forms (where passing a pl/sql table from client side is not
994: -- Standard API specification parameter
995: -- Can hold one of the following values:
996: -- FND_API.G_RET_STS_SUCCESS (='S')
997: -- FND_API.G_RET_STS_ERROR (='E')
998: -- FND_API.G_RET_STS_UNEXP_ERROR (='U')
999: --Notes:
1000: -- 1. Wrapper procedure that calls its overloaded bulk version
1001: -- Called from forms (where passing a pl/sql table from client side is not
1002: -- possible and other modules where only a single document is processed
1056:
1057: d_progress := 20;
1058: EXCEPTION
1059: WHEN OTHERS THEN
1060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1061:
1062: -- Initialize to flush out expected errors if any
1063: initialize_global_error_record();
1064: -- Add a new error
1106: --OUT:
1107: --x_return_status
1108: -- Standard API specification parameter
1109: -- Can hold one of the following values:
1110: -- FND_API.G_RET_STS_SUCCESS (='S')
1111: -- FND_API.G_RET_STS_ERROR (='E')
1112: -- FND_API.G_RET_STS_UNEXP_ERROR (='U')
1113: --Notes:
1114: -- 1. Calls out to EBTax APIs calculate_tax and determine recovery to
1107: --x_return_status
1108: -- Standard API specification parameter
1109: -- Can hold one of the following values:
1110: -- FND_API.G_RET_STS_SUCCESS (='S')
1111: -- FND_API.G_RET_STS_ERROR (='E')
1112: -- FND_API.G_RET_STS_UNEXP_ERROR (='U')
1113: --Notes:
1114: -- 1. Calls out to EBTax APIs calculate_tax and determine recovery to
1115: -- calculaterecoverable_tax and nonrecoverable_tax
1108: -- Standard API specification parameter
1109: -- Can hold one of the following values:
1110: -- FND_API.G_RET_STS_SUCCESS (='S')
1111: -- FND_API.G_RET_STS_ERROR (='E')
1112: -- FND_API.G_RET_STS_UNEXP_ERROR (='U')
1113: --Notes:
1114: -- 1. Calls out to EBTax APIs calculate_tax and determine recovery to
1115: -- calculaterecoverable_tax and nonrecoverable_tax
1116: -- 2. Returns all expected errors from etax API's in global tax error record
1143:
1144: d_progress := 0;
1145:
1146: -- By default return status is SUCCESS if no exception occurs
1147: x_return_status := FND_API.G_RET_STS_SUCCESS;
1148:
1149: --
1150: IF p_requisition_header_id IS NOT NULL THEN
1151: -- Set global error record to uninitialized local record to set all its
1201: -- entered by user in interface tables. So call
1202: -- validate_and_default_tax_attribs
1203: ZX_API_PUB.validate_and_default_tax_attr(
1204: p_api_version => 1.0,
1205: p_init_msg_list => FND_API.G_TRUE,
1206: p_commit => FND_API.G_FALSE,
1207: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1208: x_return_status => l_return_status,
1209: x_msg_count => l_msg_count,
1202: -- validate_and_default_tax_attribs
1203: ZX_API_PUB.validate_and_default_tax_attr(
1204: p_api_version => 1.0,
1205: p_init_msg_list => FND_API.G_TRUE,
1206: p_commit => FND_API.G_FALSE,
1207: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1208: x_return_status => l_return_status,
1209: x_msg_count => l_msg_count,
1210: x_msg_data => l_msg_data
1203: ZX_API_PUB.validate_and_default_tax_attr(
1204: p_api_version => 1.0,
1205: p_init_msg_list => FND_API.G_TRUE,
1206: p_commit => FND_API.G_FALSE,
1207: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1208: x_return_status => l_return_status,
1209: x_msg_count => l_msg_count,
1210: x_msg_data => l_msg_data
1211: );
1215: PO_LOG.stmt(d_module_base,d_progress,'validate_and_default_tax_attr returned with status '||l_return_status);
1216: END IF;
1217:
1218: -- Raise if any unexpected error
1219: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1221: END IF;
1222:
1223: -- If there are any expected errors then set the return status
1216: END IF;
1217:
1218: -- Raise if any unexpected error
1219: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1221: END IF;
1222:
1223: -- If there are any expected errors then set the return status
1224: -- accordingly and copy over errors into global tax errors record
1221: END IF;
1222:
1223: -- If there are any expected errors then set the return status
1224: -- accordingly and copy over errors into global tax errors record
1225: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1226: d_progress := 100;
1227: -- Read validation errors from zx_validation_errors_gt into the global
1228: -- error record defined in the spec
1229: SELECT
1259: PO_LOG.stmt(d_module_base,d_progress,'Number of error records collected '||G_TAX_ERRORS_TBL.error_level.COUNT);
1260: END IF;
1261:
1262: d_progress := 120;
1263: RAISE FND_API.G_EXC_ERROR;
1264: END IF;
1265:
1266: ELSE
1267: d_progress := 130;
1266: ELSE
1267: d_progress := 130;
1268: ZX_API_PUB.get_default_tax_det_attribs(
1269: p_api_version => 1.0,
1270: p_init_msg_list => FND_API.G_TRUE,
1271: p_commit => FND_API.G_FALSE,
1272: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1273: x_return_status => l_return_status,
1274: x_msg_count => l_msg_count,
1267: d_progress := 130;
1268: ZX_API_PUB.get_default_tax_det_attribs(
1269: p_api_version => 1.0,
1270: p_init_msg_list => FND_API.G_TRUE,
1271: p_commit => FND_API.G_FALSE,
1272: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1273: x_return_status => l_return_status,
1274: x_msg_count => l_msg_count,
1275: x_msg_data => l_msg_data
1268: ZX_API_PUB.get_default_tax_det_attribs(
1269: p_api_version => 1.0,
1270: p_init_msg_list => FND_API.G_TRUE,
1271: p_commit => FND_API.G_FALSE,
1272: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1273: x_return_status => l_return_status,
1274: x_msg_count => l_msg_count,
1275: x_msg_data => l_msg_data
1276: );
1280: PO_LOG.stmt(d_module_base,d_progress,'get_default_tax_det_attribs returned with status '||l_return_status);
1281: END IF;
1282:
1283: -- This API cannot give expected errors. However raise unexpected errors
1284: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1286: END IF;
1287:
1288: END IF; -- IF (p_calling_program = 'REQIMPORT')
1281: END IF;
1282:
1283: -- This API cannot give expected errors. However raise unexpected errors
1284: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1286: END IF;
1287:
1288: END IF; -- IF (p_calling_program = 'REQIMPORT')
1289:
1310: END IF;
1311:
1312: ZX_API_PUB.calculate_tax(
1313: p_api_version => 1.0,
1314: p_init_msg_list => FND_API.G_FALSE,
1315: p_commit => FND_API.G_FALSE,
1316: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1317: x_return_status => l_return_status,
1318: x_msg_count => l_msg_count,
1311:
1312: ZX_API_PUB.calculate_tax(
1313: p_api_version => 1.0,
1314: p_init_msg_list => FND_API.G_FALSE,
1315: p_commit => FND_API.G_FALSE,
1316: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1317: x_return_status => l_return_status,
1318: x_msg_count => l_msg_count,
1319: x_msg_data => l_msg_data
1312: ZX_API_PUB.calculate_tax(
1313: p_api_version => 1.0,
1314: p_init_msg_list => FND_API.G_FALSE,
1315: p_commit => FND_API.G_FALSE,
1316: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1317: x_return_status => l_return_status,
1318: x_msg_count => l_msg_count,
1319: x_msg_data => l_msg_data
1320: );
1325: END IF;
1326:
1327:
1328: -- Raise if any unexpected error
1329: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1330: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1331: END IF;
1332:
1333: -- If there are any expected errors then set the return status accordingly
1326:
1327:
1328: -- Raise if any unexpected error
1329: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1330: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1331: END IF;
1332:
1333: -- If there are any expected errors then set the return status accordingly
1334: -- and copy over errors into global tax errors record
1331: END IF;
1332:
1333: -- If there are any expected errors then set the return status accordingly
1334: -- and copy over errors into global tax errors record
1335: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1336: x_return_status := l_return_status;
1337: d_progress := 180;
1338: -- Read validation errors from zx_errors_gt into the global
1339: -- error record defined in the spec
1369: PO_LOG.stmt(d_module_base,d_progress,'Number of error records collected '||G_TAX_ERRORS_TBL.error_level.COUNT);
1370: END IF;
1371:
1372: d_progress := 190;
1373: RAISE FND_API.G_EXC_ERROR;
1374: END IF;
1375:
1376: END IF; -- IF (l_line_count <> 0)
1377:
1412: END IF;
1413:
1414: ZX_API_PUB.determine_recovery(
1415: p_api_version => 1.0,
1416: p_init_msg_list => FND_API.G_FALSE,
1417: p_commit => FND_API.G_FALSE,
1418: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1419: x_return_status => l_return_status,
1420: x_msg_count => l_msg_count,
1413:
1414: ZX_API_PUB.determine_recovery(
1415: p_api_version => 1.0,
1416: p_init_msg_list => FND_API.G_FALSE,
1417: p_commit => FND_API.G_FALSE,
1418: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1419: x_return_status => l_return_status,
1420: x_msg_count => l_msg_count,
1421: x_msg_data => l_msg_data
1414: ZX_API_PUB.determine_recovery(
1415: p_api_version => 1.0,
1416: p_init_msg_list => FND_API.G_FALSE,
1417: p_commit => FND_API.G_FALSE,
1418: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1419: x_return_status => l_return_status,
1420: x_msg_count => l_msg_count,
1421: x_msg_data => l_msg_data
1422: );
1426: PO_LOG.stmt(d_module_base,d_progress,'determine_recovery returned with status '||l_return_status);
1427: END IF;
1428:
1429: -- Raise if any unexpected error
1430: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1432: END IF;
1433:
1434: -- If there are any expected errors then set the return status accordingly
1427: END IF;
1428:
1429: -- Raise if any unexpected error
1430: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1432: END IF;
1433:
1434: -- If there are any expected errors then set the return status accordingly
1435: -- and copy over errors into global tax errors record
1432: END IF;
1433:
1434: -- If there are any expected errors then set the return status accordingly
1435: -- and copy over errors into global tax errors record
1436: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1437: x_return_status := l_return_status;
1438: -- Read validation errors from zx_errors_gt into the global
1439: -- error record defined in the spec
1440: d_progress := 260;
1472: PO_LOG.stmt(d_module_base,d_progress,'Number of error records collected '||G_TAX_ERRORS_TBL.error_level.COUNT);
1473: END IF;
1474:
1475: d_progress := 280;
1476: RAISE FND_API.G_EXC_ERROR;
1477: END IF;
1478:
1479: d_progress := 290;
1480: -- Populate recoverable/nonrecoverable tax columns in distributions table
1525:
1526: d_progress := 320;
1527: ZX_API_PUB.global_document_update(
1528: p_api_version => 1.0,
1529: p_init_msg_list => FND_API.G_FALSE,
1530: p_commit => FND_API.G_FALSE,
1531: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1532: x_return_status => l_return_status,
1533: x_msg_count => l_msg_count,
1526: d_progress := 320;
1527: ZX_API_PUB.global_document_update(
1528: p_api_version => 1.0,
1529: p_init_msg_list => FND_API.G_FALSE,
1530: p_commit => FND_API.G_FALSE,
1531: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1532: x_return_status => l_return_status,
1533: x_msg_count => l_msg_count,
1534: x_msg_data => l_msg_data,
1527: ZX_API_PUB.global_document_update(
1528: p_api_version => 1.0,
1529: p_init_msg_list => FND_API.G_FALSE,
1530: p_commit => FND_API.G_FALSE,
1531: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1532: x_return_status => l_return_status,
1533: x_msg_count => l_msg_count,
1534: x_msg_data => l_msg_data,
1535: p_transaction_rec => l_trx_rec);
1534: x_msg_data => l_msg_data,
1535: p_transaction_rec => l_trx_rec);
1536:
1537: -- Raise if any unexpected error
1538: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1539: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1540: END IF;
1541:
1542: d_progress := 330;
1535: p_transaction_rec => l_trx_rec);
1536:
1537: -- Raise if any unexpected error
1538: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1539: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1540: END IF;
1541:
1542: d_progress := 330;
1543: -- Populate zx record TRX_LINE_DIST_TBL
1547: -- no errors in processing the document. Control will reach here only if
1548: -- all l_return_status until now have been successful
1549: ZX_API_PUB.insert_line_det_factors(
1550: p_api_version => 1.0,
1551: p_init_msg_list => FND_API.G_FALSE,
1552: p_commit => FND_API.G_FALSE,
1553: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1554: x_return_status => l_return_status,
1555: x_msg_count => l_msg_count,
1548: -- all l_return_status until now have been successful
1549: ZX_API_PUB.insert_line_det_factors(
1550: p_api_version => 1.0,
1551: p_init_msg_list => FND_API.G_FALSE,
1552: p_commit => FND_API.G_FALSE,
1553: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1554: x_return_status => l_return_status,
1555: x_msg_count => l_msg_count,
1556: x_msg_data => l_msg_data);
1549: ZX_API_PUB.insert_line_det_factors(
1550: p_api_version => 1.0,
1551: p_init_msg_list => FND_API.G_FALSE,
1552: p_commit => FND_API.G_FALSE,
1553: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1554: x_return_status => l_return_status,
1555: x_msg_count => l_msg_count,
1556: x_msg_data => l_msg_data);
1557:
1560: PO_LOG.stmt(d_module_base,d_progress,'insert_line_det_factors returned with status '||l_return_status);
1561: END IF;
1562:
1563: -- Raise if any unexpected error
1564: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1566: END IF;
1567:
1568: END IF; --IF (l_line_count <> 0)
1561: END IF;
1562:
1563: -- Raise if any unexpected error
1564: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1566: END IF;
1567:
1568: END IF; --IF (l_line_count <> 0)
1569:
1589: END IF;
1590: d_progress := 380;
1591:
1592: EXCEPTION
1593: WHEN FND_API.G_EXC_ERROR THEN
1594: x_return_status := FND_API.G_RET_STS_ERROR ;
1595: ROLLBACK TO SAVEPOINT calculate_tax_req_savepoint;
1596:
1597: IF (PO_LOG.d_exc) THEN
1590: d_progress := 380;
1591:
1592: EXCEPTION
1593: WHEN FND_API.G_EXC_ERROR THEN
1594: x_return_status := FND_API.G_RET_STS_ERROR ;
1595: ROLLBACK TO SAVEPOINT calculate_tax_req_savepoint;
1596:
1597: IF (PO_LOG.d_exc) THEN
1598: PO_LOG.exc(d_module_base,d_progress,'Number of error records collected '||G_TAX_ERRORS_TBL.error_level.COUNT);
1600: PO_LOG.exc(d_module_base, d_progress, null);
1601: PO_LOG.proc_end(d_module_base, 'x_return_status', x_return_status);
1602: END IF;
1603:
1604: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1606: ROLLBACK TO SAVEPOINT calculate_tax_req_savepoint;
1607:
1608: -- Initialize to flush out expected errors if any
1601: PO_LOG.proc_end(d_module_base, 'x_return_status', x_return_status);
1602: END IF;
1603:
1604: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1606: ROLLBACK TO SAVEPOINT calculate_tax_req_savepoint;
1607:
1608: -- Initialize to flush out expected errors if any
1609: initialize_global_error_record();
1625: PO_LOG.proc_end(d_module_base, 'x_return_status', x_return_status);
1626: END IF;
1627:
1628: WHEN OTHERS THEN
1629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1630: ROLLBACK TO SAVEPOINT calculate_tax_req_savepoint;
1631:
1632: -- Initialize to flush out expected errors if any
1633: initialize_global_error_record();
1673: --OUT:
1674: --x_return_status
1675: -- Standard API specification parameter
1676: -- Can hold one of the following values:
1677: -- FND_API.G_RET_STS_SUCCESS (='S')
1678: -- FND_API.G_RET_STS_ERROR (='E')
1679: -- FND_API.G_RET_STS_UNEXP_ERROR (='U')
1680: --Notes:
1681: -- 1. Calls out to EBTax API determine recovery to distribute tax lines
1674: --x_return_status
1675: -- Standard API specification parameter
1676: -- Can hold one of the following values:
1677: -- FND_API.G_RET_STS_SUCCESS (='S')
1678: -- FND_API.G_RET_STS_ERROR (='E')
1679: -- FND_API.G_RET_STS_UNEXP_ERROR (='U')
1680: --Notes:
1681: -- 1. Calls out to EBTax API determine recovery to distribute tax lines
1682: -- Populates recoverable_tax and nonrecoverable_tax columns in distributions
1675: -- Standard API specification parameter
1676: -- Can hold one of the following values:
1677: -- FND_API.G_RET_STS_SUCCESS (='S')
1678: -- FND_API.G_RET_STS_ERROR (='E')
1679: -- FND_API.G_RET_STS_UNEXP_ERROR (='U')
1680: --Notes:
1681: -- 1. Calls out to EBTax API determine recovery to distribute tax lines
1682: -- Populates recoverable_tax and nonrecoverable_tax columns in distributions
1683: -- with the corrsponding tax amounts calculated.
1705:
1706: d_progress := 0;
1707:
1708: -- By default return status is SUCCESS if no exception occurs
1709: x_return_status := FND_API.G_RET_STS_SUCCESS;
1710: -- Set global error record to uninitialized local record to set all its
1711: -- components to null
1712: G_TAX_ERRORS_TBL := null;
1713: initialize_zx_gt_tables(); -- Wipe ZX GT tables clean
1739: END IF;
1740:
1741: ZX_API_PUB.determine_recovery(
1742: p_api_version => 1.0,
1743: p_init_msg_list => FND_API.G_TRUE,
1744: p_commit => FND_API.G_FALSE,
1745: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1746: x_return_status => l_return_status,
1747: x_msg_count => l_msg_count,
1740:
1741: ZX_API_PUB.determine_recovery(
1742: p_api_version => 1.0,
1743: p_init_msg_list => FND_API.G_TRUE,
1744: p_commit => FND_API.G_FALSE,
1745: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1746: x_return_status => l_return_status,
1747: x_msg_count => l_msg_count,
1748: x_msg_data => l_msg_data
1741: ZX_API_PUB.determine_recovery(
1742: p_api_version => 1.0,
1743: p_init_msg_list => FND_API.G_TRUE,
1744: p_commit => FND_API.G_FALSE,
1745: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1746: x_return_status => l_return_status,
1747: x_msg_count => l_msg_count,
1748: x_msg_data => l_msg_data
1749: );
1748: x_msg_data => l_msg_data
1749: );
1750:
1751: -- Raise if any unexpected error
1752: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1753: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1754: END IF;
1755:
1756: -- If expected errors, store error details in po_session_gt temporarily
1749: );
1750:
1751: -- Raise if any unexpected error
1752: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1753: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1754: END IF;
1755:
1756: -- If expected errors, store error details in po_session_gt temporarily
1757: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1753: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1754: END IF;
1755:
1756: -- If expected errors, store error details in po_session_gt temporarily
1757: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1758: x_return_status := l_return_status;
1759: -- Read validation errors from zx_errors_gt into the global
1760: -- error record defined in the spec
1761: SELECT
1790: PO_LOG.stmt(d_module_base,d_progress,'Number of records in zx_errors_gt '||l_count);
1791: PO_LOG.stmt(d_module_base,d_progress,'Number of error records collected '||G_TAX_ERRORS_TBL.error_level.COUNT);
1792: END IF;
1793:
1794: RAISE FND_API.G_EXC_ERROR;
1795: END IF; --IF (l_return_status = FND_API.G_RET_STS_ERROR)
1796:
1797: d_progress := 50;
1798: -- Populate recoverable/nonrecoverable tax columns in distributions table
1791: PO_LOG.stmt(d_module_base,d_progress,'Number of error records collected '||G_TAX_ERRORS_TBL.error_level.COUNT);
1792: END IF;
1793:
1794: RAISE FND_API.G_EXC_ERROR;
1795: END IF; --IF (l_return_status = FND_API.G_RET_STS_ERROR)
1796:
1797: d_progress := 50;
1798: -- Populate recoverable/nonrecoverable tax columns in distributions table
1799: UPDATE po_distributions_all pd
1849: END IF;
1850: d_progress := 70;
1851:
1852: EXCEPTION
1853: WHEN FND_API.G_EXC_ERROR THEN
1854: x_return_status := FND_API.G_RET_STS_ERROR ;
1855: ROLLBACK TO SAVEPOINT det_recovery_po_savepoint;
1856:
1857: IF (PO_LOG.d_exc) THEN
1850: d_progress := 70;
1851:
1852: EXCEPTION
1853: WHEN FND_API.G_EXC_ERROR THEN
1854: x_return_status := FND_API.G_RET_STS_ERROR ;
1855: ROLLBACK TO SAVEPOINT det_recovery_po_savepoint;
1856:
1857: IF (PO_LOG.d_exc) THEN
1858: PO_LOG.exc(d_module_base, d_progress, null);
1859: PO_LOG.proc_end(d_module_base, 'x_return_status', x_return_status);
1860: END IF;
1861:
1862: WHEN OTHERS THEN
1863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1864: ROLLBACK TO SAVEPOINT det_recovery_po_savepoint;
1865:
1866: IF (PO_LOG.d_exc) THEN
1867: PO_LOG.exc(d_module_base, d_progress, SQLCODE || SQLERRM);
1891: --OUT:
1892: --x_return_status
1893: -- Standard API specification parameter
1894: -- Can hold one of the following values:
1895: -- FND_API.G_RET_STS_SUCCESS (='S')
1896: -- FND_API.G_RET_STS_ERROR (='E')
1897: -- FND_API.G_RET_STS_UNEXP_ERROR (='U')
1898: --Notes:
1899: -- 1. Calls out to EBTax API determine recovery to distribute tax lines
1892: --x_return_status
1893: -- Standard API specification parameter
1894: -- Can hold one of the following values:
1895: -- FND_API.G_RET_STS_SUCCESS (='S')
1896: -- FND_API.G_RET_STS_ERROR (='E')
1897: -- FND_API.G_RET_STS_UNEXP_ERROR (='U')
1898: --Notes:
1899: -- 1. Calls out to EBTax API determine recovery to distribute tax lines
1900: -- Populates recoverable_tax and nonrecoverable_tax columns in distributions
1893: -- Standard API specification parameter
1894: -- Can hold one of the following values:
1895: -- FND_API.G_RET_STS_SUCCESS (='S')
1896: -- FND_API.G_RET_STS_ERROR (='E')
1897: -- FND_API.G_RET_STS_UNEXP_ERROR (='U')
1898: --Notes:
1899: -- 1. Calls out to EBTax API determine recovery to distribute tax lines
1900: -- Populates recoverable_tax and nonrecoverable_tax columns in distributions
1901: -- with the corrsponding tax amounts calculated.
1923:
1924: d_progress := 0;
1925:
1926: -- By default return status is SUCCESS if no exception occurs
1927: x_return_status := FND_API.G_RET_STS_SUCCESS;
1928: -- Set global error record to uninitialized local record to set all its
1929: -- components to null
1930: G_TAX_ERRORS_TBL := null;
1931: initialize_zx_gt_tables(); -- Wipe ZX GT tables clean
1957: END IF;
1958:
1959: ZX_API_PUB.determine_recovery(
1960: p_api_version => 1.0,
1961: p_init_msg_list => FND_API.G_TRUE,
1962: p_commit => FND_API.G_FALSE,
1963: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1964: x_return_status => l_return_status,
1965: x_msg_count => l_msg_count,
1958:
1959: ZX_API_PUB.determine_recovery(
1960: p_api_version => 1.0,
1961: p_init_msg_list => FND_API.G_TRUE,
1962: p_commit => FND_API.G_FALSE,
1963: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1964: x_return_status => l_return_status,
1965: x_msg_count => l_msg_count,
1966: x_msg_data => l_msg_data
1959: ZX_API_PUB.determine_recovery(
1960: p_api_version => 1.0,
1961: p_init_msg_list => FND_API.G_TRUE,
1962: p_commit => FND_API.G_FALSE,
1963: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1964: x_return_status => l_return_status,
1965: x_msg_count => l_msg_count,
1966: x_msg_data => l_msg_data
1967: );
1966: x_msg_data => l_msg_data
1967: );
1968:
1969: -- Raise if any unexpected error
1970: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1971: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1972: END IF;
1973:
1974: -- If expected errors, store error details in po_session_gt temporarily
1967: );
1968:
1969: -- Raise if any unexpected error
1970: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1971: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1972: END IF;
1973:
1974: -- If expected errors, store error details in po_session_gt temporarily
1975: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1971: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1972: END IF;
1973:
1974: -- If expected errors, store error details in po_session_gt temporarily
1975: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1976: x_return_status := l_return_status;
1977: -- Read validation errors from zx_errors_gt into the global
1978: -- error record defined in the spec
1979: SELECT
2009: PO_LOG.stmt(d_module_base,d_progress,'Number of records in zx_errors_gt '||l_count);
2010: PO_LOG.stmt(d_module_base,d_progress,'Number of error records collected '||G_TAX_ERRORS_TBL.error_level.COUNT);
2011: END IF;
2012:
2013: RAISE FND_API.G_EXC_ERROR;
2014: END IF; --IF (l_return_status = FND_API.G_RET_STS_ERROR)
2015:
2016: d_progress := 50;
2017: -- Populate recoverable/nonrecoverable tax columns in distributions table
2010: PO_LOG.stmt(d_module_base,d_progress,'Number of error records collected '||G_TAX_ERRORS_TBL.error_level.COUNT);
2011: END IF;
2012:
2013: RAISE FND_API.G_EXC_ERROR;
2014: END IF; --IF (l_return_status = FND_API.G_RET_STS_ERROR)
2015:
2016: d_progress := 50;
2017: -- Populate recoverable/nonrecoverable tax columns in distributions table
2018: UPDATE po_distributions_all pd
2070: END IF;
2071: d_progress := 70;
2072:
2073: EXCEPTION
2074: WHEN FND_API.G_EXC_ERROR THEN
2075: x_return_status := FND_API.G_RET_STS_ERROR ;
2076: ROLLBACK TO SAVEPOINT det_recovery_rel_savepoint;
2077:
2078: IF (PO_LOG.d_exc) THEN
2071: d_progress := 70;
2072:
2073: EXCEPTION
2074: WHEN FND_API.G_EXC_ERROR THEN
2075: x_return_status := FND_API.G_RET_STS_ERROR ;
2076: ROLLBACK TO SAVEPOINT det_recovery_rel_savepoint;
2077:
2078: IF (PO_LOG.d_exc) THEN
2079: PO_LOG.exc(d_module_base, d_progress, null);
2080: PO_LOG.proc_end(d_module_base, 'x_return_status', x_return_status);
2081: END IF;
2082:
2083: WHEN OTHERS THEN
2084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2085: ROLLBACK TO SAVEPOINT det_recovery_rel_savepoint;
2086:
2087: IF (PO_LOG.d_exc) THEN
2088: PO_LOG.exc(d_module_base, d_progress, SQLCODE || SQLERRM);
2112: --OUT:
2113: --x_return_status
2114: -- Standard API specification parameter
2115: -- Can hold one of the following values:
2116: -- FND_API.G_RET_STS_SUCCESS (='S')
2117: -- FND_API.G_RET_STS_ERROR (='E')
2118: -- FND_API.G_RET_STS_UNEXP_ERROR (='U')
2119: --Notes:
2120: -- 1. Calls out to EBTax API determine recovery to calculate recoverable_tax
2113: --x_return_status
2114: -- Standard API specification parameter
2115: -- Can hold one of the following values:
2116: -- FND_API.G_RET_STS_SUCCESS (='S')
2117: -- FND_API.G_RET_STS_ERROR (='E')
2118: -- FND_API.G_RET_STS_UNEXP_ERROR (='U')
2119: --Notes:
2120: -- 1. Calls out to EBTax API determine recovery to calculate recoverable_tax
2121: -- and nonrecoverable_tax
2114: -- Standard API specification parameter
2115: -- Can hold one of the following values:
2116: -- FND_API.G_RET_STS_SUCCESS (='S')
2117: -- FND_API.G_RET_STS_ERROR (='E')
2118: -- FND_API.G_RET_STS_UNEXP_ERROR (='U')
2119: --Notes:
2120: -- 1. Calls out to EBTax API determine recovery to calculate recoverable_tax
2121: -- and nonrecoverable_tax
2122: -- 2. Returns all expected errors from etax API in global tax error record
2144:
2145: d_progress := 0;
2146:
2147: -- By default return status is SUCCESS if no exception occurs
2148: x_return_status := FND_API.G_RET_STS_SUCCESS;
2149: -- Set global error record to uninitialized local record to set all its
2150: -- components to null
2151: G_TAX_ERRORS_TBL := null;
2152: initialize_zx_gt_tables(); -- Wipe ZX GT tables clean
2179: END IF;
2180:
2181: ZX_API_PUB.determine_recovery(
2182: p_api_version => 1.0,
2183: p_init_msg_list => FND_API.G_FALSE,
2184: p_commit => FND_API.G_FALSE,
2185: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2186: x_return_status => l_return_status,
2187: x_msg_count => l_msg_count,
2180:
2181: ZX_API_PUB.determine_recovery(
2182: p_api_version => 1.0,
2183: p_init_msg_list => FND_API.G_FALSE,
2184: p_commit => FND_API.G_FALSE,
2185: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2186: x_return_status => l_return_status,
2187: x_msg_count => l_msg_count,
2188: x_msg_data => l_msg_data
2181: ZX_API_PUB.determine_recovery(
2182: p_api_version => 1.0,
2183: p_init_msg_list => FND_API.G_FALSE,
2184: p_commit => FND_API.G_FALSE,
2185: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2186: x_return_status => l_return_status,
2187: x_msg_count => l_msg_count,
2188: x_msg_data => l_msg_data
2189: );
2188: x_msg_data => l_msg_data
2189: );
2190:
2191: -- Raise if any unexpected error
2192: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2194: END IF;
2195:
2196: -- If there are any expected errors then set the return status accordingly
2189: );
2190:
2191: -- Raise if any unexpected error
2192: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2194: END IF;
2195:
2196: -- If there are any expected errors then set the return status accordingly
2197: -- and copy over errors into global tax errors record
2194: END IF;
2195:
2196: -- If there are any expected errors then set the return status accordingly
2197: -- and copy over errors into global tax errors record
2198: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2199: x_return_status := l_return_status;
2200: -- Read validation errors from zx_errors_gt into the global
2201: -- error record defined in the spec
2202: SELECT
2231: PO_LOG.stmt(d_module_base,d_progress,'Number of records in zx_errors_gt '||l_count);
2232: PO_LOG.stmt(d_module_base,d_progress,'Number of error records collected '||G_TAX_ERRORS_TBL.error_level.COUNT);
2233: END IF;
2234:
2235: RAISE FND_API.G_EXC_ERROR;
2236: END IF;
2237:
2238: d_progress := 50;
2239: -- Populate recoverable/nonrecoverable tax columns in distributions table
2265: END IF;
2266: d_progress := 60;
2267:
2268: EXCEPTION
2269: WHEN FND_API.G_EXC_ERROR THEN
2270: x_return_status := FND_API.G_RET_STS_ERROR ;
2271: ROLLBACK TO SAVEPOINT det_recovery_req_savepoint;
2272:
2273: IF (PO_LOG.d_exc) THEN
2266: d_progress := 60;
2267:
2268: EXCEPTION
2269: WHEN FND_API.G_EXC_ERROR THEN
2270: x_return_status := FND_API.G_RET_STS_ERROR ;
2271: ROLLBACK TO SAVEPOINT det_recovery_req_savepoint;
2272:
2273: IF (PO_LOG.d_exc) THEN
2274: PO_LOG.exc(d_module_base, d_progress, null);
2275: PO_LOG.proc_end(d_module_base, 'x_return_status', x_return_status);
2276: END IF;
2277:
2278: WHEN OTHERS THEN
2279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2280: ROLLBACK TO SAVEPOINT det_recovery_req_savepoint;
2281:
2282: IF (PO_LOG.d_exc) THEN
2283: PO_LOG.exc(d_module_base, d_progress, SQLCODE || SQLERRM);
5900: END IF;
5901:
5902: ZX_API_PUB.calculate_tax(
5903: p_api_version => 1.0,
5904: p_init_msg_list => FND_API.G_TRUE,
5905: p_commit => FND_API.G_FALSE,
5906: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5907: x_return_status => x_return_status,
5908: x_msg_count => x_msg_count,
5901:
5902: ZX_API_PUB.calculate_tax(
5903: p_api_version => 1.0,
5904: p_init_msg_list => FND_API.G_TRUE,
5905: p_commit => FND_API.G_FALSE,
5906: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5907: x_return_status => x_return_status,
5908: x_msg_count => x_msg_count,
5909: x_msg_data => x_msg_data);
5902: ZX_API_PUB.calculate_tax(
5903: p_api_version => 1.0,
5904: p_init_msg_list => FND_API.G_TRUE,
5905: p_commit => FND_API.G_FALSE,
5906: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5907: x_return_status => x_return_status,
5908: x_msg_count => x_msg_count,
5909: x_msg_data => x_msg_data);
5910:
5981: END IF;
5982:
5983: ZX_API_PUB.calculate_tax(
5984: p_api_version => 1.0,
5985: p_init_msg_list => FND_API.G_TRUE,
5986: p_commit => FND_API.G_FALSE,
5987: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5988: x_return_status => x_return_status,
5989: x_msg_count => x_msg_count,
5982:
5983: ZX_API_PUB.calculate_tax(
5984: p_api_version => 1.0,
5985: p_init_msg_list => FND_API.G_TRUE,
5986: p_commit => FND_API.G_FALSE,
5987: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5988: x_return_status => x_return_status,
5989: x_msg_count => x_msg_count,
5990: x_msg_data => x_msg_data);
5983: ZX_API_PUB.calculate_tax(
5984: p_api_version => 1.0,
5985: p_init_msg_list => FND_API.G_TRUE,
5986: p_commit => FND_API.G_FALSE,
5987: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5988: x_return_status => x_return_status,
5989: x_msg_count => x_msg_count,
5990: x_msg_data => x_msg_data);
5991:
6012:
6013: d_progress := 140;
6014: PO_TAX_INTERFACE_PVT.global_document_update(
6015: p_api_version => 1.0,
6016: p_init_msg_list => FND_API.G_FALSE,
6017: p_commit => FND_API.G_FALSE,
6018: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6019: x_return_status => x_return_status,
6020: x_msg_count => x_msg_count,
6013: d_progress := 140;
6014: PO_TAX_INTERFACE_PVT.global_document_update(
6015: p_api_version => 1.0,
6016: p_init_msg_list => FND_API.G_FALSE,
6017: p_commit => FND_API.G_FALSE,
6018: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6019: x_return_status => x_return_status,
6020: x_msg_count => x_msg_count,
6021: x_msg_data => x_msg_data,
6014: PO_TAX_INTERFACE_PVT.global_document_update(
6015: p_api_version => 1.0,
6016: p_init_msg_list => FND_API.G_FALSE,
6017: p_commit => FND_API.G_FALSE,
6018: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6019: x_return_status => x_return_status,
6020: x_msg_count => x_msg_count,
6021: x_msg_data => x_msg_data,
6022: p_org_id => l_org_id,
6099: END IF;
6100:
6101: ZX_API_PUB.calculate_tax(
6102: p_api_version => 1.0,
6103: p_init_msg_list => FND_API.G_TRUE,
6104: p_commit => FND_API.G_FALSE,
6105: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6106: x_return_status => x_return_status,
6107: x_msg_count => x_msg_count,
6100:
6101: ZX_API_PUB.calculate_tax(
6102: p_api_version => 1.0,
6103: p_init_msg_list => FND_API.G_TRUE,
6104: p_commit => FND_API.G_FALSE,
6105: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6106: x_return_status => x_return_status,
6107: x_msg_count => x_msg_count,
6108: x_msg_data => x_msg_data);
6101: ZX_API_PUB.calculate_tax(
6102: p_api_version => 1.0,
6103: p_init_msg_list => FND_API.G_TRUE,
6104: p_commit => FND_API.G_FALSE,
6105: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6106: x_return_status => x_return_status,
6107: x_msg_count => x_msg_count,
6108: x_msg_data => x_msg_data);
6109:
6131:
6132: d_progress := 240;
6133: PO_TAX_INTERFACE_PVT.global_document_update(
6134: p_api_version => 1.0,
6135: p_init_msg_list => FND_API.G_FALSE,
6136: p_commit => FND_API.G_FALSE,
6137: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6138: x_return_status => x_return_status,
6139: x_msg_count => x_msg_count,
6132: d_progress := 240;
6133: PO_TAX_INTERFACE_PVT.global_document_update(
6134: p_api_version => 1.0,
6135: p_init_msg_list => FND_API.G_FALSE,
6136: p_commit => FND_API.G_FALSE,
6137: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6138: x_return_status => x_return_status,
6139: x_msg_count => x_msg_count,
6140: x_msg_data => x_msg_data,
6133: PO_TAX_INTERFACE_PVT.global_document_update(
6134: p_api_version => 1.0,
6135: p_init_msg_list => FND_API.G_FALSE,
6136: p_commit => FND_API.G_FALSE,
6137: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6138: x_return_status => x_return_status,
6139: x_msg_count => x_msg_count,
6140: x_msg_data => x_msg_data,
6141: p_org_id => l_org_id,
6164:
6165: d_progress := 30;
6166: EXCEPTION
6167: WHEN OTHERS THEN
6168: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6169: IF (PO_LOG.d_exc) THEN
6170: PO_LOG.exc(d_module_base, d_progress, 'Unhandled exception in procedure cancel_tax_lines');
6171: PO_LOG.proc_end(d_module_base, 'x_return_status', x_return_status);
6172: PO_LOG.proc_end(d_module_base, 'x_msg_count', x_msg_count);
6292:
6293: d_progress := 50;
6294: EXCEPTION
6295: WHEN OTHERS THEN
6296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6297: IF (PO_LOG.d_exc) THEN
6298: PO_LOG.exc(d_module_base, d_progress, 'Unhandled exception in procedure global_document_update');
6299: PO_LOG.proc_end(d_module_base, 'x_return_status', x_return_status);
6300: PO_LOG.proc_end(d_module_base, 'x_msg_count', x_msg_count);
6327: --OUT:
6328: --x_return_status
6329: -- Standard API specification parameter
6330: -- Can hold one of the following values:
6331: -- FND_API.G_RET_STS_SUCCESS (='S')
6332: -- FND_API.G_RET_STS_ERROR (='E')
6333: -- FND_API.G_RET_STS_UNEXP_ERROR (='U')
6334: --Notes:
6335: -- Called from ManageTaxSvrCmd when the user changes any Additional Tax
6328: --x_return_status
6329: -- Standard API specification parameter
6330: -- Can hold one of the following values:
6331: -- FND_API.G_RET_STS_SUCCESS (='S')
6332: -- FND_API.G_RET_STS_ERROR (='E')
6333: -- FND_API.G_RET_STS_UNEXP_ERROR (='U')
6334: --Notes:
6335: -- Called from ManageTaxSvrCmd when the user changes any Additional Tax
6336: -- Attribute on the Additional Tax Information page and presses Apply
6329: -- Standard API specification parameter
6330: -- Can hold one of the following values:
6331: -- FND_API.G_RET_STS_SUCCESS (='S')
6332: -- FND_API.G_RET_STS_ERROR (='E')
6333: -- FND_API.G_RET_STS_UNEXP_ERROR (='U')
6334: --Notes:
6335: -- Called from ManageTaxSvrCmd when the user changes any Additional Tax
6336: -- Attribute on the Additional Tax Information page and presses Apply
6337: --End of Comments
6354: END IF;
6355:
6356: d_progress := 0;
6357: -- By default return status is SUCCESS if no exception occurs
6358: x_return_status := FND_API.G_RET_STS_SUCCESS;
6359:
6360: d_progress := 10;
6361: IF p_document_type = PO_CONSTANTS_SV.PO THEN
6362: SELECT ph.authorization_status
6413: END IF;
6414:
6415: EXCEPTION
6416: WHEN OTHERS THEN
6417: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6418:
6419: IF (PO_LOG.d_exc) THEN
6420: PO_LOG.exc(d_module_base, d_progress, SQLCODE || SQLERRM);
6421: PO_LOG.proc_end(d_module_base, 'x_return_status', x_return_status);
6442: --OUT:
6443: --x_return_status
6444: -- Standard API specification parameter
6445: -- Can hold one of the following values:
6446: -- FND_API.G_RET_STS_SUCCESS (='S')
6447: -- FND_API.G_RET_STS_ERROR (='E')
6448: -- FND_API.G_RET_STS_UNEXP_ERROR (='U')
6449: --Notes:
6450: -- Called from ManageTaxSvrCmd when the user changes any schedule level
6443: --x_return_status
6444: -- Standard API specification parameter
6445: -- Can hold one of the following values:
6446: -- FND_API.G_RET_STS_SUCCESS (='S')
6447: -- FND_API.G_RET_STS_ERROR (='E')
6448: -- FND_API.G_RET_STS_UNEXP_ERROR (='U')
6449: --Notes:
6450: -- Called from ManageTaxSvrCmd when the user changes any schedule level
6451: -- Additional Tax Attribute on the Additional Tax Information page and
6444: -- Standard API specification parameter
6445: -- Can hold one of the following values:
6446: -- FND_API.G_RET_STS_SUCCESS (='S')
6447: -- FND_API.G_RET_STS_ERROR (='E')
6448: -- FND_API.G_RET_STS_UNEXP_ERROR (='U')
6449: --Notes:
6450: -- Called from ManageTaxSvrCmd when the user changes any schedule level
6451: -- Additional Tax Attribute on the Additional Tax Information page and
6452: -- presses Apply
6467: END IF;
6468:
6469: d_progress := 0;
6470: -- By default return status is SUCCESS if no exception occurs
6471: x_return_status := FND_API.G_RET_STS_SUCCESS;
6472:
6473: -- Unapprove line locations that are approved
6474: d_progress := 10;
6475: FORALL i IN 1..p_line_location_id_tbl.COUNT
6485: END IF;
6486:
6487: EXCEPTION
6488: WHEN OTHERS THEN
6489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6490:
6491: IF (PO_LOG.d_exc) THEN
6492: PO_LOG.exc(d_module_base, d_progress, SQLCODE || SQLERRM);
6493: PO_LOG.proc_end(d_module_base, 'x_return_status', x_return_status);