[Home] [Help]
5893: l_ae_line_rec.cost_element_id := cost_element;
5894:
5895: if (l_ae_line_rec.account = -1) then
5896: l_stmt_num := 40;
5897: /* Bug# 4586534. Replaced select statement from dual to PL/SQL based logic.
5898: select decode(cost_element, 1, l_acct_rec.mat_account,
5899: 2, l_acct_rec.mat_ovhd_account,
5900: 3, l_acct_rec.res_account,
5901: 4, l_acct_rec.osp_account,
5900: 3, l_acct_rec.res_account,
5901: 4, l_acct_rec.osp_account,
5902: 5, l_acct_rec.ovhd_account)
5903: into l_ae_line_rec.account
5904: from dual;
5905: */
5906: IF cost_element = 1 THEN
5907: l_ae_line_rec.account := l_acct_rec.mat_account;
5908: ELSIF cost_element = 2 THEN
5966:
5967: -- Get the corresponding MSI Elemental Account
5968: -- -------------------------------------------
5969: l_stmt_num := 47;
5970: /* Bug 4586534. Modified to PL/SQL logic based instead of using select from dual and
5971: moved up (stmt 32) to include validation that no distribution for the cost element would be
5972: done if cost is zero and no account is provided for the cost element.
5973:
5974: select decode(cost_element, 1, i_ae_txn_rec.mat_account,
5976: 3, i_ae_txn_rec.res_account,
5977: 4, i_ae_txn_rec.osp_account,
5978: 5, i_ae_txn_rec.ovhd_account)
5979: into l_ae_line_rec.account
5980: from dual;
5981: */
5982: l_ae_line_rec.account := l_txn_ce_bal_account; -- added for bug# 4586534
5983:
5984: -- Create AE line.
6086:
6087: l_ae_line_rec.ae_line_type := 2;
6088: l_ae_line_rec.transaction_value := abs(l_var_total);
6089:
6090: /* bug 4586534. changed to PL/SQL logic based instead of select from dual
6091: select i_ae_txn_rec.mat_account
6092: into l_ae_line_rec.account
6093: from dual;
6094: */
6089:
6090: /* bug 4586534. changed to PL/SQL logic based instead of select from dual
6091: select i_ae_txn_rec.mat_account
6092: into l_ae_line_rec.account
6093: from dual;
6094: */
6095: l_ae_line_rec.account := i_ae_txn_rec.mat_account;
6096: CSTPAPBR.insert_account (i_ae_txn_rec,
6097: i_ae_curr_rec,
7447: 3, i_ae_acct_rec.res_account,
7448: 4, i_ae_acct_rec.osp_account,
7449: 5, i_ae_acct_rec.ovhd_account)
7450: into l_ae_line_rec.account
7451: from dual;
7452: */
7453: IF cost_element = 1 THEN
7454: l_ae_line_rec.account := i_ae_acct_rec.mat_account;
7455: ELSIF cost_element = 2 THEN
7773: l_ae_line_tbl(next_record_avail).account :=
7774: i_ae_line_rec.account;
7775:
7776: l_stmt_num := 30;
7777: /* Bug 4586534. changed to PL/SQL logic based instead of select from dual
7778: select
7779: nvl(i_ae_curr_rec.alt_currency,i_ae_curr_rec.pri_currency)
7780: into l_ae_line_tbl(next_record_avail).currency_code
7781: from dual;
7777: /* Bug 4586534. changed to PL/SQL logic based instead of select from dual
7778: select
7779: nvl(i_ae_curr_rec.alt_currency,i_ae_curr_rec.pri_currency)
7780: into l_ae_line_tbl(next_record_avail).currency_code
7781: from dual;
7782: */
7783: l_ae_line_tbl(next_record_avail).currency_code := nvl(i_ae_curr_rec.alt_currency,i_ae_curr_rec.pri_currency);
7784:
7785: l_stmt_num := 40;
7787: decode(i_ae_curr_rec.alt_currency,
7788: i_ae_curr_rec.pri_currency,NULL,
7789: i_ae_curr_rec.currency_conv_date)
7790: into l_ae_line_tbl(next_record_avail).currency_conv_date
7791: from dual;
7792: */
7793:
7794: l_stmt_num := 50;
7795: /*select
7796: decode(i_ae_curr_rec.alt_currency,
7797: i_ae_curr_rec.pri_currency,NULL,
7798: decode(i_ae_curr_rec.currency_conv_rate,-1,NULL,i_ae_curr_rec.currency_conv_rate))
7799: into l_ae_line_tbl(next_record_avail).currency_conv_rate
7800: from dual;
7801: */
7802: IF i_ae_curr_rec.alt_currency = i_ae_curr_rec.pri_currency THEN
7803: l_ae_line_tbl(next_record_avail).currency_conv_date := NULL;
7804: l_ae_line_tbl(next_record_avail).currency_conv_rate := NULL;
7820: decode(i_ae_curr_rec.alt_currency,
7821: i_ae_curr_rec.pri_currency,NULL,
7822: i_ae_curr_rec.currency_conv_type)
7823: into l_ae_line_tbl(next_record_avail).currency_conv_type
7824: from dual;
7825: */
7826: l_stmt_num := 70;
7827: select decode(i_ae_curr_rec.alt_currency,NULL, NULL,
7828: i_ae_curr_rec.pri_currency, NULL,
7882: /*
7883: select decode(i_ae_txn_rec.primary_quantity,0,0,
7884: abs(i_ae_line_rec.transaction_value/i_ae_txn_rec.primary_quantity))
7885: into l_ae_line_tbl(next_record_avail).rate_or_amount
7886: from dual;
7887: */
7888:
7889: IF (i_ae_txn_rec.primary_quantity = 0) THEN
7890: l_ae_line_tbl(next_record_avail).rate_or_amount := 0;
8371:
8372: l_stmt_num := 180;
8373: select decode(i_ae_txn_rec.txn_type_id, 6, abs(l_actual_cost), abs(l_actual_value))
8374: into l_ae_line_rec.transaction_value
8375: from dual;
8376:
8377: -- Call Insert Account.
8378: -- --------------------
8379: l_stmt_num := 190;
8398: -- -----------------------------------------------------------
8399: l_stmt_num := 210;
8400: select decode(i_ae_txn_rec.txn_type_id, 1, 4, 2, 3, 3, 4, 6, 8)
8401: into l_ae_line_rec.ae_line_type
8402: from dual;
8403:
8404: l_ae_line_rec.account := l_acct_id2;
8405:
8406: -- Call Insert Account.
8831: 3, i_ae_acct_rec.res_account,
8832: 4, i_ae_acct_rec.osp_account,
8833: 5, i_ae_acct_rec.ovhd_account)
8834: into l_ae_line_rec.account
8835: from dual;
8836: END IF;
8837:
8838: l_ae_line_rec.resource_id := NULL;
8839: l_ae_line_rec.cost_element_id := cost_element;