132: l_period_idx NUMBER;
133: l_curr_period_name gl_periods.period_name%TYPE;
134: l_period_names JA_CN_CFS_CALCULATE_PKG.G_PERIOD_NAME_TBL;
135:
136: l_dbg_level NUMBER :=FND_LOG.G_Current_Runtime_Level;
137: l_proc_level NUMBER :=FND_LOG.Level_Procedure;
138: l_proc_name VARCHAR2(100) :='Populate_Period_Names';
139:
140:
133: l_curr_period_name gl_periods.period_name%TYPE;
134: l_period_names JA_CN_CFS_CALCULATE_PKG.G_PERIOD_NAME_TBL;
135:
136: l_dbg_level NUMBER :=FND_LOG.G_Current_Runtime_Level;
137: l_proc_level NUMBER :=FND_LOG.Level_Procedure;
138: l_proc_name VARCHAR2(100) :='Populate_Period_Names';
139:
140:
141: BEGIN
142:
143: --log for debug
144: IF (l_proc_level >= l_dbg_level)
145: THEN
146: FND_LOG.String(l_proc_level
147: ,l_module_prefix||'.'||l_proc_name||'.begin'
148: ,'Enter procedure'
149: );
150:
147: ,l_module_prefix||'.'||l_proc_name||'.begin'
148: ,'Enter procedure'
149: );
150:
151: FND_LOG.String(l_proc_level
152: ,l_module_prefix||'.'||l_proc_name||'.parameters'
153: ,'p_ledger_id '||p_ledger_id
154: );
155:
152: ,l_module_prefix||'.'||l_proc_name||'.parameters'
153: ,'p_ledger_id '||p_ledger_id
154: );
155:
156: FND_LOG.String(l_proc_level
157: ,l_module_prefix||'.'||l_proc_name||'.parameters'
158: ,'p_period_name '||p_period_name
159: );
160:
157: ,l_module_prefix||'.'||l_proc_name||'.parameters'
158: ,'p_period_name '||p_period_name
159: );
160:
161: FND_LOG.String(l_proc_level
162: ,l_module_prefix||'.'||l_proc_name||'.parameters'
163: ,'p_balance_type '||p_balance_type
164: );
165: END IF; --(l_proc_level >= l_dbg_level)
220:
221: --log for debug
222: IF ( l_proc_level >= l_dbg_level)
223: THEN
224: FND_LOG.STRING(l_proc_level
225: ,l_module_prefix||'.'||l_proc_name||'.end'
226: ,'Exit procedure'
227: );
228: END IF; --( l_proc_level >= l_dbg_level )
230: EXCEPTION
231: WHEN OTHERS THEN
232: IF (l_proc_level >= l_dbg_level)
233: THEN
234: FND_LOG.String(l_proc_level
235: ,l_module_prefix||'.'||l_proc_name||'. Other_Exception '
236: ,SQLCODE||':'||SQLERRM
237: );
238: END IF; --(l_proc_level >= l_dbg_level)
433: AND axis_seq=l_calculated_axis_seq
434: AND cal_axis_seq=l_cal_axis_seq
435: ORDER BY calculation_seq;
436:
437: l_dbg_level NUMBER :=FND_LOG.G_Current_Runtime_Level;
438: l_proc_level NUMBER :=FND_LOG.Level_Procedure;
439: l_proc_name VARCHAR2(100) :='Populate_Formula';
440:
441:
434: AND cal_axis_seq=l_cal_axis_seq
435: ORDER BY calculation_seq;
436:
437: l_dbg_level NUMBER :=FND_LOG.G_Current_Runtime_Level;
438: l_proc_level NUMBER :=FND_LOG.Level_Procedure;
439: l_proc_name VARCHAR2(100) :='Populate_Formula';
440:
441:
442: BEGIN
443:
444: --log for debug
445: IF (l_proc_level >= l_dbg_level)
446: THEN
447: FND_LOG.String(l_proc_level
448: ,l_module_prefix||'.'||l_proc_name||'.begin'
449: ,'Enter procedure'
450: );
451:
448: ,l_module_prefix||'.'||l_proc_name||'.begin'
449: ,'Enter procedure'
450: );
451:
452: FND_LOG.String(l_proc_level
453: ,l_module_prefix||'.'||l_proc_name||'.parameters'
454: ,'p_axis_set_id '||p_axis_set_id
455: );
456: END IF; --(l_proc_level >= l_dbg_level)
799:
800: --log for debug
801: IF ( l_proc_level >= l_dbg_level)
802: THEN
803: FND_LOG.STRING(l_proc_level
804: ,l_module_prefix||'.'||l_proc_name||'.end'
805: ,'Exit procedure'
806: );
807: END IF; --( l_proc_level >= l_dbg_level )
809: EXCEPTION
810: WHEN OTHERS THEN
811: IF (l_proc_level >= l_dbg_level)
812: THEN
813: FND_LOG.String(l_proc_level
814: ,l_module_prefix||'.'||l_proc_name||'. Other_Exception '
815: ,SQLCODE||':'||SQLERRM
816: );
817: END IF; --(l_proc_level >= l_dbg_level)
931: AND calculation_flag='Y'
932: AND (type IS NULL OR type<>'E')
933: FOR UPDATE;
934:
935: l_dbg_level NUMBER :=FND_LOG.G_Current_Runtime_Level;
936: l_proc_level NUMBER :=FND_LOG.Level_Procedure;
937: l_proc_name VARCHAR2(100) :='Categorize_Rows';
938:
939: BEGIN
932: AND (type IS NULL OR type<>'E')
933: FOR UPDATE;
934:
935: l_dbg_level NUMBER :=FND_LOG.G_Current_Runtime_Level;
936: l_proc_level NUMBER :=FND_LOG.Level_Procedure;
937: l_proc_name VARCHAR2(100) :='Categorize_Rows';
938:
939: BEGIN
940:
940:
941: --log for debug
942: IF (l_proc_level >= l_dbg_level)
943: THEN
944: FND_LOG.String(l_proc_level
945: ,l_module_prefix||'.'||l_proc_name||'.begin'
946: ,'Enter procedure'
947: );
948:
945: ,l_module_prefix||'.'||l_proc_name||'.begin'
946: ,'Enter procedure'
947: );
948:
949: FND_LOG.String(l_proc_level
950: ,l_module_prefix||'.'||l_proc_name||'.parameters'
951: ,'p_coa '||p_coa
952: );
953:
950: ,l_module_prefix||'.'||l_proc_name||'.parameters'
951: ,'p_coa '||p_coa
952: );
953:
954: FND_LOG.String(l_proc_level
955: ,l_module_prefix||'.'||l_proc_name||'.parameters'
956: ,'p_axis_set_id '||p_axis_set_id
957: );
958: END IF; --(l_proc_level >= l_dbg_level)
1141:
1142: --log for debug
1143: IF ( l_proc_level >= l_dbg_level)
1144: THEN
1145: FND_LOG.STRING(l_proc_level
1146: ,l_module_prefix||'.'||l_proc_name||'.end'
1147: ,'Exit procedure'
1148: );
1149: END IF; --( l_proc_level >= l_dbg_level )
1151: EXCEPTION
1152: WHEN OTHERS THEN
1153: IF (l_proc_level >= l_dbg_level)
1154: THEN
1155: FND_LOG.String(l_proc_level
1156: ,l_module_prefix||'.'||l_proc_name||'. Other_Exception '
1157: ,SQLCODE||':'||SQLERRM
1158: );
1159: END IF; --(l_proc_level >= l_dbg_level)
1292: );
1293:
1294: --AND intercompany_flag LIKE decode(l_internal_trx_flag,'Y','%', 'N');
1295:
1296: l_dbg_level NUMBER :=FND_LOG.G_Current_Runtime_Level;
1297: l_proc_level NUMBER :=FND_LOG.Level_Procedure;
1298: l_proc_name VARCHAR2(100) :='Calculate_Row_Amount';
1299:
1300: BEGIN
1293:
1294: --AND intercompany_flag LIKE decode(l_internal_trx_flag,'Y','%', 'N');
1295:
1296: l_dbg_level NUMBER :=FND_LOG.G_Current_Runtime_Level;
1297: l_proc_level NUMBER :=FND_LOG.Level_Procedure;
1298: l_proc_name VARCHAR2(100) :='Calculate_Row_Amount';
1299:
1300: BEGIN
1301: l_period_count:=l_period_names.COUNT;
1301: l_period_count:=l_period_names.COUNT;
1302: --log for debug
1303: IF (l_proc_level >= l_dbg_level)
1304: THEN
1305: FND_LOG.String(l_proc_level
1306: ,l_module_prefix||'.'||l_proc_name||'.begin'
1307: ,'Enter procedure'
1308: );
1309:
1306: ,l_module_prefix||'.'||l_proc_name||'.begin'
1307: ,'Enter procedure'
1308: );
1309:
1310: FND_LOG.String(l_proc_level
1311: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1312: ,'p_legal_entity_id '||p_legal_entity_id
1313: );
1314:
1311: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1312: ,'p_legal_entity_id '||p_legal_entity_id
1313: );
1314:
1315: FND_LOG.String(l_proc_level
1316: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1317: ,'p_ledger_id '||p_ledger_id
1318: );
1319:
1316: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1317: ,'p_ledger_id '||p_ledger_id
1318: );
1319:
1320: FND_LOG.String(l_proc_level
1321: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1322: ,'p_axis_set_id '||p_axis_set_id
1323: );
1324:
1321: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1322: ,'p_axis_set_id '||p_axis_set_id
1323: );
1324:
1325: FND_LOG.String(l_proc_level
1326: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1327: ,'p_axis_seq '||p_axis_seq
1328: );
1329:
1326: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1327: ,'p_axis_seq '||p_axis_seq
1328: );
1329:
1330: FND_LOG.String(l_proc_level
1331: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1332: ,'p_period_names '
1333: );
1334:
1334:
1335:
1336: FOR l_count IN 1..l_period_count
1337: LOOP
1338: FND_LOG.String(l_proc_level
1339: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1340: ,'p_period_names'||l_count||' '||l_period_names(l_count)
1341: );
1342: END LOOP;-- FOR l_count IN 1..l_period_count
1340: ,'p_period_names'||l_count||' '||l_period_names(l_count)
1341: );
1342: END LOOP;-- FOR l_count IN 1..l_period_count
1343:
1344: FND_LOG.String(l_proc_level
1345: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1346: ,'p_rounding_option '||p_rounding_option
1347: );
1348:
1345: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1346: ,'p_rounding_option '||p_rounding_option
1347: );
1348:
1349: FND_LOG.String(l_proc_level --added for CNAO Enhancement
1350: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1351: ,'p_balancing_segment_value '||p_balancing_segment_value
1352: );
1353:
1350: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1351: ,'p_balancing_segment_value '||p_balancing_segment_value
1352: );
1353:
1354: /* FND_LOG.String(l_proc_level
1355: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1356: ,'p_internal_trx_flag '||p_internal_trx_flag
1357: );*/
1358:
1387: --log for debug
1388: IF ( l_proc_level >= l_dbg_level)
1389: THEN
1390:
1391: FND_LOG.STRING(l_proc_level
1392: ,l_module_prefix||'.'||l_proc_name||'.out'
1393: ,'x_amount '||x_amount
1394: );
1395:
1393: ,'x_amount '||x_amount
1394: );
1395:
1396:
1397: FND_LOG.STRING(l_proc_level
1398: ,l_module_prefix||'.'||l_proc_name||'.end'
1399: ,'Exit procedure'
1400: );
1401: END IF; --( l_proc_level >= l_dbg_level )
1403: EXCEPTION
1404: WHEN OTHERS THEN
1405: IF (l_proc_level >= l_dbg_level)
1406: THEN
1407: FND_LOG.String(l_proc_level
1408: ,l_module_prefix||'.'||l_proc_name||'. Other_Exception '
1409: ,SQLCODE||':'||SQLERRM
1410: );
1411: END IF; --(l_proc_level >= l_dbg_level)
1532: ja_cn_cfs_row_cgs_gt
1533: WHERE axis_set_id=l_axis_set_id
1534: AND axis_seq=l_cal_axis_seq;
1535:
1536: l_dbg_level NUMBER :=FND_LOG.G_Current_Runtime_Level;
1537: l_proc_level NUMBER :=FND_LOG.Level_Procedure;
1538: l_proc_name VARCHAR2(100) :='Calculate_Rows_Amount';
1539:
1540: BEGIN
1533: WHERE axis_set_id=l_axis_set_id
1534: AND axis_seq=l_cal_axis_seq;
1535:
1536: l_dbg_level NUMBER :=FND_LOG.G_Current_Runtime_Level;
1537: l_proc_level NUMBER :=FND_LOG.Level_Procedure;
1538: l_proc_name VARCHAR2(100) :='Calculate_Rows_Amount';
1539:
1540: BEGIN
1541:
1541:
1542: --log for debug
1543: IF (l_proc_level >= l_dbg_level)
1544: THEN
1545: FND_LOG.String(l_proc_level
1546: ,l_module_prefix||'.'||l_proc_name||'.begin'
1547: ,'Enter procedure'
1548: );
1549:
1546: ,l_module_prefix||'.'||l_proc_name||'.begin'
1547: ,'Enter procedure'
1548: );
1549:
1550: FND_LOG.String(l_proc_level
1551: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1552: ,'p_legal_entity_id '||p_legal_entity_id
1553: );
1554:
1551: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1552: ,'p_legal_entity_id '||p_legal_entity_id
1553: );
1554:
1555: FND_LOG.String(l_proc_level
1556: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1557: ,'p_ledger_id '||p_ledger_id
1558: );
1559:
1556: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1557: ,'p_ledger_id '||p_ledger_id
1558: );
1559:
1560: FND_LOG.String(l_proc_level
1561: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1562: ,'p_axis_set_id '||p_axis_set_id
1563: );
1564:
1561: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1562: ,'p_axis_set_id '||p_axis_set_id
1563: );
1564:
1565: FND_LOG.String(l_proc_level
1566: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1567: ,'p_period_names '
1568: );
1569:
1570: l_period_count:=l_period_names.COUNT;
1571:
1572: FOR l_count IN 1..l_period_count
1573: LOOP
1574: FND_LOG.String(l_proc_level
1575: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1576: ,'p_period_names'||l_count||' '||l_period_names(l_count)
1577: );
1578: END LOOP;-- FOR l_count IN 1..l_period_count
1576: ,'p_period_names'||l_count||' '||l_period_names(l_count)
1577: );
1578: END LOOP;-- FOR l_count IN 1..l_period_count
1579:
1580: FND_LOG.String(l_proc_level
1581: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1582: ,'p_lastyear_period_names '
1583: );
1584:
1585: l_lastyear_period_count:=l_lastyear_period_names.COUNT;
1586:
1587: FOR l_count IN 1..l_lastyear_period_count
1588: LOOP
1589: FND_LOG.String(l_proc_level
1590: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1591: ,'p_lastyear_period_names'||l_count||' '||l_lastyear_period_names(l_count)
1592: );
1593: END LOOP;-- FOR l_count IN 1..l_lastyear_period_count
1591: ,'p_lastyear_period_names'||l_count||' '||l_lastyear_period_names(l_count)
1592: );
1593: END LOOP;-- FOR l_count IN 1..l_lastyear_period_count
1594:
1595: FND_LOG.String(l_proc_level
1596: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1597: ,'p_rounding_option '||p_rounding_option
1598: );
1599:
1596: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1597: ,'p_rounding_option '||p_rounding_option
1598: );
1599:
1600: FND_LOG.String(l_proc_level --added for CNAO Enhancement
1601: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1602: ,'p_segment_override '||p_segment_override
1603: );
1604:
1601: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1602: ,'p_segment_override '||p_segment_override
1603: );
1604:
1605: /* FND_LOG.String(l_proc_level
1606: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1607: ,'p_internal_trx_flag '||p_internal_trx_flag
1608: );*/
1609:
1722:
1723: --log for debug
1724: IF ( l_proc_level >= l_dbg_level)
1725: THEN
1726: FND_LOG.STRING(l_proc_level
1727: ,l_module_prefix||'.'||l_proc_name||'.end'
1728: ,'Exit procedure'
1729: );
1730: END IF; --( l_proc_level >= l_dbg_level )
1732: EXCEPTION
1733: WHEN OTHERS THEN
1734: IF (l_proc_level >= l_dbg_level)
1735: THEN
1736: FND_LOG.String(l_proc_level
1737: ,l_module_prefix||'.'||l_proc_name||'. Other_Exception '
1738: ,SQLCODE||':'||SQLERRM
1739: );
1740: END IF; --(l_proc_level >= l_dbg_level)
1874: AND jcccg.axis_set_id=jccrcg.axis_set_id
1875: AND jcccg.cal_axis_seq=jccrcg.axis_seq
1876: ORDER BY jcccg.calculation_seq;
1877:
1878: l_dbg_level NUMBER :=FND_LOG.G_Current_Runtime_Level;
1879: l_proc_level NUMBER :=FND_LOG.Level_Procedure;
1880: l_proc_name VARCHAR2(100) :='Generate_Cfs_Xml';
1881:
1882: BEGIN
1875: AND jcccg.cal_axis_seq=jccrcg.axis_seq
1876: ORDER BY jcccg.calculation_seq;
1877:
1878: l_dbg_level NUMBER :=FND_LOG.G_Current_Runtime_Level;
1879: l_proc_level NUMBER :=FND_LOG.Level_Procedure;
1880: l_proc_name VARCHAR2(100) :='Generate_Cfs_Xml';
1881:
1882: BEGIN
1883:
1883:
1884: --log for debug
1885: IF (l_proc_level >= l_dbg_level)
1886: THEN
1887: FND_LOG.String(l_proc_level
1888: ,l_module_prefix||'.'||l_proc_name||'.begin'
1889: ,'Enter procedure'
1890: );
1891:
1888: ,l_module_prefix||'.'||l_proc_name||'.begin'
1889: ,'Enter procedure'
1890: );
1891:
1892: FND_LOG.String(l_proc_level
1893: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1894: ,'p_legal_entity_id '||p_legal_entity_id
1895: );
1896:
1893: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1894: ,'p_legal_entity_id '||p_legal_entity_id
1895: );
1896:
1897: FND_LOG.String(l_proc_level
1898: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1899: ,'p_ledger_id '||p_ledger_id
1900: );
1901:
1898: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1899: ,'p_ledger_id '||p_ledger_id
1900: );
1901:
1902: FND_LOG.String(l_proc_level
1903: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1904: ,'p_period_name '||p_period_name
1905: );
1906:
1903: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1904: ,'p_period_name '||p_period_name
1905: );
1906:
1907: FND_LOG.String(l_proc_level
1908: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1909: ,'p_axis_set_id '||p_axis_set_id
1910: );
1911:
1908: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1909: ,'p_axis_set_id '||p_axis_set_id
1910: );
1911:
1912: FND_LOG.String(l_proc_level
1913: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1914: ,'p_rounding_option '||p_rounding_option
1915: );
1916:
1913: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1914: ,'p_rounding_option '||p_rounding_option
1915: );
1916:
1917: FND_LOG.String(l_proc_level
1918: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1919: ,'p_balance_type '||p_balance_type
1920: );
1921:
1918: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1919: ,'p_balance_type '||p_balance_type
1920: );
1921:
1922: FND_LOG.String(l_proc_level --addded for CNAO Enhancement
1923: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1924: ,'p_segment_override '||p_segment_override
1925: );
1926: /* FND_LOG.String(l_proc_level
1922: FND_LOG.String(l_proc_level --addded for CNAO Enhancement
1923: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1924: ,'p_segment_override '||p_segment_override
1925: );
1926: /* FND_LOG.String(l_proc_level
1927: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1928: ,'p_internal_trx_flag '||p_internal_trx_flag
1929: );*/
1930: END IF; --(l_proc_level >= l_dbg_level)
2290:
2291: --log for debug
2292: IF ( l_proc_level >= l_dbg_level)
2293: THEN
2294: FND_LOG.STRING(l_proc_level
2295: ,l_module_prefix||'.'||l_proc_name||'.end'
2296: ,'Exit procedure'
2297: );
2298: END IF; --( l_proc_level >= l_dbg_level )
2300: EXCEPTION
2301: WHEN OTHERS THEN
2302: IF (l_proc_level >= l_dbg_level)
2303: THEN
2304: FND_LOG.String(l_proc_level
2305: ,l_module_prefix||'.'||l_proc_name||'. Other_Exception '
2306: ,SQLCODE||':'||SQLERRM
2307: );
2308: END IF; --(l_proc_level >= l_dbg_level)