6: -- Bug Fix: 4569365. Removed MRC code.
7: -- g_mrc_exception EXCEPTION;
8: Invalid_Arg_Exc EXCEPTION; -- Added for FPM, Tracking Bug No - 3354518.
9:
10: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
11: g_module_name VARCHAR2(100) := 'pa.plsql.PA_BUDGET_UTILS';
12:
13: procedure get_draft_version_id (x_project_id in number,
14: x_budget_type_code in varchar2,
1761: x_err_code := 0;
1762: old_stack := x_err_stack;
1763: x_err_stack := x_err_stack || '->create_draft';
1764:
1765: IF p_pa_debug_mode = 'Y' THEN
1766: pa_debug.set_err_stack('PA_BUDGET_UTILS.CREATE_DRAFT');
1767: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
1768: END IF;
1769:
1762: old_stack := x_err_stack;
1763: x_err_stack := x_err_stack || '->create_draft';
1764:
1765: IF p_pa_debug_mode = 'Y' THEN
1766: pa_debug.set_err_stack('PA_BUDGET_UTILS.CREATE_DRAFT');
1767: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
1768: END IF;
1769:
1770: x_created_by := to_number(fnd_profile.value('USER_ID'));
1763: x_err_stack := x_err_stack || '->create_draft';
1764:
1765: IF p_pa_debug_mode = 'Y' THEN
1766: pa_debug.set_err_stack('PA_BUDGET_UTILS.CREATE_DRAFT');
1767: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
1768: END IF;
1769:
1770: x_created_by := to_number(fnd_profile.value('USER_ID'));
1771: x_last_update_login := FND_GLOBAL.LOGIN_ID;
1773: -- Get the baselined version
1774: x_err_stage := 'get baselined budget id <' || to_char(x_project_id)
1775: || '><' || x_budget_type_code || '>';
1776:
1777: IF P_PA_DEBUG_MODE = 'Y' THEN
1778: pa_debug.g_err_stage:= 'Calling get baselined version id';
1779: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1780: END IF;
1781:
1774: x_err_stage := 'get baselined budget id <' || to_char(x_project_id)
1775: || '><' || x_budget_type_code || '>';
1776:
1777: IF P_PA_DEBUG_MODE = 'Y' THEN
1778: pa_debug.g_err_stage:= 'Calling get baselined version id';
1779: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1780: END IF;
1781:
1782: pa_budget_utils.get_baselined_version_id(
1775: || '><' || x_budget_type_code || '>';
1776:
1777: IF P_PA_DEBUG_MODE = 'Y' THEN
1778: pa_debug.g_err_stage:= 'Calling get baselined version id';
1779: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1780: END IF;
1781:
1782: pa_budget_utils.get_baselined_version_id(
1783: x_project_id => x_project_id,
1787: x_err_stage => x_err_stage,
1788: x_err_stack => x_err_stack
1789: );
1790:
1791: IF P_PA_DEBUG_MODE = 'Y' THEN
1792: pa_debug.g_err_stage:= 'After get baselined version id';
1793: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1794: pa_debug.g_err_stage:= 'error code - '||x_err_code;
1795: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1788: x_err_stack => x_err_stack
1789: );
1790:
1791: IF P_PA_DEBUG_MODE = 'Y' THEN
1792: pa_debug.g_err_stage:= 'After get baselined version id';
1793: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1794: pa_debug.g_err_stage:= 'error code - '||x_err_code;
1795: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1796: pa_debug.g_err_stage:= 'error stage - '||x_err_stage;
1789: );
1790:
1791: IF P_PA_DEBUG_MODE = 'Y' THEN
1792: pa_debug.g_err_stage:= 'After get baselined version id';
1793: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1794: pa_debug.g_err_stage:= 'error code - '||x_err_code;
1795: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1796: pa_debug.g_err_stage:= 'error stage - '||x_err_stage;
1797: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1790:
1791: IF P_PA_DEBUG_MODE = 'Y' THEN
1792: pa_debug.g_err_stage:= 'After get baselined version id';
1793: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1794: pa_debug.g_err_stage:= 'error code - '||x_err_code;
1795: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1796: pa_debug.g_err_stage:= 'error stage - '||x_err_stage;
1797: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1798: END IF;
1791: IF P_PA_DEBUG_MODE = 'Y' THEN
1792: pa_debug.g_err_stage:= 'After get baselined version id';
1793: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1794: pa_debug.g_err_stage:= 'error code - '||x_err_code;
1795: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1796: pa_debug.g_err_stage:= 'error stage - '||x_err_stage;
1797: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1798: END IF;
1799: if (x_err_code > 0) then
1792: pa_debug.g_err_stage:= 'After get baselined version id';
1793: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1794: pa_debug.g_err_stage:= 'error code - '||x_err_code;
1795: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1796: pa_debug.g_err_stage:= 'error stage - '||x_err_stage;
1797: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1798: END IF;
1799: if (x_err_code > 0) then
1800:
1793: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1794: pa_debug.g_err_stage:= 'error code - '||x_err_code;
1795: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1796: pa_debug.g_err_stage:= 'error stage - '||x_err_stage;
1797: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1798: END IF;
1799: if (x_err_code > 0) then
1800:
1801: -- baseline version does not exist
1824: x_baselined_exists := TRUE;
1825:
1826: else
1827: -- x_err_code < 0
1828: IF P_PA_DEBUG_MODE = 'Y' THEN
1829: pa_debug.g_err_stage:= 'Returning';
1830: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1831: END IF;
1832: return;
1825:
1826: else
1827: -- x_err_code < 0
1828: IF P_PA_DEBUG_MODE = 'Y' THEN
1829: pa_debug.g_err_stage:= 'Returning';
1830: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1831: END IF;
1832: return;
1833: end if;
1826: else
1827: -- x_err_code < 0
1828: IF P_PA_DEBUG_MODE = 'Y' THEN
1829: pa_debug.g_err_stage:= 'Returning';
1830: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1831: END IF;
1832: return;
1833: end if;
1834:
1831: END IF;
1832: return;
1833: end if;
1834:
1835: IF P_PA_DEBUG_MODE = 'Y' THEN
1836: pa_debug.g_err_stage:= 'Calling get_draft_version_id';
1837: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1838: END IF;
1839:
1832: return;
1833: end if;
1834:
1835: IF P_PA_DEBUG_MODE = 'Y' THEN
1836: pa_debug.g_err_stage:= 'Calling get_draft_version_id';
1837: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1838: END IF;
1839:
1840: pa_budget_utils.get_draft_version_id(
1833: end if;
1834:
1835: IF P_PA_DEBUG_MODE = 'Y' THEN
1836: pa_debug.g_err_stage:= 'Calling get_draft_version_id';
1837: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1838: END IF;
1839:
1840: pa_budget_utils.get_draft_version_id(
1841: x_project_id => x_project_id,
1844: x_err_code => x_err_code,
1845: x_err_stage => x_err_stage,
1846: x_err_stack => x_err_stack
1847: );
1848: IF P_PA_DEBUG_MODE = 'Y' THEN
1849: pa_debug.g_err_stage:= 'After call to get_draft_version_id';
1850: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1851: pa_debug.g_err_stage:= 'error code - '||x_err_code;
1852: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1845: x_err_stage => x_err_stage,
1846: x_err_stack => x_err_stack
1847: );
1848: IF P_PA_DEBUG_MODE = 'Y' THEN
1849: pa_debug.g_err_stage:= 'After call to get_draft_version_id';
1850: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1851: pa_debug.g_err_stage:= 'error code - '||x_err_code;
1852: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1853: pa_debug.g_err_stage:= 'error stage - '||x_err_stage;
1846: x_err_stack => x_err_stack
1847: );
1848: IF P_PA_DEBUG_MODE = 'Y' THEN
1849: pa_debug.g_err_stage:= 'After call to get_draft_version_id';
1850: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1851: pa_debug.g_err_stage:= 'error code - '||x_err_code;
1852: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1853: pa_debug.g_err_stage:= 'error stage - '||x_err_stage;
1854: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1847: );
1848: IF P_PA_DEBUG_MODE = 'Y' THEN
1849: pa_debug.g_err_stage:= 'After call to get_draft_version_id';
1850: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1851: pa_debug.g_err_stage:= 'error code - '||x_err_code;
1852: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1853: pa_debug.g_err_stage:= 'error stage - '||x_err_stage;
1854: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1855: END IF;
1848: IF P_PA_DEBUG_MODE = 'Y' THEN
1849: pa_debug.g_err_stage:= 'After call to get_draft_version_id';
1850: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1851: pa_debug.g_err_stage:= 'error code - '||x_err_code;
1852: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1853: pa_debug.g_err_stage:= 'error stage - '||x_err_stage;
1854: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1855: END IF;
1856:
1849: pa_debug.g_err_stage:= 'After call to get_draft_version_id';
1850: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1851: pa_debug.g_err_stage:= 'error code - '||x_err_code;
1852: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1853: pa_debug.g_err_stage:= 'error stage - '||x_err_stage;
1854: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1855: END IF;
1856:
1857: -- if draft exist, delete it
1850: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1851: pa_debug.g_err_stage:= 'error code - '||x_err_code;
1852: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1853: pa_debug.g_err_stage:= 'error stage - '||x_err_stage;
1854: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1855: END IF;
1856:
1857: -- if draft exist, delete it
1858: if (x_err_code = 0) then
1855: END IF;
1856:
1857: -- if draft exist, delete it
1858: if (x_err_code = 0) then
1859: IF P_PA_DEBUG_MODE = 'Y' THEN
1860: pa_debug.g_err_stage:= 'Calling delete_draft';
1861: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1862: END IF;
1863: pa_budget_utils.delete_draft(old_draft_version_id,
1856:
1857: -- if draft exist, delete it
1858: if (x_err_code = 0) then
1859: IF P_PA_DEBUG_MODE = 'Y' THEN
1860: pa_debug.g_err_stage:= 'Calling delete_draft';
1861: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1862: END IF;
1863: pa_budget_utils.delete_draft(old_draft_version_id,
1864: x_err_code,
1857: -- if draft exist, delete it
1858: if (x_err_code = 0) then
1859: IF P_PA_DEBUG_MODE = 'Y' THEN
1860: pa_debug.g_err_stage:= 'Calling delete_draft';
1861: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1862: END IF;
1863: pa_budget_utils.delete_draft(old_draft_version_id,
1864: x_err_code,
1865: x_err_stage,
1863: pa_budget_utils.delete_draft(old_draft_version_id,
1864: x_err_code,
1865: x_err_stage,
1866: x_err_stack);
1867: IF P_PA_DEBUG_MODE = 'Y' THEN
1868: pa_debug.g_err_stage:= 'After call to delete_draft';
1869: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1870: pa_debug.g_err_stage:= 'error code - '||x_err_code;
1871: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1864: x_err_code,
1865: x_err_stage,
1866: x_err_stack);
1867: IF P_PA_DEBUG_MODE = 'Y' THEN
1868: pa_debug.g_err_stage:= 'After call to delete_draft';
1869: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1870: pa_debug.g_err_stage:= 'error code - '||x_err_code;
1871: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1872: pa_debug.g_err_stage:= 'error stage - '||x_err_stage;
1865: x_err_stage,
1866: x_err_stack);
1867: IF P_PA_DEBUG_MODE = 'Y' THEN
1868: pa_debug.g_err_stage:= 'After call to delete_draft';
1869: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1870: pa_debug.g_err_stage:= 'error code - '||x_err_code;
1871: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1872: pa_debug.g_err_stage:= 'error stage - '||x_err_stage;
1873: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1866: x_err_stack);
1867: IF P_PA_DEBUG_MODE = 'Y' THEN
1868: pa_debug.g_err_stage:= 'After call to delete_draft';
1869: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1870: pa_debug.g_err_stage:= 'error code - '||x_err_code;
1871: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1872: pa_debug.g_err_stage:= 'error stage - '||x_err_stage;
1873: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1874: END IF;
1867: IF P_PA_DEBUG_MODE = 'Y' THEN
1868: pa_debug.g_err_stage:= 'After call to delete_draft';
1869: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1870: pa_debug.g_err_stage:= 'error code - '||x_err_code;
1871: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1872: pa_debug.g_err_stage:= 'error stage - '||x_err_stage;
1873: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1874: END IF;
1875: elsif (x_err_code > 0) then
1868: pa_debug.g_err_stage:= 'After call to delete_draft';
1869: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1870: pa_debug.g_err_stage:= 'error code - '||x_err_code;
1871: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1872: pa_debug.g_err_stage:= 'error stage - '||x_err_stage;
1873: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1874: END IF;
1875: elsif (x_err_code > 0) then
1876: -- reset x_err_code
1869: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1870: pa_debug.g_err_stage:= 'error code - '||x_err_code;
1871: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1872: pa_debug.g_err_stage:= 'error stage - '||x_err_stage;
1873: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1874: END IF;
1875: elsif (x_err_code > 0) then
1876: -- reset x_err_code
1877: x_err_code := 0;
1877: x_err_code := 0;
1878:
1879: else
1880: -- if oracle error, return
1881: IF P_PA_DEBUG_MODE = 'Y' THEN
1882: pa_debug.g_err_stage:= 'Returning - 1';
1883: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1884: END IF;
1885: return;
1878:
1879: else
1880: -- if oracle error, return
1881: IF P_PA_DEBUG_MODE = 'Y' THEN
1882: pa_debug.g_err_stage:= 'Returning - 1';
1883: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1884: END IF;
1885: return;
1886: end if;
1879: else
1880: -- if oracle error, return
1881: IF P_PA_DEBUG_MODE = 'Y' THEN
1882: pa_debug.g_err_stage:= 'Returning - 1';
1883: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1884: END IF;
1885: return;
1886: end if;
1887:
2018: decode(x_budget_type_code,'AC','Y','N'),
2019: decode(x_budget_type_code,'AR','Y','N')
2020: from sys.dual;
2021:
2022: IF P_PA_DEBUG_MODE = 'Y' THEN
2023: pa_debug.g_err_stage:= 'End of pa_budget create_draft';
2024: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2025: END IF;
2026:
2019: decode(x_budget_type_code,'AR','Y','N')
2020: from sys.dual;
2021:
2022: IF P_PA_DEBUG_MODE = 'Y' THEN
2023: pa_debug.g_err_stage:= 'End of pa_budget create_draft';
2024: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2025: END IF;
2026:
2027: x_err_stack := old_stack;
2020: from sys.dual;
2021:
2022: IF P_PA_DEBUG_MODE = 'Y' THEN
2023: pa_debug.g_err_stage:= 'End of pa_budget create_draft';
2024: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2025: END IF;
2026:
2027: x_err_stack := old_stack;
2028: pa_debug.reset_err_stack;
2024: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2025: END IF;
2026:
2027: x_err_stack := old_stack;
2028: pa_debug.reset_err_stack;
2029:
2030: exception
2031: when others then
2032: x_err_code := SQLCODE;
2150: x_err_code := 0;
2151: old_stack := x_err_stack;
2152: x_err_stack := x_err_stack || '->create_line';
2153:
2154: IF p_pa_debug_mode = 'Y' THEN
2155: pa_debug.set_err_stack('PA_BUDGET_UTILS.CREATE_LINE');
2156: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
2157: END IF;
2158: -- Bug Fix: 4569365. Removed MRC code.
2151: old_stack := x_err_stack;
2152: x_err_stack := x_err_stack || '->create_line';
2153:
2154: IF p_pa_debug_mode = 'Y' THEN
2155: pa_debug.set_err_stack('PA_BUDGET_UTILS.CREATE_LINE');
2156: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
2157: END IF;
2158: -- Bug Fix: 4569365. Removed MRC code.
2159: /* FPB2: MRC */
2152: x_err_stack := x_err_stack || '->create_line';
2153:
2154: IF p_pa_debug_mode = 'Y' THEN
2155: pa_debug.set_err_stack('PA_BUDGET_UTILS.CREATE_LINE');
2156: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
2157: END IF;
2158: -- Bug Fix: 4569365. Removed MRC code.
2159: /* FPB2: MRC */
2160: /*
2189: and NVL(task_id, 0) = NVL(x_task_id, 0)
2190: and resource_list_member_id = x_resource_list_member_id
2191: AND NVL(CBS_ELEMENT_ID,-1)=NVL(X_CBS_ELEMENT_ID,-1); --Bug 16604257
2192:
2193: IF P_PA_DEBUG_MODE = 'Y' THEN
2194: pa_debug.g_err_stage:= 'Resource assignment id - '||x_resource_assignment_id;
2195: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2196: END IF;
2197:
2190: and resource_list_member_id = x_resource_list_member_id
2191: AND NVL(CBS_ELEMENT_ID,-1)=NVL(X_CBS_ELEMENT_ID,-1); --Bug 16604257
2192:
2193: IF P_PA_DEBUG_MODE = 'Y' THEN
2194: pa_debug.g_err_stage:= 'Resource assignment id - '||x_resource_assignment_id;
2195: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2196: END IF;
2197:
2198: exception
2191: AND NVL(CBS_ELEMENT_ID,-1)=NVL(X_CBS_ELEMENT_ID,-1); --Bug 16604257
2192:
2193: IF P_PA_DEBUG_MODE = 'Y' THEN
2194: pa_debug.g_err_stage:= 'Resource assignment id - '||x_resource_assignment_id;
2195: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2196: END IF;
2197:
2198: exception
2199: when NO_DATA_FOUND then
2202: || to_char(x_project_id) || '><'
2203: || to_char(x_task_id) || '><'
2204: || to_char(x_resource_list_member_id)
2205: || '>';
2206: IF P_PA_DEBUG_MODE = 'Y' THEN
2207: pa_debug.g_err_stage:= 'No data found';
2208: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2209: END IF;
2210:
2203: || to_char(x_task_id) || '><'
2204: || to_char(x_resource_list_member_id)
2205: || '>';
2206: IF P_PA_DEBUG_MODE = 'Y' THEN
2207: pa_debug.g_err_stage:= 'No data found';
2208: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2209: END IF;
2210:
2211: select pa_resource_assignments_s.nextval
2204: || to_char(x_resource_list_member_id)
2205: || '>';
2206: IF P_PA_DEBUG_MODE = 'Y' THEN
2207: pa_debug.g_err_stage:= 'No data found';
2208: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2209: END IF;
2210:
2211: select pa_resource_assignments_s.nextval
2212: into x_resource_assignment_id
2211: select pa_resource_assignments_s.nextval
2212: into x_resource_assignment_id
2213: from sys.dual;
2214:
2215: IF P_PA_DEBUG_MODE = 'Y' THEN
2216: pa_debug.g_err_stage:= 'Resource assignment id - '||x_resource_assignment_id;
2217: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2218: END IF;
2219:
2212: into x_resource_assignment_id
2213: from sys.dual;
2214:
2215: IF P_PA_DEBUG_MODE = 'Y' THEN
2216: pa_debug.g_err_stage:= 'Resource assignment id - '||x_resource_assignment_id;
2217: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2218: END IF;
2219:
2220: -- create a new resource assignment
2213: from sys.dual;
2214:
2215: IF P_PA_DEBUG_MODE = 'Y' THEN
2216: pa_debug.g_err_stage:= 'Resource assignment id - '||x_resource_assignment_id;
2217: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2218: END IF;
2219:
2220: -- create a new resource assignment
2221: insert into pa_resource_assignments
2251: 'USER_ENTERED');
2252:
2253: when others then
2254: x_err_code := SQLCODE;
2255: IF P_PA_DEBUG_MODE = 'Y' THEN
2256: pa_debug.g_err_stage:= 'When others'||substr(SQLERRM,1,100);
2257: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2258: END IF;
2259: return;
2252:
2253: when others then
2254: x_err_code := SQLCODE;
2255: IF P_PA_DEBUG_MODE = 'Y' THEN
2256: pa_debug.g_err_stage:= 'When others'||substr(SQLERRM,1,100);
2257: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2258: END IF;
2259: return;
2260: end ;
2253: when others then
2254: x_err_code := SQLCODE;
2255: IF P_PA_DEBUG_MODE = 'Y' THEN
2256: pa_debug.g_err_stage:= 'When others'||substr(SQLERRM,1,100);
2257: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2258: END IF;
2259: return;
2260: end ;
2261:
2299: end if;
2300:
2301:
2302: -- Get Project Currency Information for INSERT
2303: IF P_PA_DEBUG_MODE = 'Y' THEN
2304: pa_debug.g_err_stage:= 'Calling Get_Project_Currency_Info';
2305: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2306: END IF;
2307: PA_BUDGET_UTILS.Get_Project_Currency_Info
2300:
2301:
2302: -- Get Project Currency Information for INSERT
2303: IF P_PA_DEBUG_MODE = 'Y' THEN
2304: pa_debug.g_err_stage:= 'Calling Get_Project_Currency_Info';
2305: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2306: END IF;
2307: PA_BUDGET_UTILS.Get_Project_Currency_Info
2308: (
2301:
2302: -- Get Project Currency Information for INSERT
2303: IF P_PA_DEBUG_MODE = 'Y' THEN
2304: pa_debug.g_err_stage:= 'Calling Get_Project_Currency_Info';
2305: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2306: END IF;
2307: PA_BUDGET_UTILS.Get_Project_Currency_Info
2308: (
2309: p_project_id => x_project_id
2323: THEN
2324: RAISE FND_API.G_EXC_ERROR;
2325: END IF;
2326:
2327: IF P_PA_DEBUG_MODE = 'Y' THEN
2328: pa_debug.g_err_stage:= 'l_return_status is - '||l_return_status;
2329: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2330: END IF;
2331:
2324: RAISE FND_API.G_EXC_ERROR;
2325: END IF;
2326:
2327: IF P_PA_DEBUG_MODE = 'Y' THEN
2328: pa_debug.g_err_stage:= 'l_return_status is - '||l_return_status;
2329: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2330: END IF;
2331:
2332: /* FPB2 */
2325: END IF;
2326:
2327: IF P_PA_DEBUG_MODE = 'Y' THEN
2328: pa_debug.g_err_stage:= 'l_return_status is - '||l_return_status;
2329: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2330: END IF;
2331:
2332: /* FPB2 */
2333: SELECT pa_budget_lines_s.nextval
2333: SELECT pa_budget_lines_s.nextval
2334: INTO l_budget_line_id
2335: FROM DUAL;
2336:
2337: IF P_PA_DEBUG_MODE = 'Y' THEN
2338: pa_debug.g_err_stage:= 'l_budget_line_id is - '||l_budget_line_id;
2339: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2340: END IF;
2341:
2334: INTO l_budget_line_id
2335: FROM DUAL;
2336:
2337: IF P_PA_DEBUG_MODE = 'Y' THEN
2338: pa_debug.g_err_stage:= 'l_budget_line_id is - '||l_budget_line_id;
2339: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2340: END IF;
2341:
2342: insert into pa_budget_lines
2335: FROM DUAL;
2336:
2337: IF P_PA_DEBUG_MODE = 'Y' THEN
2338: pa_debug.g_err_stage:= 'l_budget_line_id is - '||l_budget_line_id;
2339: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2340: END IF;
2341:
2342: insert into pa_budget_lines
2343: (budget_line_id, /* FPB2 */
2433: IF x_mrc_flag = 'Y' THEN
2434:
2435: IF PA_MRC_FINPLAN.G_MRC_ENABLED_FOR_BUDGETS IS NULL THEN
2436:
2437: IF P_PA_DEBUG_MODE = 'Y' THEN
2438: pa_debug.g_err_stage:= 'Calling check_mrc_install';
2439: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2440: END IF;
2441: PA_MRC_FINPLAN.CHECK_MRC_INSTALL
2434:
2435: IF PA_MRC_FINPLAN.G_MRC_ENABLED_FOR_BUDGETS IS NULL THEN
2436:
2437: IF P_PA_DEBUG_MODE = 'Y' THEN
2438: pa_debug.g_err_stage:= 'Calling check_mrc_install';
2439: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2440: END IF;
2441: PA_MRC_FINPLAN.CHECK_MRC_INSTALL
2442: (x_return_status => l_return_status,
2435: IF PA_MRC_FINPLAN.G_MRC_ENABLED_FOR_BUDGETS IS NULL THEN
2436:
2437: IF P_PA_DEBUG_MODE = 'Y' THEN
2438: pa_debug.g_err_stage:= 'Calling check_mrc_install';
2439: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2440: END IF;
2441: PA_MRC_FINPLAN.CHECK_MRC_INSTALL
2442: (x_return_status => l_return_status,
2443: x_msg_count => l_msg_count,
2441: PA_MRC_FINPLAN.CHECK_MRC_INSTALL
2442: (x_return_status => l_return_status,
2443: x_msg_count => l_msg_count,
2444: x_msg_data => l_msg_data);
2445: IF P_PA_DEBUG_MODE = 'Y' THEN
2446: pa_debug.g_err_stage:= 'l_return_status is -'||l_return_status;
2447: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2448: pa_debug.g_err_stage:= 'l_msg_count - '||l_msg_count;
2449: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2442: (x_return_status => l_return_status,
2443: x_msg_count => l_msg_count,
2444: x_msg_data => l_msg_data);
2445: IF P_PA_DEBUG_MODE = 'Y' THEN
2446: pa_debug.g_err_stage:= 'l_return_status is -'||l_return_status;
2447: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2448: pa_debug.g_err_stage:= 'l_msg_count - '||l_msg_count;
2449: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2450: pa_debug.g_err_stage:= 'l_msg_data - '||l_msg_data;
2443: x_msg_count => l_msg_count,
2444: x_msg_data => l_msg_data);
2445: IF P_PA_DEBUG_MODE = 'Y' THEN
2446: pa_debug.g_err_stage:= 'l_return_status is -'||l_return_status;
2447: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2448: pa_debug.g_err_stage:= 'l_msg_count - '||l_msg_count;
2449: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2450: pa_debug.g_err_stage:= 'l_msg_data - '||l_msg_data;
2451: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2444: x_msg_data => l_msg_data);
2445: IF P_PA_DEBUG_MODE = 'Y' THEN
2446: pa_debug.g_err_stage:= 'l_return_status is -'||l_return_status;
2447: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2448: pa_debug.g_err_stage:= 'l_msg_count - '||l_msg_count;
2449: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2450: pa_debug.g_err_stage:= 'l_msg_data - '||l_msg_data;
2451: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2452: END IF;
2445: IF P_PA_DEBUG_MODE = 'Y' THEN
2446: pa_debug.g_err_stage:= 'l_return_status is -'||l_return_status;
2447: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2448: pa_debug.g_err_stage:= 'l_msg_count - '||l_msg_count;
2449: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2450: pa_debug.g_err_stage:= 'l_msg_data - '||l_msg_data;
2451: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2452: END IF;
2453: END IF;
2446: pa_debug.g_err_stage:= 'l_return_status is -'||l_return_status;
2447: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2448: pa_debug.g_err_stage:= 'l_msg_count - '||l_msg_count;
2449: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2450: pa_debug.g_err_stage:= 'l_msg_data - '||l_msg_data;
2451: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2452: END IF;
2453: END IF;
2454:
2447: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2448: pa_debug.g_err_stage:= 'l_msg_count - '||l_msg_count;
2449: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2450: pa_debug.g_err_stage:= 'l_msg_data - '||l_msg_data;
2451: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2452: END IF;
2453: END IF;
2454:
2455: IF PA_MRC_FINPLAN.G_MRC_ENABLED_FOR_BUDGETS AND
2453: END IF;
2454:
2455: IF PA_MRC_FINPLAN.G_MRC_ENABLED_FOR_BUDGETS AND
2456: PA_MRC_FINPLAN.G_FINPLAN_MRC_OPTION_CODE = 'A' THEN
2457: IF P_PA_DEBUG_MODE = 'Y' THEN
2458: pa_debug.g_err_stage:= 'Calling MAINTAIN_ONE_MC_BUDGET_LINE';
2459: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2460: END IF;
2461: PA_MRC_FINPLAN.MAINTAIN_ONE_MC_BUDGET_LINE
2454:
2455: IF PA_MRC_FINPLAN.G_MRC_ENABLED_FOR_BUDGETS AND
2456: PA_MRC_FINPLAN.G_FINPLAN_MRC_OPTION_CODE = 'A' THEN
2457: IF P_PA_DEBUG_MODE = 'Y' THEN
2458: pa_debug.g_err_stage:= 'Calling MAINTAIN_ONE_MC_BUDGET_LINE';
2459: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2460: END IF;
2461: PA_MRC_FINPLAN.MAINTAIN_ONE_MC_BUDGET_LINE
2462: (p_budget_line_id => l_budget_line_id,
2455: IF PA_MRC_FINPLAN.G_MRC_ENABLED_FOR_BUDGETS AND
2456: PA_MRC_FINPLAN.G_FINPLAN_MRC_OPTION_CODE = 'A' THEN
2457: IF P_PA_DEBUG_MODE = 'Y' THEN
2458: pa_debug.g_err_stage:= 'Calling MAINTAIN_ONE_MC_BUDGET_LINE';
2459: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2460: END IF;
2461: PA_MRC_FINPLAN.MAINTAIN_ONE_MC_BUDGET_LINE
2462: (p_budget_line_id => l_budget_line_id,
2463: p_budget_version_id => x_budget_version_id,
2464: p_action => PA_MRC_FINPLAN.G_ACTION_INSERT,
2465: x_return_status => l_return_status,
2466: x_msg_count => l_msg_count,
2467: x_msg_data => l_msg_data);
2468: IF P_PA_DEBUG_MODE = 'Y' THEN
2469: pa_debug.g_err_stage:= 'l_return_status is -'||l_return_status;
2470: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2471: pa_debug.g_err_stage:= 'l_msg_count - '||l_msg_count;
2472: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2465: x_return_status => l_return_status,
2466: x_msg_count => l_msg_count,
2467: x_msg_data => l_msg_data);
2468: IF P_PA_DEBUG_MODE = 'Y' THEN
2469: pa_debug.g_err_stage:= 'l_return_status is -'||l_return_status;
2470: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2471: pa_debug.g_err_stage:= 'l_msg_count - '||l_msg_count;
2472: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2473: pa_debug.g_err_stage:= 'l_msg_data - '||l_msg_data;
2466: x_msg_count => l_msg_count,
2467: x_msg_data => l_msg_data);
2468: IF P_PA_DEBUG_MODE = 'Y' THEN
2469: pa_debug.g_err_stage:= 'l_return_status is -'||l_return_status;
2470: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2471: pa_debug.g_err_stage:= 'l_msg_count - '||l_msg_count;
2472: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2473: pa_debug.g_err_stage:= 'l_msg_data - '||l_msg_data;
2474: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2467: x_msg_data => l_msg_data);
2468: IF P_PA_DEBUG_MODE = 'Y' THEN
2469: pa_debug.g_err_stage:= 'l_return_status is -'||l_return_status;
2470: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2471: pa_debug.g_err_stage:= 'l_msg_count - '||l_msg_count;
2472: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2473: pa_debug.g_err_stage:= 'l_msg_data - '||l_msg_data;
2474: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2475: END IF;
2468: IF P_PA_DEBUG_MODE = 'Y' THEN
2469: pa_debug.g_err_stage:= 'l_return_status is -'||l_return_status;
2470: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2471: pa_debug.g_err_stage:= 'l_msg_count - '||l_msg_count;
2472: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2473: pa_debug.g_err_stage:= 'l_msg_data - '||l_msg_data;
2474: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2475: END IF;
2476: END IF;
2469: pa_debug.g_err_stage:= 'l_return_status is -'||l_return_status;
2470: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2471: pa_debug.g_err_stage:= 'l_msg_count - '||l_msg_count;
2472: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2473: pa_debug.g_err_stage:= 'l_msg_data - '||l_msg_data;
2474: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2475: END IF;
2476: END IF;
2477:
2470: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2471: pa_debug.g_err_stage:= 'l_msg_count - '||l_msg_count;
2472: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2473: pa_debug.g_err_stage:= 'l_msg_data - '||l_msg_data;
2474: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2475: END IF;
2476: END IF;
2477:
2478: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2475: END IF;
2476: END IF;
2477:
2478: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2479: IF P_PA_DEBUG_MODE = 'Y' THEN
2480: pa_debug.g_err_stage:= 'Raising g_mrc_exception';
2481: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2482: END IF;
2483: RAISE g_mrc_exception;
2476: END IF;
2477:
2478: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2479: IF P_PA_DEBUG_MODE = 'Y' THEN
2480: pa_debug.g_err_stage:= 'Raising g_mrc_exception';
2481: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2482: END IF;
2483: RAISE g_mrc_exception;
2484: END IF;
2477:
2478: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2479: IF P_PA_DEBUG_MODE = 'Y' THEN
2480: pa_debug.g_err_stage:= 'Raising g_mrc_exception';
2481: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2482: END IF;
2483: RAISE g_mrc_exception;
2484: END IF;
2485:
2486: END IF;
2487: */
2488:
2489: x_err_stack := old_stack;
2490: pa_debug.reset_err_stack;
2491:
2492: exception
2493: WHEN FND_API.G_EXC_ERROR
2494: THEN
2497: ( p_pkg_name => 'PA_BUDGET_UTILS'
2498: , p_procedure_name => 'CREATE_LINE'
2499: , p_error_text => 'ORA-'||LPAD(substr(SQLCODE,2),5,'0')
2500: );
2501: IF P_PA_DEBUG_MODE = 'Y' THEN
2502: pa_debug.g_err_stage:= 'In exception of create_line -1 '||substr(SQLERRM,1,100);
2503: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL4);
2504: END IF;
2505: RETURN;
2498: , p_procedure_name => 'CREATE_LINE'
2499: , p_error_text => 'ORA-'||LPAD(substr(SQLCODE,2),5,'0')
2500: );
2501: IF P_PA_DEBUG_MODE = 'Y' THEN
2502: pa_debug.g_err_stage:= 'In exception of create_line -1 '||substr(SQLERRM,1,100);
2503: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL4);
2504: END IF;
2505: RETURN;
2506: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2499: , p_error_text => 'ORA-'||LPAD(substr(SQLCODE,2),5,'0')
2500: );
2501: IF P_PA_DEBUG_MODE = 'Y' THEN
2502: pa_debug.g_err_stage:= 'In exception of create_line -1 '||substr(SQLERRM,1,100);
2503: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL4);
2504: END IF;
2505: RETURN;
2506: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2507: THEN
2505: RETURN;
2506: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2507: THEN
2508: x_err_code := SQLCODE;
2509: IF P_PA_DEBUG_MODE = 'Y' THEN
2510: pa_debug.g_err_stage:= 'In exception of create_line -2 '||substr(SQLERRM,1,100);
2511: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2512: END IF;
2513: FND_MSG_PUB.Add_Exc_Msg
2506: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2507: THEN
2508: x_err_code := SQLCODE;
2509: IF P_PA_DEBUG_MODE = 'Y' THEN
2510: pa_debug.g_err_stage:= 'In exception of create_line -2 '||substr(SQLERRM,1,100);
2511: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2512: END IF;
2513: FND_MSG_PUB.Add_Exc_Msg
2514: ( p_pkg_name => 'PA_BUDGET_UTILS'
2507: THEN
2508: x_err_code := SQLCODE;
2509: IF P_PA_DEBUG_MODE = 'Y' THEN
2510: pa_debug.g_err_stage:= 'In exception of create_line -2 '||substr(SQLERRM,1,100);
2511: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2512: END IF;
2513: FND_MSG_PUB.Add_Exc_Msg
2514: ( p_pkg_name => 'PA_BUDGET_UTILS'
2515: , p_procedure_name => 'CREATE_LINE'
2517: );
2518: RETURN;
2519: when others then
2520: x_err_code := SQLCODE;
2521: IF P_PA_DEBUG_MODE = 'Y' THEN
2522: pa_debug.g_err_stage:= 'In exception of create_line -3 '||substr(SQLERRM,1,100);
2523: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2524: END IF;
2525: return;
2518: RETURN;
2519: when others then
2520: x_err_code := SQLCODE;
2521: IF P_PA_DEBUG_MODE = 'Y' THEN
2522: pa_debug.g_err_stage:= 'In exception of create_line -3 '||substr(SQLERRM,1,100);
2523: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2524: END IF;
2525: return;
2526:
2519: when others then
2520: x_err_code := SQLCODE;
2521: IF P_PA_DEBUG_MODE = 'Y' THEN
2522: pa_debug.g_err_stage:= 'In exception of create_line -3 '||substr(SQLERRM,1,100);
2523: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2524: END IF;
2525: return;
2526:
2527: end create_line;
2541: x_err_code := 0;
2542: old_stack := x_err_stack;
2543: x_err_stack := x_err_stack || '->summerize_project_totals';
2544:
2545: IF p_pa_debug_mode = 'Y' THEN
2546: pa_debug.set_err_stack('PA_BUDGET_UTILS.SUMMERIZE_PROJECT_TOTALS');
2547: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
2548: END IF;
2549:
2542: old_stack := x_err_stack;
2543: x_err_stack := x_err_stack || '->summerize_project_totals';
2544:
2545: IF p_pa_debug_mode = 'Y' THEN
2546: pa_debug.set_err_stack('PA_BUDGET_UTILS.SUMMERIZE_PROJECT_TOTALS');
2547: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
2548: END IF;
2549:
2550: x_created_by := to_number(nvl(fnd_profile.value('USER_ID'),fnd_global.user_id));
2543: x_err_stack := x_err_stack || '->summerize_project_totals';
2544:
2545: IF p_pa_debug_mode = 'Y' THEN
2546: pa_debug.set_err_stack('PA_BUDGET_UTILS.SUMMERIZE_PROJECT_TOTALS');
2547: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
2548: END IF;
2549:
2550: x_created_by := to_number(nvl(fnd_profile.value('USER_ID'),fnd_global.user_id));
2551: x_last_update_login := FND_GLOBAL.LOGIN_ID;
2553: -- Get the project_totals
2554: x_err_stage := 'get project totals <' || to_char(x_budget_version_id)
2555: || '>';
2556:
2557: IF P_PA_DEBUG_MODE = 'Y' THEN
2558: pa_debug.g_err_stage:= 'In summerize_project_amounts';
2559: pa_debug.write('summerize_project_totals: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2560: END IF;
2561:
2554: x_err_stage := 'get project totals <' || to_char(x_budget_version_id)
2555: || '>';
2556:
2557: IF P_PA_DEBUG_MODE = 'Y' THEN
2558: pa_debug.g_err_stage:= 'In summerize_project_amounts';
2559: pa_debug.write('summerize_project_totals: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2560: END IF;
2561:
2562: update pa_budget_versions v
2555: || '>';
2556:
2557: IF P_PA_DEBUG_MODE = 'Y' THEN
2558: pa_debug.g_err_stage:= 'In summerize_project_amounts';
2559: pa_debug.write('summerize_project_totals: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2560: END IF;
2561:
2562: update pa_budget_versions v
2563: set (labor_quantity,
2587: and a.resource_assignment_id = l.resource_assignment_id
2588: )
2589: where budget_version_id = x_budget_version_id;
2590:
2591: IF P_PA_DEBUG_MODE = 'Y' THEN
2592: pa_debug.g_err_stage:= 'After update';
2593: pa_debug.write('summerize_project_totals: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2594: END IF;
2595:
2588: )
2589: where budget_version_id = x_budget_version_id;
2590:
2591: IF P_PA_DEBUG_MODE = 'Y' THEN
2592: pa_debug.g_err_stage:= 'After update';
2593: pa_debug.write('summerize_project_totals: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2594: END IF;
2595:
2596: x_err_stack := old_stack;
2589: where budget_version_id = x_budget_version_id;
2590:
2591: IF P_PA_DEBUG_MODE = 'Y' THEN
2592: pa_debug.g_err_stage:= 'After update';
2593: pa_debug.write('summerize_project_totals: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2594: END IF;
2595:
2596: x_err_stack := old_stack;
2597: pa_debug.reset_err_stack;
2593: pa_debug.write('summerize_project_totals: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2594: END IF;
2595:
2596: x_err_stack := old_stack;
2597: pa_debug.reset_err_stack;
2598:
2599: exception
2600: when others then
2601: x_err_code := SQLCODE;
2598:
2599: exception
2600: when others then
2601: x_err_code := SQLCODE;
2602: IF P_PA_DEBUG_MODE = 'Y' THEN
2603: pa_debug.g_err_stage:= 'In exception of summerize_project_totals';
2604: pa_debug.write('summerize_project_totals: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2605: END IF;
2606: return;
2599: exception
2600: when others then
2601: x_err_code := SQLCODE;
2602: IF P_PA_DEBUG_MODE = 'Y' THEN
2603: pa_debug.g_err_stage:= 'In exception of summerize_project_totals';
2604: pa_debug.write('summerize_project_totals: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2605: END IF;
2606: return;
2607:
2600: when others then
2601: x_err_code := SQLCODE;
2602: IF P_PA_DEBUG_MODE = 'Y' THEN
2603: pa_debug.g_err_stage:= 'In exception of summerize_project_totals';
2604: pa_debug.write('summerize_project_totals: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2605: END IF;
2606: return;
2607:
2608: end summerize_project_totals;