[Home] [Help]
74: debug_print('p_balance_type :'||p_balance_type);
75:
76: IF (p_report_type = 'COST' OR p_report_type = 'RESERVE') THEN
77:
78: INSERT INTO IGI_IAC_BALANCES_REPORT
79: (Asset_ID,
80: Distribution_CCID,
81: Adjustment_CCID,
82: Category_Books_Account,
148: END IF;
149:
150: IF (p_report_type = 'COST') THEN
151:
152: INSERT INTO IGI_IAC_BALANCES_REPORT
153: (Asset_ID,
154: Distribution_CCID,
155: Adjustment_CCID,
156: Category_Books_Account,
199: END IF;
200:
201: IF (p_report_type = 'BL RESERVE' OR p_report_type = 'RESERVE') THEN
202:
203: INSERT INTO IGI_IAC_BALANCES_REPORT
204: (Asset_ID,
205: Distribution_CCID,
206: Adjustment_CCID,
207: Category_Books_Account,
296:
297: IF (l_account_type IN ('COST','GENERAL FUND','BL RESERVE') AND
298: NOT(p_report_type = 'OP EXPENSE' AND l_account_type = 'GENERAL FUND')) THEN
299:
300: INSERT INTO IGI_IAC_BALANCES_REPORT
301: (Asset_ID,
302: Distribution_CCID,
303: Adjustment_CCID,
304: Category_Books_Account,
340: END IF;
341:
342: /* IF l_account_type = 'BL RESERVE' THEN
343:
344: INSERT INTO IGI_IAC_BALANCES_REPORT
345: (Asset_ID,
346: Distribution_CCID,
347: Adjustment_CCID,
348: Category_Books_Account,
395: END IF;*/
396:
397: IF l_account_type = p_report_type THEN
398:
399: INSERT INTO IGI_IAC_BALANCES_REPORT
400: (Asset_ID,
401: Distribution_CCID,
402: Adjustment_CCID,
403: Category_Books_Account,
441:
442: -- 02-Jun-2003, mh start, update source type to retirement for all non general fund
443: -- reinstatement trxs
444:
445: /* UPDATE igi_iac_balances_report
446: SET source_type_code = 'RETIREMENT'
447: WHERE source_type_code = 'REINSTATEMENT'
448: AND data_source <> 'General Fund'; */
449:
450: -- mh end
451:
452:
453:
454: /* UPDATE igi_iac_balances_report BR
455: SET adjustment_ccid = (SELECT adjustment_ccid
456: FROM igi_iac_balances_report SUB_BR
457: WHERE SUB_BR.asset_id = BR.asset_id AND
458: SUB_BR.distribution_ccid = BR.distribution_ccid AND
452:
453:
454: /* UPDATE igi_iac_balances_report BR
455: SET adjustment_ccid = (SELECT adjustment_ccid
456: FROM igi_iac_balances_report SUB_BR
457: WHERE SUB_BR.asset_id = BR.asset_id AND
458: SUB_BR.distribution_ccid = BR.distribution_ccid AND
459: SUB_BR.display_order = DECODE(p_report_type,
460: 'REVAL RESERVE',4,
466: END IF;
467:
468: IF (p_report_type = 'RESERVE') THEN
469:
470: INSERT INTO IGI_IAC_BALANCES_REPORT
471: (Asset_id,
472: Distribution_CCID,
473: Adjustment_CCID,
474: Category_books_account,
491: FA_ASSET_HISTORY AH,
492: FA_DEPRN_DETAIL DD
493: WHERE
494: NOT EXISTS (SELECT ASSET_ID
495: FROM IGI_IAC_BALANCES_REPORT
496: WHERE ASSET_ID = DH.ASSET_ID
497: AND DISTRIBUTION_CCID = DH.CODE_COMBINATION_ID
498: AND SOURCE_TYPE_CODE = 'ADDITION'
499: AND DATA_SOURCE = 'FA')
549: debug_print('p_balance_type :'||p_balance_type);
550: debug_print('p_begin_or_end :'||p_begin_or_end);
551:
552: IF (p_report_type = 'COST' OR p_report_type = 'RESERVE') THEN
553: INSERT INTO IGI_IAC_BALANCES_REPORT
554: (Asset_ID,
555: Distribution_CCID,
556: Adjustment_CCID,
557: Category_Books_Account,
639: END IF;
640:
641: IF (p_report_type = 'COST' OR p_report_type = 'RESERVE' OR p_report_type = 'BL RESERVE') THEN
642:
643: INSERT INTO IGI_IAC_BALANCES_REPORT
644: (Asset_ID,
645: Distribution_CCID,
646: Adjustment_CCID,
647: Category_Books_Account,
742: -- mh,16/06/2003 IF NOT (p_report_type = 'OP EXPENSE' AND l_account_type = 'GENERAL FUND') THEN
743:
744: -- mh, 21/01/2004 bug 3377806 IF NOT l_account_type = 'GENERAL FUND' THEN
745:
746: INSERT INTO IGI_IAC_BALANCES_REPORT
747: (Asset_ID,
748: Distribution_CCID,
749: Adjustment_CCID,
750: Category_Books_Account,
840: 'OP EXPENSE', ICB.Operating_Expense_ccid) is not null;
841:
842: /* mh, 16/06/2003 IF (p_report_type = 'OP EXPENSE') THEN
843: -- This is required for getting the ending balance of inactive distributions
844: INSERT INTO IGI_IAC_BALANCES_REPORT
845: (Asset_ID,
846: Distribution_CCID,
847: Adjustment_CCID,
848: Category_Books_Account,
911: p_balance_type varchar2)
912: IS
913: BEGIN
914:
915: INSERT INTO IGI_IAC_BALANCES_REPORT
916: (Asset_ID,
917: Distribution_CCID,
918: Adjustment_CCID,
919: Category_Books_Account,
1157:
1158:
1159: IF (p_report_type = 'REVAL RESERVE') THEN
1160: Debug_Print('Inserting Reval Reserve records');
1161: INSERT INTO IGI_IAC_BALANCES_REPORT
1162: (Asset_ID,
1163: Distribution_CCID,
1164: Adjustment_CCID,
1165: Category_Books_Account,
1176: l_dist.reval_reserve_cost,
1177: 'Cost',
1178: 1);
1179:
1180: INSERT INTO IGI_IAC_BALANCES_REPORT
1181: (Asset_ID,
1182: Distribution_CCID,
1183: Adjustment_CCID,
1184: Category_Books_Account,
1195: l_dist.general_fund,
1196: 'General Fund',
1197: 2);
1198:
1199: INSERT INTO IGI_IAC_BALANCES_REPORT
1200: (Asset_ID,
1201: Distribution_CCID,
1202: Adjustment_CCID,
1203: Category_Books_Account,
1216: 3);
1217: END IF;
1218:
1219: IF (p_report_type = 'OP EXPENSE') THEN
1220: INSERT INTO IGI_IAC_BALANCES_REPORT
1221: (Asset_ID,
1222: Distribution_CCID,
1223: Adjustment_CCID,
1224: Category_Books_Account,
1235: l_dist.operating_acct_cost,
1236: 'Cost',
1237: 1);
1238:
1239: INSERT INTO IGI_IAC_BALANCES_REPORT
1240: (Asset_ID,
1241: Distribution_CCID,
1242: Adjustment_CCID,
1243: Category_Books_Account,
1286: CLOSE c_get_dist_ccid;
1287:
1288: IF (p_report_type = 'REVAL RESERVE') THEN
1289: Debug_Print('Inserting Reval Reserve records');
1290: INSERT INTO IGI_IAC_BALANCES_REPORT
1291: (Asset_ID,
1292: Distribution_CCID,
1293: Adjustment_CCID,
1294: Category_Books_Account,
1305: l_dist.reval_reserve_cost,
1306: 'Cost',
1307: 1);
1308:
1309: INSERT INTO IGI_IAC_BALANCES_REPORT
1310: (Asset_ID,
1311: Distribution_CCID,
1312: Adjustment_CCID,
1313: Category_Books_Account,
1324: l_dist.general_fund,
1325: 'General Fund',
1326: 2);
1327:
1328: INSERT INTO IGI_IAC_BALANCES_REPORT
1329: (Asset_ID,
1330: Distribution_CCID,
1331: Adjustment_CCID,
1332: Category_Books_Account,
1345: 3);
1346: END IF;
1347:
1348: IF (p_report_type = 'OP EXPENSE') THEN
1349: INSERT INTO IGI_IAC_BALANCES_REPORT
1350: (Asset_ID,
1351: Distribution_CCID,
1352: Adjustment_CCID,
1353: Category_Books_Account,
1364: l_dist.operating_acct_cost,
1365: 'Cost',
1366: 1);
1367:
1368: INSERT INTO IGI_IAC_BALANCES_REPORT
1369: (Asset_ID,
1370: Distribution_CCID,
1371: Adjustment_CCID,
1372: Category_Books_Account,
1416: CLOSE c_get_dist_ccid;
1417:
1418: IF (p_report_type = 'REVAL RESERVE') THEN
1419: Debug_Print('Inserting Reval Reserve records');
1420: INSERT INTO IGI_IAC_BALANCES_REPORT
1421: (Asset_ID,
1422: Distribution_CCID,
1423: Adjustment_CCID,
1424: Category_Books_Account,
1435: l_dist.reval_reserve_cost,
1436: 'Cost',
1437: 1);
1438:
1439: INSERT INTO IGI_IAC_BALANCES_REPORT
1440: (Asset_ID,
1441: Distribution_CCID,
1442: Adjustment_CCID,
1443: Category_Books_Account,
1454: l_dist.general_fund,
1455: 'General Fund',
1456: 2);
1457:
1458: INSERT INTO IGI_IAC_BALANCES_REPORT
1459: (Asset_ID,
1460: Distribution_CCID,
1461: Adjustment_CCID,
1462: Category_Books_Account,
1475: 3);
1476: END IF;
1477:
1478: IF (p_report_type = 'OP EXPENSE') THEN
1479: INSERT INTO IGI_IAC_BALANCES_REPORT
1480: (Asset_ID,
1481: Distribution_CCID,
1482: Adjustment_CCID,
1483: Category_Books_Account,
1494: l_dist.operating_acct_cost,
1495: 'Cost',
1496: 1);
1497:
1498: INSERT INTO IGI_IAC_BALANCES_REPORT
1499: (Asset_ID,
1500: Distribution_CCID,
1501: Adjustment_CCID,
1502: Category_Books_Account,
1548: l_cc_segment number;
1549:
1550: CURSOR c_get_balances IS
1551: SELECT rowid,ibr.*
1552: FROM igi_iac_balances_report ibr;
1553: PRAGMA AUTONOMOUS_TRANSACTION;
1554:
1555: PROCEDURE Get_Company_CostCtr(
1556: appl_short_name IN VARCHAR2,
1666: l_balance_type := 'CR';
1667: END IF;
1668:
1669: Debug_Print('Before processing for Delete');
1670: DELETE FROM igi_iac_balances_report;
1671:
1672: Debug_Print('Before processing for beginning balances');
1673: Get_Balance(
1674: p_book => p_book,
1726: p_balance_type => l_balance_type);
1727:
1728: END IF;
1729:
1730: DELETE FROM igi_iac_balances_report
1731: WHERE amount = 0;
1732:
1733: SELECT SOB.Chart_of_Accounts_ID
1734: INTO l_chart_of_accounts_id
1787: l_account_segment);
1788:
1789: END IF;
1790:
1791: UPDATE igi_iac_balances_report
1792: SET company = l_company,
1793: cost_center = l_cost_ctr,
1794: account = l_account
1795: WHERE rowid = l_balance.rowid;