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;
2149: x_err_code := 0;
2150: old_stack := x_err_stack;
2151: x_err_stack := x_err_stack || '->create_line';
2152:
2153: IF p_pa_debug_mode = 'Y' THEN
2154: pa_debug.set_err_stack('PA_BUDGET_UTILS.CREATE_LINE');
2155: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
2156: END IF;
2157: -- Bug Fix: 4569365. Removed MRC code.
2150: old_stack := x_err_stack;
2151: x_err_stack := x_err_stack || '->create_line';
2152:
2153: IF p_pa_debug_mode = 'Y' THEN
2154: pa_debug.set_err_stack('PA_BUDGET_UTILS.CREATE_LINE');
2155: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
2156: END IF;
2157: -- Bug Fix: 4569365. Removed MRC code.
2158: /* FPB2: MRC */
2151: x_err_stack := x_err_stack || '->create_line';
2152:
2153: IF p_pa_debug_mode = 'Y' THEN
2154: pa_debug.set_err_stack('PA_BUDGET_UTILS.CREATE_LINE');
2155: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
2156: END IF;
2157: -- Bug Fix: 4569365. Removed MRC code.
2158: /* FPB2: MRC */
2159: /*
2187: and project_id = x_project_id
2188: and NVL(task_id, 0) = NVL(x_task_id, 0)
2189: and resource_list_member_id = x_resource_list_member_id;
2190:
2191: IF P_PA_DEBUG_MODE = 'Y' THEN
2192: pa_debug.g_err_stage:= 'Resource assignment id - '||x_resource_assignment_id;
2193: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2194: END IF;
2195:
2188: and NVL(task_id, 0) = NVL(x_task_id, 0)
2189: and resource_list_member_id = x_resource_list_member_id;
2190:
2191: IF P_PA_DEBUG_MODE = 'Y' THEN
2192: pa_debug.g_err_stage:= 'Resource assignment id - '||x_resource_assignment_id;
2193: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2194: END IF;
2195:
2196: exception
2189: and resource_list_member_id = x_resource_list_member_id;
2190:
2191: IF P_PA_DEBUG_MODE = 'Y' THEN
2192: pa_debug.g_err_stage:= 'Resource assignment id - '||x_resource_assignment_id;
2193: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2194: END IF;
2195:
2196: exception
2197: when NO_DATA_FOUND then
2200: || to_char(x_project_id) || '><'
2201: || to_char(x_task_id) || '><'
2202: || to_char(x_resource_list_member_id)
2203: || '>';
2204: IF P_PA_DEBUG_MODE = 'Y' THEN
2205: pa_debug.g_err_stage:= 'No data found';
2206: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2207: END IF;
2208:
2201: || to_char(x_task_id) || '><'
2202: || to_char(x_resource_list_member_id)
2203: || '>';
2204: IF P_PA_DEBUG_MODE = 'Y' THEN
2205: pa_debug.g_err_stage:= 'No data found';
2206: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2207: END IF;
2208:
2209: select pa_resource_assignments_s.nextval
2202: || to_char(x_resource_list_member_id)
2203: || '>';
2204: IF P_PA_DEBUG_MODE = 'Y' THEN
2205: pa_debug.g_err_stage:= 'No data found';
2206: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2207: END IF;
2208:
2209: select pa_resource_assignments_s.nextval
2210: into x_resource_assignment_id
2209: select pa_resource_assignments_s.nextval
2210: into x_resource_assignment_id
2211: from sys.dual;
2212:
2213: IF P_PA_DEBUG_MODE = 'Y' THEN
2214: pa_debug.g_err_stage:= 'Resource assignment id - '||x_resource_assignment_id;
2215: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2216: END IF;
2217:
2210: into x_resource_assignment_id
2211: from sys.dual;
2212:
2213: IF P_PA_DEBUG_MODE = 'Y' THEN
2214: pa_debug.g_err_stage:= 'Resource assignment id - '||x_resource_assignment_id;
2215: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2216: END IF;
2217:
2218: -- create a new resource assignment
2211: from sys.dual;
2212:
2213: IF P_PA_DEBUG_MODE = 'Y' THEN
2214: pa_debug.g_err_stage:= 'Resource assignment id - '||x_resource_assignment_id;
2215: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2216: END IF;
2217:
2218: -- create a new resource assignment
2219: insert into pa_resource_assignments
2247: 'USER_ENTERED');
2248:
2249: when others then
2250: x_err_code := SQLCODE;
2251: IF P_PA_DEBUG_MODE = 'Y' THEN
2252: pa_debug.g_err_stage:= 'When others'||substr(SQLERRM,1,100);
2253: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2254: END IF;
2255: return;
2248:
2249: when others then
2250: x_err_code := SQLCODE;
2251: IF P_PA_DEBUG_MODE = 'Y' THEN
2252: pa_debug.g_err_stage:= 'When others'||substr(SQLERRM,1,100);
2253: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2254: END IF;
2255: return;
2256: end ;
2249: when others then
2250: x_err_code := SQLCODE;
2251: IF P_PA_DEBUG_MODE = 'Y' THEN
2252: pa_debug.g_err_stage:= 'When others'||substr(SQLERRM,1,100);
2253: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2254: END IF;
2255: return;
2256: end ;
2257:
2295: end if;
2296:
2297:
2298: -- Get Project Currency Information for INSERT
2299: IF P_PA_DEBUG_MODE = 'Y' THEN
2300: pa_debug.g_err_stage:= 'Calling Get_Project_Currency_Info';
2301: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2302: END IF;
2303: PA_BUDGET_UTILS.Get_Project_Currency_Info
2296:
2297:
2298: -- Get Project Currency Information for INSERT
2299: IF P_PA_DEBUG_MODE = 'Y' THEN
2300: pa_debug.g_err_stage:= 'Calling Get_Project_Currency_Info';
2301: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2302: END IF;
2303: PA_BUDGET_UTILS.Get_Project_Currency_Info
2304: (
2297:
2298: -- Get Project Currency Information for INSERT
2299: IF P_PA_DEBUG_MODE = 'Y' THEN
2300: pa_debug.g_err_stage:= 'Calling Get_Project_Currency_Info';
2301: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2302: END IF;
2303: PA_BUDGET_UTILS.Get_Project_Currency_Info
2304: (
2305: p_project_id => x_project_id
2319: THEN
2320: RAISE FND_API.G_EXC_ERROR;
2321: END IF;
2322:
2323: IF P_PA_DEBUG_MODE = 'Y' THEN
2324: pa_debug.g_err_stage:= 'l_return_status is - '||l_return_status;
2325: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2326: END IF;
2327:
2320: RAISE FND_API.G_EXC_ERROR;
2321: END IF;
2322:
2323: IF P_PA_DEBUG_MODE = 'Y' THEN
2324: pa_debug.g_err_stage:= 'l_return_status is - '||l_return_status;
2325: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2326: END IF;
2327:
2328: /* FPB2 */
2321: END IF;
2322:
2323: IF P_PA_DEBUG_MODE = 'Y' THEN
2324: pa_debug.g_err_stage:= 'l_return_status is - '||l_return_status;
2325: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2326: END IF;
2327:
2328: /* FPB2 */
2329: SELECT pa_budget_lines_s.nextval
2329: SELECT pa_budget_lines_s.nextval
2330: INTO l_budget_line_id
2331: FROM DUAL;
2332:
2333: IF P_PA_DEBUG_MODE = 'Y' THEN
2334: pa_debug.g_err_stage:= 'l_budget_line_id is - '||l_budget_line_id;
2335: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2336: END IF;
2337:
2330: INTO l_budget_line_id
2331: FROM DUAL;
2332:
2333: IF P_PA_DEBUG_MODE = 'Y' THEN
2334: pa_debug.g_err_stage:= 'l_budget_line_id is - '||l_budget_line_id;
2335: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2336: END IF;
2337:
2338: insert into pa_budget_lines
2331: FROM DUAL;
2332:
2333: IF P_PA_DEBUG_MODE = 'Y' THEN
2334: pa_debug.g_err_stage:= 'l_budget_line_id is - '||l_budget_line_id;
2335: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2336: END IF;
2337:
2338: insert into pa_budget_lines
2339: (budget_line_id, /* FPB2 */
2429: IF x_mrc_flag = 'Y' THEN
2430:
2431: IF PA_MRC_FINPLAN.G_MRC_ENABLED_FOR_BUDGETS IS NULL THEN
2432:
2433: IF P_PA_DEBUG_MODE = 'Y' THEN
2434: pa_debug.g_err_stage:= 'Calling check_mrc_install';
2435: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2436: END IF;
2437: PA_MRC_FINPLAN.CHECK_MRC_INSTALL
2430:
2431: IF PA_MRC_FINPLAN.G_MRC_ENABLED_FOR_BUDGETS IS NULL THEN
2432:
2433: IF P_PA_DEBUG_MODE = 'Y' THEN
2434: pa_debug.g_err_stage:= 'Calling check_mrc_install';
2435: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2436: END IF;
2437: PA_MRC_FINPLAN.CHECK_MRC_INSTALL
2438: (x_return_status => l_return_status,
2431: IF PA_MRC_FINPLAN.G_MRC_ENABLED_FOR_BUDGETS IS NULL THEN
2432:
2433: IF P_PA_DEBUG_MODE = 'Y' THEN
2434: pa_debug.g_err_stage:= 'Calling check_mrc_install';
2435: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2436: END IF;
2437: PA_MRC_FINPLAN.CHECK_MRC_INSTALL
2438: (x_return_status => l_return_status,
2439: x_msg_count => l_msg_count,
2437: PA_MRC_FINPLAN.CHECK_MRC_INSTALL
2438: (x_return_status => l_return_status,
2439: x_msg_count => l_msg_count,
2440: x_msg_data => l_msg_data);
2441: IF P_PA_DEBUG_MODE = 'Y' THEN
2442: pa_debug.g_err_stage:= 'l_return_status is -'||l_return_status;
2443: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2444: pa_debug.g_err_stage:= 'l_msg_count - '||l_msg_count;
2445: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2438: (x_return_status => l_return_status,
2439: x_msg_count => l_msg_count,
2440: x_msg_data => l_msg_data);
2441: IF P_PA_DEBUG_MODE = 'Y' THEN
2442: pa_debug.g_err_stage:= 'l_return_status is -'||l_return_status;
2443: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2444: pa_debug.g_err_stage:= 'l_msg_count - '||l_msg_count;
2445: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2446: pa_debug.g_err_stage:= 'l_msg_data - '||l_msg_data;
2439: x_msg_count => l_msg_count,
2440: x_msg_data => l_msg_data);
2441: IF P_PA_DEBUG_MODE = 'Y' THEN
2442: pa_debug.g_err_stage:= 'l_return_status is -'||l_return_status;
2443: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2444: pa_debug.g_err_stage:= 'l_msg_count - '||l_msg_count;
2445: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2446: pa_debug.g_err_stage:= 'l_msg_data - '||l_msg_data;
2447: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2440: x_msg_data => l_msg_data);
2441: IF P_PA_DEBUG_MODE = 'Y' THEN
2442: pa_debug.g_err_stage:= 'l_return_status is -'||l_return_status;
2443: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2444: pa_debug.g_err_stage:= 'l_msg_count - '||l_msg_count;
2445: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2446: pa_debug.g_err_stage:= 'l_msg_data - '||l_msg_data;
2447: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2448: END IF;
2441: IF P_PA_DEBUG_MODE = 'Y' THEN
2442: pa_debug.g_err_stage:= 'l_return_status is -'||l_return_status;
2443: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2444: pa_debug.g_err_stage:= 'l_msg_count - '||l_msg_count;
2445: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2446: pa_debug.g_err_stage:= 'l_msg_data - '||l_msg_data;
2447: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2448: END IF;
2449: END IF;
2442: pa_debug.g_err_stage:= 'l_return_status is -'||l_return_status;
2443: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2444: pa_debug.g_err_stage:= 'l_msg_count - '||l_msg_count;
2445: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2446: pa_debug.g_err_stage:= 'l_msg_data - '||l_msg_data;
2447: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2448: END IF;
2449: END IF;
2450:
2443: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2444: pa_debug.g_err_stage:= 'l_msg_count - '||l_msg_count;
2445: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2446: pa_debug.g_err_stage:= 'l_msg_data - '||l_msg_data;
2447: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2448: END IF;
2449: END IF;
2450:
2451: IF PA_MRC_FINPLAN.G_MRC_ENABLED_FOR_BUDGETS AND
2449: END IF;
2450:
2451: IF PA_MRC_FINPLAN.G_MRC_ENABLED_FOR_BUDGETS AND
2452: PA_MRC_FINPLAN.G_FINPLAN_MRC_OPTION_CODE = 'A' THEN
2453: IF P_PA_DEBUG_MODE = 'Y' THEN
2454: pa_debug.g_err_stage:= 'Calling MAINTAIN_ONE_MC_BUDGET_LINE';
2455: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2456: END IF;
2457: PA_MRC_FINPLAN.MAINTAIN_ONE_MC_BUDGET_LINE
2450:
2451: IF PA_MRC_FINPLAN.G_MRC_ENABLED_FOR_BUDGETS AND
2452: PA_MRC_FINPLAN.G_FINPLAN_MRC_OPTION_CODE = 'A' THEN
2453: IF P_PA_DEBUG_MODE = 'Y' THEN
2454: pa_debug.g_err_stage:= 'Calling MAINTAIN_ONE_MC_BUDGET_LINE';
2455: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2456: END IF;
2457: PA_MRC_FINPLAN.MAINTAIN_ONE_MC_BUDGET_LINE
2458: (p_budget_line_id => l_budget_line_id,
2451: IF PA_MRC_FINPLAN.G_MRC_ENABLED_FOR_BUDGETS AND
2452: PA_MRC_FINPLAN.G_FINPLAN_MRC_OPTION_CODE = 'A' THEN
2453: IF P_PA_DEBUG_MODE = 'Y' THEN
2454: pa_debug.g_err_stage:= 'Calling MAINTAIN_ONE_MC_BUDGET_LINE';
2455: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2456: END IF;
2457: PA_MRC_FINPLAN.MAINTAIN_ONE_MC_BUDGET_LINE
2458: (p_budget_line_id => l_budget_line_id,
2459: p_budget_version_id => x_budget_version_id,
2460: p_action => PA_MRC_FINPLAN.G_ACTION_INSERT,
2461: x_return_status => l_return_status,
2462: x_msg_count => l_msg_count,
2463: x_msg_data => l_msg_data);
2464: IF P_PA_DEBUG_MODE = 'Y' THEN
2465: pa_debug.g_err_stage:= 'l_return_status is -'||l_return_status;
2466: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2467: pa_debug.g_err_stage:= 'l_msg_count - '||l_msg_count;
2468: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2461: x_return_status => l_return_status,
2462: x_msg_count => l_msg_count,
2463: x_msg_data => l_msg_data);
2464: IF P_PA_DEBUG_MODE = 'Y' THEN
2465: pa_debug.g_err_stage:= 'l_return_status is -'||l_return_status;
2466: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2467: pa_debug.g_err_stage:= 'l_msg_count - '||l_msg_count;
2468: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2469: pa_debug.g_err_stage:= 'l_msg_data - '||l_msg_data;
2462: x_msg_count => l_msg_count,
2463: x_msg_data => l_msg_data);
2464: IF P_PA_DEBUG_MODE = 'Y' THEN
2465: pa_debug.g_err_stage:= 'l_return_status is -'||l_return_status;
2466: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2467: pa_debug.g_err_stage:= 'l_msg_count - '||l_msg_count;
2468: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2469: pa_debug.g_err_stage:= 'l_msg_data - '||l_msg_data;
2470: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2463: x_msg_data => l_msg_data);
2464: IF P_PA_DEBUG_MODE = 'Y' THEN
2465: pa_debug.g_err_stage:= 'l_return_status is -'||l_return_status;
2466: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2467: pa_debug.g_err_stage:= 'l_msg_count - '||l_msg_count;
2468: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2469: pa_debug.g_err_stage:= 'l_msg_data - '||l_msg_data;
2470: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2471: END IF;
2464: IF P_PA_DEBUG_MODE = 'Y' THEN
2465: pa_debug.g_err_stage:= 'l_return_status is -'||l_return_status;
2466: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2467: pa_debug.g_err_stage:= 'l_msg_count - '||l_msg_count;
2468: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2469: pa_debug.g_err_stage:= 'l_msg_data - '||l_msg_data;
2470: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2471: END IF;
2472: END IF;
2465: pa_debug.g_err_stage:= 'l_return_status is -'||l_return_status;
2466: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2467: pa_debug.g_err_stage:= 'l_msg_count - '||l_msg_count;
2468: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2469: pa_debug.g_err_stage:= 'l_msg_data - '||l_msg_data;
2470: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2471: END IF;
2472: END IF;
2473:
2466: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2467: pa_debug.g_err_stage:= 'l_msg_count - '||l_msg_count;
2468: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2469: pa_debug.g_err_stage:= 'l_msg_data - '||l_msg_data;
2470: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2471: END IF;
2472: END IF;
2473:
2474: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2471: END IF;
2472: END IF;
2473:
2474: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2475: IF P_PA_DEBUG_MODE = 'Y' THEN
2476: pa_debug.g_err_stage:= 'Raising g_mrc_exception';
2477: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2478: END IF;
2479: RAISE g_mrc_exception;
2472: END IF;
2473:
2474: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2475: IF P_PA_DEBUG_MODE = 'Y' THEN
2476: pa_debug.g_err_stage:= 'Raising g_mrc_exception';
2477: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2478: END IF;
2479: RAISE g_mrc_exception;
2480: END IF;
2473:
2474: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2475: IF P_PA_DEBUG_MODE = 'Y' THEN
2476: pa_debug.g_err_stage:= 'Raising g_mrc_exception';
2477: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2478: END IF;
2479: RAISE g_mrc_exception;
2480: END IF;
2481:
2482: END IF;
2483: */
2484:
2485: x_err_stack := old_stack;
2486: pa_debug.reset_err_stack;
2487:
2488: exception
2489: WHEN FND_API.G_EXC_ERROR
2490: THEN
2493: ( p_pkg_name => 'PA_BUDGET_UTILS'
2494: , p_procedure_name => 'CREATE_LINE'
2495: , p_error_text => 'ORA-'||LPAD(substr(SQLCODE,2),5,'0')
2496: );
2497: IF P_PA_DEBUG_MODE = 'Y' THEN
2498: pa_debug.g_err_stage:= 'In exception of create_line -1 '||substr(SQLERRM,1,100);
2499: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL4);
2500: END IF;
2501: RETURN;
2494: , p_procedure_name => 'CREATE_LINE'
2495: , p_error_text => 'ORA-'||LPAD(substr(SQLCODE,2),5,'0')
2496: );
2497: IF P_PA_DEBUG_MODE = 'Y' THEN
2498: pa_debug.g_err_stage:= 'In exception of create_line -1 '||substr(SQLERRM,1,100);
2499: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL4);
2500: END IF;
2501: RETURN;
2502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2495: , p_error_text => 'ORA-'||LPAD(substr(SQLCODE,2),5,'0')
2496: );
2497: IF P_PA_DEBUG_MODE = 'Y' THEN
2498: pa_debug.g_err_stage:= 'In exception of create_line -1 '||substr(SQLERRM,1,100);
2499: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL4);
2500: END IF;
2501: RETURN;
2502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2503: THEN
2501: RETURN;
2502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2503: THEN
2504: x_err_code := SQLCODE;
2505: IF P_PA_DEBUG_MODE = 'Y' THEN
2506: pa_debug.g_err_stage:= 'In exception of create_line -2 '||substr(SQLERRM,1,100);
2507: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2508: END IF;
2509: FND_MSG_PUB.Add_Exc_Msg
2502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2503: THEN
2504: x_err_code := SQLCODE;
2505: IF P_PA_DEBUG_MODE = 'Y' THEN
2506: pa_debug.g_err_stage:= 'In exception of create_line -2 '||substr(SQLERRM,1,100);
2507: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2508: END IF;
2509: FND_MSG_PUB.Add_Exc_Msg
2510: ( p_pkg_name => 'PA_BUDGET_UTILS'
2503: THEN
2504: x_err_code := SQLCODE;
2505: IF P_PA_DEBUG_MODE = 'Y' THEN
2506: pa_debug.g_err_stage:= 'In exception of create_line -2 '||substr(SQLERRM,1,100);
2507: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2508: END IF;
2509: FND_MSG_PUB.Add_Exc_Msg
2510: ( p_pkg_name => 'PA_BUDGET_UTILS'
2511: , p_procedure_name => 'CREATE_LINE'
2513: );
2514: RETURN;
2515: when others then
2516: x_err_code := SQLCODE;
2517: IF P_PA_DEBUG_MODE = 'Y' THEN
2518: pa_debug.g_err_stage:= 'In exception of create_line -3 '||substr(SQLERRM,1,100);
2519: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2520: END IF;
2521: return;
2514: RETURN;
2515: when others then
2516: x_err_code := SQLCODE;
2517: IF P_PA_DEBUG_MODE = 'Y' THEN
2518: pa_debug.g_err_stage:= 'In exception of create_line -3 '||substr(SQLERRM,1,100);
2519: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2520: END IF;
2521: return;
2522:
2515: when others then
2516: x_err_code := SQLCODE;
2517: IF P_PA_DEBUG_MODE = 'Y' THEN
2518: pa_debug.g_err_stage:= 'In exception of create_line -3 '||substr(SQLERRM,1,100);
2519: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2520: END IF;
2521: return;
2522:
2523: end create_line;
2537: x_err_code := 0;
2538: old_stack := x_err_stack;
2539: x_err_stack := x_err_stack || '->summerize_project_totals';
2540:
2541: IF p_pa_debug_mode = 'Y' THEN
2542: pa_debug.set_err_stack('PA_BUDGET_UTILS.SUMMERIZE_PROJECT_TOTALS');
2543: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
2544: END IF;
2545:
2538: old_stack := x_err_stack;
2539: x_err_stack := x_err_stack || '->summerize_project_totals';
2540:
2541: IF p_pa_debug_mode = 'Y' THEN
2542: pa_debug.set_err_stack('PA_BUDGET_UTILS.SUMMERIZE_PROJECT_TOTALS');
2543: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
2544: END IF;
2545:
2546: x_created_by := to_number(nvl(fnd_profile.value('USER_ID'),fnd_global.user_id));
2539: x_err_stack := x_err_stack || '->summerize_project_totals';
2540:
2541: IF p_pa_debug_mode = 'Y' THEN
2542: pa_debug.set_err_stack('PA_BUDGET_UTILS.SUMMERIZE_PROJECT_TOTALS');
2543: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
2544: END IF;
2545:
2546: x_created_by := to_number(nvl(fnd_profile.value('USER_ID'),fnd_global.user_id));
2547: x_last_update_login := FND_GLOBAL.LOGIN_ID;
2549: -- Get the project_totals
2550: x_err_stage := 'get project totals <' || to_char(x_budget_version_id)
2551: || '>';
2552:
2553: IF P_PA_DEBUG_MODE = 'Y' THEN
2554: pa_debug.g_err_stage:= 'In summerize_project_amounts';
2555: pa_debug.write('summerize_project_totals: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2556: END IF;
2557:
2550: x_err_stage := 'get project totals <' || to_char(x_budget_version_id)
2551: || '>';
2552:
2553: IF P_PA_DEBUG_MODE = 'Y' THEN
2554: pa_debug.g_err_stage:= 'In summerize_project_amounts';
2555: pa_debug.write('summerize_project_totals: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2556: END IF;
2557:
2558: update pa_budget_versions v
2551: || '>';
2552:
2553: IF P_PA_DEBUG_MODE = 'Y' THEN
2554: pa_debug.g_err_stage:= 'In summerize_project_amounts';
2555: pa_debug.write('summerize_project_totals: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2556: END IF;
2557:
2558: update pa_budget_versions v
2559: set (labor_quantity,
2583: and a.resource_assignment_id = l.resource_assignment_id
2584: )
2585: where budget_version_id = x_budget_version_id;
2586:
2587: IF P_PA_DEBUG_MODE = 'Y' THEN
2588: pa_debug.g_err_stage:= 'After update';
2589: pa_debug.write('summerize_project_totals: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2590: END IF;
2591:
2584: )
2585: where budget_version_id = x_budget_version_id;
2586:
2587: IF P_PA_DEBUG_MODE = 'Y' THEN
2588: pa_debug.g_err_stage:= 'After update';
2589: pa_debug.write('summerize_project_totals: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2590: END IF;
2591:
2592: x_err_stack := old_stack;
2585: where budget_version_id = x_budget_version_id;
2586:
2587: IF P_PA_DEBUG_MODE = 'Y' THEN
2588: pa_debug.g_err_stage:= 'After update';
2589: pa_debug.write('summerize_project_totals: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2590: END IF;
2591:
2592: x_err_stack := old_stack;
2593: pa_debug.reset_err_stack;
2589: pa_debug.write('summerize_project_totals: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2590: END IF;
2591:
2592: x_err_stack := old_stack;
2593: pa_debug.reset_err_stack;
2594:
2595: exception
2596: when others then
2597: x_err_code := SQLCODE;
2594:
2595: exception
2596: when others then
2597: x_err_code := SQLCODE;
2598: IF P_PA_DEBUG_MODE = 'Y' THEN
2599: pa_debug.g_err_stage:= 'In exception of summerize_project_totals';
2600: pa_debug.write('summerize_project_totals: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2601: END IF;
2602: return;
2595: exception
2596: when others then
2597: x_err_code := SQLCODE;
2598: IF P_PA_DEBUG_MODE = 'Y' THEN
2599: pa_debug.g_err_stage:= 'In exception of summerize_project_totals';
2600: pa_debug.write('summerize_project_totals: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2601: END IF;
2602: return;
2603:
2596: when others then
2597: x_err_code := SQLCODE;
2598: IF P_PA_DEBUG_MODE = 'Y' THEN
2599: pa_debug.g_err_stage:= 'In exception of summerize_project_totals';
2600: pa_debug.write('summerize_project_totals: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2601: END IF;
2602: return;
2603:
2604: end summerize_project_totals;