eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.PA_RETENTION_UTIL dependencies on FND_API

Line 270: x_return_status := FND_API.G_RET_STS_SUCCESS;

266:
267:
268: BEGIN
269:
270: x_return_status := FND_API.G_RET_STS_SUCCESS;
271: x_msg_count := 0;
272:
273: /* Check for proper set of parameters
274: Source project_id (p_fr_project_id) is mandatory

Line 435: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

431:
432: WHEN others THEN
433: x_msg_count := 1;
434: x_msg_data := SUBSTR(SQLERRM, 1, 240);
435: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
436: FND_MSG_PUB.add_Exc_msg(
437: p_pkg_name => 'PA_RETENTION_UTIL',
438: p_procedure_name => 'copy_retention_setup');
439:

Line 493: x_return_status := FND_API.G_RET_STS_SUCCESS;

489:
490:
491: BEGIN
492:
493: x_return_status := FND_API.G_RET_STS_SUCCESS;
494: x_msg_count := 0;
495: --dbms_output.put_line ('in copy retention setup 2');
496: l_tab_count := p_to_customer_id_tab.COUNT;
497:

Line 523: if l_return_status = FND_API.G_RET_STS_ERROR then

519: x_return_status => l_return_status,
520: x_msg_count => l_msg_count,
521: x_msg_data => l_msg_data );
522:
523: if l_return_status = FND_API.G_RET_STS_ERROR then
524:
525: rollback;
526: exit;
527:

Line 554: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

550:
551: WHEN others THEN
552: x_msg_count := 1;
553: x_msg_data := SUBSTR(SQLERRM, 1, 240);
554: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
555: FND_MSG_PUB.add_Exc_msg(
556: p_pkg_name => 'PA_RETENTION_UTIL',
557: p_procedure_name => 'copy_retention_setup');
558:

Line 593: x_return_status := FND_API.G_RET_STS_SUCCESS;

589:
590:
591: BEGIN
592:
593: x_return_status := FND_API.G_RET_STS_SUCCESS;
594: x_msg_count := 0;
595: --dbms_output.put_line ('in delete retention rules');
596:
597: DELETE FROM pa_proj_retn_rules

Line 612: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

608:
609: WHEN others THEN
610: x_msg_count := 1;
611: x_msg_data := SUBSTR(SQLERRM, 1, 240);
612: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
613: FND_MSG_PUB.add_Exc_msg(
614: p_pkg_name => 'PA_RETENTION_UTIL',
615: p_procedure_name => 'delete_retn_rules_customer');
616:

Line 652: x_return_status := FND_API.G_RET_STS_SUCCESS;

648: BEGIN
649:
650: --dbms_output.put_line ('in delete retention rules');
651:
652: x_return_status := FND_API.G_RET_STS_SUCCESS;
653: x_msg_count := 0;
654:
655: IF NVL(p_task_id, 0) = 0 then
656:

Line 681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

677:
678: WHEN others THEN
679: x_msg_count := 1;
680: x_msg_data := SUBSTR(SQLERRM, 1, 240);
681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
682: FND_MSG_PUB.add_Exc_msg(
683: p_pkg_name => 'PA_RETENTION_UTIL',
684: p_procedure_name => 'delete_retention_rules');
685:

Line 753: x_return_status := FND_API.G_RET_STS_SUCCESS;

749: BEGIN
750:
751: --dbms_output.put_line ('in insert retention rules');
752:
753: x_return_status := FND_API.G_RET_STS_SUCCESS;
754: x_msg_count := 0;
755:
756:
757: for retn_rec in retn_cur ( p_fr_project_id, p_fr_customer_id) loop

Line 939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

935:
936: WHEN others THEN
937: x_msg_count := 1;
938: x_msg_data := SUBSTR(SQLERRM, 1, 240);
939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
940: FND_MSG_PUB.add_Exc_msg(
941: p_pkg_name => 'PA_RETENTION_UTIL',
942: p_procedure_name => 'insert_retention_rules');
943:

Line 985: x_return_status := FND_API.G_RET_STS_SUCCESS;

981: l_msg_data VARCHAR2(30) := NULL;
982:
983: BEGIN
984:
985: x_return_status := FND_API.G_RET_STS_SUCCESS;
986: x_msg_count := 0;
987: --dbms_output.put_line ('in get currency code');
988: SELECT invproc_currency_type,
989: project_currency_code,

Line 1031: x_return_status := FND_API.G_RET_STS_ERROR;

1027:
1028: /*
1029: x_msg_count := 1;
1030: x_msg_data := 'PA_NO_FUNDING_EXISTS';
1031: x_return_status := FND_API.G_RET_STS_ERROR;
1032: FND_MSG_PUB.add_Exc_msg(
1033: p_pkg_name => 'PA_MULTI_CURRENCY_BILLING',
1034: p_procedure_name => 'get_project_defaults');
1035:

Line 1056: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1052: x_funding_currency_code := NULL; -- NOCOPY
1053: x_invproc_currency_code := NULL; -- NOCOPY
1054: x_msg_count := 1;
1055: x_msg_data := SUBSTR(SQLERRM, 1, 240);
1056: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1057: FND_MSG_PUB.add_Exc_msg(
1058: p_pkg_name => 'PA_RETENTION_UTILS',
1059: p_procedure_name => 'get_currency_code');
1060:

Line 1106: x_return_status := FND_API.G_RET_STS_SUCCESS;

1102: l_msg_data VARCHAR2(30) := NULL;
1103:
1104: BEGIN
1105:
1106: x_return_status := FND_API.G_RET_STS_SUCCESS;
1107: x_msg_count := 0;
1108:
1109: --dbms_output.put_line ('in get corresponding task');
1110:

Line 1129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1125: x_fr_start_date := NULL; --NOCOPY
1126: x_to_start_date := NULL; --NOCOPY
1127: x_msg_count := 1;
1128: x_msg_data := SUBSTR(SQLERRM, 1, 240);
1129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1130:
1131: FND_MSG_PUB.add_Exc_msg(
1132: p_pkg_name => 'PA_RETENTION_UTIL',
1133: p_procedure_name => 'get_corresponding_task');

Line 1182: x_return_status := FND_API.G_RET_STS_SUCCESS;

1178: l_msg_data VARCHAR2(30) := NULL;
1179:
1180: BEGIN
1181:
1182: x_return_status := FND_API.G_RET_STS_SUCCESS;
1183: x_msg_count := 0;
1184:
1185: SELECT p.segment1, p.name, p.invproc_currency_type,
1186: p.project_currency_code, p.projfunc_currency_code, lk.meaning

Line 1225: x_return_status := FND_API.G_RET_STS_ERROR;

1221:
1222: /*
1223: x_msg_count := 1;
1224: x_msg_data := 'PA_NO_FUNDING_EXISTS';
1225: x_return_status := FND_API.G_RET_STS_ERROR;
1226: FND_MSG_PUB.add_Exc_msg(
1227: p_pkg_name => 'PA_MULTI_CURRENCY_BILLING',
1228: p_procedure_name => 'get_project_defaults');
1229:

Line 1251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1247: x_invproc_currency_code := NULL; --NOCOPY
1248: x_projfunc_currency_code := NULL; --NOCOPY
1249: x_msg_count := 1;
1250: x_msg_data := SUBSTR(SQLERRM, 1, 240);
1251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1252:
1253: FND_MSG_PUB.add_Exc_msg(
1254: p_pkg_name => 'PA_RETENTION_UTILS',
1255: p_procedure_name => 'get_project_info');

Line 1309: x_return_status := FND_API.G_RET_STS_SUCCESS;

1305:
1306:
1307: BEGIN
1308:
1309: x_return_status := FND_API.G_RET_STS_SUCCESS;
1310: x_msg_count := 0;
1311:
1312: --dbms_output.put_line ('in calculate date factor ');
1313:

Line 1342: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1338: WHEN others THEN
1339: x_delta := NULL; --NOCOPY
1340: x_msg_count := 1;
1341: x_msg_data := SUBSTR(SQLERRM, 1, 240);
1342: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1343: FND_MSG_PUB.add_Exc_msg(
1344: p_pkg_name => 'PA_RETENTION_UTIL',
1345: p_procedure_name => 'calculate_date_factor');
1346:

Line 1469: x_return_status := FND_API.G_RET_STS_SUCCESS;

1465: l_record_modified EXCEPTION;
1466:
1467: BEGIN
1468:
1469: x_return_status := FND_API.G_RET_STS_SUCCESS;
1470: x_msg_count := 0;
1471:
1472: vers_valid := check_rec_version_num(p_project_id => p_project_id,
1473: p_customer_id => p_customer_id,

Line 1497: x_return_status := FND_API.G_RET_STS_ERROR;

1493:
1494: WHEN l_record_modified THEN
1495: x_msg_count := 1;
1496: x_msg_data := 'PA_XC_RECORD_CHANGED';
1497: x_return_status := FND_API.G_RET_STS_ERROR;
1498: FND_MSG_PUB.add_Exc_msg(
1499: p_pkg_name => 'PA_RETENTION_UTIL',
1500: p_procedure_name => 'set_rec_version_num');
1501:

Line 1526: l_init_msg_list VARCHAR2(20) := FND_API.G_TRUE;

1522: x_msg_data OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
1523: IS
1524:
1525:
1526: l_init_msg_list VARCHAR2(20) := FND_API.G_TRUE;
1527:
1528: l_count NUMBER;
1529: l_row_count NUMBER;
1530:

Line 1549: x_return_status := FND_API.G_RET_STS_SUCCESS;

1545:
1546:
1547: BEGIN
1548:
1549: x_return_status := FND_API.G_RET_STS_SUCCESS;
1550: x_msg_count := 0;
1551:
1552: --Clear the global PL/SQL message table
1553: IF FND_API.TO_BOOLEAN( l_init_msg_list ) THEN

Line 1553: IF FND_API.TO_BOOLEAN( l_init_msg_list ) THEN

1549: x_return_status := FND_API.G_RET_STS_SUCCESS;
1550: x_msg_count := 0;
1551:
1552: --Clear the global PL/SQL message table
1553: IF FND_API.TO_BOOLEAN( l_init_msg_list ) THEN
1554: FND_MSG_PUB.initialize;
1555: END IF;
1556:
1557:

Line 1753: x_return_status := FND_API.G_RET_STS_ERROR;

1749:
1750:
1751: EXCEPTION
1752: WHEN l_retn_billing_cycle THEN
1753: x_return_status := FND_API.G_RET_STS_ERROR;
1754: x_msg_count := 1;
1755: x_msg_data := 'PA_RETN_BILL_CYCLE_NULL';
1756: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RETENTION_UTIL',
1757: p_procedure_name => 'retn_billing_method_single');

Line 1759: x_return_status := FND_API.G_RET_STS_ERROR;

1755: x_msg_data := 'PA_RETN_BILL_CYCLE_NULL';
1756: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RETENTION_UTIL',
1757: p_procedure_name => 'retn_billing_method_single');
1758: WHEN l_tot_retn_amount THEN
1759: x_return_status := FND_API.G_RET_STS_ERROR;
1760: x_msg_count := 1;
1761: x_msg_data := 'PA_RETN_BILL_TOT_AMT_NULL';
1762: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RETENTION_UTIL',
1763: p_procedure_name => 'retn_billing_method_single');

Line 1766: x_return_status := FND_API.G_RET_STS_ERROR;

1762: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RETENTION_UTIL',
1763: p_procedure_name => 'retn_billing_method_single');
1764:
1765: WHEN l_bill_per_either_amount THEN
1766: x_return_status := FND_API.G_RET_STS_ERROR;
1767: x_msg_count := 1;
1768: x_msg_data := 'PA_RETN_PERC_AMNT_EXIST';
1769: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RETENTION_UTIL',
1770: p_procedure_name => 'retn_billing_method_single');

Line 1773: x_return_status := FND_API.G_RET_STS_ERROR;

1769: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RETENTION_UTIL',
1770: p_procedure_name => 'retn_billing_method_single');
1771:
1772: WHEN l_bill_per_either_amount_null THEN
1773: x_return_status := FND_API.G_RET_STS_ERROR;
1774: x_msg_count := 1;
1775: x_msg_data := 'PA_RETN_PERC_AMNT_NO_EXIST';
1776: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RETENTION_UTIL',
1777: p_procedure_name => 'retn_billing_method_single');

Line 1779: x_return_status := FND_API.G_RET_STS_ERROR;

1775: x_msg_data := 'PA_RETN_PERC_AMNT_NO_EXIST';
1776: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RETENTION_UTIL',
1777: p_procedure_name => 'retn_billing_method_single');
1778: WHEN l_neg_not_allowed THEN
1779: x_return_status := FND_API.G_RET_STS_ERROR;
1780: x_msg_count := 1;
1781: x_msg_data := 'PA_RETN_NEG_VAL';
1782: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RETENTION_UTIL',
1783: p_procedure_name => 'retn_billing_method_single');

Line 1786: x_return_status := FND_API.G_RET_STS_ERROR;

1782: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RETENTION_UTIL',
1783: p_procedure_name => 'retn_billing_method_single');
1784:
1785: WHEN l_percentage_invalid THEN
1786: x_return_status := FND_API.G_RET_STS_ERROR;
1787: x_msg_count := 1;
1788: x_msg_data := 'PA_RETN_PERCENT_RANGE';
1789: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RETENTION_UTIL',
1790: p_procedure_name => 'retn_billing_method_single');

Line 1793: x_return_status := FND_API.G_RET_STS_ERROR;

1789: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RETENTION_UTIL',
1790: p_procedure_name => 'retn_billing_method_single');
1791:
1792: WHEN l_used_other_method THEN
1793: x_return_status := FND_API.G_RET_STS_ERROR;
1794: x_msg_count := 1;
1795: x_msg_data := 'PA_RETN_RECORD_CHANGED';
1796: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RETENTION_UTIL',
1797: p_procedure_name => 'retn_billing_method_single');

Line 1800: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1796: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RETENTION_UTIL',
1797: p_procedure_name => 'retn_billing_method_single');
1798:
1799: WHEN OTHERS THEN
1800: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1801: x_msg_count := 1;
1802: x_msg_data := SUBSTR(SQLERRM, 1, 240);
1803: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RETENTION_UTIL',
1804: p_procedure_name => 'retn_billing_method_single');

Line 1829: l_init_msg_list VARCHAR2(20) := FND_API.G_TRUE;

1825: x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
1826: x_msg_data OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
1827: IS
1828:
1829: l_init_msg_list VARCHAR2(20) := FND_API.G_TRUE;
1830:
1831: l_count NUMBER;
1832: l_row_count NUMBER;
1833:

Line 1860: x_return_status := FND_API.G_RET_STS_SUCCESS;

1856:
1857: BEGIN
1858:
1859:
1860: x_return_status := FND_API.G_RET_STS_SUCCESS;
1861: x_msg_count := 0;
1862:
1863:
1864: --Clear the global PL/SQL message table

Line 1865: IF FND_API.TO_BOOLEAN( l_init_msg_list ) THEN

1861: x_msg_count := 0;
1862:
1863:
1864: --Clear the global PL/SQL message table
1865: IF FND_API.TO_BOOLEAN( l_init_msg_list ) THEN
1866: FND_MSG_PUB.initialize;
1867: END IF;
1868:
1869:

Line 2065: x_return_status := FND_API.G_RET_STS_ERROR;

2061:
2062:
2063: EXCEPTION
2064: WHEN l_retn_per_comp_dup THEN
2065: x_return_status := FND_API.G_RET_STS_ERROR;
2066: x_msg_count := 1;
2067: x_msg_data := 'PA_RETN_BILL_PER_COMP_DUP';
2068: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RETENTION_UTIL',
2069: p_procedure_name => 'retn_billing_method_PerComp');

Line 2072: x_return_status := FND_API.G_RET_STS_ERROR;

2068: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RETENTION_UTIL',
2069: p_procedure_name => 'retn_billing_method_PerComp');
2070:
2071: WHEN l_retn_per_comp_null THEN
2072: x_return_status := FND_API.G_RET_STS_ERROR;
2073: x_msg_count := 1;
2074: x_msg_data := 'PA_RETN_BILL_PER_COMP_NULL';
2075: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RETENTION_UTIL',
2076: p_procedure_name => 'retn_billing_method_PerComp');

Line 2079: x_return_status := FND_API.G_RET_STS_ERROR;

2075: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RETENTION_UTIL',
2076: p_procedure_name => 'retn_billing_method_PerComp');
2077:
2078: WHEN l_bill_per_either_amount THEN
2079: x_return_status := FND_API.G_RET_STS_ERROR;
2080: x_msg_count := 1;
2081: x_msg_data := 'PA_RETN_PERC_AMNT_EXIST';
2082: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RETENTION_UTIL',
2083: p_procedure_name => 'retn_billing_method_PerComp');

Line 2086: x_return_status := FND_API.G_RET_STS_ERROR;

2082: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RETENTION_UTIL',
2083: p_procedure_name => 'retn_billing_method_PerComp');
2084:
2085: WHEN l_bill_per_either_amount_null THEN
2086: x_return_status := FND_API.G_RET_STS_ERROR;
2087: x_msg_count := 1;
2088: x_msg_data := 'PA_RETN_PERC_AMNT_NO_EXIST';
2089: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RETENTION_UTIL',
2090: p_procedure_name => 'retn_billing_method_PerComp');

Line 2093: x_return_status := FND_API.G_RET_STS_ERROR;

2089: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RETENTION_UTIL',
2090: p_procedure_name => 'retn_billing_method_PerComp');
2091:
2092: WHEN l_percentage_invalid THEN
2093: x_return_status := FND_API.G_RET_STS_ERROR;
2094: x_msg_count := 1;
2095: x_msg_data := 'PA_RETN_PERCENT_RANGE';
2096: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RETENTION_UTIL',
2097: p_procedure_name => 'retn_billing_method_PerComp');

Line 2099: x_return_status := FND_API.G_RET_STS_ERROR;

2095: x_msg_data := 'PA_RETN_PERCENT_RANGE';
2096: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RETENTION_UTIL',
2097: p_procedure_name => 'retn_billing_method_PerComp');
2098: WHEN l_neg_not_allowed THEN
2099: x_return_status := FND_API.G_RET_STS_ERROR;
2100: x_msg_count := 1;
2101: x_msg_data := 'PA_RETN_NEG_VAL';
2102: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RETENTION_UTIL',
2103: p_procedure_name => 'retn_billing_method_PerComp');

Line 2105: x_return_status := FND_API.G_RET_STS_ERROR;

2101: x_msg_data := 'PA_RETN_NEG_VAL';
2102: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RETENTION_UTIL',
2103: p_procedure_name => 'retn_billing_method_PerComp');
2104: WHEN l_used_other_method THEN
2105: x_return_status := FND_API.G_RET_STS_ERROR;
2106: x_msg_count := 1;
2107: x_msg_data := 'PA_RETN_RECORD_CHANGED';
2108: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RETENTION_UTIL',
2109: p_procedure_name => 'retn_billing_method_PerComp');

Line 2111: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2107: x_msg_data := 'PA_RETN_RECORD_CHANGED';
2108: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RETENTION_UTIL',
2109: p_procedure_name => 'retn_billing_method_PerComp');
2110: WHEN OTHERS THEN
2111: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2112: x_msg_count := 1;
2113: x_msg_data := SQLERRM;
2114: -- dbms_output.put_line(SQLERRM);
2115: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RETENTION_UTIL',

Line 2139: l_init_msg_list VARCHAR2(20) := FND_API.G_TRUE;

2135: x_msg_data OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
2136: IS
2137:
2138:
2139: l_init_msg_list VARCHAR2(20) := FND_API.G_TRUE;
2140:
2141:
2142: l_retn_task_name_null EXCEPTION;
2143: l_retn_task_no_null EXCEPTION;

Line 2160: x_return_status := FND_API.G_RET_STS_SUCCESS;

2156: BEGIN
2157:
2158:
2159:
2160: x_return_status := FND_API.G_RET_STS_SUCCESS;
2161: x_msg_count := 0;
2162:
2163:
2164: --Clear the global PL/SQL message table

Line 2165: IF FND_API.TO_BOOLEAN( l_init_msg_list ) THEN

2161: x_msg_count := 0;
2162:
2163:
2164: --Clear the global PL/SQL message table
2165: IF FND_API.TO_BOOLEAN( l_init_msg_list ) THEN
2166: FND_MSG_PUB.initialize;
2167: END IF;
2168:
2169:

Line 2306: x_return_status := FND_API.G_RET_STS_ERROR;

2302:
2303: IF (l_message_code IS NOT NULL) THEN
2304:
2305:
2306: x_return_status := FND_API.G_RET_STS_ERROR;
2307: x_msg_count := 1;
2308: x_msg_data := l_message_code;
2309:
2310: END IF;

Line 2356: x_return_status := FND_API.G_RET_STS_ERROR;

2352:
2353: EXCEPTION
2354: WHEN l_bill_rec_exists THEN
2355: x_task_id := NULL; --NOCOPY
2356: x_return_status := FND_API.G_RET_STS_ERROR;
2357: x_msg_count := 1;
2358: x_msg_data := 'PA_RETN_BILL_REC_EXIST';
2359: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RETENTION_UTIL',
2360: p_procedure_name => 'retn_billing_task_validate');

Line 2364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2360: p_procedure_name => 'retn_billing_task_validate');
2361:
2362: WHEN OTHERS THEN
2363: x_task_id := NULL; --NOCOPY
2364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2365: x_msg_count := 1;
2366: x_msg_data := SQLERRM;
2367: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_RETENTION_UTIL',
2368: p_procedure_name => 'retn_billing_task_validate');

Line 2417: X_Return_Status_Code := FND_API.G_RET_STS_ERROR; -- 'E';

2413:
2414: -- dbms_output.put_line('Check for Start Date is Null');
2415: IF P_Effective_Start_Date IS NULL
2416: THEN
2417: X_Return_Status_Code := FND_API.G_RET_STS_ERROR; -- 'E';
2418: X_Error_Message_Code := 'PA_EFF_START_DATE_NULL';
2419: RETURN;
2420: END IF;
2421:

Line 2427: X_Return_Status_Code := FND_API.G_RET_STS_ERROR; -- 'E';

2423: IF P_Effective_End_Date IS NOT NULL
2424: THEN
2425: IF P_Effective_End_Date < P_Effective_Start_Date
2426: THEN
2427: X_Return_Status_Code := FND_API.G_RET_STS_ERROR; -- 'E';
2428: X_Error_Message_Code := 'PA_INVALID_END_DATE';
2429: RETURN;
2430: END IF;
2431: END IF;

Line 2441: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;

2437: P_Effective_Start_Date >= Rules_Rec.Effective_Start_Date ) OR
2438: ( Rules_Rec.Effective_End_Date IS NULL AND
2439: P_Effective_End_Date >= Rules_Rec.Effective_Start_Date )
2440: THEN
2441: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;
2442: X_Error_Message_Code := 'PA_SU_OVERLAP_RANGES';
2443: RETURN;
2444: END IF;
2445:

Line 2451: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;

2447: Rules_Rec.Effective_Start_Date AND Rules_Rec.Effective_End_Date ) OR
2448: ( P_Effective_End_Date BETWEEN
2449: Rules_Rec.Effective_Start_Date AND Rules_Rec.Effective_End_Date )
2450: THEN
2451: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;
2452: X_Error_Message_Code := 'PA_SU_OVERLAP_RANGES';
2453: RETURN;
2454: END IF;
2455:

Line 2461: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;

2457: ( P_Effective_Start_Date <= Rules_Rec.Effective_Start_Date OR
2458: P_Effective_Start_Date <= Rules_Rec.Effective_End_Date ) AND
2459: P_Effective_End_Date >= Rules_Rec.Effective_Start_Date )
2460: THEN
2461: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;
2462: X_Error_Message_Code := 'PA_SU_OVERLAP_RANGES';
2463: RETURN;
2464: END IF;
2465:

Line 2470: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;

2466: IF Rules_Rec.Effective_End_Date IS NOT NULL AND
2467: P_Effective_Start_Date <= Rules_Rec.Effective_Start_Date AND
2468: P_Effective_End_Date IS NULL
2469: THEN
2470: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;
2471: X_Error_Message_Code := 'PA_SU_OVERLAP_RANGES';
2472: RETURN;
2473: END IF;
2474: END;

Line 2494: X_Return_Status_Code := FND_API.G_RET_STS_SUCCESS;

2490: l_expenditure_category varchar2(30) := p_expenditure_category;
2491: l_non_labor_resource varchar2(30) := p_non_labor_resource ;
2492: BEGIN
2493:
2494: X_Return_Status_Code := FND_API.G_RET_STS_SUCCESS;
2495:
2496: IF P_Expenditure_Category IS NULL
2497: THEN
2498: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;

Line 2498: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;

2494: X_Return_Status_Code := FND_API.G_RET_STS_SUCCESS;
2495:
2496: IF P_Expenditure_Category IS NULL
2497: THEN
2498: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;
2499: X_Error_Message_Code := 'PA_NO_EXPENDITURE_CATEGORY';
2500: RETURN;
2501: END IF;
2502:

Line 2507: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;

2503: IF P_Expenditure_Category IS NOT NULL AND
2504: P_Non_Labor_Resource IS NOT NULL AND
2505: P_Expenditure_Type IS NULL
2506: THEN
2507: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;
2508: X_Error_Message_Code := 'PA_INVALID_EXPENDITURE_TYPE';
2509: RETURN;
2510: END IF;
2511:

Line 2524: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;

2520: upper(Expenditure_Category) = upper(P_Expenditure_Category);
2521: EXCEPTION
2522: WHEN NO_DATA_FOUND THEN
2523: P_expenditure_category := l_expenditure_category; -- NOCOPY
2524: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;
2525: X_Error_Message_Code := 'PA_NO_EXPENDITURE_CATEGORY';
2526: RETURN;
2527: END;
2528:

Line 2531: X_Return_Status_Code <> FND_API.G_RET_STS_ERROR

2527: END;
2528:
2529: IF P_Expenditure_Type IS NOT NULL AND
2530: P_Expenditure_Category IS NOT NULL AND
2531: X_Return_Status_Code <> FND_API.G_RET_STS_ERROR
2532: THEN
2533: BEGIN
2534: SELECT
2535: Expenditure_Type

Line 2547: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;

2543: EXCEPTION
2544: WHEN NO_DATA_FOUND THEN
2545: P_expenditure_category := l_expenditure_category; -- NOCOPY
2546: P_expenditure_type := l_expenditure_type; -- NOCOPY
2547: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;
2548: X_Error_Message_Code := 'PA_INVALID_EXPENDITURE_TYPE';
2549: RETURN;
2550: END;
2551: END IF;

Line 2556: X_Return_Status_Code <> FND_API.G_RET_STS_ERROR

2552:
2553: IF P_Non_Labor_Resource IS NOT NULL AND
2554: P_Expenditure_Type IS NOT NULL AND
2555: P_Expenditure_Category IS NOT NULL AND
2556: X_Return_Status_Code <> FND_API.G_RET_STS_ERROR
2557: THEN
2558: BEGIN
2559: SELECT
2560: Non_Labor_Resource

Line 2573: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;

2569: WHEN NO_DATA_FOUND THEN
2570: P_expenditure_category := l_expenditure_category; -- NOCOPY
2571: P_expenditure_type := l_expenditure_type; -- NOCOPY
2572: P_non_labor_resource := l_non_labor_resource; -- NOCOPY
2573: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;
2574: X_Error_Message_Code := 'PA_NLR_INV_FOR_EXP_TYPE';
2575: RETURN;
2576: END;
2577: END IF;

Line 2595: X_Return_Status_Code := FND_API.G_RET_STS_SUCCESS;

2591: l_revenue_category varchar2(30) := p_revenue_category;
2592: l_event_type varchar2(30) := p_event_type;
2593: BEGIN
2594:
2595: X_Return_Status_Code := FND_API.G_RET_STS_SUCCESS;
2596:
2597: IF P_Revenue_Category IS NULL
2598: THEN
2599: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;

Line 2599: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;

2595: X_Return_Status_Code := FND_API.G_RET_STS_SUCCESS;
2596:
2597: IF P_Revenue_Category IS NULL
2598: THEN
2599: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;
2600: X_Error_Message_Code := 'PA_NO_REVENUE_CATEGORY';
2601: RETURN;
2602: END IF;
2603:

Line 2613: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;

2609: AND upper(Meaning) = upper(P_Revenue_Category);
2610: EXCEPTION
2611: WHEN OTHERS THEN
2612: p_revenue_category := l_revenue_category; --NOCOPY
2613: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;
2614: X_Error_Message_Code := 'PA_NO_REVENUE_CATEGORY';
2615: RETURN;
2616: END;
2617:

Line 2627: X_Return_Status_Code := FND_API.G_RET_STS_SUCCESS;

2623: INTO P_Event_Type
2624: FROM PA_EVENT_TYPES
2625: WHERE upper(Revenue_Category_Code) = upper(P_Revenue_Category_Code)
2626: AND upper(Event_Type) = upper(P_Event_Type);
2627: X_Return_Status_Code := FND_API.G_RET_STS_SUCCESS;
2628: EXCEPTION
2629: WHEN OTHERS THEN
2630: p_revenue_category_code := null; --NOCOPY
2631: p_revenue_category := l_revenue_category; --NOCOPY

Line 2633: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;

2629: WHEN OTHERS THEN
2630: p_revenue_category_code := null; --NOCOPY
2631: p_revenue_category := l_revenue_category; --NOCOPY
2632: p_event_type := l_event_type; --NOCOPY
2633: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;
2634: X_Error_Message_Code := 'PA_EVENT_INV_FOR_REV_CATEG';
2635: RETURN;
2636: END;
2637: END IF;

Line 2652: X_Return_Status_Code := FND_API.G_RET_STS_SUCCESS; -- 'S';

2648: IS
2649: l_Exist_Flag VARCHAR2(1) := '';
2650: BEGIN
2651:
2652: X_Return_Status_Code := FND_API.G_RET_STS_SUCCESS; -- 'S';
2653:
2654: BEGIN
2655: DELETE FROM PA_PROJ_RETN_RULES
2656: WHERE Project_ID = P_Project_ID

Line 2672: X_Return_Status_Code := FND_API.G_RET_STS_ERROR; -- 'E';

2668: COMMIT;
2669:
2670: EXCEPTION
2671: WHEN OTHERS THEN
2672: X_Return_Status_Code := FND_API.G_RET_STS_ERROR; -- 'E';
2673: X_Error_Message_Code := 'PA_DATA_ERROR';
2674: END;
2675: END Delete_Retentions;
2676:

Line 2697: X_Return_Status_Code := FND_API.G_RET_STS_SUCCESS;

2693: FROM PA_TASKS
2694: WHERE Project_ID = P_Project_ID
2695: AND upper(Task_Number) = upper(P_Task_Number)
2696: AND upper(Task_Name) = upper(P_Task_Name) ;
2697: X_Return_Status_Code := FND_API.G_RET_STS_SUCCESS;
2698: EXCEPTION WHEN OTHERS THEN
2699: X_Task_ID := l_task_id;
2700: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;
2701: X_Error_Message_Code := 'PA_TASK_INVALID';

Line 2700: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;

2696: AND upper(Task_Name) = upper(P_Task_Name) ;
2697: X_Return_Status_Code := FND_API.G_RET_STS_SUCCESS;
2698: EXCEPTION WHEN OTHERS THEN
2699: X_Task_ID := l_task_id;
2700: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;
2701: X_Error_Message_Code := 'PA_TASK_INVALID';
2702: END;
2703:
2704: END Check_Top_Task_Details;

Line 2714: X_Return_Status_Code := FND_API.G_RET_STS_SUCCESS; -- 'S';

2710: ) IS
2711:
2712: BEGIN
2713:
2714: X_Return_Status_Code := FND_API.G_RET_STS_SUCCESS; -- 'S';
2715:
2716: DELETE FROM
2717: PA_PROJ_RETN_BILL_RULES
2718: WHERE

Line 2724: X_Return_Status_Code := FND_API.G_RET_STS_ERROR; -- 'E';

2720: COMMIT;
2721:
2722: EXCEPTION
2723: WHEN OTHERS THEN
2724: X_Return_Status_Code := FND_API.G_RET_STS_ERROR; -- 'E';
2725: X_Error_Message_Code := 'PA_DATA_ERROR';
2726:
2727: END Delete_Bill_Retentions ;
2728:

Line 2737: X_Return_Status_Code := FND_API.G_RET_STS_SUCCESS; -- 'S';

2733: X_Error_Message_Code IN OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
2734: ) IS
2735: l_Exist_Flag NUMBER;
2736: BEGIN
2737: X_Return_Status_Code := FND_API.G_RET_STS_SUCCESS; -- 'S';
2738: BEGIN
2739: SELECT
2740: 1
2741: INTO

Line 2749: X_Return_Status_Code := FND_API.G_RET_STS_SUCCESS; -- 'S';

2745: WHERE
2746: Project_ID = P_Project_ID
2747: AND Customer_ID = P_Customer_ID
2748: AND RowNum < 2;
2749: X_Return_Status_Code := FND_API.G_RET_STS_SUCCESS; -- 'S';
2750: X_Error_Message_Code := '';
2751: EXCEPTION
2752: WHEN OTHERS THEN
2753: X_Return_Status_Code := FND_API.G_RET_STS_ERROR; -- 'E';

Line 2753: X_Return_Status_Code := FND_API.G_RET_STS_ERROR; -- 'E';

2749: X_Return_Status_Code := FND_API.G_RET_STS_SUCCESS; -- 'S';
2750: X_Error_Message_Code := '';
2751: EXCEPTION
2752: WHEN OTHERS THEN
2753: X_Return_Status_Code := FND_API.G_RET_STS_ERROR; -- 'E';
2754: X_Error_Message_Code := '';
2755: END;
2756:
2757: END Check_Billing_Retentions ;

Line 2816: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;

2812: END IF;
2813:
2814: IF P_Task_Flag = 'Y' AND P_Task_Number IS NULL
2815: THEN
2816: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;
2817: X_Error_Message_Code := 'PA_TASK_NUMBER_INVALID'; -- 'PA_NO_TASK_NUMBER';
2818: RETURN;
2819: END IF;
2820:

Line 2823: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;

2819: END IF;
2820:
2821: IF P_Task_Flag = 'Y' AND P_Task_Name IS NULL
2822: THEN
2823: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;
2824: X_Error_Message_Code := 'PA_TASK_NAME_INVALID'; -- 'PA_NO_TASK_NAME';
2825: RETURN;
2826: END IF;
2827:

Line 2838: IF X_Return_Status_Code = FND_API.G_RET_STS_ERROR

2834: X_Task_ID => X_Task_ID,
2835: X_Return_Status_Code => X_Return_Status_Code,
2836: X_Error_Message_Code => X_Error_Message_Code );
2837:
2838: IF X_Return_Status_Code = FND_API.G_RET_STS_ERROR
2839: THEN
2840: RETURN;
2841: END IF;
2842:

Line 2847: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;

2843: END IF;
2844:
2845: IF P_Retention_Percentage IS NULL AND P_Retention_Amount IS NULL
2846: THEN
2847: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;
2848: X_Error_Message_Code := 'PA_RETN_PERC_OR_AMT_ENTER';
2849: RETURN;
2850: END IF;
2851:

Line 2854: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;

2850: END IF;
2851:
2852: IF P_Retention_Percentage > 0 AND P_Retention_Amount > 0
2853: THEN
2854: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;
2855: X_Error_Message_Code := 'PA_RETN_PERC_OR_AMT_ENTER';
2856: RETURN;
2857: END IF;
2858:

Line 2861: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;

2857: END IF;
2858:
2859: IF P_Retention_Percentage NOT BETWEEN 0 AND 100
2860: THEN
2861: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;
2862: X_Error_Message_Code := 'PA_RETN_PERCENT_RANGE';
2863: RETURN;
2864: END IF;
2865:

Line 2870: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;

2866: IF P_Retention_Percentage < 0 OR
2867: P_Retention_Amount < 0 OR
2868: P_Threshold_Amount < 0
2869: THEN
2870: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;
2871: X_Error_Message_Code := 'PA_RETN_NEG_VAL';
2872: RETURN;
2873: END IF;
2874:

Line 2878: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;

2874:
2875: IF (P_Threshold_Amount < P_Retention_Amount) AND
2876: (P_Retention_Amount IS NOT NULL)
2877: THEN
2878: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;
2879: X_Error_Message_Code := 'PA_RETN_INV_THRESHOLD_AMOUNT';
2880: RETURN;
2881: END IF;
2882:

Line 2892: IF X_Return_Status_Code = FND_API.G_RET_STS_SUCCESS

2888: P_NON_Labor_Resource => P_Non_Labor_Resource,
2889: X_Return_Status_Code => X_Return_Status_code,
2890: X_Error_Message_Code => X_Error_Message_Code
2891: );
2892: IF X_Return_Status_Code = FND_API.G_RET_STS_SUCCESS
2893: THEN
2894: IF P_Expenditure_Category IS NOT NULL
2895: THEN
2896: P_Retention_Level_Code := 'EXPENDITURE_CATEGORY';

Line 2918: IF X_Return_Status_Code = FND_API.G_RET_STS_SUCCESS

2914: P_Event_Type => P_Event_Type,
2915: X_Return_Status_Code => X_Return_Status_code,
2916: X_Error_Message_Code => X_Error_Message_Code
2917: );
2918: IF X_Return_Status_Code = FND_API.G_RET_STS_SUCCESS
2919: THEN
2920: IF P_Revenue_Category IS NOT NULL
2921: THEN
2922: P_Retention_Level_Code := 'REVENUE_CATEGORY';

Line 2931: IF X_Return_Status_Code = FND_API.G_RET_STS_ERROR

2927: END IF;
2928: END IF;
2929: END IF;
2930:
2931: IF X_Return_Status_Code = FND_API.G_RET_STS_ERROR
2932: THEN
2933: RETURN;
2934: END IF;
2935:

Line 2954: IF X_Return_Status_Code = FND_API.G_RET_STS_ERROR

2950: X_RETURN_STATUS_CODE => X_RETURN_STATUS_CODE,
2951: X_ERROR_MESSAGE_CODE => X_ERROR_MESSAGE_CODE
2952: );
2953:
2954: IF X_Return_Status_Code = FND_API.G_RET_STS_ERROR
2955: THEN
2956: RETURN;
2957: END IF;
2958: EXCEPTION

Line 2985: X_Return_Status_Code := FND_API.G_RET_STS_SUCCESS; -- 'S';

2981: l_NonRetained_Count NUMBER := 0;
2982: l_Billing_Rules_Count NUMBER := 0;
2983:
2984: BEGIN
2985: X_Return_Status_Code := FND_API.G_RET_STS_SUCCESS; -- 'S';
2986: BEGIN
2987: SELECT
2988: NVL(sum( decode(nvl(total_retained,0),0,1,0)),0),
2989: NVL(sum( decode(nvl(total_retained,0),0,0,1)),0)

Line 3021: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;

3017: -- Disable Both the buttons
3018: IF l_Retained_Count > 0
3019: THEN
3020: X_Return_Value := 0;
3021: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;
3022: RETURN;
3023: END IF;
3024:
3025: IF ( l_NonRetained_Count = 0 AND

Line 3030: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;

3026: l_Retained_Count = 0 AND
3027: l_Billing_Rules_Count = 0 )
3028: THEN
3029: X_Return_Value := 2;
3030: X_Return_Status_Code := FND_API.G_RET_STS_ERROR;
3031: RETURN;
3032: END IF;
3033:
3034: -- Enable Both the buttons

Line 3038: X_Return_Status_Code := FND_API.G_RET_STS_SUCCESS;

3034: -- Enable Both the buttons
3035: IF l_NonRetained_Count > 0 OR l_Billing_Rules_Count > 0
3036: THEN
3037: X_Return_Value := 1;
3038: X_Return_Status_Code := FND_API.G_RET_STS_SUCCESS;
3039: RETURN;
3040: END IF;
3041:
3042: END Check_Retention_Rules ;