[Home] [Help]
6175: l_ae_line_rec.cost_element_id := cost_element;
6176:
6177: if (l_ae_line_rec.account = -1) then
6178: l_stmt_num := 40;
6179: /* Bug# 4586534. Replaced select statement from dual to PL/SQL based logic.
6180: select decode(cost_element, 1, l_acct_rec.mat_account,
6181: 2, l_acct_rec.mat_ovhd_account,
6182: 3, l_acct_rec.res_account,
6183: 4, l_acct_rec.osp_account,
6182: 3, l_acct_rec.res_account,
6183: 4, l_acct_rec.osp_account,
6184: 5, l_acct_rec.ovhd_account)
6185: into l_ae_line_rec.account
6186: from dual;
6187: */
6188: IF cost_element = 1 THEN
6189: l_ae_line_rec.account := l_acct_rec.mat_account;
6190: ELSIF cost_element = 2 THEN
6239:
6240: -- Get the corresponding MSI Elemental Account
6241: -- -------------------------------------------
6242: l_stmt_num := 47;
6243: /* Bug 4586534. Modified to PL/SQL logic based instead of using select from dual and
6244: moved up (stmt 32) to include validation that no distribution for the cost element would be
6245: done if cost is zero and no account is provided for the cost element.
6246:
6247: select decode(cost_element, 1, i_ae_txn_rec.mat_account,
6249: 3, i_ae_txn_rec.res_account,
6250: 4, i_ae_txn_rec.osp_account,
6251: 5, i_ae_txn_rec.ovhd_account)
6252: into l_ae_line_rec.account
6253: from dual;
6254: */
6255: l_ae_line_rec.account := l_txn_ce_bal_account; -- added for bug# 4586534
6256:
6257: -- Create AE line.
6371:
6372: l_ae_line_rec.ae_line_type := 2;
6373: l_ae_line_rec.transaction_value := abs(l_var_total);
6374:
6375: /* bug 4586534. changed to PL/SQL logic based instead of select from dual
6376: select i_ae_txn_rec.mat_account
6377: into l_ae_line_rec.account
6378: from dual;
6379: */
6374:
6375: /* bug 4586534. changed to PL/SQL logic based instead of select from dual
6376: select i_ae_txn_rec.mat_account
6377: into l_ae_line_rec.account
6378: from dual;
6379: */
6380: l_ae_line_rec.account := i_ae_txn_rec.mat_account;
6381: CSTPAPBR.insert_account (i_ae_txn_rec,
6382: i_ae_curr_rec,
7830: 3, i_ae_acct_rec.res_account,
7831: 4, i_ae_acct_rec.osp_account,
7832: 5, i_ae_acct_rec.ovhd_account)
7833: into l_ae_line_rec.account
7834: from dual;
7835: */
7836: IF cost_element = 1 THEN
7837: l_ae_line_rec.account := i_ae_acct_rec.mat_account;
7838: ELSIF cost_element = 2 THEN
8156: l_ae_line_tbl(next_record_avail).account :=
8157: i_ae_line_rec.account;
8158:
8159: l_stmt_num := 30;
8160: /* Bug 4586534. changed to PL/SQL logic based instead of select from dual
8161: select
8162: nvl(i_ae_curr_rec.alt_currency,i_ae_curr_rec.pri_currency)
8163: into l_ae_line_tbl(next_record_avail).currency_code
8164: from dual;
8160: /* Bug 4586534. changed to PL/SQL logic based instead of select from dual
8161: select
8162: nvl(i_ae_curr_rec.alt_currency,i_ae_curr_rec.pri_currency)
8163: into l_ae_line_tbl(next_record_avail).currency_code
8164: from dual;
8165: */
8166: l_ae_line_tbl(next_record_avail).currency_code := nvl(i_ae_curr_rec.alt_currency,i_ae_curr_rec.pri_currency);
8167:
8168: l_stmt_num := 40;
8170: decode(i_ae_curr_rec.alt_currency,
8171: i_ae_curr_rec.pri_currency,NULL,
8172: i_ae_curr_rec.currency_conv_date)
8173: into l_ae_line_tbl(next_record_avail).currency_conv_date
8174: from dual;
8175: */
8176:
8177: l_stmt_num := 50;
8178: /*select
8179: decode(i_ae_curr_rec.alt_currency,
8180: i_ae_curr_rec.pri_currency,NULL,
8181: decode(i_ae_curr_rec.currency_conv_rate,-1,NULL,i_ae_curr_rec.currency_conv_rate))
8182: into l_ae_line_tbl(next_record_avail).currency_conv_rate
8183: from dual;
8184: */
8185: IF i_ae_curr_rec.alt_currency = i_ae_curr_rec.pri_currency THEN
8186: l_ae_line_tbl(next_record_avail).currency_conv_date := NULL;
8187: l_ae_line_tbl(next_record_avail).currency_conv_rate := NULL;
8203: decode(i_ae_curr_rec.alt_currency,
8204: i_ae_curr_rec.pri_currency,NULL,
8205: i_ae_curr_rec.currency_conv_type)
8206: into l_ae_line_tbl(next_record_avail).currency_conv_type
8207: from dual;
8208: */
8209: l_stmt_num := 70;
8210: select decode(i_ae_curr_rec.alt_currency,NULL, NULL,
8211: i_ae_curr_rec.pri_currency, NULL,
8265: /*
8266: select decode(i_ae_txn_rec.primary_quantity,0,0,
8267: abs(i_ae_line_rec.transaction_value/i_ae_txn_rec.primary_quantity))
8268: into l_ae_line_tbl(next_record_avail).rate_or_amount
8269: from dual;
8270: */
8271:
8272: IF (i_ae_txn_rec.primary_quantity = 0) THEN
8273: l_ae_line_tbl(next_record_avail).rate_or_amount := 0;
8757:
8758: l_stmt_num := 180;
8759: select decode(i_ae_txn_rec.txn_type_id, 6, abs(l_actual_cost), abs(l_actual_value))
8760: into l_ae_line_rec.transaction_value
8761: from dual;
8762:
8763: -- Call Insert Account.
8764: -- --------------------
8765: l_stmt_num := 190;
8784: -- -----------------------------------------------------------
8785: l_stmt_num := 210;
8786: select decode(i_ae_txn_rec.txn_type_id, 1, 4, 2, 3, 3, 4, 6, 8)
8787: into l_ae_line_rec.ae_line_type
8788: from dual;
8789:
8790: l_ae_line_rec.account := l_acct_id2;
8791:
8792: -- Call Insert Account.
9272: 3, i_ae_acct_rec.res_account,
9273: 4, i_ae_acct_rec.osp_account,
9274: 5, i_ae_acct_rec.ovhd_account)
9275: into l_ae_line_rec.account
9276: from dual;
9277: END IF;
9278:
9279: l_ae_line_rec.resource_id := NULL;
9280: l_ae_line_rec.cost_element_id := cost_element;