6: --Private Methods Declarations
7: -----------------------------------------
8:
9: TYPE ATTRIBUTE1_TBL IS TABLE OF
10: ZX_REP_TRX_JX_EXT_T.ATTRIBUTE1%TYPE INDEX BY BINARY_INTEGER;
11:
12: TYPE ATTRIBUTE2_TBL IS TABLE OF
13: ZX_REP_TRX_JX_EXT_T.ATTRIBUTE2%TYPE INDEX BY BINARY_INTEGER;
14:
9: TYPE ATTRIBUTE1_TBL IS TABLE OF
10: ZX_REP_TRX_JX_EXT_T.ATTRIBUTE1%TYPE INDEX BY BINARY_INTEGER;
11:
12: TYPE ATTRIBUTE2_TBL IS TABLE OF
13: ZX_REP_TRX_JX_EXT_T.ATTRIBUTE2%TYPE INDEX BY BINARY_INTEGER;
14:
15: TYPE ATTRIBUTE3_TBL IS TABLE OF
16: ZX_REP_TRX_JX_EXT_T.ATTRIBUTE3%TYPE INDEX BY BINARY_INTEGER;
17:
12: TYPE ATTRIBUTE2_TBL IS TABLE OF
13: ZX_REP_TRX_JX_EXT_T.ATTRIBUTE2%TYPE INDEX BY BINARY_INTEGER;
14:
15: TYPE ATTRIBUTE3_TBL IS TABLE OF
16: ZX_REP_TRX_JX_EXT_T.ATTRIBUTE3%TYPE INDEX BY BINARY_INTEGER;
17:
18: TYPE ATTRIBUTE4_TBL IS TABLE OF
19: ZX_REP_TRX_JX_EXT_T.ATTRIBUTE4%TYPE INDEX BY BINARY_INTEGER;
20:
15: TYPE ATTRIBUTE3_TBL IS TABLE OF
16: ZX_REP_TRX_JX_EXT_T.ATTRIBUTE3%TYPE INDEX BY BINARY_INTEGER;
17:
18: TYPE ATTRIBUTE4_TBL IS TABLE OF
19: ZX_REP_TRX_JX_EXT_T.ATTRIBUTE4%TYPE INDEX BY BINARY_INTEGER;
20:
21: TYPE ATTRIBUTE5_TBL IS TABLE OF
22: ZX_REP_TRX_JX_EXT_T.ATTRIBUTE5%TYPE INDEX BY BINARY_INTEGER;
23:
18: TYPE ATTRIBUTE4_TBL IS TABLE OF
19: ZX_REP_TRX_JX_EXT_T.ATTRIBUTE4%TYPE INDEX BY BINARY_INTEGER;
20:
21: TYPE ATTRIBUTE5_TBL IS TABLE OF
22: ZX_REP_TRX_JX_EXT_T.ATTRIBUTE5%TYPE INDEX BY BINARY_INTEGER;
23:
24: TYPE ATTRIBUTE6_TBL IS TABLE OF
25: ZX_REP_TRX_JX_EXT_T.ATTRIBUTE6%TYPE INDEX BY BINARY_INTEGER;
26:
21: TYPE ATTRIBUTE5_TBL IS TABLE OF
22: ZX_REP_TRX_JX_EXT_T.ATTRIBUTE5%TYPE INDEX BY BINARY_INTEGER;
23:
24: TYPE ATTRIBUTE6_TBL IS TABLE OF
25: ZX_REP_TRX_JX_EXT_T.ATTRIBUTE6%TYPE INDEX BY BINARY_INTEGER;
26:
27: TYPE ATTRIBUTE7_TBL IS TABLE OF
28: ZX_REP_TRX_JX_EXT_T.ATTRIBUTE7%TYPE INDEX BY BINARY_INTEGER;
29:
24: TYPE ATTRIBUTE6_TBL IS TABLE OF
25: ZX_REP_TRX_JX_EXT_T.ATTRIBUTE6%TYPE INDEX BY BINARY_INTEGER;
26:
27: TYPE ATTRIBUTE7_TBL IS TABLE OF
28: ZX_REP_TRX_JX_EXT_T.ATTRIBUTE7%TYPE INDEX BY BINARY_INTEGER;
29:
30: TYPE ATTRIBUTE10_TBL IS TABLE OF
31: ZX_REP_TRX_JX_EXT_T.ATTRIBUTE10%TYPE INDEX BY BINARY_INTEGER;
32:
27: TYPE ATTRIBUTE7_TBL IS TABLE OF
28: ZX_REP_TRX_JX_EXT_T.ATTRIBUTE7%TYPE INDEX BY BINARY_INTEGER;
29:
30: TYPE ATTRIBUTE10_TBL IS TABLE OF
31: ZX_REP_TRX_JX_EXT_T.ATTRIBUTE10%TYPE INDEX BY BINARY_INTEGER;
32:
33: TYPE ATTRIBUTE11_TBL IS TABLE OF
34: ZX_REP_TRX_JX_EXT_T.ATTRIBUTE11%TYPE INDEX BY BINARY_INTEGER;
35:
30: TYPE ATTRIBUTE10_TBL IS TABLE OF
31: ZX_REP_TRX_JX_EXT_T.ATTRIBUTE10%TYPE INDEX BY BINARY_INTEGER;
32:
33: TYPE ATTRIBUTE11_TBL IS TABLE OF
34: ZX_REP_TRX_JX_EXT_T.ATTRIBUTE11%TYPE INDEX BY BINARY_INTEGER;
35:
36: --Bug 5251425
37: TYPE TRX_CURRENCY_DESC_TBL IS TABLE OF
38: ZX_REP_TRX_JX_EXT_T.ATTRIBUTE9%TYPE INDEX BY BINARY_INTEGER;
34: ZX_REP_TRX_JX_EXT_T.ATTRIBUTE11%TYPE INDEX BY BINARY_INTEGER;
35:
36: --Bug 5251425
37: TYPE TRX_CURRENCY_DESC_TBL IS TABLE OF
38: ZX_REP_TRX_JX_EXT_T.ATTRIBUTE9%TYPE INDEX BY BINARY_INTEGER;
39:
40: TYPE batch_name_tbl IS TABLE OF
41: ZX_REP_TRX_JX_EXT_T.ATTRIBUTE8%TYPE INDEX BY BINARY_INTEGER;
42:
37: TYPE TRX_CURRENCY_DESC_TBL IS TABLE OF
38: ZX_REP_TRX_JX_EXT_T.ATTRIBUTE9%TYPE INDEX BY BINARY_INTEGER;
39:
40: TYPE batch_name_tbl IS TABLE OF
41: ZX_REP_TRX_JX_EXT_T.ATTRIBUTE8%TYPE INDEX BY BINARY_INTEGER;
42:
43: TYPE CCID_TBL IS TABLE OF
44: ZX_REP_ACTG_EXT_T.ACTG_LINE_CCID%TYPE INDEX BY BINARY_INTEGER;
45:
45:
46: TYPE NUMBER_TBL is table of number index by binary_integer;
47:
48: TYPE NUMERIC1_TBL IS TABLE OF
49: ZX_REP_TRX_JX_EXT_T.NUMERIC1%TYPE INDEX BY BINARY_INTEGER;
50:
51: TYPE NUMERIC2_TBL IS TABLE OF
52: ZX_REP_TRX_JX_EXT_T.NUMERIC2%TYPE INDEX BY BINARY_INTEGER;
53:
48: TYPE NUMERIC1_TBL IS TABLE OF
49: ZX_REP_TRX_JX_EXT_T.NUMERIC1%TYPE INDEX BY BINARY_INTEGER;
50:
51: TYPE NUMERIC2_TBL IS TABLE OF
52: ZX_REP_TRX_JX_EXT_T.NUMERIC2%TYPE INDEX BY BINARY_INTEGER;
53:
54: --Bug 9031051
55: TYPE NUMERIC5_TBL IS TABLE OF
56: ZX_REP_TRX_JX_EXT_T.NUMERIC5%TYPE INDEX BY BINARY_INTEGER;
52: ZX_REP_TRX_JX_EXT_T.NUMERIC2%TYPE INDEX BY BINARY_INTEGER;
53:
54: --Bug 9031051
55: TYPE NUMERIC5_TBL IS TABLE OF
56: ZX_REP_TRX_JX_EXT_T.NUMERIC5%TYPE INDEX BY BINARY_INTEGER;
57:
58: TYPE ACC_CCID_TBL IS TABLE OF ZX_ACCOUNTS.TAX_ACCOUNT_CCID%TYPE;
59:
60: -----------------------------------------
290:
291: --- Upgraded Prepay Applications --
292:
293:
294: INSERT INTO zx_rep_trx_jx_ext_t
295: (detail_tax_line_ext_id,
296: detail_tax_line_id,
297: attribute1,
298: created_by,
300: last_updated_by,
301: last_update_date,
302: last_update_login,
303: request_id)
304: (SELECT zx_rep_trx_jx_ext_t_s.nextval,
305: dtl.detail_tax_line_id,
306: 'Yes', --fl.meaning,
307: dtl.created_by,
308: dtl.creation_date,
365: );
366:
367: IF (g_level_statement >= g_current_runtime_level ) THEN
368: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_CORE_REP_EXTRACT_PKG.POPULATE_CORE_AP',
369: 'Before insertion into zx_rep_trx_jx_ext_t for report '||p_report_name );
370: END IF;
371:
372: FORALL i IN nvl(l_detail_tax_line_id_tbl.FIRST,1)..nvl(l_detail_tax_line_id_tbl.LAST,0)
373: MERGE INTO zx_rep_trx_jx_ext_t ext
369: 'Before insertion into zx_rep_trx_jx_ext_t for report '||p_report_name );
370: END IF;
371:
372: FORALL i IN nvl(l_detail_tax_line_id_tbl.FIRST,1)..nvl(l_detail_tax_line_id_tbl.LAST,0)
373: MERGE INTO zx_rep_trx_jx_ext_t ext
374: USING ( SELECT 1 FROM dual ) T
375: ON ( ext.detail_tax_line_id = l_detail_tax_line_id_tbl(i))
376: WHEN MATCHED THEN UPDATE SET ext.ATTRIBUTE9 = l_trx_currency_desc_tbl(i),
377: ext.attribute8 = l_batch_name_tbl(i),
389: last_update_date,
390: last_update_login,
391: request_id
392: )
393: VALUES ( ZX_MIGRATE_UTIL.get_next_seqid('ZX_REP_TRX_JX_EXT_T_S'),
394: l_detail_tax_line_id_tbl(i),
395: l_trx_currency_desc_tbl(i),
396: l_batch_name_tbl(i),
397: l_match_tbl(i),
442: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_CORE_REP_EXTRACT_PKG.POPULATE_CORE_AP',
443: 'Number of rows updated: '||to_char(SQL%ROWCOUNT));
444: END IF;
445:
446: UPDATE zx_rep_trx_jx_ext_t ext
447: SET ext.numeric1 =
448: (SELECT sum(nvl(lnk.UNROUNDED_accounted_DR,0)-nvl(lnk.UNROUNDED_accounted_CR,0))
449: FROM zx_rep_trx_detail_t dtl,
450: zx_rep_actg_ext_t act_ext,
481: where ext.request_id = p_request_id;
482:
483: IF (g_level_statement >= g_current_runtime_level ) THEN
484: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_CORE_REP_EXTRACT_PKG.POPULATE_CORE_AP',
485: 'Number of rows updated in table zx_rep_trx_jx_ext_t: '||to_char(SQL%ROWCOUNT) );
486: END IF;
487:
488: UPDATE zx_rep_trx_detail_t dtl
489: SET dtl.TAXABLE_AMT = 0,
841:
842:
843: FORALL i in nvl(l_detail_tax_line_id_tbl.first,1)..nvl(l_detail_tax_line_id_tbl.last,0)
844:
845: INSERT INTO zx_rep_trx_jx_ext_t
846: (detail_tax_line_ext_id,
847: detail_tax_line_id,
848: attribute1,
849: attribute2,
855: last_updated_by,
856: last_update_date,
857: last_update_login,
858: request_id)
859: VALUES (zx_rep_trx_jx_ext_t_s.nextval,
860: l_detail_tax_line_id_tbl(i),
861: l_org_vat_num_tbl(i),
862: l_territory_short_name_tbl(i),
863: l_alternate_territory_name_tbl(i),
871: p_request_id);
872:
873: IF (g_level_statement >= g_current_runtime_level ) THEN
874: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_CORE_REP_EXTRACT_PKG.POPULATE_CORE_AP',
875: 'After insertion into zx_rep_trx_jx_ext_t for report '||p_report_name );
876: END IF;
877:
878: END IF ;
879: -- Delete Unwanted lines from Detail ITF
880:
881: DELETE FROM zx_rep_trx_detail_t itf
882: WHERE itf.request_id = p_request_id
883: AND NOT EXISTS ( SELECT 1
884: FROM zx_rep_trx_jx_ext_t ext
885: WHERE ext.detail_tax_line_id = itf.detail_tax_line_id);
886:
887: IF (g_level_statement >= g_current_runtime_level ) THEN
888: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_CORE_REP_EXTRACT_PKG.POPULATE_CORE_AP',
995: 'After getting adjustment tax code for Italy, Poland, Portugal countries');
996: END IF;
997:
998: FORALL i in l_detail_tax_line_id_tbl.first..l_detail_tax_line_id_tbl.last
999: INSERT INTO zx_rep_trx_jx_ext_t
1000: (detail_tax_line_ext_id,
1001: detail_tax_line_id,
1002: attribute1,
1003: created_by,
1005: last_updated_by,
1006: last_update_date,
1007: last_update_login,
1008: request_id)
1009: VALUES (zx_rep_trx_jx_ext_t_s.nextval,
1010: l_detail_tax_line_id_tbl(i),
1011: l_adj_tax_code_tbl(i),
1012: fnd_global.user_id,
1013: sysdate,
1017: p_request_id);
1018:
1019: IF (g_level_statement >= g_current_runtime_level ) THEN
1020: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_CORE_REP_EXTRACT_PKG.POPULATE_CORE_AP',
1021: 'After insertion into zx_rep_trx_jx_ext_t ');
1022: END IF;
1023:
1024: EXCEPTION
1025: WHEN OTHERS THEN
2118: END LOOP;
2119:
2120: IF ( g_level_statement>= g_current_runtime_level ) THEN
2121: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_CORE_REP_EXTRACT_PKG.POPULATE_CORE_AR',
2122: ' Inserting Data into ZX_REP_TRX_JX_EXT_T ' );
2123: END IF;
2124:
2125: FORALL i in nvl(l_detail_tax_line_id_tbl.first,1)..nvl(l_detail_tax_line_id_tbl.last,0)
2126: INSERT INTO ZX_REP_TRX_JX_EXT_T
2122: ' Inserting Data into ZX_REP_TRX_JX_EXT_T ' );
2123: END IF;
2124:
2125: FORALL i in nvl(l_detail_tax_line_id_tbl.first,1)..nvl(l_detail_tax_line_id_tbl.last,0)
2126: INSERT INTO ZX_REP_TRX_JX_EXT_T
2127: (detail_tax_line_ext_id,
2128: detail_tax_line_id,
2129: attribute1, --County_code
2130: attribute2, --Reporting Code Name
2143: last_updated_by,
2144: last_update_date,
2145: last_update_login,
2146: request_id)
2147: VALUES (zx_rep_trx_jx_ext_t_s.nextval,
2148: l_detail_tax_line_id_tbl(i),
2149: l_country_code_reg_num_tbl(i),
2150: l_reporting_code_tbl(i),
2151: l_reporting_code_char_tbl(i),
2166: P_REQUEST_ID);
2167:
2168: IF ( g_level_statement>= g_current_runtime_level ) THEN
2169: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_CORE_REP_EXTRACT_PKG.POPULATE_CORE_AR',
2170: 'After insertion into zx_rep_trx_jx_ext_t ');
2171: END IF;
2172:
2173:
2174: DELETE FROM zx_rep_trx_detail_t dtl
2173:
2174: DELETE FROM zx_rep_trx_detail_t dtl
2175: WHERE dtl.request_id = p_request_id
2176: AND NOT EXISTS ( SELECT 1
2177: FROM zx_rep_trx_jx_ext_t ext
2178: WHERE ext.detail_tax_line_id = dtl.detail_tax_line_id);
2179:
2180: IF ( g_level_statement>= g_current_runtime_level ) THEN
2181: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_CORE_REP_EXTRACT_PKG.POPULATE_CORE_AR',
2446: -- Insert lines into JX EXT Table with Calculated amount --
2447:
2448: FORALL i in l_detail_tax_line_id_tbl.first..l_detail_tax_line_id_tbl.last
2449:
2450: INSERT INTO zx_rep_trx_jx_ext_t(detail_tax_line_ext_id,
2451: detail_tax_line_id,
2452: attribute1,
2453: attribute2,
2454: attribute3,
2457: last_updated_by,
2458: last_update_date,
2459: last_update_login,
2460: request_id)
2461: VALUES (zx_rep_trx_jx_ext_t_s.nextval,
2462: l_detail_tax_line_id_tbl(i),
2463: l_state_tbl(i),
2464: l_county_tbl(i),
2465: l_city_tbl(i),
2471: p_request_id);
2472:
2473: IF ( g_level_statement>= g_current_runtime_level ) THEN
2474: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_CORE_REP_EXTRACT_PKG.POPULATE_CORE_AR',
2475: 'After insertion into zx_rep_trx_jx_ext_t ');
2476: END IF;
2477:
2478: -- Delete Unwanted lines from Detail ITF
2479:
2480: BEGIN
2481: DELETE from zx_rep_trx_detail_t itf
2482: WHERE itf.request_id = p_request_id
2483: AND NOT EXISTS ( SELECT 1
2484: FROM zx_rep_trx_jx_ext_t ext
2485: WHERE ext.detail_tax_line_id = itf.detail_tax_line_id);
2486:
2487: IF ( g_level_statement>= g_current_runtime_level ) THEN
2488: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_CORE_REP_EXTRACT_PKG.POPULATE_CORE_AR',
2505: END;
2506: END IF; -- End of P_REPORT_NAME = ..
2507:
2508: --Bug 5251425 : To Populate General Ledger Activity(C_GL_ACTIVITY_DISP)
2509: --and C_BAL_SEGMENT_PROMPT into ZX_REP_TRX_JX_EXT_T.numeric1
2510: --and ZX_REP_TRX_JX_EXT_T.attribute1 respectively ..
2511:
2512: IF ( p_report_name = 'ZXXVATRN' ) THEN
2513: -- get details for C_GL_ACTIVITY_DISP
2506: END IF; -- End of P_REPORT_NAME = ..
2507:
2508: --Bug 5251425 : To Populate General Ledger Activity(C_GL_ACTIVITY_DISP)
2509: --and C_BAL_SEGMENT_PROMPT into ZX_REP_TRX_JX_EXT_T.numeric1
2510: --and ZX_REP_TRX_JX_EXT_T.attribute1 respectively ..
2511:
2512: IF ( p_report_name = 'ZXXVATRN' ) THEN
2513: -- get details for C_GL_ACTIVITY_DISP
2514: BEGIN
2727: l_bal_seg_prompt_tbl(i) := l_prompt ;
2728: END LOOP ;
2729:
2730: FORALL i in 1 .. nvl(l_detail_tax_line_id_tbl.last, 0)
2731: INSERT INTO ZX_REP_TRX_JX_EXT_T
2732: (
2733: detail_tax_line_ext_id,
2734: detail_tax_line_id,
2735: numeric1,
2742: request_id
2743: )
2744: VALUES
2745: (
2746: zx_rep_trx_jx_ext_t_s.nextval,
2747: l_detail_tax_line_id_tbl(i),
2748: l_gl_activity_tbl(i),
2749: l_bal_seg_prompt_tbl(i),
2750: fnd_global.user_id,
2756: );
2757:
2758: IF ( g_level_statement>= g_current_runtime_level ) THEN
2759: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_CORE_REP_EXTRACT_PKG.POPULATE_CORE_AR',
2760: 'After insertion into zx_rep_trx_jx_ext_t ');
2761: END IF;
2762:
2763: EXCEPTION WHEN OTHERS THEN
2764: -- NULL ;
2807: l_tax_received_tbl
2808: );
2809:
2810: FORALL i in 1 .. nvl(l_detail_tax_line_id_tbl.last, 0)
2811: INSERT INTO ZX_REP_TRX_JX_EXT_T
2812: (detail_tax_line_ext_id,
2813: detail_tax_line_id,
2814: numeric1, --C_TAX_AMOUNT_RECEIVED
2815: numeric2,--C_AMOUNT_RECEIVED
2818: last_updated_by,
2819: last_update_date,
2820: last_update_login,
2821: request_id)
2822: VALUES (zx_rep_trx_jx_ext_t_s.nextval,
2823: l_detail_tax_line_id_tbl(i),
2824: l_tax_received_tbl(i),
2825: l_amount_received_tbl(i),
2826: fnd_global.user_id,
2831: p_request_id);
2832:
2833: IF ( g_level_statement>= g_current_runtime_level ) THEN
2834: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_CORE_REP_EXTRACT_PKG.POPULATE_CORE_AR',
2835: 'After insertion into zx_rep_trx_jx_ext_t ');
2836: END IF;
2837:
2838: DELETE FROM zx_rep_trx_detail_t dtl
2839: WHERE dtl.request_id = p_request_id
2837:
2838: DELETE FROM zx_rep_trx_detail_t dtl
2839: WHERE dtl.request_id = p_request_id
2840: AND NOT EXISTS ( SELECT 1
2841: FROM zx_rep_trx_jx_ext_t ext
2842: WHERE ext.detail_tax_line_id = dtl.detail_tax_line_id);
2843:
2844: IF ( g_level_statement>= g_current_runtime_level ) THEN
2845: FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_CORE_REP_EXTRACT_PKG.POPULATE_CORE_AR',