[Home] [Help]
52: -- 4) Based on the elimination mode
53: -- populate GCS_INTERCO_HDR_GT
54: -- with corresponding information.
55: -- 5) Copy all the Intercompany transactions into the
56: -- GCS_ENTRY_LINES by calling Insr_Interco_Lines routine.
57: -- 6) After successful suspense plug-in insert the header
58: -- entries into the GCS_ENTRY_HEADERS table by calling
59: -- the Insert Elimination Header procedure.
60: -- 7) All the above processing has to be completed in one
445:
446: -- calling routine to insert intercompany elimination lines.
447: -- This routine inserts all eligible intercompany/intracompany
448: -- eliminations from GCS_INTERCO_ELM_TRX (dataprep temp table)
449: -- into GCS_ENTRY_LINES.
450:
451: --dbms_output.put_line ('Just before calling insert lines');
452:
453:
470:
471: fnd_log.STRING (fnd_log.level_procedure,
472: g_pkg_name || '.' || l_api_name,
473: 'Error in inserting intercompany lines into '
474: ||' GCS_ENTRY_LINES '
475: ||' SQL error message: '||SUBSTR(SQLERRM, 1, 255));
476:
477: RAISE INTERCO_LINE_ERR;
478: END IF;
553:
554: fnd_log.STRING (fnd_log.level_procedure,
555: g_pkg_name || '.' || l_api_name,
556: 'Error in inserting elimination headers '
557: ||' GCS_ENTRY_LINES '
558: ||' SQL error message: '||SUBSTR(SQLERRM, 1, 255));
559: RAISE INTERCO_ELIM_HDR_ERR;
560: End If;
561:
644: || l_lob_dim_col_name);
645:
646: END IF;
647:
648: l_sql_stmt := 'UPDATE GCS_ENTRY_LINES gel1
649: SET '||l_lob_dim_col_name||' = (SELECT
650: DECODE(
651: fcoa2.dim_attribute_numeric_member,
652: fcoa3.dim_attribute_numeric_member,
652: fcoa3.dim_attribute_numeric_member,
653: fcoa2.dim_attribute_numeric_member,
654: NVL(fcca.dim_attribute_numeric_member,
655: gel1.'||l_lob_dim_col_name||'))
656: FROM GCS_ENTRY_LINES gel,
657: fem_cctr_orgs_attr fcoa2,
658: fem_cctr_orgs_attr fcoa3,
659: fem_user_dim1_attr fcca
660: WHERE gel.entry_id = gel1.entry_id
713:
714: fnd_log.STRING (fnd_log.level_procedure,
715: g_pkg_name || '.' || l_api_name,
716: 'Updating '|| l_lob_dim_col_name
717: ||' in GCS_ENTRY_LINES with elimination LOB'
718: );
719:
720: END IF;
721:
749:
750: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
751: FND_MESSAGE.Set_Name('SQLGL','SHRD0118');
752: FND_MESSAGE.Set_Token('NUM',TO_CHAR(g_no_rows));
753: FND_MESSAGE.Set_Token('TABLE','GCS_ENTRY_LINES');
754:
755:
756: FND_LOG.String (fnd_log.level_procedure,
757: g_pkg_name || '.' || l_api_name,
1775: CURSOR threshold_conv_rate IS
1776: SELECT gihg.entry_id, gihg.threshold_currency,
1777: nvl(minimum_accountable_unit, power(10, -precision)) mau,
1778: NVL(precision,2) pres
1779: FROM GCS_INTERCO_HDR_GT gihg, GCS_ENTRY_LINES gel,
1780: fnd_currencies fnc
1781: WHERE gihg.entry_id = gel.entry_id
1782: AND gihg.currency_code <> 'STAT'
1783: AND gihg.threshold_currency <> p_currency_code
1918: MAX(SYSDATE), MAX(g_fnd_user_id),
1919: MAX(g_fnd_login_id), 'N'
1920: FROM GCS_INTERCO_HDR_GT gehg,
1921: GCS_INTERCO_RULES_TL girt,
1922: GCS_ENTRY_LINES giet
1923: WHERE gehg.entry_id = entries.entry_id
1924: AND gehg.rule_id = girt.rule_id
1925: AND girt.language = USERENV('LANG')
1926: AND gehg.entry_id = giet.entry_id(+)
2136: MAX(SYSDATE), MAX(g_fnd_user_id),
2137: MAX(g_fnd_login_id), 'N'
2138: FROM GCS_INTERCO_HDR_GT gehg,
2139: GCS_INTERCO_RULES_TL girt,
2140: GCS_ENTRY_LINES giet
2141: WHERE (gehg.currency_code = P_currency_code
2142: AND gehg.threshold_currency = P_currency_code)
2143: AND gehg.rule_id = girt.rule_id
2144: AND girt.language = USERENV('LANG')
2201: SYSDATE, g_fnd_user_id,
2202: SYSDATE, g_fnd_user_id,
2203: g_fnd_login_id, 'N'
2204: FROM GCS_INTERCO_HDR_GT gehg,
2205: GCS_ENTRY_LINES gel,
2206: GCS_INTERCO_RULES_TL girt
2207: WHERE gehg.entry_id = gel.entry_id
2208: AND gehg.currency_code = 'STAT'
2209: AND gehg.rule_id = girt.rule_id
2241: DELETE FROM gcs_entry_headers
2242: WHERE entry_id IN
2243: (SELECT gihg.entry_id from gcs_interco_hdr_gt gihg
2244: WHERE NOT EXISTS
2245: (SELECT entry_id from gcs_entry_lines geh
2246: WHERE geh.entry_id = gihg.entry_id));
2247:
2248:
2249: g_no_rows := NVL(SQL%ROWCOUNT,0);