92: --
93: -- Function to check existence of allocation definition
94: FUNCTION check_alloc_def
95: (
96: p_alloc_id IN gl_aloc_bas.alloc_id%TYPE
97: ,p_alloc_method IN gl_aloc_bas.alloc_method%TYPE
98: )
99: RETURN BOOLEAN ;
100: --
93: -- Function to check existence of allocation definition
94: FUNCTION check_alloc_def
95: (
96: p_alloc_id IN gl_aloc_bas.alloc_id%TYPE
97: ,p_alloc_method IN gl_aloc_bas.alloc_method%TYPE
98: )
99: RETURN BOOLEAN ;
100: --
101: FUNCTION is_fxdpct_hundred
99: RETURN BOOLEAN ;
100: --
101: FUNCTION is_fxdpct_hundred
102: (
103: p_alloc_id IN gl_aloc_bas.alloc_id%TYPE
104: )
105: RETURN BOOLEAN ;
106: --
107: FUNCTION check_record_exist
105: RETURN BOOLEAN ;
106: --
107: FUNCTION check_record_exist
108: (
109: p_alloc_id IN gl_aloc_bas.alloc_id%TYPE,
110: p_line_no IN gl_aloc_bas.line_no%TYPE
111: )
112: RETURN BOOLEAN ;
113: --
106: --
107: FUNCTION check_record_exist
108: (
109: p_alloc_id IN gl_aloc_bas.alloc_id%TYPE,
110: p_line_no IN gl_aloc_bas.line_no%TYPE
111: )
112: RETURN BOOLEAN ;
113: --
114: PROCEDURE log_msg -- Bug 2659435: Removed first param for debug level
140: --+========================================================================+
141: --| API Name : Create_Allocation_Definition |
142: --| TYPE : Public |
143: --| Function : Creates a new Allocation Definition based on the input |
144: --| into table GL_ALOC_BAS |
145: --| Pre-reqa : None. |
146: --| Parameters : |
147: --| IN : |
148: --| p_api_version IN NUMBER - Required |
339: --+========================================================================+
340: --| API Name : Update_Allocation_Definition |
341: --| TYPE : Public |
342: --| Function : Updates Allocation Definition based on the input |
343: --| into GL_ALOC_BAS |
344: --| Pre-reqa : None. |
345: --| Parameters : |
346: --| IN : |
347: --| p_api_version IN NUMBER - Required |
462: /*
463: -- Check whether any records exists for update
464: SELECT count(1)
465: INTO l_cnt
466: FROM gl_aloc_bas
467: WHERE alloc_id = l_alloc_def_rec.alloc_id
468: AND line_no = l_alloc_def_rec.line_no ;
469:
470: IF l_cnt = 0 THEN
587: --+========================================================================+
588: --| API Name : Delete_Allocation_Definition |
589: --| TYPE : Public |
590: --| Function : Deletes Allocation Definition based on the input |
591: --| from GL_ALOC_BAS |
592: --| Pre-reqa : None. |
593: --| Parameters : |
594: --| IN : |
595: --| p_api_version IN NUMBER - Required |
803: /*
804: -- Check whether any records exists to delete
805: SELECT count(1)
806: INTO l_cnt
807: FROM gl_aloc_bas
808: WHERE alloc_id = l_alloc_def_rec.alloc_id
809: AND line_no = l_alloc_def_rec.line_no ;
810:
811: IF l_cnt = 0 THEN
956: l_alloc_method NUMBER ; -- := FND_API.G_MISS_NUM ;
957: l_line_no NUMBER ; -- := FND_API.G_MISS_NUM ;
958: l_Item_Id NUMBER ; -- := FND_API.G_MISS_NUM ;
959: l_item_number mtl_item_flexfields.item_number%TYPE ; -- := FND_API.G_MISS_CHAR ;
960: l_basis_account_id gl_aloc_bas.basis_account_id%TYPE ;
961: l_basis_account_key gl_aloc_bas.basis_account_key%TYPE ; -- := FND_API.G_MISS_CHAR ;
962: l_balance_type NUMBER ; -- := FND_API.G_MISS_NUM ;
963: l_bas_ytd_ptd NUMBER ; -- := FND_API.G_MISS_NUM ;
964: l_basis_type NUMBER;
957: l_line_no NUMBER ; -- := FND_API.G_MISS_NUM ;
958: l_Item_Id NUMBER ; -- := FND_API.G_MISS_NUM ;
959: l_item_number mtl_item_flexfields.item_number%TYPE ; -- := FND_API.G_MISS_CHAR ;
960: l_basis_account_id gl_aloc_bas.basis_account_id%TYPE ;
961: l_basis_account_key gl_aloc_bas.basis_account_key%TYPE ; -- := FND_API.G_MISS_CHAR ;
962: l_balance_type NUMBER ; -- := FND_API.G_MISS_NUM ;
963: l_bas_ytd_ptd NUMBER ; -- := FND_API.G_MISS_NUM ;
964: l_basis_type NUMBER;
965: l_fixed_percent NUMBER ; -- := FND_API.G_MISS_NUM ;
1686: -- Func end of comments
1687:
1688: FUNCTION check_alloc_def
1689: (
1690: p_alloc_id IN gl_aloc_bas.alloc_id%TYPE,
1691: p_alloc_method IN gl_aloc_bas.alloc_method%TYPE
1692: )
1693: RETURN BOOLEAN
1694: IS
1687:
1688: FUNCTION check_alloc_def
1689: (
1690: p_alloc_id IN gl_aloc_bas.alloc_id%TYPE,
1691: p_alloc_method IN gl_aloc_bas.alloc_method%TYPE
1692: )
1693: RETURN BOOLEAN
1694: IS
1695: CURSOR Cur_gl_aloc_bas(p_alloc_id gl_aloc_bas.alloc_id%TYPE,
1691: p_alloc_method IN gl_aloc_bas.alloc_method%TYPE
1692: )
1693: RETURN BOOLEAN
1694: IS
1695: CURSOR Cur_gl_aloc_bas(p_alloc_id gl_aloc_bas.alloc_id%TYPE,
1696: p_alloc_method gl_aloc_bas.alloc_method%TYPE)
1697: IS
1698: SELECT distinct alloc_method
1699: FROM gl_aloc_bas
1692: )
1693: RETURN BOOLEAN
1694: IS
1695: CURSOR Cur_gl_aloc_bas(p_alloc_id gl_aloc_bas.alloc_id%TYPE,
1696: p_alloc_method gl_aloc_bas.alloc_method%TYPE)
1697: IS
1698: SELECT distinct alloc_method
1699: FROM gl_aloc_bas
1700: WHERE alloc_id = p_alloc_id
1695: CURSOR Cur_gl_aloc_bas(p_alloc_id gl_aloc_bas.alloc_id%TYPE,
1696: p_alloc_method gl_aloc_bas.alloc_method%TYPE)
1697: IS
1698: SELECT distinct alloc_method
1699: FROM gl_aloc_bas
1700: WHERE alloc_id = p_alloc_id
1701: AND delete_mark = 0;
1702:
1703: l_alloc_method gl_aloc_bas.alloc_method%TYPE ;
1699: FROM gl_aloc_bas
1700: WHERE alloc_id = p_alloc_id
1701: AND delete_mark = 0;
1702:
1703: l_alloc_method gl_aloc_bas.alloc_method%TYPE ;
1704:
1705: BEGIN
1706: OPEN Cur_gl_aloc_bas(p_alloc_id, p_alloc_method);
1707: FETCH Cur_gl_aloc_bas INTO l_alloc_method;
1702:
1703: l_alloc_method gl_aloc_bas.alloc_method%TYPE ;
1704:
1705: BEGIN
1706: OPEN Cur_gl_aloc_bas(p_alloc_id, p_alloc_method);
1707: FETCH Cur_gl_aloc_bas INTO l_alloc_method;
1708: CLOSE Cur_gl_aloc_bas;
1709:
1710: IF l_alloc_method IS NOT NULL THEN
1703: l_alloc_method gl_aloc_bas.alloc_method%TYPE ;
1704:
1705: BEGIN
1706: OPEN Cur_gl_aloc_bas(p_alloc_id, p_alloc_method);
1707: FETCH Cur_gl_aloc_bas INTO l_alloc_method;
1708: CLOSE Cur_gl_aloc_bas;
1709:
1710: IF l_alloc_method IS NOT NULL THEN
1711: IF l_alloc_method = p_alloc_method THEN
1704:
1705: BEGIN
1706: OPEN Cur_gl_aloc_bas(p_alloc_id, p_alloc_method);
1707: FETCH Cur_gl_aloc_bas INTO l_alloc_method;
1708: CLOSE Cur_gl_aloc_bas;
1709:
1710: IF l_alloc_method IS NOT NULL THEN
1711: IF l_alloc_method = p_alloc_method THEN
1712: RETURN TRUE;
1741: -- Func end of comments
1742:
1743: FUNCTION is_fxdpct_hundred
1744: (
1745: p_alloc_id IN gl_aloc_bas.alloc_id%TYPE
1746: )
1747: RETURN BOOLEAN
1748: IS
1749: CURSOR Cur_gl_aloc_bas(p_alloc_id gl_aloc_bas.alloc_id%TYPE)
1745: p_alloc_id IN gl_aloc_bas.alloc_id%TYPE
1746: )
1747: RETURN BOOLEAN
1748: IS
1749: CURSOR Cur_gl_aloc_bas(p_alloc_id gl_aloc_bas.alloc_id%TYPE)
1750: IS
1751: SELECT nvl(sum(fixed_percent),0)
1752: FROM gl_aloc_bas
1753: WHERE alloc_id = p_alloc_id
1748: IS
1749: CURSOR Cur_gl_aloc_bas(p_alloc_id gl_aloc_bas.alloc_id%TYPE)
1750: IS
1751: SELECT nvl(sum(fixed_percent),0)
1752: FROM gl_aloc_bas
1753: WHERE alloc_id = p_alloc_id
1754: AND delete_mark = 0
1755: AND alloc_method = 1 ;
1756:
1753: WHERE alloc_id = p_alloc_id
1754: AND delete_mark = 0
1755: AND alloc_method = 1 ;
1756:
1757: l_fixed_percent gl_aloc_bas.fixed_percent%TYPE ;
1758:
1759: BEGIN
1760: OPEN Cur_gl_aloc_bas(p_alloc_id);
1761: FETCH Cur_gl_aloc_bas INTO l_fixed_percent;
1756:
1757: l_fixed_percent gl_aloc_bas.fixed_percent%TYPE ;
1758:
1759: BEGIN
1760: OPEN Cur_gl_aloc_bas(p_alloc_id);
1761: FETCH Cur_gl_aloc_bas INTO l_fixed_percent;
1762: CLOSE Cur_gl_aloc_bas;
1763:
1764: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
1757: l_fixed_percent gl_aloc_bas.fixed_percent%TYPE ;
1758:
1759: BEGIN
1760: OPEN Cur_gl_aloc_bas(p_alloc_id);
1761: FETCH Cur_gl_aloc_bas INTO l_fixed_percent;
1762: CLOSE Cur_gl_aloc_bas;
1763:
1764: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
1765: log_msg('Total fixed percent : '||to_char(l_fixed_percent));
1758:
1759: BEGIN
1760: OPEN Cur_gl_aloc_bas(p_alloc_id);
1761: FETCH Cur_gl_aloc_bas INTO l_fixed_percent;
1762: CLOSE Cur_gl_aloc_bas;
1763:
1764: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
1765: log_msg('Total fixed percent : '||to_char(l_fixed_percent));
1766: END IF;
1795: -- Func end of comments
1796:
1797: FUNCTION check_record_exist
1798: (
1799: p_alloc_id IN gl_aloc_bas.alloc_id%TYPE,
1800: p_line_no IN gl_aloc_bas.line_no%TYPE
1801: )
1802: RETURN BOOLEAN
1803: IS
1796:
1797: FUNCTION check_record_exist
1798: (
1799: p_alloc_id IN gl_aloc_bas.alloc_id%TYPE,
1800: p_line_no IN gl_aloc_bas.line_no%TYPE
1801: )
1802: RETURN BOOLEAN
1803: IS
1804: CURSOR Cur_gl_aloc_bas(p_alloc_id gl_aloc_bas.alloc_id%TYPE,
1800: p_line_no IN gl_aloc_bas.line_no%TYPE
1801: )
1802: RETURN BOOLEAN
1803: IS
1804: CURSOR Cur_gl_aloc_bas(p_alloc_id gl_aloc_bas.alloc_id%TYPE,
1805: p_line_no gl_aloc_bas.line_no%TYPE)
1806: IS
1807: SELECT count(1)
1808: FROM gl_aloc_bas
1801: )
1802: RETURN BOOLEAN
1803: IS
1804: CURSOR Cur_gl_aloc_bas(p_alloc_id gl_aloc_bas.alloc_id%TYPE,
1805: p_line_no gl_aloc_bas.line_no%TYPE)
1806: IS
1807: SELECT count(1)
1808: FROM gl_aloc_bas
1809: WHERE alloc_id = p_alloc_id
1804: CURSOR Cur_gl_aloc_bas(p_alloc_id gl_aloc_bas.alloc_id%TYPE,
1805: p_line_no gl_aloc_bas.line_no%TYPE)
1806: IS
1807: SELECT count(1)
1808: FROM gl_aloc_bas
1809: WHERE alloc_id = p_alloc_id
1810: AND line_no = p_line_no ;
1811:
1812: l_count NUMBER(10) ;
1811:
1812: l_count NUMBER(10) ;
1813:
1814: BEGIN
1815: OPEN Cur_gl_aloc_bas(p_alloc_id, p_line_no);
1816: FETCH Cur_gl_aloc_bas INTO l_count;
1817: CLOSE Cur_gl_aloc_bas;
1818:
1819: IF l_count = 0 THEN
1812: l_count NUMBER(10) ;
1813:
1814: BEGIN
1815: OPEN Cur_gl_aloc_bas(p_alloc_id, p_line_no);
1816: FETCH Cur_gl_aloc_bas INTO l_count;
1817: CLOSE Cur_gl_aloc_bas;
1818:
1819: IF l_count = 0 THEN
1820: RETURN FALSE;
1813:
1814: BEGIN
1815: OPEN Cur_gl_aloc_bas(p_alloc_id, p_line_no);
1816: FETCH Cur_gl_aloc_bas INTO l_count;
1817: CLOSE Cur_gl_aloc_bas;
1818:
1819: IF l_count = 0 THEN
1820: RETURN FALSE;
1821: ELSE