52: --
53: -- DESCRIPTION:
54: --
55: -- This procedure is used to migrate the cash flow related lines data
56: -- in GL_JE_LINES. copy values from DFF column AttributeN to column
57: -- Global_Attribute6.
58: --
59: --
60: -- PARAMETERS:
93: ln_je_line_num NUMBER;
94: TYPE ref_cursor_type IS REF CURSOR;
95: cur_cash_lines ref_cursor_type;
96: lv_cur_cash_lines_sql VARCHAR2(4000) := 'SELECT gjl.je_header_id, gjl.je_line_num
97: FROM gl_je_lines gjl, gl_je_headers gjh, ja_cn_dff_assignments jcda
98: WHERE gjl.ledger_id = ' ||
99: pn_ledger_id || '
100: AND gjh.ledger_id = gjl.ledger_id
101: AND gjh.period_name = ''' ||
113: AND gjh.je_header_id = gjl.je_header_id
114: AND gjl.context = jcda.context_code
115: AND jcda.chart_of_accounts_id = ' ||
116: pn_chart_account_id || '
117: AND jcda.descriptive_flexfield_name = ''GL_JE_LINES''
118: AND jcda.dff_title_code = ''GLLI''
119: AND gjh.je_category IN
120: ( SELECT gjc.je_category_name
121: FROM gl_je_categories gjc, ja_cn_dff_assignments jcda
125: AND jcda.descriptive_flexfield_name = ''GL_JE_CATEGORIES''
126: AND jcda.dff_title_code = ''JOCA''
127: AND gjc.CONTEXT = jcda.context_code)
128: AND gjl.Global_Attribute6 is null';
129: lv_update_cash_lines_sql VARCHAR2(4000) := 'UPDATE gl_je_lines gjl
130: SET gjl.Global_Attribute6 = gjl.$cashitem_column$
131: WHERE gjl.je_header_id = :1
132: AND gjl.je_line_num = :2';
133: BEGIN
176: WHERE (b.APPLICATION_ID = 101)
177: AND (b.descriptive_flexfield_name =
178: JCDA.descriptive_flexfield_name)
179: AND jcda.chart_of_accounts_id = pn_chart_account_id
180: AND jcda.descriptive_flexfield_name = 'GL_JE_LINES'
181: AND jcda.dff_title_code = 'GLLI'
182: AND b.descriptive_flex_context_code = jcda.context_code;
183: EXCEPTION
184: WHEN OTHERS THEN
185: FND_FILE.put_line(FND_FILE.log,
186: lv_procedure_name || SQLCODE || SQLERRM);
187: RAISE;
188: END;
189: -- Construct the update sql for GL_JE_LINES data migration
190: lv_update_cash_lines_sql := REPLACE(lv_update_cash_lines_sql,
191: '$cashitem_column$',
192: lv_cashitem_column);
193:
343: --
344: -- DESCRIPTION:
345: --
346: -- This procedure is used to migrate the Itemazation lines data
347: -- in GL_JE_LINES. copy values from column Global_Attribute2 to
348: -- column Global_Attribute7, and set Global_Attribute2 to null.
349: --
350: --
351: -- PARAMETERS:
387: lv_flag := JA_CN_UTILITY.Populate_Ledger_Le_Bsv_Gt(p_Ledger_Id => pn_ledger_id,
388: p_Legal_Entity_Id => pn_legal_entitliy_id);
389: FND_FILE.put_line(FND_FILE.log,
390: lv_procedure_name || 'ln_flag = ' || lv_flag);
391: UPDATE gl_je_lines gjl
392: SET gjl.Global_Attribute7 = gjl.Global_Attribute2,
393: gjl.Global_Attribute2 = NULL
394: WHERE gjl.ledger_id = pn_ledger_id
395: AND gjl.period_name = pv_period_name
946: BEGIN
947: JA_CN_VOUCHER_NUM_MIG_PKG.Migrate_voucher_number(P_LEDGER_ID,
948: P_LEGAL_ENTITY_ID,
949: v_line.period_name);
950: --Invoke sub program UpdateGLCashlines to update GL_JE_LINES for cash items;
951: ln_glcashlines_amount := ln_glcashlines_amount + -- Add by Jianchao Chi for bug 11691910
952: UpdateGLCashlines(P_COA_ID,
953: P_LEGAL_ENTITY_ID,
954: P_LEDGER_ID,
955: P_LEDGER_NAME,
956: P_LEGAL_ENTITY,
957: v_line.period_name);
958:
959: --Invoke sub program UpdateGLCashlines to update GL_JE_LINES for itemization items;
960:
961: UpdateGLItemizationlines(P_LEGAL_ENTITY_ID,
962: P_LEDGER_ID,
963: v_line.period_name);
1073: AND legal_entity_id = P_LEGAL_ENTITY_ID
1074: AND journal_number IS NOT NULL;*/
1075:
1076: SELECT DISTINCT period_name
1077: FROM gl_je_lines
1078: WHERE ledger_id = P_LEDGER_ID;
1079:
1080:
1081: BEGIN
1094:
1095:
1096: FOR v_line IN cur_periods LOOP
1097: BEGIN
1098: --Invoke sub program UpdateGLCashlines to update GL_JE_LINES for cash items;
1099: ln_glcashlines_amount := ln_glcashlines_amount +
1100: UpdateGLCashlines(P_COA_ID,
1101: P_LEGAL_ENTITY_ID,
1102: P_LEDGER_ID,
1222: AND legal_entity_id = P_LEGAL_ENTITY_ID
1223: AND journal_number IS NOT NULL;*/
1224:
1225: SELECT DISTINCT period_name
1226: FROM gl_je_lines
1227: WHERE ledger_id = P_LEDGER_ID;
1228:
1229: BEGIN
1230: --logging for debug
1433: JA_CN_VOUCHER_NUM_MIG_PKG.Migrate_voucher_number(P_LEDGER_ID,
1434: P_LEGAL_ENTITY_ID,
1435: v_line.period_name);
1436:
1437: --Invoke sub program UpdateGLCashlines to update GL_JE_LINES for itemization items;
1438:
1439: UpdateGLItemizationlines(P_LEGAL_ENTITY_ID,
1440: P_LEDGER_ID,
1441: v_line.period_name);