[Home] [Help]
1065: --
1066: -- bulk performance
1067: --
1068: l_balance_type_code VARCHAR2(1);
1069: l_rec_acct_attrs XLA_AE_LINES_PKG.t_rec_acct_attrs;
1070: l_log_module VARCHAR2(240);
1071:
1072: --
1073: -- Upgrade strategy
1130: IF XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id = XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.ledger_id OR
1131: l_balance_type_code <> 'B' THEN
1132:
1133: --
1134: XLA_AE_LINES_PKG.SetNewLine;
1135:
1136: p_balance_type_code := l_balance_type_code;
1137: -- set the flag so later we will know whether the gain loss line needs to be created
1138:
1142:
1143: --
1144: -- bulk performance
1145: --
1146: XLA_AE_LINES_PKG.set_ae_header_id (p_ae_header_id => p_event_id ,
1147: p_header_num => 0); -- 4262811
1148: --
1149: -- set accounting line options
1150: --
1147: p_header_num => 0); -- 4262811
1148: --
1149: -- set accounting line options
1150: --
1151: l_ae_header_id:= xla_ae_lines_pkg.SetAcctLineOption(
1152: p_natural_side_code => 'D'
1153: , p_gain_or_loss_flag => 'N'
1154: , p_gl_transfer_mode_code => 'S'
1155: , p_acct_entry_type_code => 'A'
1161: --
1162: --
1163: -- set accounting line type info
1164: --
1165: xla_ae_lines_pkg.SetAcctLineType
1166: (p_component_type => l_component_type
1167: ,p_event_type_code => l_event_type_code
1168: ,p_line_definition_owner_code => l_line_definition_owner_code
1169: ,p_line_definition_code => l_line_definition_code
1175: ,p_event_class_code => l_event_class_code);
1176: --
1177: -- set accounting class
1178: --
1179: xla_ae_lines_pkg.SetAcctClass(
1180: p_accounting_class_code => 'CLAIM_SETTLE'
1181: , p_ae_header_id => l_ae_header_id
1182: );
1183:
1183:
1184: --
1185: -- set rounding class
1186: --
1187: XLA_AE_LINES_PKG.g_rec_lines.array_rounding_class(XLA_AE_LINES_PKG.g_LineNumber) :=
1188: 'CLAIM_SETTLE';
1189:
1190: --
1191: xla_ae_lines_pkg.g_rec_lines.array_calculate_acctd_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_acctd_flag;
1187: XLA_AE_LINES_PKG.g_rec_lines.array_rounding_class(XLA_AE_LINES_PKG.g_LineNumber) :=
1188: 'CLAIM_SETTLE';
1189:
1190: --
1191: xla_ae_lines_pkg.g_rec_lines.array_calculate_acctd_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_acctd_flag;
1192: xla_ae_lines_pkg.g_rec_lines.array_calculate_g_l_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_g_l_flag;
1193: --
1194: -- bulk performance
1195: --
1188: 'CLAIM_SETTLE';
1189:
1190: --
1191: xla_ae_lines_pkg.g_rec_lines.array_calculate_acctd_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_acctd_flag;
1192: xla_ae_lines_pkg.g_rec_lines.array_calculate_g_l_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_g_l_flag;
1193: --
1194: -- bulk performance
1195: --
1196: XLA_AE_LINES_PKG.g_rec_lines.array_balance_type_code(XLA_AE_LINES_PKG.g_LineNumber) := l_balance_type_code;
1192: xla_ae_lines_pkg.g_rec_lines.array_calculate_g_l_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_g_l_flag;
1193: --
1194: -- bulk performance
1195: --
1196: XLA_AE_LINES_PKG.g_rec_lines.array_balance_type_code(XLA_AE_LINES_PKG.g_LineNumber) := l_balance_type_code;
1197:
1198: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_id(XLA_AE_LINES_PKG.g_LineNumber) :=
1199: XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id;
1200:
1194: -- bulk performance
1195: --
1196: XLA_AE_LINES_PKG.g_rec_lines.array_balance_type_code(XLA_AE_LINES_PKG.g_LineNumber) := l_balance_type_code;
1197:
1198: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_id(XLA_AE_LINES_PKG.g_LineNumber) :=
1199: XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id;
1200:
1201: -- 4955764
1202: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
1198: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_id(XLA_AE_LINES_PKG.g_LineNumber) :=
1199: XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id;
1200:
1201: -- 4955764
1202: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
1203: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('header_index'));
1204:
1205: -- 4458381 Public Sector Enh
1206:
1220: l_rec_acct_attrs.array_char_value(4) := p_source_12;
1221: l_rec_acct_attrs.array_acct_attr_code(5) := 'LEDGER_AMOUNT';
1222: l_rec_acct_attrs.array_num_value(5) := p_source_13;
1223:
1224: XLA_AE_LINES_PKG.SetLineAcctAttrs(l_rec_acct_attrs);
1225: p_gain_or_loss_ref := XLA_AE_LINES_PKG.g_rec_lines.array_gain_or_loss_ref(XLA_AE_LINES_PKG.g_LineNumber);
1226:
1227: ---------------------------------------------------------------------------------------------------------------
1228: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
1221: l_rec_acct_attrs.array_acct_attr_code(5) := 'LEDGER_AMOUNT';
1222: l_rec_acct_attrs.array_num_value(5) := p_source_13;
1223:
1224: XLA_AE_LINES_PKG.SetLineAcctAttrs(l_rec_acct_attrs);
1225: p_gain_or_loss_ref := XLA_AE_LINES_PKG.g_rec_lines.array_gain_or_loss_ref(XLA_AE_LINES_PKG.g_LineNumber);
1226:
1227: ---------------------------------------------------------------------------------------------------------------
1228: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
1229: ---------------------------------------------------------------------------------------------------------------
1224: XLA_AE_LINES_PKG.SetLineAcctAttrs(l_rec_acct_attrs);
1225: p_gain_or_loss_ref := XLA_AE_LINES_PKG.g_rec_lines.array_gain_or_loss_ref(XLA_AE_LINES_PKG.g_LineNumber);
1226:
1227: ---------------------------------------------------------------------------------------------------------------
1228: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
1229: ---------------------------------------------------------------------------------------------------------------
1230: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
1231:
1232: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
1226:
1227: ---------------------------------------------------------------------------------------------------------------
1228: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
1229: ---------------------------------------------------------------------------------------------------------------
1230: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
1231:
1232: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
1233: l_enc_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_enc_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
1234:
1228: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
1229: ---------------------------------------------------------------------------------------------------------------
1230: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
1231:
1232: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
1233: l_enc_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_enc_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
1234:
1235: IF xla_accounting_cache_pkg.GetValueChar
1236: (p_source_code => 'LEDGER_CATEGORY_CODE'
1229: ---------------------------------------------------------------------------------------------------------------
1230: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
1231:
1232: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
1233: l_enc_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_enc_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
1234:
1235: IF xla_accounting_cache_pkg.GetValueChar
1236: (p_source_code => 'LEDGER_CATEGORY_CODE'
1237: ,p_target_ledger_id => XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id) IN ('PRIMARY','ALC')
1240: AND ( (NVL(l_actual_upg_option, 'N') IN ('Y', 'O')) OR
1241: (NVL(l_enc_upg_option, 'N') IN ('Y', 'O'))
1242: )
1243: THEN
1244: xla_ae_lines_pkg.BflowUpgEntry
1245: (p_business_method_code => l_bflow_method_code
1246: ,p_business_class_code => l_bflow_class_code
1247: ,p_balance_type => l_balance_type_code);
1248: ELSE
1257: --
1258: -- call description
1259: --
1260:
1261: xla_ae_lines_pkg.SetLineDescription(
1262: p_ae_header_id => l_ae_header_id
1263: ,p_description => Description_2 (
1264: p_application_id => p_application_id
1265: , p_ae_header_id => l_ae_header_id
1291: , x_value_type_code => l_adr_value_type_code
1292: , p_side => 'NA'
1293: );
1294:
1295: xla_ae_lines_pkg.set_ccid(
1296: p_code_combination_id => l_ccid
1297: , p_value_type_code => l_adr_value_type_code
1298: , p_transaction_coa_id => l_adr_transaction_coa_id
1299: , p_accounting_coa_id => l_adr_accounting_coa_id
1327: xla_accounting_err_pkg.build_message
1328: (p_appli_s_name => 'XLA'
1329: ,p_msg_name => 'XLA_UPG_OVERRIDE_ADR_UNDEFINED'
1330: ,p_token_1 => 'LINE_NUMBER'
1331: ,p_value_1 => XLA_AE_LINES_PKG.g_LineNumber
1332: ,p_token_2 => 'LINE_TYPE_NAME'
1333: ,p_value_2 => XLA_AE_SOURCES_PKG.GetComponentName (
1334: l_component_type
1335: ,l_component_code
1363: --
1364: --
1365: ------------------------------------------------------------------------------------------------
1366: -- 4219869 Business Flow
1367: -- NOTE: XLA_AE_LINES_PKG.ValidateCurrentLine should NOT be generated if business flow method is
1368: -- Prior Entry. Currently, the following code is always generated.
1369: ------------------------------------------------------------------------------------------------
1370: XLA_AE_LINES_PKG.ValidateCurrentLine;
1371:
1366: -- 4219869 Business Flow
1367: -- NOTE: XLA_AE_LINES_PKG.ValidateCurrentLine should NOT be generated if business flow method is
1368: -- Prior Entry. Currently, the following code is always generated.
1369: ------------------------------------------------------------------------------------------------
1370: XLA_AE_LINES_PKG.ValidateCurrentLine;
1371:
1372: ------------------------------------------------------------------------------------
1373: -- 4219869 Business Flow
1374: -- Populated credit and debit amounts -- Need to generate this within IF
1372: ------------------------------------------------------------------------------------
1373: -- 4219869 Business Flow
1374: -- Populated credit and debit amounts -- Need to generate this within IF
1375: ------------------------------------------------------------------------------------
1376: XLA_AE_LINES_PKG.SetDebitCreditAmounts;
1377:
1378: ----------------------------------------------------------------------------------
1379: -- 4219869 Business Flow
1380: -- Update journal entry status -- Need to generate this within IF
1404: -- To allow MPA report to determine if it should generate report process
1405: XLA_ACCOUNTING_PKG.g_mpa_accrual_exists := 'Y';
1406: ------------------------------------------------------------------------------------------
1407:
1408: l_accrual_line_num := XLA_AE_LINES_PKG.g_LineNumber;
1409: XLA_AE_LINES_PKG.CopyLineInfo(l_accrual_line_num);
1410: -- added call to set_ccid to execute mapping for secondary accrual reversal entries bug 7444204
1411: -- call ADRs
1412: -- Bug 4922099
1405: XLA_ACCOUNTING_PKG.g_mpa_accrual_exists := 'Y';
1406: ------------------------------------------------------------------------------------------
1407:
1408: l_accrual_line_num := XLA_AE_LINES_PKG.g_LineNumber;
1409: XLA_AE_LINES_PKG.CopyLineInfo(l_accrual_line_num);
1410: -- added call to set_ccid to execute mapping for secondary accrual reversal entries bug 7444204
1411: -- call ADRs
1412: -- Bug 4922099
1413: --
1429: , x_value_type_code => l_adr_value_type_code
1430: , p_side => 'NA'
1431: );
1432:
1433: xla_ae_lines_pkg.set_ccid(
1434: p_code_combination_id => l_ccid
1435: , p_value_type_code => l_adr_value_type_code
1436: , p_transaction_coa_id => l_adr_transaction_coa_id
1437: , p_accounting_coa_id => l_adr_accounting_coa_id
1452:
1453: --
1454: -- Update the line information that should be overwritten
1455: --
1456: XLA_AE_LINES_PKG.set_ae_header_id(p_ae_header_id => p_event_id ,
1457: p_header_num => 1);
1458: XLA_AE_LINES_PKG.g_rec_lines.array_header_num(XLA_AE_LINES_PKG.g_LineNumber) :=1;
1459:
1460: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
1454: -- Update the line information that should be overwritten
1455: --
1456: XLA_AE_LINES_PKG.set_ae_header_id(p_ae_header_id => p_event_id ,
1457: p_header_num => 1);
1458: XLA_AE_LINES_PKG.g_rec_lines.array_header_num(XLA_AE_LINES_PKG.g_LineNumber) :=1;
1459:
1460: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
1461:
1462: IF l_bflow_method_code <> 'NONE' THEN -- 4655713b
1456: XLA_AE_LINES_PKG.set_ae_header_id(p_ae_header_id => p_event_id ,
1457: p_header_num => 1);
1458: XLA_AE_LINES_PKG.g_rec_lines.array_header_num(XLA_AE_LINES_PKG.g_LineNumber) :=1;
1459:
1460: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
1461:
1462: IF l_bflow_method_code <> 'NONE' THEN -- 4655713b
1463: XLA_AE_LINES_PKG.g_rec_lines.array_reversal_code(XLA_AE_LINES_PKG.g_LineNumber) := CONCAT('MPA_',l_bflow_method_code);
1464: END IF;
1459:
1460: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
1461:
1462: IF l_bflow_method_code <> 'NONE' THEN -- 4655713b
1463: XLA_AE_LINES_PKG.g_rec_lines.array_reversal_code(XLA_AE_LINES_PKG.g_LineNumber) := CONCAT('MPA_',l_bflow_method_code);
1464: END IF;
1465:
1466: --
1467: -- Depending on the Reversal Method setup, do a switch side or changes sign for the amounts
1466: --
1467: -- Depending on the Reversal Method setup, do a switch side or changes sign for the amounts
1468: --
1469: IF (XLA_AE_JOURNAL_ENTRY_PKG.g_cache_ledgers_info.ledger_reversal_option = 'SIDE') THEN
1470: XLA_AE_LINES_PKG.g_rec_lines.array_natural_side_code(XLA_AE_LINES_PKG.g_LineNumber) := l_acc_rev_natural_side_code;
1471: ELSE
1472: ---------------------------------------------------------------------------------------------------
1473: -- 4262811a Switch Sign
1474: ---------------------------------------------------------------------------------------------------
1471: ELSE
1472: ---------------------------------------------------------------------------------------------------
1473: -- 4262811a Switch Sign
1474: ---------------------------------------------------------------------------------------------------
1475: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
1476: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
1477: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
1478: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
1479: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
1472: ---------------------------------------------------------------------------------------------------
1473: -- 4262811a Switch Sign
1474: ---------------------------------------------------------------------------------------------------
1475: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
1476: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
1477: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
1478: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
1479: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
1480: -- 5132302
1473: -- 4262811a Switch Sign
1474: ---------------------------------------------------------------------------------------------------
1475: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
1476: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
1477: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
1478: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
1479: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
1480: -- 5132302
1481: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
1474: ---------------------------------------------------------------------------------------------------
1475: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
1476: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
1477: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
1478: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
1479: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
1480: -- 5132302
1481: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
1482: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
1475: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
1476: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
1477: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
1478: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
1479: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
1480: -- 5132302
1481: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
1482: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
1483:
1477: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
1478: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
1479: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
1480: -- 5132302
1481: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
1482: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
1483:
1484: END IF;
1485:
1478: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
1479: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
1480: -- 5132302
1481: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
1482: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
1483:
1484: END IF;
1485:
1486: -- 4955764
1483:
1484: END IF;
1485:
1486: -- 4955764
1487: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
1488: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('acc_rev_header_index'));
1489:
1490:
1491: XLA_AE_LINES_PKG.ValidateCurrentLine;
1487: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
1488: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('acc_rev_header_index'));
1489:
1490:
1491: XLA_AE_LINES_PKG.ValidateCurrentLine;
1492: XLA_AE_LINES_PKG.SetDebitCreditAmounts;
1493:
1494: XLA_AE_JOURNAL_ENTRY_PKG.UpdateJournalEntryStatus
1495: (p_hdr_idx => g_array_event(p_event_id).array_value_num('acc_rev_header_index')
1488: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('acc_rev_header_index'));
1489:
1490:
1491: XLA_AE_LINES_PKG.ValidateCurrentLine;
1492: XLA_AE_LINES_PKG.SetDebitCreditAmounts;
1493:
1494: XLA_AE_JOURNAL_ENTRY_PKG.UpdateJournalEntryStatus
1495: (p_hdr_idx => g_array_event(p_event_id).array_value_num('acc_rev_header_index')
1496: ,p_balance_type_code => l_balance_type_code);
1612: --
1613: -- bulk performance
1614: --
1615: l_balance_type_code VARCHAR2(1);
1616: l_rec_acct_attrs XLA_AE_LINES_PKG.t_rec_acct_attrs;
1617: l_log_module VARCHAR2(240);
1618:
1619: --
1620: -- Upgrade strategy
1677: IF XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id = XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.ledger_id OR
1678: l_balance_type_code <> 'B' THEN
1679:
1680: --
1681: XLA_AE_LINES_PKG.SetNewLine;
1682:
1683: p_balance_type_code := l_balance_type_code;
1684: -- set the flag so later we will know whether the gain loss line needs to be created
1685:
1689:
1690: --
1691: -- bulk performance
1692: --
1693: XLA_AE_LINES_PKG.set_ae_header_id (p_ae_header_id => p_event_id ,
1694: p_header_num => 0); -- 4262811
1695: --
1696: -- set accounting line options
1697: --
1694: p_header_num => 0); -- 4262811
1695: --
1696: -- set accounting line options
1697: --
1698: l_ae_header_id:= xla_ae_lines_pkg.SetAcctLineOption(
1699: p_natural_side_code => 'C'
1700: , p_gain_or_loss_flag => 'N'
1701: , p_gl_transfer_mode_code => 'S'
1702: , p_acct_entry_type_code => 'A'
1708: --
1709: --
1710: -- set accounting line type info
1711: --
1712: xla_ae_lines_pkg.SetAcctLineType
1713: (p_component_type => l_component_type
1714: ,p_event_type_code => l_event_type_code
1715: ,p_line_definition_owner_code => l_line_definition_owner_code
1716: ,p_line_definition_code => l_line_definition_code
1722: ,p_event_class_code => l_event_class_code);
1723: --
1724: -- set accounting class
1725: --
1726: xla_ae_lines_pkg.SetAcctClass(
1727: p_accounting_class_code => 'COST_UPDATE_ADJUSTMENT'
1728: , p_ae_header_id => l_ae_header_id
1729: );
1730:
1730:
1731: --
1732: -- set rounding class
1733: --
1734: XLA_AE_LINES_PKG.g_rec_lines.array_rounding_class(XLA_AE_LINES_PKG.g_LineNumber) :=
1735: 'COST_UPDATE_ADJUSTMENT';
1736:
1737: --
1738: xla_ae_lines_pkg.g_rec_lines.array_calculate_acctd_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_acctd_flag;
1734: XLA_AE_LINES_PKG.g_rec_lines.array_rounding_class(XLA_AE_LINES_PKG.g_LineNumber) :=
1735: 'COST_UPDATE_ADJUSTMENT';
1736:
1737: --
1738: xla_ae_lines_pkg.g_rec_lines.array_calculate_acctd_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_acctd_flag;
1739: xla_ae_lines_pkg.g_rec_lines.array_calculate_g_l_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_g_l_flag;
1740: --
1741: -- bulk performance
1742: --
1735: 'COST_UPDATE_ADJUSTMENT';
1736:
1737: --
1738: xla_ae_lines_pkg.g_rec_lines.array_calculate_acctd_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_acctd_flag;
1739: xla_ae_lines_pkg.g_rec_lines.array_calculate_g_l_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_g_l_flag;
1740: --
1741: -- bulk performance
1742: --
1743: XLA_AE_LINES_PKG.g_rec_lines.array_balance_type_code(XLA_AE_LINES_PKG.g_LineNumber) := l_balance_type_code;
1739: xla_ae_lines_pkg.g_rec_lines.array_calculate_g_l_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_g_l_flag;
1740: --
1741: -- bulk performance
1742: --
1743: XLA_AE_LINES_PKG.g_rec_lines.array_balance_type_code(XLA_AE_LINES_PKG.g_LineNumber) := l_balance_type_code;
1744:
1745: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_id(XLA_AE_LINES_PKG.g_LineNumber) :=
1746: XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id;
1747:
1741: -- bulk performance
1742: --
1743: XLA_AE_LINES_PKG.g_rec_lines.array_balance_type_code(XLA_AE_LINES_PKG.g_LineNumber) := l_balance_type_code;
1744:
1745: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_id(XLA_AE_LINES_PKG.g_LineNumber) :=
1746: XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id;
1747:
1748: -- 4955764
1749: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
1745: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_id(XLA_AE_LINES_PKG.g_LineNumber) :=
1746: XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id;
1747:
1748: -- 4955764
1749: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
1750: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('header_index'));
1751:
1752: -- 4458381 Public Sector Enh
1753:
1767: l_rec_acct_attrs.array_char_value(4) := p_source_12;
1768: l_rec_acct_attrs.array_acct_attr_code(5) := 'LEDGER_AMOUNT';
1769: l_rec_acct_attrs.array_num_value(5) := p_source_13;
1770:
1771: XLA_AE_LINES_PKG.SetLineAcctAttrs(l_rec_acct_attrs);
1772: p_gain_or_loss_ref := XLA_AE_LINES_PKG.g_rec_lines.array_gain_or_loss_ref(XLA_AE_LINES_PKG.g_LineNumber);
1773:
1774: ---------------------------------------------------------------------------------------------------------------
1775: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
1768: l_rec_acct_attrs.array_acct_attr_code(5) := 'LEDGER_AMOUNT';
1769: l_rec_acct_attrs.array_num_value(5) := p_source_13;
1770:
1771: XLA_AE_LINES_PKG.SetLineAcctAttrs(l_rec_acct_attrs);
1772: p_gain_or_loss_ref := XLA_AE_LINES_PKG.g_rec_lines.array_gain_or_loss_ref(XLA_AE_LINES_PKG.g_LineNumber);
1773:
1774: ---------------------------------------------------------------------------------------------------------------
1775: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
1776: ---------------------------------------------------------------------------------------------------------------
1771: XLA_AE_LINES_PKG.SetLineAcctAttrs(l_rec_acct_attrs);
1772: p_gain_or_loss_ref := XLA_AE_LINES_PKG.g_rec_lines.array_gain_or_loss_ref(XLA_AE_LINES_PKG.g_LineNumber);
1773:
1774: ---------------------------------------------------------------------------------------------------------------
1775: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
1776: ---------------------------------------------------------------------------------------------------------------
1777: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
1778:
1779: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
1773:
1774: ---------------------------------------------------------------------------------------------------------------
1775: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
1776: ---------------------------------------------------------------------------------------------------------------
1777: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
1778:
1779: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
1780: l_enc_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_enc_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
1781:
1775: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
1776: ---------------------------------------------------------------------------------------------------------------
1777: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
1778:
1779: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
1780: l_enc_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_enc_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
1781:
1782: IF xla_accounting_cache_pkg.GetValueChar
1783: (p_source_code => 'LEDGER_CATEGORY_CODE'
1776: ---------------------------------------------------------------------------------------------------------------
1777: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
1778:
1779: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
1780: l_enc_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_enc_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
1781:
1782: IF xla_accounting_cache_pkg.GetValueChar
1783: (p_source_code => 'LEDGER_CATEGORY_CODE'
1784: ,p_target_ledger_id => XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id) IN ('PRIMARY','ALC')
1787: AND ( (NVL(l_actual_upg_option, 'N') IN ('Y', 'O')) OR
1788: (NVL(l_enc_upg_option, 'N') IN ('Y', 'O'))
1789: )
1790: THEN
1791: xla_ae_lines_pkg.BflowUpgEntry
1792: (p_business_method_code => l_bflow_method_code
1793: ,p_business_class_code => l_bflow_class_code
1794: ,p_balance_type => l_balance_type_code);
1795: ELSE
1827: , x_value_type_code => l_adr_value_type_code
1828: , p_side => 'NA'
1829: );
1830:
1831: xla_ae_lines_pkg.set_ccid(
1832: p_code_combination_id => l_ccid
1833: , p_value_type_code => l_adr_value_type_code
1834: , p_transaction_coa_id => l_adr_transaction_coa_id
1835: , p_accounting_coa_id => l_adr_accounting_coa_id
1863: xla_accounting_err_pkg.build_message
1864: (p_appli_s_name => 'XLA'
1865: ,p_msg_name => 'XLA_UPG_OVERRIDE_ADR_UNDEFINED'
1866: ,p_token_1 => 'LINE_NUMBER'
1867: ,p_value_1 => XLA_AE_LINES_PKG.g_LineNumber
1868: ,p_token_2 => 'LINE_TYPE_NAME'
1869: ,p_value_2 => XLA_AE_SOURCES_PKG.GetComponentName (
1870: l_component_type
1871: ,l_component_code
1899: --
1900: --
1901: ------------------------------------------------------------------------------------------------
1902: -- 4219869 Business Flow
1903: -- NOTE: XLA_AE_LINES_PKG.ValidateCurrentLine should NOT be generated if business flow method is
1904: -- Prior Entry. Currently, the following code is always generated.
1905: ------------------------------------------------------------------------------------------------
1906: XLA_AE_LINES_PKG.ValidateCurrentLine;
1907:
1902: -- 4219869 Business Flow
1903: -- NOTE: XLA_AE_LINES_PKG.ValidateCurrentLine should NOT be generated if business flow method is
1904: -- Prior Entry. Currently, the following code is always generated.
1905: ------------------------------------------------------------------------------------------------
1906: XLA_AE_LINES_PKG.ValidateCurrentLine;
1907:
1908: ------------------------------------------------------------------------------------
1909: -- 4219869 Business Flow
1910: -- Populated credit and debit amounts -- Need to generate this within IF
1908: ------------------------------------------------------------------------------------
1909: -- 4219869 Business Flow
1910: -- Populated credit and debit amounts -- Need to generate this within IF
1911: ------------------------------------------------------------------------------------
1912: XLA_AE_LINES_PKG.SetDebitCreditAmounts;
1913:
1914: ----------------------------------------------------------------------------------
1915: -- 4219869 Business Flow
1916: -- Update journal entry status -- Need to generate this within IF
1940: -- To allow MPA report to determine if it should generate report process
1941: XLA_ACCOUNTING_PKG.g_mpa_accrual_exists := 'Y';
1942: ------------------------------------------------------------------------------------------
1943:
1944: l_accrual_line_num := XLA_AE_LINES_PKG.g_LineNumber;
1945: XLA_AE_LINES_PKG.CopyLineInfo(l_accrual_line_num);
1946: -- added call to set_ccid to execute mapping for secondary accrual reversal entries bug 7444204
1947: -- call ADRs
1948: -- Bug 4922099
1941: XLA_ACCOUNTING_PKG.g_mpa_accrual_exists := 'Y';
1942: ------------------------------------------------------------------------------------------
1943:
1944: l_accrual_line_num := XLA_AE_LINES_PKG.g_LineNumber;
1945: XLA_AE_LINES_PKG.CopyLineInfo(l_accrual_line_num);
1946: -- added call to set_ccid to execute mapping for secondary accrual reversal entries bug 7444204
1947: -- call ADRs
1948: -- Bug 4922099
1949: --
1965: , x_value_type_code => l_adr_value_type_code
1966: , p_side => 'NA'
1967: );
1968:
1969: xla_ae_lines_pkg.set_ccid(
1970: p_code_combination_id => l_ccid
1971: , p_value_type_code => l_adr_value_type_code
1972: , p_transaction_coa_id => l_adr_transaction_coa_id
1973: , p_accounting_coa_id => l_adr_accounting_coa_id
1988:
1989: --
1990: -- Update the line information that should be overwritten
1991: --
1992: XLA_AE_LINES_PKG.set_ae_header_id(p_ae_header_id => p_event_id ,
1993: p_header_num => 1);
1994: XLA_AE_LINES_PKG.g_rec_lines.array_header_num(XLA_AE_LINES_PKG.g_LineNumber) :=1;
1995:
1996: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
1990: -- Update the line information that should be overwritten
1991: --
1992: XLA_AE_LINES_PKG.set_ae_header_id(p_ae_header_id => p_event_id ,
1993: p_header_num => 1);
1994: XLA_AE_LINES_PKG.g_rec_lines.array_header_num(XLA_AE_LINES_PKG.g_LineNumber) :=1;
1995:
1996: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
1997:
1998: IF l_bflow_method_code <> 'NONE' THEN -- 4655713b
1992: XLA_AE_LINES_PKG.set_ae_header_id(p_ae_header_id => p_event_id ,
1993: p_header_num => 1);
1994: XLA_AE_LINES_PKG.g_rec_lines.array_header_num(XLA_AE_LINES_PKG.g_LineNumber) :=1;
1995:
1996: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
1997:
1998: IF l_bflow_method_code <> 'NONE' THEN -- 4655713b
1999: XLA_AE_LINES_PKG.g_rec_lines.array_reversal_code(XLA_AE_LINES_PKG.g_LineNumber) := CONCAT('MPA_',l_bflow_method_code);
2000: END IF;
1995:
1996: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
1997:
1998: IF l_bflow_method_code <> 'NONE' THEN -- 4655713b
1999: XLA_AE_LINES_PKG.g_rec_lines.array_reversal_code(XLA_AE_LINES_PKG.g_LineNumber) := CONCAT('MPA_',l_bflow_method_code);
2000: END IF;
2001:
2002: --
2003: -- Depending on the Reversal Method setup, do a switch side or changes sign for the amounts
2002: --
2003: -- Depending on the Reversal Method setup, do a switch side or changes sign for the amounts
2004: --
2005: IF (XLA_AE_JOURNAL_ENTRY_PKG.g_cache_ledgers_info.ledger_reversal_option = 'SIDE') THEN
2006: XLA_AE_LINES_PKG.g_rec_lines.array_natural_side_code(XLA_AE_LINES_PKG.g_LineNumber) := l_acc_rev_natural_side_code;
2007: ELSE
2008: ---------------------------------------------------------------------------------------------------
2009: -- 4262811a Switch Sign
2010: ---------------------------------------------------------------------------------------------------
2007: ELSE
2008: ---------------------------------------------------------------------------------------------------
2009: -- 4262811a Switch Sign
2010: ---------------------------------------------------------------------------------------------------
2011: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
2012: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
2013: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2014: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
2015: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2008: ---------------------------------------------------------------------------------------------------
2009: -- 4262811a Switch Sign
2010: ---------------------------------------------------------------------------------------------------
2011: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
2012: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
2013: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2014: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
2015: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2016: -- 5132302
2009: -- 4262811a Switch Sign
2010: ---------------------------------------------------------------------------------------------------
2011: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
2012: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
2013: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2014: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
2015: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2016: -- 5132302
2017: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
2010: ---------------------------------------------------------------------------------------------------
2011: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
2012: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
2013: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2014: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
2015: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2016: -- 5132302
2017: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
2018: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2011: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
2012: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
2013: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2014: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
2015: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2016: -- 5132302
2017: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
2018: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2019:
2013: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2014: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
2015: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2016: -- 5132302
2017: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
2018: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2019:
2020: END IF;
2021:
2014: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
2015: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2016: -- 5132302
2017: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
2018: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2019:
2020: END IF;
2021:
2022: -- 4955764
2019:
2020: END IF;
2021:
2022: -- 4955764
2023: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
2024: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('acc_rev_header_index'));
2025:
2026:
2027: XLA_AE_LINES_PKG.ValidateCurrentLine;
2023: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
2024: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('acc_rev_header_index'));
2025:
2026:
2027: XLA_AE_LINES_PKG.ValidateCurrentLine;
2028: XLA_AE_LINES_PKG.SetDebitCreditAmounts;
2029:
2030: XLA_AE_JOURNAL_ENTRY_PKG.UpdateJournalEntryStatus
2031: (p_hdr_idx => g_array_event(p_event_id).array_value_num('acc_rev_header_index')
2024: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('acc_rev_header_index'));
2025:
2026:
2027: XLA_AE_LINES_PKG.ValidateCurrentLine;
2028: XLA_AE_LINES_PKG.SetDebitCreditAmounts;
2029:
2030: XLA_AE_JOURNAL_ENTRY_PKG.UpdateJournalEntryStatus
2031: (p_hdr_idx => g_array_event(p_event_id).array_value_num('acc_rev_header_index')
2032: ,p_balance_type_code => l_balance_type_code);
2160: --
2161: -- bulk performance
2162: --
2163: l_balance_type_code VARCHAR2(1);
2164: l_rec_acct_attrs XLA_AE_LINES_PKG.t_rec_acct_attrs;
2165: l_log_module VARCHAR2(240);
2166:
2167: --
2168: -- Upgrade strategy
2225: IF XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id = XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.ledger_id OR
2226: l_balance_type_code <> 'B' THEN
2227:
2228: --
2229: XLA_AE_LINES_PKG.SetNewLine;
2230:
2231: p_balance_type_code := l_balance_type_code;
2232: -- set the flag so later we will know whether the gain loss line needs to be created
2233:
2237:
2238: --
2239: -- bulk performance
2240: --
2241: XLA_AE_LINES_PKG.set_ae_header_id (p_ae_header_id => p_event_id ,
2242: p_header_num => 0); -- 4262811
2243: --
2244: -- set accounting line options
2245: --
2242: p_header_num => 0); -- 4262811
2243: --
2244: -- set accounting line options
2245: --
2246: l_ae_header_id:= xla_ae_lines_pkg.SetAcctLineOption(
2247: p_natural_side_code => 'C'
2248: , p_gain_or_loss_flag => 'N'
2249: , p_gl_transfer_mode_code => 'S'
2250: , p_acct_entry_type_code => 'A'
2256: --
2257: --
2258: -- set accounting line type info
2259: --
2260: xla_ae_lines_pkg.SetAcctLineType
2261: (p_component_type => l_component_type
2262: ,p_event_type_code => l_event_type_code
2263: ,p_line_definition_owner_code => l_line_definition_owner_code
2264: ,p_line_definition_code => l_line_definition_code
2270: ,p_event_class_code => l_event_class_code);
2271: --
2272: -- set accounting class
2273: --
2274: xla_ae_lines_pkg.SetAcctClass(
2275: p_accounting_class_code => 'CLEARING'
2276: , p_ae_header_id => l_ae_header_id
2277: );
2278:
2278:
2279: --
2280: -- set rounding class
2281: --
2282: XLA_AE_LINES_PKG.g_rec_lines.array_rounding_class(XLA_AE_LINES_PKG.g_LineNumber) :=
2283: 'CLEARING';
2284:
2285: --
2286: xla_ae_lines_pkg.g_rec_lines.array_calculate_acctd_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_acctd_flag;
2282: XLA_AE_LINES_PKG.g_rec_lines.array_rounding_class(XLA_AE_LINES_PKG.g_LineNumber) :=
2283: 'CLEARING';
2284:
2285: --
2286: xla_ae_lines_pkg.g_rec_lines.array_calculate_acctd_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_acctd_flag;
2287: xla_ae_lines_pkg.g_rec_lines.array_calculate_g_l_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_g_l_flag;
2288: --
2289: -- bulk performance
2290: --
2283: 'CLEARING';
2284:
2285: --
2286: xla_ae_lines_pkg.g_rec_lines.array_calculate_acctd_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_acctd_flag;
2287: xla_ae_lines_pkg.g_rec_lines.array_calculate_g_l_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_g_l_flag;
2288: --
2289: -- bulk performance
2290: --
2291: XLA_AE_LINES_PKG.g_rec_lines.array_balance_type_code(XLA_AE_LINES_PKG.g_LineNumber) := l_balance_type_code;
2287: xla_ae_lines_pkg.g_rec_lines.array_calculate_g_l_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_g_l_flag;
2288: --
2289: -- bulk performance
2290: --
2291: XLA_AE_LINES_PKG.g_rec_lines.array_balance_type_code(XLA_AE_LINES_PKG.g_LineNumber) := l_balance_type_code;
2292:
2293: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_id(XLA_AE_LINES_PKG.g_LineNumber) :=
2294: XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id;
2295:
2289: -- bulk performance
2290: --
2291: XLA_AE_LINES_PKG.g_rec_lines.array_balance_type_code(XLA_AE_LINES_PKG.g_LineNumber) := l_balance_type_code;
2292:
2293: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_id(XLA_AE_LINES_PKG.g_LineNumber) :=
2294: XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id;
2295:
2296: -- 4955764
2297: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
2293: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_id(XLA_AE_LINES_PKG.g_LineNumber) :=
2294: XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id;
2295:
2296: -- 4955764
2297: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
2298: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('header_index'));
2299:
2300: -- 4458381 Public Sector Enh
2301:
2321: l_rec_acct_attrs.array_num_value(7) := p_source_15;
2322: l_rec_acct_attrs.array_acct_attr_code(8) := 'PARTY_TYPE';
2323: l_rec_acct_attrs.array_char_value(8) := p_source_16;
2324:
2325: XLA_AE_LINES_PKG.SetLineAcctAttrs(l_rec_acct_attrs);
2326: p_gain_or_loss_ref := XLA_AE_LINES_PKG.g_rec_lines.array_gain_or_loss_ref(XLA_AE_LINES_PKG.g_LineNumber);
2327:
2328: ---------------------------------------------------------------------------------------------------------------
2329: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
2322: l_rec_acct_attrs.array_acct_attr_code(8) := 'PARTY_TYPE';
2323: l_rec_acct_attrs.array_char_value(8) := p_source_16;
2324:
2325: XLA_AE_LINES_PKG.SetLineAcctAttrs(l_rec_acct_attrs);
2326: p_gain_or_loss_ref := XLA_AE_LINES_PKG.g_rec_lines.array_gain_or_loss_ref(XLA_AE_LINES_PKG.g_LineNumber);
2327:
2328: ---------------------------------------------------------------------------------------------------------------
2329: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
2330: ---------------------------------------------------------------------------------------------------------------
2325: XLA_AE_LINES_PKG.SetLineAcctAttrs(l_rec_acct_attrs);
2326: p_gain_or_loss_ref := XLA_AE_LINES_PKG.g_rec_lines.array_gain_or_loss_ref(XLA_AE_LINES_PKG.g_LineNumber);
2327:
2328: ---------------------------------------------------------------------------------------------------------------
2329: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
2330: ---------------------------------------------------------------------------------------------------------------
2331: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
2332:
2333: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
2327:
2328: ---------------------------------------------------------------------------------------------------------------
2329: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
2330: ---------------------------------------------------------------------------------------------------------------
2331: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
2332:
2333: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
2334: l_enc_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_enc_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
2335:
2329: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
2330: ---------------------------------------------------------------------------------------------------------------
2331: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
2332:
2333: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
2334: l_enc_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_enc_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
2335:
2336: IF xla_accounting_cache_pkg.GetValueChar
2337: (p_source_code => 'LEDGER_CATEGORY_CODE'
2330: ---------------------------------------------------------------------------------------------------------------
2331: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
2332:
2333: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
2334: l_enc_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_enc_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
2335:
2336: IF xla_accounting_cache_pkg.GetValueChar
2337: (p_source_code => 'LEDGER_CATEGORY_CODE'
2338: ,p_target_ledger_id => XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id) IN ('PRIMARY','ALC')
2341: AND ( (NVL(l_actual_upg_option, 'N') IN ('Y', 'O')) OR
2342: (NVL(l_enc_upg_option, 'N') IN ('Y', 'O'))
2343: )
2344: THEN
2345: xla_ae_lines_pkg.BflowUpgEntry
2346: (p_business_method_code => l_bflow_method_code
2347: ,p_business_class_code => l_bflow_class_code
2348: ,p_balance_type => l_balance_type_code);
2349: ELSE
2358: --
2359: -- call description
2360: --
2361:
2362: xla_ae_lines_pkg.SetLineDescription(
2363: p_ae_header_id => l_ae_header_id
2364: ,p_description => Description_1 (
2365: p_application_id => p_application_id
2366: , p_ae_header_id => l_ae_header_id
2393: , x_value_type_code => l_adr_value_type_code
2394: , p_side => 'NA'
2395: );
2396:
2397: xla_ae_lines_pkg.set_ccid(
2398: p_code_combination_id => l_ccid
2399: , p_value_type_code => l_adr_value_type_code
2400: , p_transaction_coa_id => l_adr_transaction_coa_id
2401: , p_accounting_coa_id => l_adr_accounting_coa_id
2429: xla_accounting_err_pkg.build_message
2430: (p_appli_s_name => 'XLA'
2431: ,p_msg_name => 'XLA_UPG_OVERRIDE_ADR_UNDEFINED'
2432: ,p_token_1 => 'LINE_NUMBER'
2433: ,p_value_1 => XLA_AE_LINES_PKG.g_LineNumber
2434: ,p_token_2 => 'LINE_TYPE_NAME'
2435: ,p_value_2 => XLA_AE_SOURCES_PKG.GetComponentName (
2436: l_component_type
2437: ,l_component_code
2465: --
2466: --
2467: ------------------------------------------------------------------------------------------------
2468: -- 4219869 Business Flow
2469: -- NOTE: XLA_AE_LINES_PKG.ValidateCurrentLine should NOT be generated if business flow method is
2470: -- Prior Entry. Currently, the following code is always generated.
2471: ------------------------------------------------------------------------------------------------
2472: XLA_AE_LINES_PKG.ValidateCurrentLine;
2473:
2468: -- 4219869 Business Flow
2469: -- NOTE: XLA_AE_LINES_PKG.ValidateCurrentLine should NOT be generated if business flow method is
2470: -- Prior Entry. Currently, the following code is always generated.
2471: ------------------------------------------------------------------------------------------------
2472: XLA_AE_LINES_PKG.ValidateCurrentLine;
2473:
2474: ------------------------------------------------------------------------------------
2475: -- 4219869 Business Flow
2476: -- Populated credit and debit amounts -- Need to generate this within IF
2474: ------------------------------------------------------------------------------------
2475: -- 4219869 Business Flow
2476: -- Populated credit and debit amounts -- Need to generate this within IF
2477: ------------------------------------------------------------------------------------
2478: XLA_AE_LINES_PKG.SetDebitCreditAmounts;
2479:
2480: ----------------------------------------------------------------------------------
2481: -- 4219869 Business Flow
2482: -- Update journal entry status -- Need to generate this within IF
2506: -- To allow MPA report to determine if it should generate report process
2507: XLA_ACCOUNTING_PKG.g_mpa_accrual_exists := 'Y';
2508: ------------------------------------------------------------------------------------------
2509:
2510: l_accrual_line_num := XLA_AE_LINES_PKG.g_LineNumber;
2511: XLA_AE_LINES_PKG.CopyLineInfo(l_accrual_line_num);
2512: -- added call to set_ccid to execute mapping for secondary accrual reversal entries bug 7444204
2513: -- call ADRs
2514: -- Bug 4922099
2507: XLA_ACCOUNTING_PKG.g_mpa_accrual_exists := 'Y';
2508: ------------------------------------------------------------------------------------------
2509:
2510: l_accrual_line_num := XLA_AE_LINES_PKG.g_LineNumber;
2511: XLA_AE_LINES_PKG.CopyLineInfo(l_accrual_line_num);
2512: -- added call to set_ccid to execute mapping for secondary accrual reversal entries bug 7444204
2513: -- call ADRs
2514: -- Bug 4922099
2515: --
2531: , x_value_type_code => l_adr_value_type_code
2532: , p_side => 'NA'
2533: );
2534:
2535: xla_ae_lines_pkg.set_ccid(
2536: p_code_combination_id => l_ccid
2537: , p_value_type_code => l_adr_value_type_code
2538: , p_transaction_coa_id => l_adr_transaction_coa_id
2539: , p_accounting_coa_id => l_adr_accounting_coa_id
2554:
2555: --
2556: -- Update the line information that should be overwritten
2557: --
2558: XLA_AE_LINES_PKG.set_ae_header_id(p_ae_header_id => p_event_id ,
2559: p_header_num => 1);
2560: XLA_AE_LINES_PKG.g_rec_lines.array_header_num(XLA_AE_LINES_PKG.g_LineNumber) :=1;
2561:
2562: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
2556: -- Update the line information that should be overwritten
2557: --
2558: XLA_AE_LINES_PKG.set_ae_header_id(p_ae_header_id => p_event_id ,
2559: p_header_num => 1);
2560: XLA_AE_LINES_PKG.g_rec_lines.array_header_num(XLA_AE_LINES_PKG.g_LineNumber) :=1;
2561:
2562: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
2563:
2564: IF l_bflow_method_code <> 'NONE' THEN -- 4655713b
2558: XLA_AE_LINES_PKG.set_ae_header_id(p_ae_header_id => p_event_id ,
2559: p_header_num => 1);
2560: XLA_AE_LINES_PKG.g_rec_lines.array_header_num(XLA_AE_LINES_PKG.g_LineNumber) :=1;
2561:
2562: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
2563:
2564: IF l_bflow_method_code <> 'NONE' THEN -- 4655713b
2565: XLA_AE_LINES_PKG.g_rec_lines.array_reversal_code(XLA_AE_LINES_PKG.g_LineNumber) := CONCAT('MPA_',l_bflow_method_code);
2566: END IF;
2561:
2562: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
2563:
2564: IF l_bflow_method_code <> 'NONE' THEN -- 4655713b
2565: XLA_AE_LINES_PKG.g_rec_lines.array_reversal_code(XLA_AE_LINES_PKG.g_LineNumber) := CONCAT('MPA_',l_bflow_method_code);
2566: END IF;
2567:
2568: --
2569: -- Depending on the Reversal Method setup, do a switch side or changes sign for the amounts
2568: --
2569: -- Depending on the Reversal Method setup, do a switch side or changes sign for the amounts
2570: --
2571: IF (XLA_AE_JOURNAL_ENTRY_PKG.g_cache_ledgers_info.ledger_reversal_option = 'SIDE') THEN
2572: XLA_AE_LINES_PKG.g_rec_lines.array_natural_side_code(XLA_AE_LINES_PKG.g_LineNumber) := l_acc_rev_natural_side_code;
2573: ELSE
2574: ---------------------------------------------------------------------------------------------------
2575: -- 4262811a Switch Sign
2576: ---------------------------------------------------------------------------------------------------
2573: ELSE
2574: ---------------------------------------------------------------------------------------------------
2575: -- 4262811a Switch Sign
2576: ---------------------------------------------------------------------------------------------------
2577: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
2578: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
2579: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2580: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
2581: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2574: ---------------------------------------------------------------------------------------------------
2575: -- 4262811a Switch Sign
2576: ---------------------------------------------------------------------------------------------------
2577: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
2578: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
2579: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2580: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
2581: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2582: -- 5132302
2575: -- 4262811a Switch Sign
2576: ---------------------------------------------------------------------------------------------------
2577: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
2578: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
2579: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2580: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
2581: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2582: -- 5132302
2583: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
2576: ---------------------------------------------------------------------------------------------------
2577: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
2578: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
2579: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2580: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
2581: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2582: -- 5132302
2583: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
2584: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2577: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
2578: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
2579: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2580: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
2581: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2582: -- 5132302
2583: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
2584: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2585:
2579: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2580: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
2581: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2582: -- 5132302
2583: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
2584: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2585:
2586: END IF;
2587:
2580: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
2581: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2582: -- 5132302
2583: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
2584: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
2585:
2586: END IF;
2587:
2588: -- 4955764
2585:
2586: END IF;
2587:
2588: -- 4955764
2589: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
2590: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('acc_rev_header_index'));
2591:
2592:
2593: XLA_AE_LINES_PKG.ValidateCurrentLine;
2589: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
2590: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('acc_rev_header_index'));
2591:
2592:
2593: XLA_AE_LINES_PKG.ValidateCurrentLine;
2594: XLA_AE_LINES_PKG.SetDebitCreditAmounts;
2595:
2596: XLA_AE_JOURNAL_ENTRY_PKG.UpdateJournalEntryStatus
2597: (p_hdr_idx => g_array_event(p_event_id).array_value_num('acc_rev_header_index')
2590: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('acc_rev_header_index'));
2591:
2592:
2593: XLA_AE_LINES_PKG.ValidateCurrentLine;
2594: XLA_AE_LINES_PKG.SetDebitCreditAmounts;
2595:
2596: XLA_AE_JOURNAL_ENTRY_PKG.UpdateJournalEntryStatus
2597: (p_hdr_idx => g_array_event(p_event_id).array_value_num('acc_rev_header_index')
2598: ,p_balance_type_code => l_balance_type_code);
2720: --
2721: -- bulk performance
2722: --
2723: l_balance_type_code VARCHAR2(1);
2724: l_rec_acct_attrs XLA_AE_LINES_PKG.t_rec_acct_attrs;
2725: l_log_module VARCHAR2(240);
2726:
2727: --
2728: -- Upgrade strategy
2785: IF XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id = XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.ledger_id OR
2786: l_balance_type_code <> 'B' THEN
2787:
2788: --
2789: XLA_AE_LINES_PKG.SetNewLine;
2790:
2791: p_balance_type_code := l_balance_type_code;
2792: -- set the flag so later we will know whether the gain loss line needs to be created
2793:
2797:
2798: --
2799: -- bulk performance
2800: --
2801: XLA_AE_LINES_PKG.set_ae_header_id (p_ae_header_id => p_event_id ,
2802: p_header_num => 0); -- 4262811
2803: --
2804: -- set accounting line options
2805: --
2802: p_header_num => 0); -- 4262811
2803: --
2804: -- set accounting line options
2805: --
2806: l_ae_header_id:= xla_ae_lines_pkg.SetAcctLineOption(
2807: p_natural_side_code => 'D'
2808: , p_gain_or_loss_flag => 'N'
2809: , p_gl_transfer_mode_code => 'S'
2810: , p_acct_entry_type_code => 'A'
2816: --
2817: --
2818: -- set accounting line type info
2819: --
2820: xla_ae_lines_pkg.SetAcctLineType
2821: (p_component_type => l_component_type
2822: ,p_event_type_code => l_event_type_code
2823: ,p_line_definition_owner_code => l_line_definition_owner_code
2824: ,p_line_definition_code => l_line_definition_code
2830: ,p_event_class_code => l_event_class_code);
2831: --
2832: -- set accounting class
2833: --
2834: xla_ae_lines_pkg.SetAcctClass(
2835: p_accounting_class_code => 'LIABILITY'
2836: , p_ae_header_id => l_ae_header_id
2837: );
2838:
2838:
2839: --
2840: -- set rounding class
2841: --
2842: XLA_AE_LINES_PKG.g_rec_lines.array_rounding_class(XLA_AE_LINES_PKG.g_LineNumber) :=
2843: 'LIABILITY';
2844:
2845: --
2846: xla_ae_lines_pkg.g_rec_lines.array_calculate_acctd_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_acctd_flag;
2842: XLA_AE_LINES_PKG.g_rec_lines.array_rounding_class(XLA_AE_LINES_PKG.g_LineNumber) :=
2843: 'LIABILITY';
2844:
2845: --
2846: xla_ae_lines_pkg.g_rec_lines.array_calculate_acctd_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_acctd_flag;
2847: xla_ae_lines_pkg.g_rec_lines.array_calculate_g_l_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_g_l_flag;
2848: --
2849: -- bulk performance
2850: --
2843: 'LIABILITY';
2844:
2845: --
2846: xla_ae_lines_pkg.g_rec_lines.array_calculate_acctd_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_acctd_flag;
2847: xla_ae_lines_pkg.g_rec_lines.array_calculate_g_l_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_g_l_flag;
2848: --
2849: -- bulk performance
2850: --
2851: XLA_AE_LINES_PKG.g_rec_lines.array_balance_type_code(XLA_AE_LINES_PKG.g_LineNumber) := l_balance_type_code;
2847: xla_ae_lines_pkg.g_rec_lines.array_calculate_g_l_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_g_l_flag;
2848: --
2849: -- bulk performance
2850: --
2851: XLA_AE_LINES_PKG.g_rec_lines.array_balance_type_code(XLA_AE_LINES_PKG.g_LineNumber) := l_balance_type_code;
2852:
2853: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_id(XLA_AE_LINES_PKG.g_LineNumber) :=
2854: XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id;
2855:
2849: -- bulk performance
2850: --
2851: XLA_AE_LINES_PKG.g_rec_lines.array_balance_type_code(XLA_AE_LINES_PKG.g_LineNumber) := l_balance_type_code;
2852:
2853: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_id(XLA_AE_LINES_PKG.g_LineNumber) :=
2854: XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id;
2855:
2856: -- 4955764
2857: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
2853: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_id(XLA_AE_LINES_PKG.g_LineNumber) :=
2854: XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id;
2855:
2856: -- 4955764
2857: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
2858: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('header_index'));
2859:
2860: -- 4458381 Public Sector Enh
2861:
2881: l_rec_acct_attrs.array_num_value(7) := p_source_15;
2882: l_rec_acct_attrs.array_acct_attr_code(8) := 'PARTY_TYPE';
2883: l_rec_acct_attrs.array_char_value(8) := p_source_16;
2884:
2885: XLA_AE_LINES_PKG.SetLineAcctAttrs(l_rec_acct_attrs);
2886: p_gain_or_loss_ref := XLA_AE_LINES_PKG.g_rec_lines.array_gain_or_loss_ref(XLA_AE_LINES_PKG.g_LineNumber);
2887:
2888: ---------------------------------------------------------------------------------------------------------------
2889: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
2882: l_rec_acct_attrs.array_acct_attr_code(8) := 'PARTY_TYPE';
2883: l_rec_acct_attrs.array_char_value(8) := p_source_16;
2884:
2885: XLA_AE_LINES_PKG.SetLineAcctAttrs(l_rec_acct_attrs);
2886: p_gain_or_loss_ref := XLA_AE_LINES_PKG.g_rec_lines.array_gain_or_loss_ref(XLA_AE_LINES_PKG.g_LineNumber);
2887:
2888: ---------------------------------------------------------------------------------------------------------------
2889: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
2890: ---------------------------------------------------------------------------------------------------------------
2885: XLA_AE_LINES_PKG.SetLineAcctAttrs(l_rec_acct_attrs);
2886: p_gain_or_loss_ref := XLA_AE_LINES_PKG.g_rec_lines.array_gain_or_loss_ref(XLA_AE_LINES_PKG.g_LineNumber);
2887:
2888: ---------------------------------------------------------------------------------------------------------------
2889: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
2890: ---------------------------------------------------------------------------------------------------------------
2891: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
2892:
2893: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
2887:
2888: ---------------------------------------------------------------------------------------------------------------
2889: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
2890: ---------------------------------------------------------------------------------------------------------------
2891: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
2892:
2893: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
2894: l_enc_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_enc_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
2895:
2889: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
2890: ---------------------------------------------------------------------------------------------------------------
2891: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
2892:
2893: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
2894: l_enc_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_enc_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
2895:
2896: IF xla_accounting_cache_pkg.GetValueChar
2897: (p_source_code => 'LEDGER_CATEGORY_CODE'
2890: ---------------------------------------------------------------------------------------------------------------
2891: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
2892:
2893: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
2894: l_enc_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_enc_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
2895:
2896: IF xla_accounting_cache_pkg.GetValueChar
2897: (p_source_code => 'LEDGER_CATEGORY_CODE'
2898: ,p_target_ledger_id => XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id) IN ('PRIMARY','ALC')
2901: AND ( (NVL(l_actual_upg_option, 'N') IN ('Y', 'O')) OR
2902: (NVL(l_enc_upg_option, 'N') IN ('Y', 'O'))
2903: )
2904: THEN
2905: xla_ae_lines_pkg.BflowUpgEntry
2906: (p_business_method_code => l_bflow_method_code
2907: ,p_business_class_code => l_bflow_class_code
2908: ,p_balance_type => l_balance_type_code);
2909: ELSE
2941: , x_value_type_code => l_adr_value_type_code
2942: , p_side => 'NA'
2943: );
2944:
2945: xla_ae_lines_pkg.set_ccid(
2946: p_code_combination_id => l_ccid
2947: , p_value_type_code => l_adr_value_type_code
2948: , p_transaction_coa_id => l_adr_transaction_coa_id
2949: , p_accounting_coa_id => l_adr_accounting_coa_id
2977: xla_accounting_err_pkg.build_message
2978: (p_appli_s_name => 'XLA'
2979: ,p_msg_name => 'XLA_UPG_OVERRIDE_ADR_UNDEFINED'
2980: ,p_token_1 => 'LINE_NUMBER'
2981: ,p_value_1 => XLA_AE_LINES_PKG.g_LineNumber
2982: ,p_token_2 => 'LINE_TYPE_NAME'
2983: ,p_value_2 => XLA_AE_SOURCES_PKG.GetComponentName (
2984: l_component_type
2985: ,l_component_code
3013: --
3014: --
3015: ------------------------------------------------------------------------------------------------
3016: -- 4219869 Business Flow
3017: -- NOTE: XLA_AE_LINES_PKG.ValidateCurrentLine should NOT be generated if business flow method is
3018: -- Prior Entry. Currently, the following code is always generated.
3019: ------------------------------------------------------------------------------------------------
3020: XLA_AE_LINES_PKG.ValidateCurrentLine;
3021:
3016: -- 4219869 Business Flow
3017: -- NOTE: XLA_AE_LINES_PKG.ValidateCurrentLine should NOT be generated if business flow method is
3018: -- Prior Entry. Currently, the following code is always generated.
3019: ------------------------------------------------------------------------------------------------
3020: XLA_AE_LINES_PKG.ValidateCurrentLine;
3021:
3022: ------------------------------------------------------------------------------------
3023: -- 4219869 Business Flow
3024: -- Populated credit and debit amounts -- Need to generate this within IF
3022: ------------------------------------------------------------------------------------
3023: -- 4219869 Business Flow
3024: -- Populated credit and debit amounts -- Need to generate this within IF
3025: ------------------------------------------------------------------------------------
3026: XLA_AE_LINES_PKG.SetDebitCreditAmounts;
3027:
3028: ----------------------------------------------------------------------------------
3029: -- 4219869 Business Flow
3030: -- Update journal entry status -- Need to generate this within IF
3054: -- To allow MPA report to determine if it should generate report process
3055: XLA_ACCOUNTING_PKG.g_mpa_accrual_exists := 'Y';
3056: ------------------------------------------------------------------------------------------
3057:
3058: l_accrual_line_num := XLA_AE_LINES_PKG.g_LineNumber;
3059: XLA_AE_LINES_PKG.CopyLineInfo(l_accrual_line_num);
3060: -- added call to set_ccid to execute mapping for secondary accrual reversal entries bug 7444204
3061: -- call ADRs
3062: -- Bug 4922099
3055: XLA_ACCOUNTING_PKG.g_mpa_accrual_exists := 'Y';
3056: ------------------------------------------------------------------------------------------
3057:
3058: l_accrual_line_num := XLA_AE_LINES_PKG.g_LineNumber;
3059: XLA_AE_LINES_PKG.CopyLineInfo(l_accrual_line_num);
3060: -- added call to set_ccid to execute mapping for secondary accrual reversal entries bug 7444204
3061: -- call ADRs
3062: -- Bug 4922099
3063: --
3079: , x_value_type_code => l_adr_value_type_code
3080: , p_side => 'NA'
3081: );
3082:
3083: xla_ae_lines_pkg.set_ccid(
3084: p_code_combination_id => l_ccid
3085: , p_value_type_code => l_adr_value_type_code
3086: , p_transaction_coa_id => l_adr_transaction_coa_id
3087: , p_accounting_coa_id => l_adr_accounting_coa_id
3102:
3103: --
3104: -- Update the line information that should be overwritten
3105: --
3106: XLA_AE_LINES_PKG.set_ae_header_id(p_ae_header_id => p_event_id ,
3107: p_header_num => 1);
3108: XLA_AE_LINES_PKG.g_rec_lines.array_header_num(XLA_AE_LINES_PKG.g_LineNumber) :=1;
3109:
3110: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
3104: -- Update the line information that should be overwritten
3105: --
3106: XLA_AE_LINES_PKG.set_ae_header_id(p_ae_header_id => p_event_id ,
3107: p_header_num => 1);
3108: XLA_AE_LINES_PKG.g_rec_lines.array_header_num(XLA_AE_LINES_PKG.g_LineNumber) :=1;
3109:
3110: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
3111:
3112: IF l_bflow_method_code <> 'NONE' THEN -- 4655713b
3106: XLA_AE_LINES_PKG.set_ae_header_id(p_ae_header_id => p_event_id ,
3107: p_header_num => 1);
3108: XLA_AE_LINES_PKG.g_rec_lines.array_header_num(XLA_AE_LINES_PKG.g_LineNumber) :=1;
3109:
3110: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
3111:
3112: IF l_bflow_method_code <> 'NONE' THEN -- 4655713b
3113: XLA_AE_LINES_PKG.g_rec_lines.array_reversal_code(XLA_AE_LINES_PKG.g_LineNumber) := CONCAT('MPA_',l_bflow_method_code);
3114: END IF;
3109:
3110: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
3111:
3112: IF l_bflow_method_code <> 'NONE' THEN -- 4655713b
3113: XLA_AE_LINES_PKG.g_rec_lines.array_reversal_code(XLA_AE_LINES_PKG.g_LineNumber) := CONCAT('MPA_',l_bflow_method_code);
3114: END IF;
3115:
3116: --
3117: -- Depending on the Reversal Method setup, do a switch side or changes sign for the amounts
3116: --
3117: -- Depending on the Reversal Method setup, do a switch side or changes sign for the amounts
3118: --
3119: IF (XLA_AE_JOURNAL_ENTRY_PKG.g_cache_ledgers_info.ledger_reversal_option = 'SIDE') THEN
3120: XLA_AE_LINES_PKG.g_rec_lines.array_natural_side_code(XLA_AE_LINES_PKG.g_LineNumber) := l_acc_rev_natural_side_code;
3121: ELSE
3122: ---------------------------------------------------------------------------------------------------
3123: -- 4262811a Switch Sign
3124: ---------------------------------------------------------------------------------------------------
3121: ELSE
3122: ---------------------------------------------------------------------------------------------------
3123: -- 4262811a Switch Sign
3124: ---------------------------------------------------------------------------------------------------
3125: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
3126: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
3127: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3128: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
3129: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3122: ---------------------------------------------------------------------------------------------------
3123: -- 4262811a Switch Sign
3124: ---------------------------------------------------------------------------------------------------
3125: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
3126: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
3127: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3128: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
3129: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3130: -- 5132302
3123: -- 4262811a Switch Sign
3124: ---------------------------------------------------------------------------------------------------
3125: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
3126: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
3127: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3128: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
3129: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3130: -- 5132302
3131: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
3124: ---------------------------------------------------------------------------------------------------
3125: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
3126: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
3127: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3128: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
3129: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3130: -- 5132302
3131: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
3132: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3125: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
3126: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
3127: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3128: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
3129: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3130: -- 5132302
3131: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
3132: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3133:
3127: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3128: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
3129: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3130: -- 5132302
3131: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
3132: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3133:
3134: END IF;
3135:
3128: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
3129: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3130: -- 5132302
3131: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
3132: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3133:
3134: END IF;
3135:
3136: -- 4955764
3133:
3134: END IF;
3135:
3136: -- 4955764
3137: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
3138: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('acc_rev_header_index'));
3139:
3140:
3141: XLA_AE_LINES_PKG.ValidateCurrentLine;
3137: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
3138: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('acc_rev_header_index'));
3139:
3140:
3141: XLA_AE_LINES_PKG.ValidateCurrentLine;
3142: XLA_AE_LINES_PKG.SetDebitCreditAmounts;
3143:
3144: XLA_AE_JOURNAL_ENTRY_PKG.UpdateJournalEntryStatus
3145: (p_hdr_idx => g_array_event(p_event_id).array_value_num('acc_rev_header_index')
3138: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('acc_rev_header_index'));
3139:
3140:
3141: XLA_AE_LINES_PKG.ValidateCurrentLine;
3142: XLA_AE_LINES_PKG.SetDebitCreditAmounts;
3143:
3144: XLA_AE_JOURNAL_ENTRY_PKG.UpdateJournalEntryStatus
3145: (p_hdr_idx => g_array_event(p_event_id).array_value_num('acc_rev_header_index')
3146: ,p_balance_type_code => l_balance_type_code);
3268: --
3269: -- bulk performance
3270: --
3271: l_balance_type_code VARCHAR2(1);
3272: l_rec_acct_attrs XLA_AE_LINES_PKG.t_rec_acct_attrs;
3273: l_log_module VARCHAR2(240);
3274:
3275: --
3276: -- Upgrade strategy
3333: IF XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id = XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.ledger_id OR
3334: l_balance_type_code <> 'B' THEN
3335:
3336: --
3337: XLA_AE_LINES_PKG.SetNewLine;
3338:
3339: p_balance_type_code := l_balance_type_code;
3340: -- set the flag so later we will know whether the gain loss line needs to be created
3341:
3345:
3346: --
3347: -- bulk performance
3348: --
3349: XLA_AE_LINES_PKG.set_ae_header_id (p_ae_header_id => p_event_id ,
3350: p_header_num => 0); -- 4262811
3351: --
3352: -- set accounting line options
3353: --
3350: p_header_num => 0); -- 4262811
3351: --
3352: -- set accounting line options
3353: --
3354: l_ae_header_id:= xla_ae_lines_pkg.SetAcctLineOption(
3355: p_natural_side_code => 'D'
3356: , p_gain_or_loss_flag => 'N'
3357: , p_gl_transfer_mode_code => 'S'
3358: , p_acct_entry_type_code => 'A'
3364: --
3365: --
3366: -- set accounting line type info
3367: --
3368: xla_ae_lines_pkg.SetAcctLineType
3369: (p_component_type => l_component_type
3370: ,p_event_type_code => l_event_type_code
3371: ,p_line_definition_owner_code => l_line_definition_owner_code
3372: ,p_line_definition_code => l_line_definition_code
3378: ,p_event_class_code => l_event_class_code);
3379: --
3380: -- set accounting class
3381: --
3382: xla_ae_lines_pkg.SetAcctClass(
3383: p_accounting_class_code => 'CLEARING'
3384: , p_ae_header_id => l_ae_header_id
3385: );
3386:
3386:
3387: --
3388: -- set rounding class
3389: --
3390: XLA_AE_LINES_PKG.g_rec_lines.array_rounding_class(XLA_AE_LINES_PKG.g_LineNumber) :=
3391: 'CLEARING';
3392:
3393: --
3394: xla_ae_lines_pkg.g_rec_lines.array_calculate_acctd_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_acctd_flag;
3390: XLA_AE_LINES_PKG.g_rec_lines.array_rounding_class(XLA_AE_LINES_PKG.g_LineNumber) :=
3391: 'CLEARING';
3392:
3393: --
3394: xla_ae_lines_pkg.g_rec_lines.array_calculate_acctd_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_acctd_flag;
3395: xla_ae_lines_pkg.g_rec_lines.array_calculate_g_l_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_g_l_flag;
3396: --
3397: -- bulk performance
3398: --
3391: 'CLEARING';
3392:
3393: --
3394: xla_ae_lines_pkg.g_rec_lines.array_calculate_acctd_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_acctd_flag;
3395: xla_ae_lines_pkg.g_rec_lines.array_calculate_g_l_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_g_l_flag;
3396: --
3397: -- bulk performance
3398: --
3399: XLA_AE_LINES_PKG.g_rec_lines.array_balance_type_code(XLA_AE_LINES_PKG.g_LineNumber) := l_balance_type_code;
3395: xla_ae_lines_pkg.g_rec_lines.array_calculate_g_l_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_g_l_flag;
3396: --
3397: -- bulk performance
3398: --
3399: XLA_AE_LINES_PKG.g_rec_lines.array_balance_type_code(XLA_AE_LINES_PKG.g_LineNumber) := l_balance_type_code;
3400:
3401: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_id(XLA_AE_LINES_PKG.g_LineNumber) :=
3402: XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id;
3403:
3397: -- bulk performance
3398: --
3399: XLA_AE_LINES_PKG.g_rec_lines.array_balance_type_code(XLA_AE_LINES_PKG.g_LineNumber) := l_balance_type_code;
3400:
3401: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_id(XLA_AE_LINES_PKG.g_LineNumber) :=
3402: XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id;
3403:
3404: -- 4955764
3405: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
3401: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_id(XLA_AE_LINES_PKG.g_LineNumber) :=
3402: XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id;
3403:
3404: -- 4955764
3405: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
3406: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('header_index'));
3407:
3408: -- 4458381 Public Sector Enh
3409:
3429: l_rec_acct_attrs.array_num_value(7) := p_source_15;
3430: l_rec_acct_attrs.array_acct_attr_code(8) := 'PARTY_TYPE';
3431: l_rec_acct_attrs.array_char_value(8) := p_source_16;
3432:
3433: XLA_AE_LINES_PKG.SetLineAcctAttrs(l_rec_acct_attrs);
3434: p_gain_or_loss_ref := XLA_AE_LINES_PKG.g_rec_lines.array_gain_or_loss_ref(XLA_AE_LINES_PKG.g_LineNumber);
3435:
3436: ---------------------------------------------------------------------------------------------------------------
3437: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
3430: l_rec_acct_attrs.array_acct_attr_code(8) := 'PARTY_TYPE';
3431: l_rec_acct_attrs.array_char_value(8) := p_source_16;
3432:
3433: XLA_AE_LINES_PKG.SetLineAcctAttrs(l_rec_acct_attrs);
3434: p_gain_or_loss_ref := XLA_AE_LINES_PKG.g_rec_lines.array_gain_or_loss_ref(XLA_AE_LINES_PKG.g_LineNumber);
3435:
3436: ---------------------------------------------------------------------------------------------------------------
3437: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
3438: ---------------------------------------------------------------------------------------------------------------
3433: XLA_AE_LINES_PKG.SetLineAcctAttrs(l_rec_acct_attrs);
3434: p_gain_or_loss_ref := XLA_AE_LINES_PKG.g_rec_lines.array_gain_or_loss_ref(XLA_AE_LINES_PKG.g_LineNumber);
3435:
3436: ---------------------------------------------------------------------------------------------------------------
3437: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
3438: ---------------------------------------------------------------------------------------------------------------
3439: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
3440:
3441: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
3435:
3436: ---------------------------------------------------------------------------------------------------------------
3437: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
3438: ---------------------------------------------------------------------------------------------------------------
3439: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
3440:
3441: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
3442: l_enc_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_enc_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
3443:
3437: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
3438: ---------------------------------------------------------------------------------------------------------------
3439: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
3440:
3441: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
3442: l_enc_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_enc_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
3443:
3444: IF xla_accounting_cache_pkg.GetValueChar
3445: (p_source_code => 'LEDGER_CATEGORY_CODE'
3438: ---------------------------------------------------------------------------------------------------------------
3439: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
3440:
3441: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
3442: l_enc_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_enc_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
3443:
3444: IF xla_accounting_cache_pkg.GetValueChar
3445: (p_source_code => 'LEDGER_CATEGORY_CODE'
3446: ,p_target_ledger_id => XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id) IN ('PRIMARY','ALC')
3449: AND ( (NVL(l_actual_upg_option, 'N') IN ('Y', 'O')) OR
3450: (NVL(l_enc_upg_option, 'N') IN ('Y', 'O'))
3451: )
3452: THEN
3453: xla_ae_lines_pkg.BflowUpgEntry
3454: (p_business_method_code => l_bflow_method_code
3455: ,p_business_class_code => l_bflow_class_code
3456: ,p_balance_type => l_balance_type_code);
3457: ELSE
3489: , x_value_type_code => l_adr_value_type_code
3490: , p_side => 'NA'
3491: );
3492:
3493: xla_ae_lines_pkg.set_ccid(
3494: p_code_combination_id => l_ccid
3495: , p_value_type_code => l_adr_value_type_code
3496: , p_transaction_coa_id => l_adr_transaction_coa_id
3497: , p_accounting_coa_id => l_adr_accounting_coa_id
3525: xla_accounting_err_pkg.build_message
3526: (p_appli_s_name => 'XLA'
3527: ,p_msg_name => 'XLA_UPG_OVERRIDE_ADR_UNDEFINED'
3528: ,p_token_1 => 'LINE_NUMBER'
3529: ,p_value_1 => XLA_AE_LINES_PKG.g_LineNumber
3530: ,p_token_2 => 'LINE_TYPE_NAME'
3531: ,p_value_2 => XLA_AE_SOURCES_PKG.GetComponentName (
3532: l_component_type
3533: ,l_component_code
3561: --
3562: --
3563: ------------------------------------------------------------------------------------------------
3564: -- 4219869 Business Flow
3565: -- NOTE: XLA_AE_LINES_PKG.ValidateCurrentLine should NOT be generated if business flow method is
3566: -- Prior Entry. Currently, the following code is always generated.
3567: ------------------------------------------------------------------------------------------------
3568: XLA_AE_LINES_PKG.ValidateCurrentLine;
3569:
3564: -- 4219869 Business Flow
3565: -- NOTE: XLA_AE_LINES_PKG.ValidateCurrentLine should NOT be generated if business flow method is
3566: -- Prior Entry. Currently, the following code is always generated.
3567: ------------------------------------------------------------------------------------------------
3568: XLA_AE_LINES_PKG.ValidateCurrentLine;
3569:
3570: ------------------------------------------------------------------------------------
3571: -- 4219869 Business Flow
3572: -- Populated credit and debit amounts -- Need to generate this within IF
3570: ------------------------------------------------------------------------------------
3571: -- 4219869 Business Flow
3572: -- Populated credit and debit amounts -- Need to generate this within IF
3573: ------------------------------------------------------------------------------------
3574: XLA_AE_LINES_PKG.SetDebitCreditAmounts;
3575:
3576: ----------------------------------------------------------------------------------
3577: -- 4219869 Business Flow
3578: -- Update journal entry status -- Need to generate this within IF
3602: -- To allow MPA report to determine if it should generate report process
3603: XLA_ACCOUNTING_PKG.g_mpa_accrual_exists := 'Y';
3604: ------------------------------------------------------------------------------------------
3605:
3606: l_accrual_line_num := XLA_AE_LINES_PKG.g_LineNumber;
3607: XLA_AE_LINES_PKG.CopyLineInfo(l_accrual_line_num);
3608: -- added call to set_ccid to execute mapping for secondary accrual reversal entries bug 7444204
3609: -- call ADRs
3610: -- Bug 4922099
3603: XLA_ACCOUNTING_PKG.g_mpa_accrual_exists := 'Y';
3604: ------------------------------------------------------------------------------------------
3605:
3606: l_accrual_line_num := XLA_AE_LINES_PKG.g_LineNumber;
3607: XLA_AE_LINES_PKG.CopyLineInfo(l_accrual_line_num);
3608: -- added call to set_ccid to execute mapping for secondary accrual reversal entries bug 7444204
3609: -- call ADRs
3610: -- Bug 4922099
3611: --
3627: , x_value_type_code => l_adr_value_type_code
3628: , p_side => 'NA'
3629: );
3630:
3631: xla_ae_lines_pkg.set_ccid(
3632: p_code_combination_id => l_ccid
3633: , p_value_type_code => l_adr_value_type_code
3634: , p_transaction_coa_id => l_adr_transaction_coa_id
3635: , p_accounting_coa_id => l_adr_accounting_coa_id
3650:
3651: --
3652: -- Update the line information that should be overwritten
3653: --
3654: XLA_AE_LINES_PKG.set_ae_header_id(p_ae_header_id => p_event_id ,
3655: p_header_num => 1);
3656: XLA_AE_LINES_PKG.g_rec_lines.array_header_num(XLA_AE_LINES_PKG.g_LineNumber) :=1;
3657:
3658: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
3652: -- Update the line information that should be overwritten
3653: --
3654: XLA_AE_LINES_PKG.set_ae_header_id(p_ae_header_id => p_event_id ,
3655: p_header_num => 1);
3656: XLA_AE_LINES_PKG.g_rec_lines.array_header_num(XLA_AE_LINES_PKG.g_LineNumber) :=1;
3657:
3658: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
3659:
3660: IF l_bflow_method_code <> 'NONE' THEN -- 4655713b
3654: XLA_AE_LINES_PKG.set_ae_header_id(p_ae_header_id => p_event_id ,
3655: p_header_num => 1);
3656: XLA_AE_LINES_PKG.g_rec_lines.array_header_num(XLA_AE_LINES_PKG.g_LineNumber) :=1;
3657:
3658: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
3659:
3660: IF l_bflow_method_code <> 'NONE' THEN -- 4655713b
3661: XLA_AE_LINES_PKG.g_rec_lines.array_reversal_code(XLA_AE_LINES_PKG.g_LineNumber) := CONCAT('MPA_',l_bflow_method_code);
3662: END IF;
3657:
3658: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
3659:
3660: IF l_bflow_method_code <> 'NONE' THEN -- 4655713b
3661: XLA_AE_LINES_PKG.g_rec_lines.array_reversal_code(XLA_AE_LINES_PKG.g_LineNumber) := CONCAT('MPA_',l_bflow_method_code);
3662: END IF;
3663:
3664: --
3665: -- Depending on the Reversal Method setup, do a switch side or changes sign for the amounts
3664: --
3665: -- Depending on the Reversal Method setup, do a switch side or changes sign for the amounts
3666: --
3667: IF (XLA_AE_JOURNAL_ENTRY_PKG.g_cache_ledgers_info.ledger_reversal_option = 'SIDE') THEN
3668: XLA_AE_LINES_PKG.g_rec_lines.array_natural_side_code(XLA_AE_LINES_PKG.g_LineNumber) := l_acc_rev_natural_side_code;
3669: ELSE
3670: ---------------------------------------------------------------------------------------------------
3671: -- 4262811a Switch Sign
3672: ---------------------------------------------------------------------------------------------------
3669: ELSE
3670: ---------------------------------------------------------------------------------------------------
3671: -- 4262811a Switch Sign
3672: ---------------------------------------------------------------------------------------------------
3673: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
3674: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
3675: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3676: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
3677: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3670: ---------------------------------------------------------------------------------------------------
3671: -- 4262811a Switch Sign
3672: ---------------------------------------------------------------------------------------------------
3673: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
3674: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
3675: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3676: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
3677: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3678: -- 5132302
3671: -- 4262811a Switch Sign
3672: ---------------------------------------------------------------------------------------------------
3673: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
3674: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
3675: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3676: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
3677: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3678: -- 5132302
3679: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
3672: ---------------------------------------------------------------------------------------------------
3673: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
3674: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
3675: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3676: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
3677: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3678: -- 5132302
3679: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
3680: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3673: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
3674: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
3675: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3676: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
3677: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3678: -- 5132302
3679: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
3680: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3681:
3675: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3676: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
3677: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3678: -- 5132302
3679: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
3680: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3681:
3682: END IF;
3683:
3676: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
3677: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3678: -- 5132302
3679: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
3680: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
3681:
3682: END IF;
3683:
3684: -- 4955764
3681:
3682: END IF;
3683:
3684: -- 4955764
3685: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
3686: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('acc_rev_header_index'));
3687:
3688:
3689: XLA_AE_LINES_PKG.ValidateCurrentLine;
3685: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
3686: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('acc_rev_header_index'));
3687:
3688:
3689: XLA_AE_LINES_PKG.ValidateCurrentLine;
3690: XLA_AE_LINES_PKG.SetDebitCreditAmounts;
3691:
3692: XLA_AE_JOURNAL_ENTRY_PKG.UpdateJournalEntryStatus
3693: (p_hdr_idx => g_array_event(p_event_id).array_value_num('acc_rev_header_index')
3686: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('acc_rev_header_index'));
3687:
3688:
3689: XLA_AE_LINES_PKG.ValidateCurrentLine;
3690: XLA_AE_LINES_PKG.SetDebitCreditAmounts;
3691:
3692: XLA_AE_JOURNAL_ENTRY_PKG.UpdateJournalEntryStatus
3693: (p_hdr_idx => g_array_event(p_event_id).array_value_num('acc_rev_header_index')
3694: ,p_balance_type_code => l_balance_type_code);
3816: --
3817: -- bulk performance
3818: --
3819: l_balance_type_code VARCHAR2(1);
3820: l_rec_acct_attrs XLA_AE_LINES_PKG.t_rec_acct_attrs;
3821: l_log_module VARCHAR2(240);
3822:
3823: --
3824: -- Upgrade strategy
3881: IF XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id = XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.ledger_id OR
3882: l_balance_type_code <> 'B' THEN
3883:
3884: --
3885: XLA_AE_LINES_PKG.SetNewLine;
3886:
3887: p_balance_type_code := l_balance_type_code;
3888: -- set the flag so later we will know whether the gain loss line needs to be created
3889:
3893:
3894: --
3895: -- bulk performance
3896: --
3897: XLA_AE_LINES_PKG.set_ae_header_id (p_ae_header_id => p_event_id ,
3898: p_header_num => 0); -- 4262811
3899: --
3900: -- set accounting line options
3901: --
3898: p_header_num => 0); -- 4262811
3899: --
3900: -- set accounting line options
3901: --
3902: l_ae_header_id:= xla_ae_lines_pkg.SetAcctLineOption(
3903: p_natural_side_code => 'C'
3904: , p_gain_or_loss_flag => 'N'
3905: , p_gl_transfer_mode_code => 'S'
3906: , p_acct_entry_type_code => 'A'
3912: --
3913: --
3914: -- set accounting line type info
3915: --
3916: xla_ae_lines_pkg.SetAcctLineType
3917: (p_component_type => l_component_type
3918: ,p_event_type_code => l_event_type_code
3919: ,p_line_definition_owner_code => l_line_definition_owner_code
3920: ,p_line_definition_code => l_line_definition_code
3926: ,p_event_class_code => l_event_class_code);
3927: --
3928: -- set accounting class
3929: --
3930: xla_ae_lines_pkg.SetAcctClass(
3931: p_accounting_class_code => 'LIABILITY'
3932: , p_ae_header_id => l_ae_header_id
3933: );
3934:
3934:
3935: --
3936: -- set rounding class
3937: --
3938: XLA_AE_LINES_PKG.g_rec_lines.array_rounding_class(XLA_AE_LINES_PKG.g_LineNumber) :=
3939: 'LIABILITY';
3940:
3941: --
3942: xla_ae_lines_pkg.g_rec_lines.array_calculate_acctd_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_acctd_flag;
3938: XLA_AE_LINES_PKG.g_rec_lines.array_rounding_class(XLA_AE_LINES_PKG.g_LineNumber) :=
3939: 'LIABILITY';
3940:
3941: --
3942: xla_ae_lines_pkg.g_rec_lines.array_calculate_acctd_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_acctd_flag;
3943: xla_ae_lines_pkg.g_rec_lines.array_calculate_g_l_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_g_l_flag;
3944: --
3945: -- bulk performance
3946: --
3939: 'LIABILITY';
3940:
3941: --
3942: xla_ae_lines_pkg.g_rec_lines.array_calculate_acctd_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_acctd_flag;
3943: xla_ae_lines_pkg.g_rec_lines.array_calculate_g_l_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_g_l_flag;
3944: --
3945: -- bulk performance
3946: --
3947: XLA_AE_LINES_PKG.g_rec_lines.array_balance_type_code(XLA_AE_LINES_PKG.g_LineNumber) := l_balance_type_code;
3943: xla_ae_lines_pkg.g_rec_lines.array_calculate_g_l_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_g_l_flag;
3944: --
3945: -- bulk performance
3946: --
3947: XLA_AE_LINES_PKG.g_rec_lines.array_balance_type_code(XLA_AE_LINES_PKG.g_LineNumber) := l_balance_type_code;
3948:
3949: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_id(XLA_AE_LINES_PKG.g_LineNumber) :=
3950: XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id;
3951:
3945: -- bulk performance
3946: --
3947: XLA_AE_LINES_PKG.g_rec_lines.array_balance_type_code(XLA_AE_LINES_PKG.g_LineNumber) := l_balance_type_code;
3948:
3949: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_id(XLA_AE_LINES_PKG.g_LineNumber) :=
3950: XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id;
3951:
3952: -- 4955764
3953: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
3949: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_id(XLA_AE_LINES_PKG.g_LineNumber) :=
3950: XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id;
3951:
3952: -- 4955764
3953: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
3954: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('header_index'));
3955:
3956: -- 4458381 Public Sector Enh
3957:
3977: l_rec_acct_attrs.array_num_value(7) := p_source_15;
3978: l_rec_acct_attrs.array_acct_attr_code(8) := 'PARTY_TYPE';
3979: l_rec_acct_attrs.array_char_value(8) := p_source_16;
3980:
3981: XLA_AE_LINES_PKG.SetLineAcctAttrs(l_rec_acct_attrs);
3982: p_gain_or_loss_ref := XLA_AE_LINES_PKG.g_rec_lines.array_gain_or_loss_ref(XLA_AE_LINES_PKG.g_LineNumber);
3983:
3984: ---------------------------------------------------------------------------------------------------------------
3985: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
3978: l_rec_acct_attrs.array_acct_attr_code(8) := 'PARTY_TYPE';
3979: l_rec_acct_attrs.array_char_value(8) := p_source_16;
3980:
3981: XLA_AE_LINES_PKG.SetLineAcctAttrs(l_rec_acct_attrs);
3982: p_gain_or_loss_ref := XLA_AE_LINES_PKG.g_rec_lines.array_gain_or_loss_ref(XLA_AE_LINES_PKG.g_LineNumber);
3983:
3984: ---------------------------------------------------------------------------------------------------------------
3985: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
3986: ---------------------------------------------------------------------------------------------------------------
3981: XLA_AE_LINES_PKG.SetLineAcctAttrs(l_rec_acct_attrs);
3982: p_gain_or_loss_ref := XLA_AE_LINES_PKG.g_rec_lines.array_gain_or_loss_ref(XLA_AE_LINES_PKG.g_LineNumber);
3983:
3984: ---------------------------------------------------------------------------------------------------------------
3985: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
3986: ---------------------------------------------------------------------------------------------------------------
3987: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
3988:
3989: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
3983:
3984: ---------------------------------------------------------------------------------------------------------------
3985: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
3986: ---------------------------------------------------------------------------------------------------------------
3987: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
3988:
3989: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
3990: l_enc_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_enc_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
3991:
3985: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
3986: ---------------------------------------------------------------------------------------------------------------
3987: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
3988:
3989: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
3990: l_enc_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_enc_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
3991:
3992: IF xla_accounting_cache_pkg.GetValueChar
3993: (p_source_code => 'LEDGER_CATEGORY_CODE'
3986: ---------------------------------------------------------------------------------------------------------------
3987: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
3988:
3989: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
3990: l_enc_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_enc_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
3991:
3992: IF xla_accounting_cache_pkg.GetValueChar
3993: (p_source_code => 'LEDGER_CATEGORY_CODE'
3994: ,p_target_ledger_id => XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id) IN ('PRIMARY','ALC')
3997: AND ( (NVL(l_actual_upg_option, 'N') IN ('Y', 'O')) OR
3998: (NVL(l_enc_upg_option, 'N') IN ('Y', 'O'))
3999: )
4000: THEN
4001: xla_ae_lines_pkg.BflowUpgEntry
4002: (p_business_method_code => l_bflow_method_code
4003: ,p_business_class_code => l_bflow_class_code
4004: ,p_balance_type => l_balance_type_code);
4005: ELSE
4037: , x_value_type_code => l_adr_value_type_code
4038: , p_side => 'NA'
4039: );
4040:
4041: xla_ae_lines_pkg.set_ccid(
4042: p_code_combination_id => l_ccid
4043: , p_value_type_code => l_adr_value_type_code
4044: , p_transaction_coa_id => l_adr_transaction_coa_id
4045: , p_accounting_coa_id => l_adr_accounting_coa_id
4073: xla_accounting_err_pkg.build_message
4074: (p_appli_s_name => 'XLA'
4075: ,p_msg_name => 'XLA_UPG_OVERRIDE_ADR_UNDEFINED'
4076: ,p_token_1 => 'LINE_NUMBER'
4077: ,p_value_1 => XLA_AE_LINES_PKG.g_LineNumber
4078: ,p_token_2 => 'LINE_TYPE_NAME'
4079: ,p_value_2 => XLA_AE_SOURCES_PKG.GetComponentName (
4080: l_component_type
4081: ,l_component_code
4109: --
4110: --
4111: ------------------------------------------------------------------------------------------------
4112: -- 4219869 Business Flow
4113: -- NOTE: XLA_AE_LINES_PKG.ValidateCurrentLine should NOT be generated if business flow method is
4114: -- Prior Entry. Currently, the following code is always generated.
4115: ------------------------------------------------------------------------------------------------
4116: XLA_AE_LINES_PKG.ValidateCurrentLine;
4117:
4112: -- 4219869 Business Flow
4113: -- NOTE: XLA_AE_LINES_PKG.ValidateCurrentLine should NOT be generated if business flow method is
4114: -- Prior Entry. Currently, the following code is always generated.
4115: ------------------------------------------------------------------------------------------------
4116: XLA_AE_LINES_PKG.ValidateCurrentLine;
4117:
4118: ------------------------------------------------------------------------------------
4119: -- 4219869 Business Flow
4120: -- Populated credit and debit amounts -- Need to generate this within IF
4118: ------------------------------------------------------------------------------------
4119: -- 4219869 Business Flow
4120: -- Populated credit and debit amounts -- Need to generate this within IF
4121: ------------------------------------------------------------------------------------
4122: XLA_AE_LINES_PKG.SetDebitCreditAmounts;
4123:
4124: ----------------------------------------------------------------------------------
4125: -- 4219869 Business Flow
4126: -- Update journal entry status -- Need to generate this within IF
4150: -- To allow MPA report to determine if it should generate report process
4151: XLA_ACCOUNTING_PKG.g_mpa_accrual_exists := 'Y';
4152: ------------------------------------------------------------------------------------------
4153:
4154: l_accrual_line_num := XLA_AE_LINES_PKG.g_LineNumber;
4155: XLA_AE_LINES_PKG.CopyLineInfo(l_accrual_line_num);
4156: -- added call to set_ccid to execute mapping for secondary accrual reversal entries bug 7444204
4157: -- call ADRs
4158: -- Bug 4922099
4151: XLA_ACCOUNTING_PKG.g_mpa_accrual_exists := 'Y';
4152: ------------------------------------------------------------------------------------------
4153:
4154: l_accrual_line_num := XLA_AE_LINES_PKG.g_LineNumber;
4155: XLA_AE_LINES_PKG.CopyLineInfo(l_accrual_line_num);
4156: -- added call to set_ccid to execute mapping for secondary accrual reversal entries bug 7444204
4157: -- call ADRs
4158: -- Bug 4922099
4159: --
4175: , x_value_type_code => l_adr_value_type_code
4176: , p_side => 'NA'
4177: );
4178:
4179: xla_ae_lines_pkg.set_ccid(
4180: p_code_combination_id => l_ccid
4181: , p_value_type_code => l_adr_value_type_code
4182: , p_transaction_coa_id => l_adr_transaction_coa_id
4183: , p_accounting_coa_id => l_adr_accounting_coa_id
4198:
4199: --
4200: -- Update the line information that should be overwritten
4201: --
4202: XLA_AE_LINES_PKG.set_ae_header_id(p_ae_header_id => p_event_id ,
4203: p_header_num => 1);
4204: XLA_AE_LINES_PKG.g_rec_lines.array_header_num(XLA_AE_LINES_PKG.g_LineNumber) :=1;
4205:
4206: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
4200: -- Update the line information that should be overwritten
4201: --
4202: XLA_AE_LINES_PKG.set_ae_header_id(p_ae_header_id => p_event_id ,
4203: p_header_num => 1);
4204: XLA_AE_LINES_PKG.g_rec_lines.array_header_num(XLA_AE_LINES_PKG.g_LineNumber) :=1;
4205:
4206: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
4207:
4208: IF l_bflow_method_code <> 'NONE' THEN -- 4655713b
4202: XLA_AE_LINES_PKG.set_ae_header_id(p_ae_header_id => p_event_id ,
4203: p_header_num => 1);
4204: XLA_AE_LINES_PKG.g_rec_lines.array_header_num(XLA_AE_LINES_PKG.g_LineNumber) :=1;
4205:
4206: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
4207:
4208: IF l_bflow_method_code <> 'NONE' THEN -- 4655713b
4209: XLA_AE_LINES_PKG.g_rec_lines.array_reversal_code(XLA_AE_LINES_PKG.g_LineNumber) := CONCAT('MPA_',l_bflow_method_code);
4210: END IF;
4205:
4206: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
4207:
4208: IF l_bflow_method_code <> 'NONE' THEN -- 4655713b
4209: XLA_AE_LINES_PKG.g_rec_lines.array_reversal_code(XLA_AE_LINES_PKG.g_LineNumber) := CONCAT('MPA_',l_bflow_method_code);
4210: END IF;
4211:
4212: --
4213: -- Depending on the Reversal Method setup, do a switch side or changes sign for the amounts
4212: --
4213: -- Depending on the Reversal Method setup, do a switch side or changes sign for the amounts
4214: --
4215: IF (XLA_AE_JOURNAL_ENTRY_PKG.g_cache_ledgers_info.ledger_reversal_option = 'SIDE') THEN
4216: XLA_AE_LINES_PKG.g_rec_lines.array_natural_side_code(XLA_AE_LINES_PKG.g_LineNumber) := l_acc_rev_natural_side_code;
4217: ELSE
4218: ---------------------------------------------------------------------------------------------------
4219: -- 4262811a Switch Sign
4220: ---------------------------------------------------------------------------------------------------
4217: ELSE
4218: ---------------------------------------------------------------------------------------------------
4219: -- 4262811a Switch Sign
4220: ---------------------------------------------------------------------------------------------------
4221: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
4222: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
4223: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4224: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
4225: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4218: ---------------------------------------------------------------------------------------------------
4219: -- 4262811a Switch Sign
4220: ---------------------------------------------------------------------------------------------------
4221: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
4222: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
4223: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4224: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
4225: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4226: -- 5132302
4219: -- 4262811a Switch Sign
4220: ---------------------------------------------------------------------------------------------------
4221: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
4222: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
4223: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4224: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
4225: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4226: -- 5132302
4227: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
4220: ---------------------------------------------------------------------------------------------------
4221: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
4222: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
4223: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4224: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
4225: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4226: -- 5132302
4227: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
4228: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4221: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
4222: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
4223: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4224: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
4225: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4226: -- 5132302
4227: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
4228: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4229:
4223: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4224: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
4225: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4226: -- 5132302
4227: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
4228: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4229:
4230: END IF;
4231:
4224: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
4225: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4226: -- 5132302
4227: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
4228: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4229:
4230: END IF;
4231:
4232: -- 4955764
4229:
4230: END IF;
4231:
4232: -- 4955764
4233: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
4234: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('acc_rev_header_index'));
4235:
4236:
4237: XLA_AE_LINES_PKG.ValidateCurrentLine;
4233: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
4234: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('acc_rev_header_index'));
4235:
4236:
4237: XLA_AE_LINES_PKG.ValidateCurrentLine;
4238: XLA_AE_LINES_PKG.SetDebitCreditAmounts;
4239:
4240: XLA_AE_JOURNAL_ENTRY_PKG.UpdateJournalEntryStatus
4241: (p_hdr_idx => g_array_event(p_event_id).array_value_num('acc_rev_header_index')
4234: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('acc_rev_header_index'));
4235:
4236:
4237: XLA_AE_LINES_PKG.ValidateCurrentLine;
4238: XLA_AE_LINES_PKG.SetDebitCreditAmounts;
4239:
4240: XLA_AE_JOURNAL_ENTRY_PKG.UpdateJournalEntryStatus
4241: (p_hdr_idx => g_array_event(p_event_id).array_value_num('acc_rev_header_index')
4242: ,p_balance_type_code => l_balance_type_code);
4370: --
4371: -- bulk performance
4372: --
4373: l_balance_type_code VARCHAR2(1);
4374: l_rec_acct_attrs XLA_AE_LINES_PKG.t_rec_acct_attrs;
4375: l_log_module VARCHAR2(240);
4376:
4377: --
4378: -- Upgrade strategy
4435: IF XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id = XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.ledger_id OR
4436: l_balance_type_code <> 'B' THEN
4437:
4438: --
4439: XLA_AE_LINES_PKG.SetNewLine;
4440:
4441: p_balance_type_code := l_balance_type_code;
4442: -- set the flag so later we will know whether the gain loss line needs to be created
4443:
4447:
4448: --
4449: -- bulk performance
4450: --
4451: XLA_AE_LINES_PKG.set_ae_header_id (p_ae_header_id => p_event_id ,
4452: p_header_num => 0); -- 4262811
4453: --
4454: -- set accounting line options
4455: --
4452: p_header_num => 0); -- 4262811
4453: --
4454: -- set accounting line options
4455: --
4456: l_ae_header_id:= xla_ae_lines_pkg.SetAcctLineOption(
4457: p_natural_side_code => 'C'
4458: , p_gain_or_loss_flag => 'N'
4459: , p_gl_transfer_mode_code => 'S'
4460: , p_acct_entry_type_code => 'A'
4466: --
4467: --
4468: -- set accounting line type info
4469: --
4470: xla_ae_lines_pkg.SetAcctLineType
4471: (p_component_type => l_component_type
4472: ,p_event_type_code => l_event_type_code
4473: ,p_line_definition_owner_code => l_line_definition_owner_code
4474: ,p_line_definition_code => l_line_definition_code
4480: ,p_event_class_code => l_event_class_code);
4481: --
4482: -- set accounting class
4483: --
4484: xla_ae_lines_pkg.SetAcctClass(
4485: p_accounting_class_code => 'CLAIM_SETTLE'
4486: , p_ae_header_id => l_ae_header_id
4487: );
4488:
4488:
4489: --
4490: -- set rounding class
4491: --
4492: XLA_AE_LINES_PKG.g_rec_lines.array_rounding_class(XLA_AE_LINES_PKG.g_LineNumber) :=
4493: 'CLAIM_SETTLE';
4494:
4495: --
4496: xla_ae_lines_pkg.g_rec_lines.array_calculate_acctd_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_acctd_flag;
4492: XLA_AE_LINES_PKG.g_rec_lines.array_rounding_class(XLA_AE_LINES_PKG.g_LineNumber) :=
4493: 'CLAIM_SETTLE';
4494:
4495: --
4496: xla_ae_lines_pkg.g_rec_lines.array_calculate_acctd_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_acctd_flag;
4497: xla_ae_lines_pkg.g_rec_lines.array_calculate_g_l_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_g_l_flag;
4498: --
4499: -- bulk performance
4500: --
4493: 'CLAIM_SETTLE';
4494:
4495: --
4496: xla_ae_lines_pkg.g_rec_lines.array_calculate_acctd_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_acctd_flag;
4497: xla_ae_lines_pkg.g_rec_lines.array_calculate_g_l_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_g_l_flag;
4498: --
4499: -- bulk performance
4500: --
4501: XLA_AE_LINES_PKG.g_rec_lines.array_balance_type_code(XLA_AE_LINES_PKG.g_LineNumber) := l_balance_type_code;
4497: xla_ae_lines_pkg.g_rec_lines.array_calculate_g_l_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_g_l_flag;
4498: --
4499: -- bulk performance
4500: --
4501: XLA_AE_LINES_PKG.g_rec_lines.array_balance_type_code(XLA_AE_LINES_PKG.g_LineNumber) := l_balance_type_code;
4502:
4503: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_id(XLA_AE_LINES_PKG.g_LineNumber) :=
4504: XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id;
4505:
4499: -- bulk performance
4500: --
4501: XLA_AE_LINES_PKG.g_rec_lines.array_balance_type_code(XLA_AE_LINES_PKG.g_LineNumber) := l_balance_type_code;
4502:
4503: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_id(XLA_AE_LINES_PKG.g_LineNumber) :=
4504: XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id;
4505:
4506: -- 4955764
4507: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
4503: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_id(XLA_AE_LINES_PKG.g_LineNumber) :=
4504: XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id;
4505:
4506: -- 4955764
4507: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
4508: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('header_index'));
4509:
4510: -- 4458381 Public Sector Enh
4511:
4531: l_rec_acct_attrs.array_num_value(7) := p_source_15;
4532: l_rec_acct_attrs.array_acct_attr_code(8) := 'PARTY_TYPE';
4533: l_rec_acct_attrs.array_char_value(8) := p_source_16;
4534:
4535: XLA_AE_LINES_PKG.SetLineAcctAttrs(l_rec_acct_attrs);
4536: p_gain_or_loss_ref := XLA_AE_LINES_PKG.g_rec_lines.array_gain_or_loss_ref(XLA_AE_LINES_PKG.g_LineNumber);
4537:
4538: ---------------------------------------------------------------------------------------------------------------
4539: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
4532: l_rec_acct_attrs.array_acct_attr_code(8) := 'PARTY_TYPE';
4533: l_rec_acct_attrs.array_char_value(8) := p_source_16;
4534:
4535: XLA_AE_LINES_PKG.SetLineAcctAttrs(l_rec_acct_attrs);
4536: p_gain_or_loss_ref := XLA_AE_LINES_PKG.g_rec_lines.array_gain_or_loss_ref(XLA_AE_LINES_PKG.g_LineNumber);
4537:
4538: ---------------------------------------------------------------------------------------------------------------
4539: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
4540: ---------------------------------------------------------------------------------------------------------------
4535: XLA_AE_LINES_PKG.SetLineAcctAttrs(l_rec_acct_attrs);
4536: p_gain_or_loss_ref := XLA_AE_LINES_PKG.g_rec_lines.array_gain_or_loss_ref(XLA_AE_LINES_PKG.g_LineNumber);
4537:
4538: ---------------------------------------------------------------------------------------------------------------
4539: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
4540: ---------------------------------------------------------------------------------------------------------------
4541: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
4542:
4543: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
4537:
4538: ---------------------------------------------------------------------------------------------------------------
4539: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
4540: ---------------------------------------------------------------------------------------------------------------
4541: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
4542:
4543: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
4544: l_enc_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_enc_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
4545:
4539: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
4540: ---------------------------------------------------------------------------------------------------------------
4541: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
4542:
4543: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
4544: l_enc_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_enc_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
4545:
4546: IF xla_accounting_cache_pkg.GetValueChar
4547: (p_source_code => 'LEDGER_CATEGORY_CODE'
4540: ---------------------------------------------------------------------------------------------------------------
4541: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
4542:
4543: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
4544: l_enc_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_enc_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
4545:
4546: IF xla_accounting_cache_pkg.GetValueChar
4547: (p_source_code => 'LEDGER_CATEGORY_CODE'
4548: ,p_target_ledger_id => XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id) IN ('PRIMARY','ALC')
4551: AND ( (NVL(l_actual_upg_option, 'N') IN ('Y', 'O')) OR
4552: (NVL(l_enc_upg_option, 'N') IN ('Y', 'O'))
4553: )
4554: THEN
4555: xla_ae_lines_pkg.BflowUpgEntry
4556: (p_business_method_code => l_bflow_method_code
4557: ,p_business_class_code => l_bflow_class_code
4558: ,p_balance_type => l_balance_type_code);
4559: ELSE
4568: --
4569: -- call description
4570: --
4571:
4572: xla_ae_lines_pkg.SetLineDescription(
4573: p_ae_header_id => l_ae_header_id
4574: ,p_description => Description_1 (
4575: p_application_id => p_application_id
4576: , p_ae_header_id => l_ae_header_id
4603: , x_value_type_code => l_adr_value_type_code
4604: , p_side => 'NA'
4605: );
4606:
4607: xla_ae_lines_pkg.set_ccid(
4608: p_code_combination_id => l_ccid
4609: , p_value_type_code => l_adr_value_type_code
4610: , p_transaction_coa_id => l_adr_transaction_coa_id
4611: , p_accounting_coa_id => l_adr_accounting_coa_id
4639: xla_accounting_err_pkg.build_message
4640: (p_appli_s_name => 'XLA'
4641: ,p_msg_name => 'XLA_UPG_OVERRIDE_ADR_UNDEFINED'
4642: ,p_token_1 => 'LINE_NUMBER'
4643: ,p_value_1 => XLA_AE_LINES_PKG.g_LineNumber
4644: ,p_token_2 => 'LINE_TYPE_NAME'
4645: ,p_value_2 => XLA_AE_SOURCES_PKG.GetComponentName (
4646: l_component_type
4647: ,l_component_code
4675: --
4676: --
4677: ------------------------------------------------------------------------------------------------
4678: -- 4219869 Business Flow
4679: -- NOTE: XLA_AE_LINES_PKG.ValidateCurrentLine should NOT be generated if business flow method is
4680: -- Prior Entry. Currently, the following code is always generated.
4681: ------------------------------------------------------------------------------------------------
4682: XLA_AE_LINES_PKG.ValidateCurrentLine;
4683:
4678: -- 4219869 Business Flow
4679: -- NOTE: XLA_AE_LINES_PKG.ValidateCurrentLine should NOT be generated if business flow method is
4680: -- Prior Entry. Currently, the following code is always generated.
4681: ------------------------------------------------------------------------------------------------
4682: XLA_AE_LINES_PKG.ValidateCurrentLine;
4683:
4684: ------------------------------------------------------------------------------------
4685: -- 4219869 Business Flow
4686: -- Populated credit and debit amounts -- Need to generate this within IF
4684: ------------------------------------------------------------------------------------
4685: -- 4219869 Business Flow
4686: -- Populated credit and debit amounts -- Need to generate this within IF
4687: ------------------------------------------------------------------------------------
4688: XLA_AE_LINES_PKG.SetDebitCreditAmounts;
4689:
4690: ----------------------------------------------------------------------------------
4691: -- 4219869 Business Flow
4692: -- Update journal entry status -- Need to generate this within IF
4716: -- To allow MPA report to determine if it should generate report process
4717: XLA_ACCOUNTING_PKG.g_mpa_accrual_exists := 'Y';
4718: ------------------------------------------------------------------------------------------
4719:
4720: l_accrual_line_num := XLA_AE_LINES_PKG.g_LineNumber;
4721: XLA_AE_LINES_PKG.CopyLineInfo(l_accrual_line_num);
4722: -- added call to set_ccid to execute mapping for secondary accrual reversal entries bug 7444204
4723: -- call ADRs
4724: -- Bug 4922099
4717: XLA_ACCOUNTING_PKG.g_mpa_accrual_exists := 'Y';
4718: ------------------------------------------------------------------------------------------
4719:
4720: l_accrual_line_num := XLA_AE_LINES_PKG.g_LineNumber;
4721: XLA_AE_LINES_PKG.CopyLineInfo(l_accrual_line_num);
4722: -- added call to set_ccid to execute mapping for secondary accrual reversal entries bug 7444204
4723: -- call ADRs
4724: -- Bug 4922099
4725: --
4741: , x_value_type_code => l_adr_value_type_code
4742: , p_side => 'NA'
4743: );
4744:
4745: xla_ae_lines_pkg.set_ccid(
4746: p_code_combination_id => l_ccid
4747: , p_value_type_code => l_adr_value_type_code
4748: , p_transaction_coa_id => l_adr_transaction_coa_id
4749: , p_accounting_coa_id => l_adr_accounting_coa_id
4764:
4765: --
4766: -- Update the line information that should be overwritten
4767: --
4768: XLA_AE_LINES_PKG.set_ae_header_id(p_ae_header_id => p_event_id ,
4769: p_header_num => 1);
4770: XLA_AE_LINES_PKG.g_rec_lines.array_header_num(XLA_AE_LINES_PKG.g_LineNumber) :=1;
4771:
4772: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
4766: -- Update the line information that should be overwritten
4767: --
4768: XLA_AE_LINES_PKG.set_ae_header_id(p_ae_header_id => p_event_id ,
4769: p_header_num => 1);
4770: XLA_AE_LINES_PKG.g_rec_lines.array_header_num(XLA_AE_LINES_PKG.g_LineNumber) :=1;
4771:
4772: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
4773:
4774: IF l_bflow_method_code <> 'NONE' THEN -- 4655713b
4768: XLA_AE_LINES_PKG.set_ae_header_id(p_ae_header_id => p_event_id ,
4769: p_header_num => 1);
4770: XLA_AE_LINES_PKG.g_rec_lines.array_header_num(XLA_AE_LINES_PKG.g_LineNumber) :=1;
4771:
4772: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
4773:
4774: IF l_bflow_method_code <> 'NONE' THEN -- 4655713b
4775: XLA_AE_LINES_PKG.g_rec_lines.array_reversal_code(XLA_AE_LINES_PKG.g_LineNumber) := CONCAT('MPA_',l_bflow_method_code);
4776: END IF;
4771:
4772: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
4773:
4774: IF l_bflow_method_code <> 'NONE' THEN -- 4655713b
4775: XLA_AE_LINES_PKG.g_rec_lines.array_reversal_code(XLA_AE_LINES_PKG.g_LineNumber) := CONCAT('MPA_',l_bflow_method_code);
4776: END IF;
4777:
4778: --
4779: -- Depending on the Reversal Method setup, do a switch side or changes sign for the amounts
4778: --
4779: -- Depending on the Reversal Method setup, do a switch side or changes sign for the amounts
4780: --
4781: IF (XLA_AE_JOURNAL_ENTRY_PKG.g_cache_ledgers_info.ledger_reversal_option = 'SIDE') THEN
4782: XLA_AE_LINES_PKG.g_rec_lines.array_natural_side_code(XLA_AE_LINES_PKG.g_LineNumber) := l_acc_rev_natural_side_code;
4783: ELSE
4784: ---------------------------------------------------------------------------------------------------
4785: -- 4262811a Switch Sign
4786: ---------------------------------------------------------------------------------------------------
4783: ELSE
4784: ---------------------------------------------------------------------------------------------------
4785: -- 4262811a Switch Sign
4786: ---------------------------------------------------------------------------------------------------
4787: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
4788: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
4789: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4790: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
4791: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4784: ---------------------------------------------------------------------------------------------------
4785: -- 4262811a Switch Sign
4786: ---------------------------------------------------------------------------------------------------
4787: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
4788: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
4789: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4790: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
4791: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4792: -- 5132302
4785: -- 4262811a Switch Sign
4786: ---------------------------------------------------------------------------------------------------
4787: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
4788: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
4789: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4790: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
4791: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4792: -- 5132302
4793: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
4786: ---------------------------------------------------------------------------------------------------
4787: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
4788: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
4789: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4790: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
4791: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4792: -- 5132302
4793: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
4794: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4787: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
4788: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
4789: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4790: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
4791: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4792: -- 5132302
4793: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
4794: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4795:
4789: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4790: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
4791: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4792: -- 5132302
4793: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
4794: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4795:
4796: END IF;
4797:
4790: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
4791: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4792: -- 5132302
4793: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
4794: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
4795:
4796: END IF;
4797:
4798: -- 4955764
4795:
4796: END IF;
4797:
4798: -- 4955764
4799: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
4800: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('acc_rev_header_index'));
4801:
4802:
4803: XLA_AE_LINES_PKG.ValidateCurrentLine;
4799: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
4800: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('acc_rev_header_index'));
4801:
4802:
4803: XLA_AE_LINES_PKG.ValidateCurrentLine;
4804: XLA_AE_LINES_PKG.SetDebitCreditAmounts;
4805:
4806: XLA_AE_JOURNAL_ENTRY_PKG.UpdateJournalEntryStatus
4807: (p_hdr_idx => g_array_event(p_event_id).array_value_num('acc_rev_header_index')
4800: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('acc_rev_header_index'));
4801:
4802:
4803: XLA_AE_LINES_PKG.ValidateCurrentLine;
4804: XLA_AE_LINES_PKG.SetDebitCreditAmounts;
4805:
4806: XLA_AE_JOURNAL_ENTRY_PKG.UpdateJournalEntryStatus
4807: (p_hdr_idx => g_array_event(p_event_id).array_value_num('acc_rev_header_index')
4808: ,p_balance_type_code => l_balance_type_code);
4930: --
4931: -- bulk performance
4932: --
4933: l_balance_type_code VARCHAR2(1);
4934: l_rec_acct_attrs XLA_AE_LINES_PKG.t_rec_acct_attrs;
4935: l_log_module VARCHAR2(240);
4936:
4937: --
4938: -- Upgrade strategy
4995: IF XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id = XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.ledger_id OR
4996: l_balance_type_code <> 'B' THEN
4997:
4998: --
4999: XLA_AE_LINES_PKG.SetNewLine;
5000:
5001: p_balance_type_code := l_balance_type_code;
5002: -- set the flag so later we will know whether the gain loss line needs to be created
5003:
5007:
5008: --
5009: -- bulk performance
5010: --
5011: XLA_AE_LINES_PKG.set_ae_header_id (p_ae_header_id => p_event_id ,
5012: p_header_num => 0); -- 4262811
5013: --
5014: -- set accounting line options
5015: --
5012: p_header_num => 0); -- 4262811
5013: --
5014: -- set accounting line options
5015: --
5016: l_ae_header_id:= xla_ae_lines_pkg.SetAcctLineOption(
5017: p_natural_side_code => 'D'
5018: , p_gain_or_loss_flag => 'N'
5019: , p_gl_transfer_mode_code => 'S'
5020: , p_acct_entry_type_code => 'A'
5026: --
5027: --
5028: -- set accounting line type info
5029: --
5030: xla_ae_lines_pkg.SetAcctLineType
5031: (p_component_type => l_component_type
5032: ,p_event_type_code => l_event_type_code
5033: ,p_line_definition_owner_code => l_line_definition_owner_code
5034: ,p_line_definition_code => l_line_definition_code
5040: ,p_event_class_code => l_event_class_code);
5041: --
5042: -- set accounting class
5043: --
5044: xla_ae_lines_pkg.SetAcctClass(
5045: p_accounting_class_code => 'CLEARING'
5046: , p_ae_header_id => l_ae_header_id
5047: );
5048:
5048:
5049: --
5050: -- set rounding class
5051: --
5052: XLA_AE_LINES_PKG.g_rec_lines.array_rounding_class(XLA_AE_LINES_PKG.g_LineNumber) :=
5053: 'CLEARING';
5054:
5055: --
5056: xla_ae_lines_pkg.g_rec_lines.array_calculate_acctd_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_acctd_flag;
5052: XLA_AE_LINES_PKG.g_rec_lines.array_rounding_class(XLA_AE_LINES_PKG.g_LineNumber) :=
5053: 'CLEARING';
5054:
5055: --
5056: xla_ae_lines_pkg.g_rec_lines.array_calculate_acctd_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_acctd_flag;
5057: xla_ae_lines_pkg.g_rec_lines.array_calculate_g_l_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_g_l_flag;
5058: --
5059: -- bulk performance
5060: --
5053: 'CLEARING';
5054:
5055: --
5056: xla_ae_lines_pkg.g_rec_lines.array_calculate_acctd_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_acctd_flag;
5057: xla_ae_lines_pkg.g_rec_lines.array_calculate_g_l_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_g_l_flag;
5058: --
5059: -- bulk performance
5060: --
5061: XLA_AE_LINES_PKG.g_rec_lines.array_balance_type_code(XLA_AE_LINES_PKG.g_LineNumber) := l_balance_type_code;
5057: xla_ae_lines_pkg.g_rec_lines.array_calculate_g_l_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_g_l_flag;
5058: --
5059: -- bulk performance
5060: --
5061: XLA_AE_LINES_PKG.g_rec_lines.array_balance_type_code(XLA_AE_LINES_PKG.g_LineNumber) := l_balance_type_code;
5062:
5063: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_id(XLA_AE_LINES_PKG.g_LineNumber) :=
5064: XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id;
5065:
5059: -- bulk performance
5060: --
5061: XLA_AE_LINES_PKG.g_rec_lines.array_balance_type_code(XLA_AE_LINES_PKG.g_LineNumber) := l_balance_type_code;
5062:
5063: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_id(XLA_AE_LINES_PKG.g_LineNumber) :=
5064: XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id;
5065:
5066: -- 4955764
5067: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
5063: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_id(XLA_AE_LINES_PKG.g_LineNumber) :=
5064: XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id;
5065:
5066: -- 4955764
5067: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
5068: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('header_index'));
5069:
5070: -- 4458381 Public Sector Enh
5071:
5091: l_rec_acct_attrs.array_num_value(7) := p_source_15;
5092: l_rec_acct_attrs.array_acct_attr_code(8) := 'PARTY_TYPE';
5093: l_rec_acct_attrs.array_char_value(8) := p_source_16;
5094:
5095: XLA_AE_LINES_PKG.SetLineAcctAttrs(l_rec_acct_attrs);
5096: p_gain_or_loss_ref := XLA_AE_LINES_PKG.g_rec_lines.array_gain_or_loss_ref(XLA_AE_LINES_PKG.g_LineNumber);
5097:
5098: ---------------------------------------------------------------------------------------------------------------
5099: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
5092: l_rec_acct_attrs.array_acct_attr_code(8) := 'PARTY_TYPE';
5093: l_rec_acct_attrs.array_char_value(8) := p_source_16;
5094:
5095: XLA_AE_LINES_PKG.SetLineAcctAttrs(l_rec_acct_attrs);
5096: p_gain_or_loss_ref := XLA_AE_LINES_PKG.g_rec_lines.array_gain_or_loss_ref(XLA_AE_LINES_PKG.g_LineNumber);
5097:
5098: ---------------------------------------------------------------------------------------------------------------
5099: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
5100: ---------------------------------------------------------------------------------------------------------------
5095: XLA_AE_LINES_PKG.SetLineAcctAttrs(l_rec_acct_attrs);
5096: p_gain_or_loss_ref := XLA_AE_LINES_PKG.g_rec_lines.array_gain_or_loss_ref(XLA_AE_LINES_PKG.g_LineNumber);
5097:
5098: ---------------------------------------------------------------------------------------------------------------
5099: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
5100: ---------------------------------------------------------------------------------------------------------------
5101: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
5102:
5103: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
5097:
5098: ---------------------------------------------------------------------------------------------------------------
5099: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
5100: ---------------------------------------------------------------------------------------------------------------
5101: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
5102:
5103: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
5104: l_enc_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_enc_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
5105:
5099: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
5100: ---------------------------------------------------------------------------------------------------------------
5101: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
5102:
5103: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
5104: l_enc_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_enc_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
5105:
5106: IF xla_accounting_cache_pkg.GetValueChar
5107: (p_source_code => 'LEDGER_CATEGORY_CODE'
5100: ---------------------------------------------------------------------------------------------------------------
5101: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
5102:
5103: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
5104: l_enc_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_enc_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
5105:
5106: IF xla_accounting_cache_pkg.GetValueChar
5107: (p_source_code => 'LEDGER_CATEGORY_CODE'
5108: ,p_target_ledger_id => XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id) IN ('PRIMARY','ALC')
5111: AND ( (NVL(l_actual_upg_option, 'N') IN ('Y', 'O')) OR
5112: (NVL(l_enc_upg_option, 'N') IN ('Y', 'O'))
5113: )
5114: THEN
5115: xla_ae_lines_pkg.BflowUpgEntry
5116: (p_business_method_code => l_bflow_method_code
5117: ,p_business_class_code => l_bflow_class_code
5118: ,p_balance_type => l_balance_type_code);
5119: ELSE
5151: , x_value_type_code => l_adr_value_type_code
5152: , p_side => 'NA'
5153: );
5154:
5155: xla_ae_lines_pkg.set_ccid(
5156: p_code_combination_id => l_ccid
5157: , p_value_type_code => l_adr_value_type_code
5158: , p_transaction_coa_id => l_adr_transaction_coa_id
5159: , p_accounting_coa_id => l_adr_accounting_coa_id
5187: xla_accounting_err_pkg.build_message
5188: (p_appli_s_name => 'XLA'
5189: ,p_msg_name => 'XLA_UPG_OVERRIDE_ADR_UNDEFINED'
5190: ,p_token_1 => 'LINE_NUMBER'
5191: ,p_value_1 => XLA_AE_LINES_PKG.g_LineNumber
5192: ,p_token_2 => 'LINE_TYPE_NAME'
5193: ,p_value_2 => XLA_AE_SOURCES_PKG.GetComponentName (
5194: l_component_type
5195: ,l_component_code
5223: --
5224: --
5225: ------------------------------------------------------------------------------------------------
5226: -- 4219869 Business Flow
5227: -- NOTE: XLA_AE_LINES_PKG.ValidateCurrentLine should NOT be generated if business flow method is
5228: -- Prior Entry. Currently, the following code is always generated.
5229: ------------------------------------------------------------------------------------------------
5230: XLA_AE_LINES_PKG.ValidateCurrentLine;
5231:
5226: -- 4219869 Business Flow
5227: -- NOTE: XLA_AE_LINES_PKG.ValidateCurrentLine should NOT be generated if business flow method is
5228: -- Prior Entry. Currently, the following code is always generated.
5229: ------------------------------------------------------------------------------------------------
5230: XLA_AE_LINES_PKG.ValidateCurrentLine;
5231:
5232: ------------------------------------------------------------------------------------
5233: -- 4219869 Business Flow
5234: -- Populated credit and debit amounts -- Need to generate this within IF
5232: ------------------------------------------------------------------------------------
5233: -- 4219869 Business Flow
5234: -- Populated credit and debit amounts -- Need to generate this within IF
5235: ------------------------------------------------------------------------------------
5236: XLA_AE_LINES_PKG.SetDebitCreditAmounts;
5237:
5238: ----------------------------------------------------------------------------------
5239: -- 4219869 Business Flow
5240: -- Update journal entry status -- Need to generate this within IF
5264: -- To allow MPA report to determine if it should generate report process
5265: XLA_ACCOUNTING_PKG.g_mpa_accrual_exists := 'Y';
5266: ------------------------------------------------------------------------------------------
5267:
5268: l_accrual_line_num := XLA_AE_LINES_PKG.g_LineNumber;
5269: XLA_AE_LINES_PKG.CopyLineInfo(l_accrual_line_num);
5270: -- added call to set_ccid to execute mapping for secondary accrual reversal entries bug 7444204
5271: -- call ADRs
5272: -- Bug 4922099
5265: XLA_ACCOUNTING_PKG.g_mpa_accrual_exists := 'Y';
5266: ------------------------------------------------------------------------------------------
5267:
5268: l_accrual_line_num := XLA_AE_LINES_PKG.g_LineNumber;
5269: XLA_AE_LINES_PKG.CopyLineInfo(l_accrual_line_num);
5270: -- added call to set_ccid to execute mapping for secondary accrual reversal entries bug 7444204
5271: -- call ADRs
5272: -- Bug 4922099
5273: --
5289: , x_value_type_code => l_adr_value_type_code
5290: , p_side => 'NA'
5291: );
5292:
5293: xla_ae_lines_pkg.set_ccid(
5294: p_code_combination_id => l_ccid
5295: , p_value_type_code => l_adr_value_type_code
5296: , p_transaction_coa_id => l_adr_transaction_coa_id
5297: , p_accounting_coa_id => l_adr_accounting_coa_id
5312:
5313: --
5314: -- Update the line information that should be overwritten
5315: --
5316: XLA_AE_LINES_PKG.set_ae_header_id(p_ae_header_id => p_event_id ,
5317: p_header_num => 1);
5318: XLA_AE_LINES_PKG.g_rec_lines.array_header_num(XLA_AE_LINES_PKG.g_LineNumber) :=1;
5319:
5320: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
5314: -- Update the line information that should be overwritten
5315: --
5316: XLA_AE_LINES_PKG.set_ae_header_id(p_ae_header_id => p_event_id ,
5317: p_header_num => 1);
5318: XLA_AE_LINES_PKG.g_rec_lines.array_header_num(XLA_AE_LINES_PKG.g_LineNumber) :=1;
5319:
5320: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
5321:
5322: IF l_bflow_method_code <> 'NONE' THEN -- 4655713b
5316: XLA_AE_LINES_PKG.set_ae_header_id(p_ae_header_id => p_event_id ,
5317: p_header_num => 1);
5318: XLA_AE_LINES_PKG.g_rec_lines.array_header_num(XLA_AE_LINES_PKG.g_LineNumber) :=1;
5319:
5320: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
5321:
5322: IF l_bflow_method_code <> 'NONE' THEN -- 4655713b
5323: XLA_AE_LINES_PKG.g_rec_lines.array_reversal_code(XLA_AE_LINES_PKG.g_LineNumber) := CONCAT('MPA_',l_bflow_method_code);
5324: END IF;
5319:
5320: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
5321:
5322: IF l_bflow_method_code <> 'NONE' THEN -- 4655713b
5323: XLA_AE_LINES_PKG.g_rec_lines.array_reversal_code(XLA_AE_LINES_PKG.g_LineNumber) := CONCAT('MPA_',l_bflow_method_code);
5324: END IF;
5325:
5326: --
5327: -- Depending on the Reversal Method setup, do a switch side or changes sign for the amounts
5326: --
5327: -- Depending on the Reversal Method setup, do a switch side or changes sign for the amounts
5328: --
5329: IF (XLA_AE_JOURNAL_ENTRY_PKG.g_cache_ledgers_info.ledger_reversal_option = 'SIDE') THEN
5330: XLA_AE_LINES_PKG.g_rec_lines.array_natural_side_code(XLA_AE_LINES_PKG.g_LineNumber) := l_acc_rev_natural_side_code;
5331: ELSE
5332: ---------------------------------------------------------------------------------------------------
5333: -- 4262811a Switch Sign
5334: ---------------------------------------------------------------------------------------------------
5331: ELSE
5332: ---------------------------------------------------------------------------------------------------
5333: -- 4262811a Switch Sign
5334: ---------------------------------------------------------------------------------------------------
5335: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
5336: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
5337: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5338: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
5339: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5332: ---------------------------------------------------------------------------------------------------
5333: -- 4262811a Switch Sign
5334: ---------------------------------------------------------------------------------------------------
5335: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
5336: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
5337: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5338: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
5339: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5340: -- 5132302
5333: -- 4262811a Switch Sign
5334: ---------------------------------------------------------------------------------------------------
5335: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
5336: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
5337: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5338: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
5339: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5340: -- 5132302
5341: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
5334: ---------------------------------------------------------------------------------------------------
5335: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
5336: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
5337: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5338: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
5339: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5340: -- 5132302
5341: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
5342: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5335: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
5336: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
5337: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5338: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
5339: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5340: -- 5132302
5341: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
5342: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5343:
5337: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5338: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
5339: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5340: -- 5132302
5341: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
5342: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5343:
5344: END IF;
5345:
5338: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
5339: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5340: -- 5132302
5341: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
5342: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5343:
5344: END IF;
5345:
5346: -- 4955764
5343:
5344: END IF;
5345:
5346: -- 4955764
5347: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
5348: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('acc_rev_header_index'));
5349:
5350:
5351: XLA_AE_LINES_PKG.ValidateCurrentLine;
5347: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
5348: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('acc_rev_header_index'));
5349:
5350:
5351: XLA_AE_LINES_PKG.ValidateCurrentLine;
5352: XLA_AE_LINES_PKG.SetDebitCreditAmounts;
5353:
5354: XLA_AE_JOURNAL_ENTRY_PKG.UpdateJournalEntryStatus
5355: (p_hdr_idx => g_array_event(p_event_id).array_value_num('acc_rev_header_index')
5348: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('acc_rev_header_index'));
5349:
5350:
5351: XLA_AE_LINES_PKG.ValidateCurrentLine;
5352: XLA_AE_LINES_PKG.SetDebitCreditAmounts;
5353:
5354: XLA_AE_JOURNAL_ENTRY_PKG.UpdateJournalEntryStatus
5355: (p_hdr_idx => g_array_event(p_event_id).array_value_num('acc_rev_header_index')
5356: ,p_balance_type_code => l_balance_type_code);
5478: --
5479: -- bulk performance
5480: --
5481: l_balance_type_code VARCHAR2(1);
5482: l_rec_acct_attrs XLA_AE_LINES_PKG.t_rec_acct_attrs;
5483: l_log_module VARCHAR2(240);
5484:
5485: --
5486: -- Upgrade strategy
5543: IF XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id = XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.ledger_id OR
5544: l_balance_type_code <> 'B' THEN
5545:
5546: --
5547: XLA_AE_LINES_PKG.SetNewLine;
5548:
5549: p_balance_type_code := l_balance_type_code;
5550: -- set the flag so later we will know whether the gain loss line needs to be created
5551:
5555:
5556: --
5557: -- bulk performance
5558: --
5559: XLA_AE_LINES_PKG.set_ae_header_id (p_ae_header_id => p_event_id ,
5560: p_header_num => 0); -- 4262811
5561: --
5562: -- set accounting line options
5563: --
5560: p_header_num => 0); -- 4262811
5561: --
5562: -- set accounting line options
5563: --
5564: l_ae_header_id:= xla_ae_lines_pkg.SetAcctLineOption(
5565: p_natural_side_code => 'C'
5566: , p_gain_or_loss_flag => 'N'
5567: , p_gl_transfer_mode_code => 'S'
5568: , p_acct_entry_type_code => 'A'
5574: --
5575: --
5576: -- set accounting line type info
5577: --
5578: xla_ae_lines_pkg.SetAcctLineType
5579: (p_component_type => l_component_type
5580: ,p_event_type_code => l_event_type_code
5581: ,p_line_definition_owner_code => l_line_definition_owner_code
5582: ,p_line_definition_code => l_line_definition_code
5588: ,p_event_class_code => l_event_class_code);
5589: --
5590: -- set accounting class
5591: --
5592: xla_ae_lines_pkg.SetAcctClass(
5593: p_accounting_class_code => 'CLEARING'
5594: , p_ae_header_id => l_ae_header_id
5595: );
5596:
5596:
5597: --
5598: -- set rounding class
5599: --
5600: XLA_AE_LINES_PKG.g_rec_lines.array_rounding_class(XLA_AE_LINES_PKG.g_LineNumber) :=
5601: 'CLEARING';
5602:
5603: --
5604: xla_ae_lines_pkg.g_rec_lines.array_calculate_acctd_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_acctd_flag;
5600: XLA_AE_LINES_PKG.g_rec_lines.array_rounding_class(XLA_AE_LINES_PKG.g_LineNumber) :=
5601: 'CLEARING';
5602:
5603: --
5604: xla_ae_lines_pkg.g_rec_lines.array_calculate_acctd_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_acctd_flag;
5605: xla_ae_lines_pkg.g_rec_lines.array_calculate_g_l_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_g_l_flag;
5606: --
5607: -- bulk performance
5608: --
5601: 'CLEARING';
5602:
5603: --
5604: xla_ae_lines_pkg.g_rec_lines.array_calculate_acctd_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_acctd_flag;
5605: xla_ae_lines_pkg.g_rec_lines.array_calculate_g_l_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_g_l_flag;
5606: --
5607: -- bulk performance
5608: --
5609: XLA_AE_LINES_PKG.g_rec_lines.array_balance_type_code(XLA_AE_LINES_PKG.g_LineNumber) := l_balance_type_code;
5605: xla_ae_lines_pkg.g_rec_lines.array_calculate_g_l_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_g_l_flag;
5606: --
5607: -- bulk performance
5608: --
5609: XLA_AE_LINES_PKG.g_rec_lines.array_balance_type_code(XLA_AE_LINES_PKG.g_LineNumber) := l_balance_type_code;
5610:
5611: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_id(XLA_AE_LINES_PKG.g_LineNumber) :=
5612: XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id;
5613:
5607: -- bulk performance
5608: --
5609: XLA_AE_LINES_PKG.g_rec_lines.array_balance_type_code(XLA_AE_LINES_PKG.g_LineNumber) := l_balance_type_code;
5610:
5611: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_id(XLA_AE_LINES_PKG.g_LineNumber) :=
5612: XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id;
5613:
5614: -- 4955764
5615: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
5611: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_id(XLA_AE_LINES_PKG.g_LineNumber) :=
5612: XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id;
5613:
5614: -- 4955764
5615: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
5616: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('header_index'));
5617:
5618: -- 4458381 Public Sector Enh
5619:
5639: l_rec_acct_attrs.array_num_value(7) := p_source_15;
5640: l_rec_acct_attrs.array_acct_attr_code(8) := 'PARTY_TYPE';
5641: l_rec_acct_attrs.array_char_value(8) := p_source_16;
5642:
5643: XLA_AE_LINES_PKG.SetLineAcctAttrs(l_rec_acct_attrs);
5644: p_gain_or_loss_ref := XLA_AE_LINES_PKG.g_rec_lines.array_gain_or_loss_ref(XLA_AE_LINES_PKG.g_LineNumber);
5645:
5646: ---------------------------------------------------------------------------------------------------------------
5647: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
5640: l_rec_acct_attrs.array_acct_attr_code(8) := 'PARTY_TYPE';
5641: l_rec_acct_attrs.array_char_value(8) := p_source_16;
5642:
5643: XLA_AE_LINES_PKG.SetLineAcctAttrs(l_rec_acct_attrs);
5644: p_gain_or_loss_ref := XLA_AE_LINES_PKG.g_rec_lines.array_gain_or_loss_ref(XLA_AE_LINES_PKG.g_LineNumber);
5645:
5646: ---------------------------------------------------------------------------------------------------------------
5647: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
5648: ---------------------------------------------------------------------------------------------------------------
5643: XLA_AE_LINES_PKG.SetLineAcctAttrs(l_rec_acct_attrs);
5644: p_gain_or_loss_ref := XLA_AE_LINES_PKG.g_rec_lines.array_gain_or_loss_ref(XLA_AE_LINES_PKG.g_LineNumber);
5645:
5646: ---------------------------------------------------------------------------------------------------------------
5647: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
5648: ---------------------------------------------------------------------------------------------------------------
5649: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
5650:
5651: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
5645:
5646: ---------------------------------------------------------------------------------------------------------------
5647: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
5648: ---------------------------------------------------------------------------------------------------------------
5649: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
5650:
5651: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
5652: l_enc_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_enc_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
5653:
5647: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
5648: ---------------------------------------------------------------------------------------------------------------
5649: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
5650:
5651: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
5652: l_enc_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_enc_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
5653:
5654: IF xla_accounting_cache_pkg.GetValueChar
5655: (p_source_code => 'LEDGER_CATEGORY_CODE'
5648: ---------------------------------------------------------------------------------------------------------------
5649: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
5650:
5651: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
5652: l_enc_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_enc_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
5653:
5654: IF xla_accounting_cache_pkg.GetValueChar
5655: (p_source_code => 'LEDGER_CATEGORY_CODE'
5656: ,p_target_ledger_id => XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id) IN ('PRIMARY','ALC')
5659: AND ( (NVL(l_actual_upg_option, 'N') IN ('Y', 'O')) OR
5660: (NVL(l_enc_upg_option, 'N') IN ('Y', 'O'))
5661: )
5662: THEN
5663: xla_ae_lines_pkg.BflowUpgEntry
5664: (p_business_method_code => l_bflow_method_code
5665: ,p_business_class_code => l_bflow_class_code
5666: ,p_balance_type => l_balance_type_code);
5667: ELSE
5699: , x_value_type_code => l_adr_value_type_code
5700: , p_side => 'NA'
5701: );
5702:
5703: xla_ae_lines_pkg.set_ccid(
5704: p_code_combination_id => l_ccid
5705: , p_value_type_code => l_adr_value_type_code
5706: , p_transaction_coa_id => l_adr_transaction_coa_id
5707: , p_accounting_coa_id => l_adr_accounting_coa_id
5735: xla_accounting_err_pkg.build_message
5736: (p_appli_s_name => 'XLA'
5737: ,p_msg_name => 'XLA_UPG_OVERRIDE_ADR_UNDEFINED'
5738: ,p_token_1 => 'LINE_NUMBER'
5739: ,p_value_1 => XLA_AE_LINES_PKG.g_LineNumber
5740: ,p_token_2 => 'LINE_TYPE_NAME'
5741: ,p_value_2 => XLA_AE_SOURCES_PKG.GetComponentName (
5742: l_component_type
5743: ,l_component_code
5771: --
5772: --
5773: ------------------------------------------------------------------------------------------------
5774: -- 4219869 Business Flow
5775: -- NOTE: XLA_AE_LINES_PKG.ValidateCurrentLine should NOT be generated if business flow method is
5776: -- Prior Entry. Currently, the following code is always generated.
5777: ------------------------------------------------------------------------------------------------
5778: XLA_AE_LINES_PKG.ValidateCurrentLine;
5779:
5774: -- 4219869 Business Flow
5775: -- NOTE: XLA_AE_LINES_PKG.ValidateCurrentLine should NOT be generated if business flow method is
5776: -- Prior Entry. Currently, the following code is always generated.
5777: ------------------------------------------------------------------------------------------------
5778: XLA_AE_LINES_PKG.ValidateCurrentLine;
5779:
5780: ------------------------------------------------------------------------------------
5781: -- 4219869 Business Flow
5782: -- Populated credit and debit amounts -- Need to generate this within IF
5780: ------------------------------------------------------------------------------------
5781: -- 4219869 Business Flow
5782: -- Populated credit and debit amounts -- Need to generate this within IF
5783: ------------------------------------------------------------------------------------
5784: XLA_AE_LINES_PKG.SetDebitCreditAmounts;
5785:
5786: ----------------------------------------------------------------------------------
5787: -- 4219869 Business Flow
5788: -- Update journal entry status -- Need to generate this within IF
5812: -- To allow MPA report to determine if it should generate report process
5813: XLA_ACCOUNTING_PKG.g_mpa_accrual_exists := 'Y';
5814: ------------------------------------------------------------------------------------------
5815:
5816: l_accrual_line_num := XLA_AE_LINES_PKG.g_LineNumber;
5817: XLA_AE_LINES_PKG.CopyLineInfo(l_accrual_line_num);
5818: -- added call to set_ccid to execute mapping for secondary accrual reversal entries bug 7444204
5819: -- call ADRs
5820: -- Bug 4922099
5813: XLA_ACCOUNTING_PKG.g_mpa_accrual_exists := 'Y';
5814: ------------------------------------------------------------------------------------------
5815:
5816: l_accrual_line_num := XLA_AE_LINES_PKG.g_LineNumber;
5817: XLA_AE_LINES_PKG.CopyLineInfo(l_accrual_line_num);
5818: -- added call to set_ccid to execute mapping for secondary accrual reversal entries bug 7444204
5819: -- call ADRs
5820: -- Bug 4922099
5821: --
5837: , x_value_type_code => l_adr_value_type_code
5838: , p_side => 'NA'
5839: );
5840:
5841: xla_ae_lines_pkg.set_ccid(
5842: p_code_combination_id => l_ccid
5843: , p_value_type_code => l_adr_value_type_code
5844: , p_transaction_coa_id => l_adr_transaction_coa_id
5845: , p_accounting_coa_id => l_adr_accounting_coa_id
5860:
5861: --
5862: -- Update the line information that should be overwritten
5863: --
5864: XLA_AE_LINES_PKG.set_ae_header_id(p_ae_header_id => p_event_id ,
5865: p_header_num => 1);
5866: XLA_AE_LINES_PKG.g_rec_lines.array_header_num(XLA_AE_LINES_PKG.g_LineNumber) :=1;
5867:
5868: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
5862: -- Update the line information that should be overwritten
5863: --
5864: XLA_AE_LINES_PKG.set_ae_header_id(p_ae_header_id => p_event_id ,
5865: p_header_num => 1);
5866: XLA_AE_LINES_PKG.g_rec_lines.array_header_num(XLA_AE_LINES_PKG.g_LineNumber) :=1;
5867:
5868: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
5869:
5870: IF l_bflow_method_code <> 'NONE' THEN -- 4655713b
5864: XLA_AE_LINES_PKG.set_ae_header_id(p_ae_header_id => p_event_id ,
5865: p_header_num => 1);
5866: XLA_AE_LINES_PKG.g_rec_lines.array_header_num(XLA_AE_LINES_PKG.g_LineNumber) :=1;
5867:
5868: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
5869:
5870: IF l_bflow_method_code <> 'NONE' THEN -- 4655713b
5871: XLA_AE_LINES_PKG.g_rec_lines.array_reversal_code(XLA_AE_LINES_PKG.g_LineNumber) := CONCAT('MPA_',l_bflow_method_code);
5872: END IF;
5867:
5868: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
5869:
5870: IF l_bflow_method_code <> 'NONE' THEN -- 4655713b
5871: XLA_AE_LINES_PKG.g_rec_lines.array_reversal_code(XLA_AE_LINES_PKG.g_LineNumber) := CONCAT('MPA_',l_bflow_method_code);
5872: END IF;
5873:
5874: --
5875: -- Depending on the Reversal Method setup, do a switch side or changes sign for the amounts
5874: --
5875: -- Depending on the Reversal Method setup, do a switch side or changes sign for the amounts
5876: --
5877: IF (XLA_AE_JOURNAL_ENTRY_PKG.g_cache_ledgers_info.ledger_reversal_option = 'SIDE') THEN
5878: XLA_AE_LINES_PKG.g_rec_lines.array_natural_side_code(XLA_AE_LINES_PKG.g_LineNumber) := l_acc_rev_natural_side_code;
5879: ELSE
5880: ---------------------------------------------------------------------------------------------------
5881: -- 4262811a Switch Sign
5882: ---------------------------------------------------------------------------------------------------
5879: ELSE
5880: ---------------------------------------------------------------------------------------------------
5881: -- 4262811a Switch Sign
5882: ---------------------------------------------------------------------------------------------------
5883: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
5884: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
5885: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5886: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
5887: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5880: ---------------------------------------------------------------------------------------------------
5881: -- 4262811a Switch Sign
5882: ---------------------------------------------------------------------------------------------------
5883: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
5884: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
5885: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5886: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
5887: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5888: -- 5132302
5881: -- 4262811a Switch Sign
5882: ---------------------------------------------------------------------------------------------------
5883: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
5884: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
5885: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5886: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
5887: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5888: -- 5132302
5889: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
5882: ---------------------------------------------------------------------------------------------------
5883: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
5884: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
5885: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5886: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
5887: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5888: -- 5132302
5889: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
5890: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5883: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
5884: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
5885: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5886: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
5887: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5888: -- 5132302
5889: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
5890: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5891:
5885: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5886: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
5887: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5888: -- 5132302
5889: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
5890: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5891:
5892: END IF;
5893:
5886: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
5887: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5888: -- 5132302
5889: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
5890: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
5891:
5892: END IF;
5893:
5894: -- 4955764
5891:
5892: END IF;
5893:
5894: -- 4955764
5895: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
5896: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('acc_rev_header_index'));
5897:
5898:
5899: XLA_AE_LINES_PKG.ValidateCurrentLine;
5895: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
5896: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('acc_rev_header_index'));
5897:
5898:
5899: XLA_AE_LINES_PKG.ValidateCurrentLine;
5900: XLA_AE_LINES_PKG.SetDebitCreditAmounts;
5901:
5902: XLA_AE_JOURNAL_ENTRY_PKG.UpdateJournalEntryStatus
5903: (p_hdr_idx => g_array_event(p_event_id).array_value_num('acc_rev_header_index')
5896: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('acc_rev_header_index'));
5897:
5898:
5899: XLA_AE_LINES_PKG.ValidateCurrentLine;
5900: XLA_AE_LINES_PKG.SetDebitCreditAmounts;
5901:
5902: XLA_AE_JOURNAL_ENTRY_PKG.UpdateJournalEntryStatus
5903: (p_hdr_idx => g_array_event(p_event_id).array_value_num('acc_rev_header_index')
5904: ,p_balance_type_code => l_balance_type_code);
6032: --
6033: -- bulk performance
6034: --
6035: l_balance_type_code VARCHAR2(1);
6036: l_rec_acct_attrs XLA_AE_LINES_PKG.t_rec_acct_attrs;
6037: l_log_module VARCHAR2(240);
6038:
6039: --
6040: -- Upgrade strategy
6097: IF XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id = XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.ledger_id OR
6098: l_balance_type_code <> 'B' THEN
6099:
6100: --
6101: XLA_AE_LINES_PKG.SetNewLine;
6102:
6103: p_balance_type_code := l_balance_type_code;
6104: -- set the flag so later we will know whether the gain loss line needs to be created
6105:
6109:
6110: --
6111: -- bulk performance
6112: --
6113: XLA_AE_LINES_PKG.set_ae_header_id (p_ae_header_id => p_event_id ,
6114: p_header_num => 0); -- 4262811
6115: --
6116: -- set accounting line options
6117: --
6114: p_header_num => 0); -- 4262811
6115: --
6116: -- set accounting line options
6117: --
6118: l_ae_header_id:= xla_ae_lines_pkg.SetAcctLineOption(
6119: p_natural_side_code => 'D'
6120: , p_gain_or_loss_flag => 'N'
6121: , p_gl_transfer_mode_code => 'S'
6122: , p_acct_entry_type_code => 'A'
6128: --
6129: --
6130: -- set accounting line type info
6131: --
6132: xla_ae_lines_pkg.SetAcctLineType
6133: (p_component_type => l_component_type
6134: ,p_event_type_code => l_event_type_code
6135: ,p_line_definition_owner_code => l_line_definition_owner_code
6136: ,p_line_definition_code => l_line_definition_code
6142: ,p_event_class_code => l_event_class_code);
6143: --
6144: -- set accounting class
6145: --
6146: xla_ae_lines_pkg.SetAcctClass(
6147: p_accounting_class_code => 'CLAIM_SETTLE'
6148: , p_ae_header_id => l_ae_header_id
6149: );
6150:
6150:
6151: --
6152: -- set rounding class
6153: --
6154: XLA_AE_LINES_PKG.g_rec_lines.array_rounding_class(XLA_AE_LINES_PKG.g_LineNumber) :=
6155: 'CLAIM_SETTLE';
6156:
6157: --
6158: xla_ae_lines_pkg.g_rec_lines.array_calculate_acctd_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_acctd_flag;
6154: XLA_AE_LINES_PKG.g_rec_lines.array_rounding_class(XLA_AE_LINES_PKG.g_LineNumber) :=
6155: 'CLAIM_SETTLE';
6156:
6157: --
6158: xla_ae_lines_pkg.g_rec_lines.array_calculate_acctd_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_acctd_flag;
6159: xla_ae_lines_pkg.g_rec_lines.array_calculate_g_l_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_g_l_flag;
6160: --
6161: -- bulk performance
6162: --
6155: 'CLAIM_SETTLE';
6156:
6157: --
6158: xla_ae_lines_pkg.g_rec_lines.array_calculate_acctd_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_acctd_flag;
6159: xla_ae_lines_pkg.g_rec_lines.array_calculate_g_l_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_g_l_flag;
6160: --
6161: -- bulk performance
6162: --
6163: XLA_AE_LINES_PKG.g_rec_lines.array_balance_type_code(XLA_AE_LINES_PKG.g_LineNumber) := l_balance_type_code;
6159: xla_ae_lines_pkg.g_rec_lines.array_calculate_g_l_flag(xla_ae_lines_pkg.g_LineNumber) := p_calculate_g_l_flag;
6160: --
6161: -- bulk performance
6162: --
6163: XLA_AE_LINES_PKG.g_rec_lines.array_balance_type_code(XLA_AE_LINES_PKG.g_LineNumber) := l_balance_type_code;
6164:
6165: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_id(XLA_AE_LINES_PKG.g_LineNumber) :=
6166: XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id;
6167:
6161: -- bulk performance
6162: --
6163: XLA_AE_LINES_PKG.g_rec_lines.array_balance_type_code(XLA_AE_LINES_PKG.g_LineNumber) := l_balance_type_code;
6164:
6165: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_id(XLA_AE_LINES_PKG.g_LineNumber) :=
6166: XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id;
6167:
6168: -- 4955764
6169: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
6165: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_id(XLA_AE_LINES_PKG.g_LineNumber) :=
6166: XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id;
6167:
6168: -- 4955764
6169: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
6170: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('header_index'));
6171:
6172: -- 4458381 Public Sector Enh
6173:
6193: l_rec_acct_attrs.array_num_value(7) := p_source_15;
6194: l_rec_acct_attrs.array_acct_attr_code(8) := 'PARTY_TYPE';
6195: l_rec_acct_attrs.array_char_value(8) := p_source_16;
6196:
6197: XLA_AE_LINES_PKG.SetLineAcctAttrs(l_rec_acct_attrs);
6198: p_gain_or_loss_ref := XLA_AE_LINES_PKG.g_rec_lines.array_gain_or_loss_ref(XLA_AE_LINES_PKG.g_LineNumber);
6199:
6200: ---------------------------------------------------------------------------------------------------------------
6201: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
6194: l_rec_acct_attrs.array_acct_attr_code(8) := 'PARTY_TYPE';
6195: l_rec_acct_attrs.array_char_value(8) := p_source_16;
6196:
6197: XLA_AE_LINES_PKG.SetLineAcctAttrs(l_rec_acct_attrs);
6198: p_gain_or_loss_ref := XLA_AE_LINES_PKG.g_rec_lines.array_gain_or_loss_ref(XLA_AE_LINES_PKG.g_LineNumber);
6199:
6200: ---------------------------------------------------------------------------------------------------------------
6201: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
6202: ---------------------------------------------------------------------------------------------------------------
6197: XLA_AE_LINES_PKG.SetLineAcctAttrs(l_rec_acct_attrs);
6198: p_gain_or_loss_ref := XLA_AE_LINES_PKG.g_rec_lines.array_gain_or_loss_ref(XLA_AE_LINES_PKG.g_LineNumber);
6199:
6200: ---------------------------------------------------------------------------------------------------------------
6201: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
6202: ---------------------------------------------------------------------------------------------------------------
6203: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
6204:
6205: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
6199:
6200: ---------------------------------------------------------------------------------------------------------------
6201: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
6202: ---------------------------------------------------------------------------------------------------------------
6203: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
6204:
6205: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
6206: l_enc_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_enc_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
6207:
6201: -- 4336173 -- assign Business Flow Class (replace code in xla_ae_lines_pkg.Business_Flow_Validation)
6202: ---------------------------------------------------------------------------------------------------------------
6203: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
6204:
6205: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
6206: l_enc_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_enc_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
6207:
6208: IF xla_accounting_cache_pkg.GetValueChar
6209: (p_source_code => 'LEDGER_CATEGORY_CODE'
6202: ---------------------------------------------------------------------------------------------------------------
6203: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := l_bflow_class_code;
6204:
6205: l_actual_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_actual_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
6206: l_enc_upg_option := XLA_AE_LINES_PKG.g_rec_lines.array_enc_upg_option(XLA_AE_LINES_PKG.g_LineNumber);
6207:
6208: IF xla_accounting_cache_pkg.GetValueChar
6209: (p_source_code => 'LEDGER_CATEGORY_CODE'
6210: ,p_target_ledger_id => XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id) IN ('PRIMARY','ALC')
6213: AND ( (NVL(l_actual_upg_option, 'N') IN ('Y', 'O')) OR
6214: (NVL(l_enc_upg_option, 'N') IN ('Y', 'O'))
6215: )
6216: THEN
6217: xla_ae_lines_pkg.BflowUpgEntry
6218: (p_business_method_code => l_bflow_method_code
6219: ,p_business_class_code => l_bflow_class_code
6220: ,p_balance_type => l_balance_type_code);
6221: ELSE
6230: --
6231: -- call description
6232: --
6233:
6234: xla_ae_lines_pkg.SetLineDescription(
6235: p_ae_header_id => l_ae_header_id
6236: ,p_description => Description_1 (
6237: p_application_id => p_application_id
6238: , p_ae_header_id => l_ae_header_id
6265: , x_value_type_code => l_adr_value_type_code
6266: , p_side => 'NA'
6267: );
6268:
6269: xla_ae_lines_pkg.set_ccid(
6270: p_code_combination_id => l_ccid
6271: , p_value_type_code => l_adr_value_type_code
6272: , p_transaction_coa_id => l_adr_transaction_coa_id
6273: , p_accounting_coa_id => l_adr_accounting_coa_id
6301: xla_accounting_err_pkg.build_message
6302: (p_appli_s_name => 'XLA'
6303: ,p_msg_name => 'XLA_UPG_OVERRIDE_ADR_UNDEFINED'
6304: ,p_token_1 => 'LINE_NUMBER'
6305: ,p_value_1 => XLA_AE_LINES_PKG.g_LineNumber
6306: ,p_token_2 => 'LINE_TYPE_NAME'
6307: ,p_value_2 => XLA_AE_SOURCES_PKG.GetComponentName (
6308: l_component_type
6309: ,l_component_code
6337: --
6338: --
6339: ------------------------------------------------------------------------------------------------
6340: -- 4219869 Business Flow
6341: -- NOTE: XLA_AE_LINES_PKG.ValidateCurrentLine should NOT be generated if business flow method is
6342: -- Prior Entry. Currently, the following code is always generated.
6343: ------------------------------------------------------------------------------------------------
6344: XLA_AE_LINES_PKG.ValidateCurrentLine;
6345:
6340: -- 4219869 Business Flow
6341: -- NOTE: XLA_AE_LINES_PKG.ValidateCurrentLine should NOT be generated if business flow method is
6342: -- Prior Entry. Currently, the following code is always generated.
6343: ------------------------------------------------------------------------------------------------
6344: XLA_AE_LINES_PKG.ValidateCurrentLine;
6345:
6346: ------------------------------------------------------------------------------------
6347: -- 4219869 Business Flow
6348: -- Populated credit and debit amounts -- Need to generate this within IF
6346: ------------------------------------------------------------------------------------
6347: -- 4219869 Business Flow
6348: -- Populated credit and debit amounts -- Need to generate this within IF
6349: ------------------------------------------------------------------------------------
6350: XLA_AE_LINES_PKG.SetDebitCreditAmounts;
6351:
6352: ----------------------------------------------------------------------------------
6353: -- 4219869 Business Flow
6354: -- Update journal entry status -- Need to generate this within IF
6378: -- To allow MPA report to determine if it should generate report process
6379: XLA_ACCOUNTING_PKG.g_mpa_accrual_exists := 'Y';
6380: ------------------------------------------------------------------------------------------
6381:
6382: l_accrual_line_num := XLA_AE_LINES_PKG.g_LineNumber;
6383: XLA_AE_LINES_PKG.CopyLineInfo(l_accrual_line_num);
6384: -- added call to set_ccid to execute mapping for secondary accrual reversal entries bug 7444204
6385: -- call ADRs
6386: -- Bug 4922099
6379: XLA_ACCOUNTING_PKG.g_mpa_accrual_exists := 'Y';
6380: ------------------------------------------------------------------------------------------
6381:
6382: l_accrual_line_num := XLA_AE_LINES_PKG.g_LineNumber;
6383: XLA_AE_LINES_PKG.CopyLineInfo(l_accrual_line_num);
6384: -- added call to set_ccid to execute mapping for secondary accrual reversal entries bug 7444204
6385: -- call ADRs
6386: -- Bug 4922099
6387: --
6403: , x_value_type_code => l_adr_value_type_code
6404: , p_side => 'NA'
6405: );
6406:
6407: xla_ae_lines_pkg.set_ccid(
6408: p_code_combination_id => l_ccid
6409: , p_value_type_code => l_adr_value_type_code
6410: , p_transaction_coa_id => l_adr_transaction_coa_id
6411: , p_accounting_coa_id => l_adr_accounting_coa_id
6426:
6427: --
6428: -- Update the line information that should be overwritten
6429: --
6430: XLA_AE_LINES_PKG.set_ae_header_id(p_ae_header_id => p_event_id ,
6431: p_header_num => 1);
6432: XLA_AE_LINES_PKG.g_rec_lines.array_header_num(XLA_AE_LINES_PKG.g_LineNumber) :=1;
6433:
6434: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
6428: -- Update the line information that should be overwritten
6429: --
6430: XLA_AE_LINES_PKG.set_ae_header_id(p_ae_header_id => p_event_id ,
6431: p_header_num => 1);
6432: XLA_AE_LINES_PKG.g_rec_lines.array_header_num(XLA_AE_LINES_PKG.g_LineNumber) :=1;
6433:
6434: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
6435:
6436: IF l_bflow_method_code <> 'NONE' THEN -- 4655713b
6430: XLA_AE_LINES_PKG.set_ae_header_id(p_ae_header_id => p_event_id ,
6431: p_header_num => 1);
6432: XLA_AE_LINES_PKG.g_rec_lines.array_header_num(XLA_AE_LINES_PKG.g_LineNumber) :=1;
6433:
6434: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
6435:
6436: IF l_bflow_method_code <> 'NONE' THEN -- 4655713b
6437: XLA_AE_LINES_PKG.g_rec_lines.array_reversal_code(XLA_AE_LINES_PKG.g_LineNumber) := CONCAT('MPA_',l_bflow_method_code);
6438: END IF;
6433:
6434: XLA_AE_LINES_PKG.g_rec_lines.array_business_class_code(XLA_AE_LINES_PKG.g_LineNumber) := NULL; -- 4669271
6435:
6436: IF l_bflow_method_code <> 'NONE' THEN -- 4655713b
6437: XLA_AE_LINES_PKG.g_rec_lines.array_reversal_code(XLA_AE_LINES_PKG.g_LineNumber) := CONCAT('MPA_',l_bflow_method_code);
6438: END IF;
6439:
6440: --
6441: -- Depending on the Reversal Method setup, do a switch side or changes sign for the amounts
6440: --
6441: -- Depending on the Reversal Method setup, do a switch side or changes sign for the amounts
6442: --
6443: IF (XLA_AE_JOURNAL_ENTRY_PKG.g_cache_ledgers_info.ledger_reversal_option = 'SIDE') THEN
6444: XLA_AE_LINES_PKG.g_rec_lines.array_natural_side_code(XLA_AE_LINES_PKG.g_LineNumber) := l_acc_rev_natural_side_code;
6445: ELSE
6446: ---------------------------------------------------------------------------------------------------
6447: -- 4262811a Switch Sign
6448: ---------------------------------------------------------------------------------------------------
6445: ELSE
6446: ---------------------------------------------------------------------------------------------------
6447: -- 4262811a Switch Sign
6448: ---------------------------------------------------------------------------------------------------
6449: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
6450: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
6451: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
6452: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
6453: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
6446: ---------------------------------------------------------------------------------------------------
6447: -- 4262811a Switch Sign
6448: ---------------------------------------------------------------------------------------------------
6449: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
6450: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
6451: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
6452: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
6453: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
6454: -- 5132302
6447: -- 4262811a Switch Sign
6448: ---------------------------------------------------------------------------------------------------
6449: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
6450: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
6451: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
6452: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
6453: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
6454: -- 5132302
6455: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
6448: ---------------------------------------------------------------------------------------------------
6449: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
6450: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
6451: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
6452: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
6453: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
6454: -- 5132302
6455: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
6456: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
6449: XLA_AE_LINES_PKG.g_rec_lines.array_switch_side_flag(XLA_AE_LINES_PKG.g_LineNumber) := 'N'; -- 5052518
6450: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
6451: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
6452: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
6453: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
6454: -- 5132302
6455: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
6456: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
6457:
6451: XLA_AE_LINES_PKG.g_rec_lines.array_ledger_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
6452: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
6453: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
6454: -- 5132302
6455: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
6456: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
6457:
6458: END IF;
6459:
6452: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) :=
6453: XLA_AE_LINES_PKG.g_rec_lines.array_entered_amount(XLA_AE_LINES_PKG.g_LineNumber) * -1;
6454: -- 5132302
6455: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) :=
6456: XLA_AE_LINES_PKG.g_rec_lines.array_bflow_applied_to_amt(XLA_AE_LINES_PKG.g_LineNumber) * -1;
6457:
6458: END IF;
6459:
6460: -- 4955764
6457:
6458: END IF;
6459:
6460: -- 4955764
6461: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
6462: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('acc_rev_header_index'));
6463:
6464:
6465: XLA_AE_LINES_PKG.ValidateCurrentLine;
6461: XLA_AE_LINES_PKG.g_rec_lines.array_gl_date(XLA_AE_LINES_PKG.g_LineNumber) :=
6462: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('acc_rev_header_index'));
6463:
6464:
6465: XLA_AE_LINES_PKG.ValidateCurrentLine;
6466: XLA_AE_LINES_PKG.SetDebitCreditAmounts;
6467:
6468: XLA_AE_JOURNAL_ENTRY_PKG.UpdateJournalEntryStatus
6469: (p_hdr_idx => g_array_event(p_event_id).array_value_num('acc_rev_header_index')
6462: XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(g_array_event(p_event_id).array_value_num('acc_rev_header_index'));
6463:
6464:
6465: XLA_AE_LINES_PKG.ValidateCurrentLine;
6466: XLA_AE_LINES_PKG.SetDebitCreditAmounts;
6467:
6468: XLA_AE_JOURNAL_ENTRY_PKG.UpdateJournalEntryStatus
6469: (p_hdr_idx => g_array_event(p_event_id).array_value_num('acc_rev_header_index')
6470: ,p_balance_type_code => l_balance_type_code);
6869: l_first_event_id NUMBER;
6870: l_last_event_id NUMBER;
6871:
6872: l_rec_acct_attrs XLA_AE_HEADER_PKG.t_rec_acct_attrs;
6873: l_rec_rev_acct_attrs XLA_AE_LINES_PKG.t_rec_acct_attrs;
6874: --
6875: --
6876: l_result BOOLEAN := TRUE;
6877: l_rows NUMBER := 1000;
7104: EXIT WHEN l_array_entity_id.COUNT = 0;
7105:
7106: -- initialize arrays
7107: XLA_AE_HEADER_PKG.g_rec_header_new := NULL;
7108: XLA_AE_LINES_PKG.g_rec_lines := NULL;
7109:
7110: --
7111: -- Bug 4458708
7112: --
7109:
7110: --
7111: -- Bug 4458708
7112: --
7113: XLA_AE_LINES_PKG.g_LineNumber := 0;
7114:
7115:
7116: -- 4262811 - when creating Accrual Reversal or MPA, use g_last_hdr_idx to increment for next header id
7117: g_last_hdr_idx := l_array_event_id.LAST;
7246: --
7247: -- following sets the accounting attributes needed to reverse
7248: -- accounting for a distributeion
7249: --
7250: xla_ae_lines_pkg.SetTrxReversalAttrs
7251: (p_event_id => l_event_id
7252: ,p_gl_date => XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(hdr_idx)
7253: ,p_trx_reversal_source => l_trx_reversal_source);
7254:
7278: --
7279: -- insert dummy rows into lines gt table that were created due to
7280: -- transaction reversals
7281: --
7282: IF XLA_AE_LINES_PKG.g_rec_lines.array_ae_header_id.COUNT > 0 THEN
7283: l_result := XLA_AE_LINES_PKG.InsertLines;
7284: END IF;
7285:
7286: --
7279: -- insert dummy rows into lines gt table that were created due to
7280: -- transaction reversals
7281: --
7282: IF XLA_AE_LINES_PKG.g_rec_lines.array_ae_header_id.COUNT > 0 THEN
7283: l_result := XLA_AE_LINES_PKG.InsertLines;
7284: END IF;
7285:
7286: --
7287: -- reset the temp_line_num for each set of events fetched from header
7287: -- reset the temp_line_num for each set of events fetched from header
7288: -- cursor rather than doing it for each new event in line cursor
7289: -- Bug 3939231
7290: --
7291: xla_ae_lines_pkg.g_temp_line_num := 0;
7292:
7293:
7294:
7295: --
7350: END IF;
7351: --
7352: EXIT WHEN l_array_entity_id.count = 0;
7353:
7354: XLA_AE_LINES_PKG.g_rec_lines := null;
7355:
7356: --
7357: -- Bug 4458708
7358: --
7355:
7356: --
7357: -- Bug 4458708
7358: --
7359: XLA_AE_LINES_PKG.g_LineNumber := 0;
7360: --
7361: --
7362:
7363: FOR Idx IN 1..l_array_event_id.count LOOP
7427:
7428:
7429:
7430: --
7431: xla_ae_lines_pkg.SetExtractLine(p_extract_line => l_array_extract_line_num(Idx));
7432:
7433: l_acct_reversal_source := SUBSTR(NULL, 1,30);
7434:
7435: IF l_continue_with_lines THEN
7463: --
7464:
7465: -- No reversal code generated
7466:
7467: xla_ae_lines_pkg.SetAcctReversalAttrs
7468: (p_event_id => l_event_id
7469: ,p_rec_acct_attrs => l_rec_rev_acct_attrs
7470: ,p_calculate_acctd_flag => l_calculate_acctd_flag
7471: ,p_calculate_g_l_flag => l_calculate_g_l_flag);
7531:
7532: -- IF((l_calculate_g_l_flag='Y' or XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id <>
7533: -- XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.ledger_id)
7534: AND (l_actual_flag = 'A')) THEN
7535: XLA_AE_LINES_PKG.CreateGainOrLossLines(
7536: p_event_id => xla_ae_journal_entry_pkg.g_cache_event.event_id
7537: ,p_application_id => p_application_id
7538: ,p_amb_context_code => 'DEFAULT'
7539: ,p_entity_code => xla_ae_journal_entry_pkg.g_cache_event.entity_code
7564: END IF;
7565: END IF;
7566:
7567: END LOOP;
7568: l_result := XLA_AE_LINES_PKG.InsertLines ;
7569: end loop;
7570: close line_cur;
7571:
7572:
8043: l_first_event_id NUMBER;
8044: l_last_event_id NUMBER;
8045:
8046: l_rec_acct_attrs XLA_AE_HEADER_PKG.t_rec_acct_attrs;
8047: l_rec_rev_acct_attrs XLA_AE_LINES_PKG.t_rec_acct_attrs;
8048: --
8049: --
8050: l_result BOOLEAN := TRUE;
8051: l_rows NUMBER := 1000;
8290: EXIT WHEN l_array_entity_id.COUNT = 0;
8291:
8292: -- initialize arrays
8293: XLA_AE_HEADER_PKG.g_rec_header_new := NULL;
8294: XLA_AE_LINES_PKG.g_rec_lines := NULL;
8295:
8296: --
8297: -- Bug 4458708
8298: --
8295:
8296: --
8297: -- Bug 4458708
8298: --
8299: XLA_AE_LINES_PKG.g_LineNumber := 0;
8300:
8301:
8302: -- 4262811 - when creating Accrual Reversal or MPA, use g_last_hdr_idx to increment for next header id
8303: g_last_hdr_idx := l_array_event_id.LAST;
8432: --
8433: -- following sets the accounting attributes needed to reverse
8434: -- accounting for a distributeion
8435: --
8436: xla_ae_lines_pkg.SetTrxReversalAttrs
8437: (p_event_id => l_event_id
8438: ,p_gl_date => XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(hdr_idx)
8439: ,p_trx_reversal_source => l_trx_reversal_source);
8440:
8464: --
8465: -- insert dummy rows into lines gt table that were created due to
8466: -- transaction reversals
8467: --
8468: IF XLA_AE_LINES_PKG.g_rec_lines.array_ae_header_id.COUNT > 0 THEN
8469: l_result := XLA_AE_LINES_PKG.InsertLines;
8470: END IF;
8471:
8472: --
8465: -- insert dummy rows into lines gt table that were created due to
8466: -- transaction reversals
8467: --
8468: IF XLA_AE_LINES_PKG.g_rec_lines.array_ae_header_id.COUNT > 0 THEN
8469: l_result := XLA_AE_LINES_PKG.InsertLines;
8470: END IF;
8471:
8472: --
8473: -- reset the temp_line_num for each set of events fetched from header
8473: -- reset the temp_line_num for each set of events fetched from header
8474: -- cursor rather than doing it for each new event in line cursor
8475: -- Bug 3939231
8476: --
8477: xla_ae_lines_pkg.g_temp_line_num := 0;
8478:
8479:
8480:
8481: --
8537: END IF;
8538: --
8539: EXIT WHEN l_array_entity_id.count = 0;
8540:
8541: XLA_AE_LINES_PKG.g_rec_lines := null;
8542:
8543: --
8544: -- Bug 4458708
8545: --
8542:
8543: --
8544: -- Bug 4458708
8545: --
8546: XLA_AE_LINES_PKG.g_LineNumber := 0;
8547: --
8548: --
8549:
8550: FOR Idx IN 1..l_array_event_id.count LOOP
8614:
8615:
8616:
8617: --
8618: xla_ae_lines_pkg.SetExtractLine(p_extract_line => l_array_extract_line_num(Idx));
8619:
8620: l_acct_reversal_source := SUBSTR(NULL, 1,30);
8621:
8622: IF l_continue_with_lines THEN
8650: --
8651:
8652: -- No reversal code generated
8653:
8654: xla_ae_lines_pkg.SetAcctReversalAttrs
8655: (p_event_id => l_event_id
8656: ,p_rec_acct_attrs => l_rec_rev_acct_attrs
8657: ,p_calculate_acctd_flag => l_calculate_acctd_flag
8658: ,p_calculate_g_l_flag => l_calculate_g_l_flag);
8725:
8726: -- IF((l_calculate_g_l_flag='Y' or XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id <>
8727: -- XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.ledger_id)
8728: AND (l_actual_flag = 'A')) THEN
8729: XLA_AE_LINES_PKG.CreateGainOrLossLines(
8730: p_event_id => xla_ae_journal_entry_pkg.g_cache_event.event_id
8731: ,p_application_id => p_application_id
8732: ,p_amb_context_code => 'DEFAULT'
8733: ,p_entity_code => xla_ae_journal_entry_pkg.g_cache_event.entity_code
8758: END IF;
8759: END IF;
8760:
8761: END LOOP;
8762: l_result := XLA_AE_LINES_PKG.InsertLines ;
8763: end loop;
8764: close line_cur;
8765:
8766:
9222: l_first_event_id NUMBER;
9223: l_last_event_id NUMBER;
9224:
9225: l_rec_acct_attrs XLA_AE_HEADER_PKG.t_rec_acct_attrs;
9226: l_rec_rev_acct_attrs XLA_AE_LINES_PKG.t_rec_acct_attrs;
9227: --
9228: --
9229: l_result BOOLEAN := TRUE;
9230: l_rows NUMBER := 1000;
9459: EXIT WHEN l_array_entity_id.COUNT = 0;
9460:
9461: -- initialize arrays
9462: XLA_AE_HEADER_PKG.g_rec_header_new := NULL;
9463: XLA_AE_LINES_PKG.g_rec_lines := NULL;
9464:
9465: --
9466: -- Bug 4458708
9467: --
9464:
9465: --
9466: -- Bug 4458708
9467: --
9468: XLA_AE_LINES_PKG.g_LineNumber := 0;
9469:
9470:
9471: -- 4262811 - when creating Accrual Reversal or MPA, use g_last_hdr_idx to increment for next header id
9472: g_last_hdr_idx := l_array_event_id.LAST;
9600: --
9601: -- following sets the accounting attributes needed to reverse
9602: -- accounting for a distributeion
9603: --
9604: xla_ae_lines_pkg.SetTrxReversalAttrs
9605: (p_event_id => l_event_id
9606: ,p_gl_date => XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(hdr_idx)
9607: ,p_trx_reversal_source => l_trx_reversal_source);
9608:
9632: --
9633: -- insert dummy rows into lines gt table that were created due to
9634: -- transaction reversals
9635: --
9636: IF XLA_AE_LINES_PKG.g_rec_lines.array_ae_header_id.COUNT > 0 THEN
9637: l_result := XLA_AE_LINES_PKG.InsertLines;
9638: END IF;
9639:
9640: --
9633: -- insert dummy rows into lines gt table that were created due to
9634: -- transaction reversals
9635: --
9636: IF XLA_AE_LINES_PKG.g_rec_lines.array_ae_header_id.COUNT > 0 THEN
9637: l_result := XLA_AE_LINES_PKG.InsertLines;
9638: END IF;
9639:
9640: --
9641: -- reset the temp_line_num for each set of events fetched from header
9641: -- reset the temp_line_num for each set of events fetched from header
9642: -- cursor rather than doing it for each new event in line cursor
9643: -- Bug 3939231
9644: --
9645: xla_ae_lines_pkg.g_temp_line_num := 0;
9646:
9647:
9648:
9649: --
9703: END IF;
9704: --
9705: EXIT WHEN l_array_entity_id.count = 0;
9706:
9707: XLA_AE_LINES_PKG.g_rec_lines := null;
9708:
9709: --
9710: -- Bug 4458708
9711: --
9708:
9709: --
9710: -- Bug 4458708
9711: --
9712: XLA_AE_LINES_PKG.g_LineNumber := 0;
9713: --
9714: --
9715:
9716: FOR Idx IN 1..l_array_event_id.count LOOP
9780:
9781:
9782:
9783: --
9784: xla_ae_lines_pkg.SetExtractLine(p_extract_line => l_array_extract_line_num(Idx));
9785:
9786: l_acct_reversal_source := SUBSTR(NULL, 1,30);
9787:
9788: IF l_continue_with_lines THEN
9816: --
9817:
9818: -- No reversal code generated
9819:
9820: xla_ae_lines_pkg.SetAcctReversalAttrs
9821: (p_event_id => l_event_id
9822: ,p_rec_acct_attrs => l_rec_rev_acct_attrs
9823: ,p_calculate_acctd_flag => l_calculate_acctd_flag
9824: ,p_calculate_g_l_flag => l_calculate_g_l_flag);
9888:
9889: -- IF((l_calculate_g_l_flag='Y' or XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id <>
9890: -- XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.ledger_id)
9891: AND (l_actual_flag = 'A')) THEN
9892: XLA_AE_LINES_PKG.CreateGainOrLossLines(
9893: p_event_id => xla_ae_journal_entry_pkg.g_cache_event.event_id
9894: ,p_application_id => p_application_id
9895: ,p_amb_context_code => 'DEFAULT'
9896: ,p_entity_code => xla_ae_journal_entry_pkg.g_cache_event.entity_code
9921: END IF;
9922: END IF;
9923:
9924: END LOOP;
9925: l_result := XLA_AE_LINES_PKG.InsertLines ;
9926: end loop;
9927: close line_cur;
9928:
9929:
10400: l_first_event_id NUMBER;
10401: l_last_event_id NUMBER;
10402:
10403: l_rec_acct_attrs XLA_AE_HEADER_PKG.t_rec_acct_attrs;
10404: l_rec_rev_acct_attrs XLA_AE_LINES_PKG.t_rec_acct_attrs;
10405: --
10406: --
10407: l_result BOOLEAN := TRUE;
10408: l_rows NUMBER := 1000;
10647: EXIT WHEN l_array_entity_id.COUNT = 0;
10648:
10649: -- initialize arrays
10650: XLA_AE_HEADER_PKG.g_rec_header_new := NULL;
10651: XLA_AE_LINES_PKG.g_rec_lines := NULL;
10652:
10653: --
10654: -- Bug 4458708
10655: --
10652:
10653: --
10654: -- Bug 4458708
10655: --
10656: XLA_AE_LINES_PKG.g_LineNumber := 0;
10657:
10658:
10659: -- 4262811 - when creating Accrual Reversal or MPA, use g_last_hdr_idx to increment for next header id
10660: g_last_hdr_idx := l_array_event_id.LAST;
10789: --
10790: -- following sets the accounting attributes needed to reverse
10791: -- accounting for a distributeion
10792: --
10793: xla_ae_lines_pkg.SetTrxReversalAttrs
10794: (p_event_id => l_event_id
10795: ,p_gl_date => XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(hdr_idx)
10796: ,p_trx_reversal_source => l_trx_reversal_source);
10797:
10821: --
10822: -- insert dummy rows into lines gt table that were created due to
10823: -- transaction reversals
10824: --
10825: IF XLA_AE_LINES_PKG.g_rec_lines.array_ae_header_id.COUNT > 0 THEN
10826: l_result := XLA_AE_LINES_PKG.InsertLines;
10827: END IF;
10828:
10829: --
10822: -- insert dummy rows into lines gt table that were created due to
10823: -- transaction reversals
10824: --
10825: IF XLA_AE_LINES_PKG.g_rec_lines.array_ae_header_id.COUNT > 0 THEN
10826: l_result := XLA_AE_LINES_PKG.InsertLines;
10827: END IF;
10828:
10829: --
10830: -- reset the temp_line_num for each set of events fetched from header
10830: -- reset the temp_line_num for each set of events fetched from header
10831: -- cursor rather than doing it for each new event in line cursor
10832: -- Bug 3939231
10833: --
10834: xla_ae_lines_pkg.g_temp_line_num := 0;
10835:
10836:
10837:
10838: --
10894: END IF;
10895: --
10896: EXIT WHEN l_array_entity_id.count = 0;
10897:
10898: XLA_AE_LINES_PKG.g_rec_lines := null;
10899:
10900: --
10901: -- Bug 4458708
10902: --
10899:
10900: --
10901: -- Bug 4458708
10902: --
10903: XLA_AE_LINES_PKG.g_LineNumber := 0;
10904: --
10905: --
10906:
10907: FOR Idx IN 1..l_array_event_id.count LOOP
10971:
10972:
10973:
10974: --
10975: xla_ae_lines_pkg.SetExtractLine(p_extract_line => l_array_extract_line_num(Idx));
10976:
10977: l_acct_reversal_source := SUBSTR(NULL, 1,30);
10978:
10979: IF l_continue_with_lines THEN
11007: --
11008:
11009: -- No reversal code generated
11010:
11011: xla_ae_lines_pkg.SetAcctReversalAttrs
11012: (p_event_id => l_event_id
11013: ,p_rec_acct_attrs => l_rec_rev_acct_attrs
11014: ,p_calculate_acctd_flag => l_calculate_acctd_flag
11015: ,p_calculate_g_l_flag => l_calculate_g_l_flag);
11082:
11083: -- IF((l_calculate_g_l_flag='Y' or XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id <>
11084: -- XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.ledger_id)
11085: AND (l_actual_flag = 'A')) THEN
11086: XLA_AE_LINES_PKG.CreateGainOrLossLines(
11087: p_event_id => xla_ae_journal_entry_pkg.g_cache_event.event_id
11088: ,p_application_id => p_application_id
11089: ,p_amb_context_code => 'DEFAULT'
11090: ,p_entity_code => xla_ae_journal_entry_pkg.g_cache_event.entity_code
11115: END IF;
11116: END IF;
11117:
11118: END LOOP;
11119: l_result := XLA_AE_LINES_PKG.InsertLines ;
11120: end loop;
11121: close line_cur;
11122:
11123:
11594: l_first_event_id NUMBER;
11595: l_last_event_id NUMBER;
11596:
11597: l_rec_acct_attrs XLA_AE_HEADER_PKG.t_rec_acct_attrs;
11598: l_rec_rev_acct_attrs XLA_AE_LINES_PKG.t_rec_acct_attrs;
11599: --
11600: --
11601: l_result BOOLEAN := TRUE;
11602: l_rows NUMBER := 1000;
11841: EXIT WHEN l_array_entity_id.COUNT = 0;
11842:
11843: -- initialize arrays
11844: XLA_AE_HEADER_PKG.g_rec_header_new := NULL;
11845: XLA_AE_LINES_PKG.g_rec_lines := NULL;
11846:
11847: --
11848: -- Bug 4458708
11849: --
11846:
11847: --
11848: -- Bug 4458708
11849: --
11850: XLA_AE_LINES_PKG.g_LineNumber := 0;
11851:
11852:
11853: -- 4262811 - when creating Accrual Reversal or MPA, use g_last_hdr_idx to increment for next header id
11854: g_last_hdr_idx := l_array_event_id.LAST;
11983: --
11984: -- following sets the accounting attributes needed to reverse
11985: -- accounting for a distributeion
11986: --
11987: xla_ae_lines_pkg.SetTrxReversalAttrs
11988: (p_event_id => l_event_id
11989: ,p_gl_date => XLA_AE_HEADER_PKG.g_rec_header_new.array_gl_date(hdr_idx)
11990: ,p_trx_reversal_source => l_trx_reversal_source);
11991:
12015: --
12016: -- insert dummy rows into lines gt table that were created due to
12017: -- transaction reversals
12018: --
12019: IF XLA_AE_LINES_PKG.g_rec_lines.array_ae_header_id.COUNT > 0 THEN
12020: l_result := XLA_AE_LINES_PKG.InsertLines;
12021: END IF;
12022:
12023: --
12016: -- insert dummy rows into lines gt table that were created due to
12017: -- transaction reversals
12018: --
12019: IF XLA_AE_LINES_PKG.g_rec_lines.array_ae_header_id.COUNT > 0 THEN
12020: l_result := XLA_AE_LINES_PKG.InsertLines;
12021: END IF;
12022:
12023: --
12024: -- reset the temp_line_num for each set of events fetched from header
12024: -- reset the temp_line_num for each set of events fetched from header
12025: -- cursor rather than doing it for each new event in line cursor
12026: -- Bug 3939231
12027: --
12028: xla_ae_lines_pkg.g_temp_line_num := 0;
12029:
12030:
12031:
12032: --
12088: END IF;
12089: --
12090: EXIT WHEN l_array_entity_id.count = 0;
12091:
12092: XLA_AE_LINES_PKG.g_rec_lines := null;
12093:
12094: --
12095: -- Bug 4458708
12096: --
12093:
12094: --
12095: -- Bug 4458708
12096: --
12097: XLA_AE_LINES_PKG.g_LineNumber := 0;
12098: --
12099: --
12100:
12101: FOR Idx IN 1..l_array_event_id.count LOOP
12165:
12166:
12167:
12168: --
12169: xla_ae_lines_pkg.SetExtractLine(p_extract_line => l_array_extract_line_num(Idx));
12170:
12171: l_acct_reversal_source := SUBSTR(NULL, 1,30);
12172:
12173: IF l_continue_with_lines THEN
12201: --
12202:
12203: -- No reversal code generated
12204:
12205: xla_ae_lines_pkg.SetAcctReversalAttrs
12206: (p_event_id => l_event_id
12207: ,p_rec_acct_attrs => l_rec_rev_acct_attrs
12208: ,p_calculate_acctd_flag => l_calculate_acctd_flag
12209: ,p_calculate_g_l_flag => l_calculate_g_l_flag);
12276:
12277: -- IF((l_calculate_g_l_flag='Y' or XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.target_ledger_id <>
12278: -- XLA_AE_JOURNAL_ENTRY_PKG.g_cache_event.ledger_id)
12279: AND (l_actual_flag = 'A')) THEN
12280: XLA_AE_LINES_PKG.CreateGainOrLossLines(
12281: p_event_id => xla_ae_journal_entry_pkg.g_cache_event.event_id
12282: ,p_application_id => p_application_id
12283: ,p_amb_context_code => 'DEFAULT'
12284: ,p_entity_code => xla_ae_journal_entry_pkg.g_cache_event.entity_code
12309: END IF;
12310: END IF;
12311:
12312: END LOOP;
12313: l_result := XLA_AE_LINES_PKG.InsertLines ;
12314: end loop;
12315: close line_cur;
12316:
12317:
12444:
12445: --
12446: -- initialize array of lines with NULL
12447: --
12448: xla_ae_lines_pkg.SetNullLine;
12449:
12450: --
12451: -- initialize header extract count -- Bug 4865292
12452: --