[Home] [Help]
2021: l_stmt_num := 50;
2022:
2023: select l_acct, l_acct, l_acct, l_acct, l_acct
2024: into l_mat_acct, l_mat_ovhd_acct, l_res_acct, l_osp_acct, l_ovhd_acct
2025: from dual;
2026:
2027: l_elemental := 1;
2028: l_ovhd_absp := 0;
2029: elsif (i_txn_act_id in (1,27,29) and i_src_type_id = 3) then
2751: /* Bug 2926258 - changed default to -1 to support org_id=0 */
2752: select decode(l_std_from_org, 1, l_from_org,
2753: decode(l_std_to_org,1,l_to_org,-1))
2754: into l_std_org
2755: from dual;
2756:
2757: -- For direct interorg transfers, we only care about the transction org id.
2758: --
2759: -- OPM INVCONV umoogala: For process-discrete xfer, txn_org will always be
2817: and secondary_inventory_name = l_subinv;
2818: else
2819: select decode(l_std_org,l_from_org,l_from_cost_grp,l_to_cost_grp)
2820: into l_cg_id
2821: from dual;
2822:
2823: if (l_cg_id = 1) then
2824: select material_account, material_overhead_account, resource_account,
2825: outside_processing_account, overhead_account,
3802: -- Bug 5453173/5453410/5450819/5450615:
3803: --
3804: select decode(i_exp_item, 0, nvl(l_exp_sub,0), i_exp_item)
3805: into l_exp
3806: from dual;
3807:
3808: if (l_intransit = 1 and i_exp_item = 0) then
3809: l_acct_line_type := 14;
3810: elsif (l_exp = 1) then
4563: 3, l_inv_res_acct,
4564: 4, l_inv_osp_acct,
4565: 5, l_inv_ovhd_acct)
4566: into l_acct
4567: from dual;
4568: end if;
4569:
4570: insert_account(i_org_id, i_txn_id, i_item_id, i_qty * l_cost,
4571: sign(i_qty * l_cost) * abs(i_qty)/*modified for bug#4005770*//*i_qty*/, l_acct, i_sob_id, 1,
4607: 3, decode(i_res_acct,-1, i_mat_acct, i_res_acct),
4608: 4, decode(i_osp_acct,-1, i_mat_acct, i_osp_acct),
4609: 5, decode(i_ovhd_acct,-1, i_mat_acct, i_ovhd_acct))
4610: into l_acct
4611: from dual;
4612: end if;
4613:
4614: insert_account(i_org_id, i_txn_id, i_item_id, (i_qty * l_cost) - l_var-l_onhand_var,
4615: i_qty, l_acct, i_sob_id, 2,
5279: l_stmt_num := 10;
5280:
5281: select decode(i_exp_item, 0, nvl(i_exp_subinv,0), i_exp_item)
5282: into l_exp
5283: from dual;
5284:
5285: if (i_intransit = 1 and i_exp_item = 0) then
5286: l_exp := 0;
5287: l_acct_line_type := 14;
5406: 3, l_res_acct,
5407: 4, l_osp_acct,
5408: 5, l_ovhd_acct))
5409: into l_acct
5410: from dual;
5411: end if;
5412:
5413: l_stmt_num := 120;
5414: -- Only insert into mta if the cost elemental detail exist in cacd.
5532: l_debug := fnd_profile.value('MRP_DEBUG');
5533:
5534: select decode(i_exp_item, 0, nvl(i_exp_subinv,0), i_exp_item)
5535: into l_exp
5536: from dual;
5537:
5538: -- Currently for an average cost org the inventory valuation accout and
5539: -- the intransit account is the same.
5540: l_stmt_num := 15;
5700: 3, l_res_acct,
5701: 4, l_osp_acct,
5702: 5, l_ovhd_acct))
5703: into l_acct
5704: from dual;
5705: end if;
5706:
5707: l_stmt_num := 56;
5708: -- Only insert into mta if the cost elemental detail exist in cacd.
6079: 3, i_res_acct,
6080: 4, i_osp_acct,
6081: 5, i_ovhd_acct)
6082: into l_acct
6083: from dual;
6084: end if;
6085:
6086: fnd_file.put_line(fnd_file.log, 'ElementID: ' || cost_element || ' Amt: ' || (i_p_qty * l_elemental_cost(cost_element)) ||
6087: ' Acct: ' || l_acct);
6397: 3, i_res_acct,
6398: 4, i_osp_acct,
6399: 5, i_ovhd_acct)
6400: into l_acct
6401: from dual;
6402:
6403: insert_account(i_org_id, i_txn_id, i_item_id, i_p_qty * l_cost,
6404: i_p_qty, l_acct, i_sob_id, i_acct_line_type,
6405: cost_element, NULL,
9891: l_mta_rec.rate_or_amount := abs(l_mta_rec.base_transaction_value
9892: /l_mta_rec.primary_quantity);
9893: END IF;
9894:
9895: select decode(sign(l_mta_rec.base_transaction_value),-1,-1,1) into l_sign from dual;
9896: l_mta_rec.PRIMARY_QUANTITY := l_sign * abs(l_mta_rec.PRIMARY_QUANTITY);
9897:
9898:
9899: INSERT INTO mtl_transaction_accounts
9983: ,l_mta_rec.GL_SL_LINK_ID
9984: ,l_mta_rec.USSGL_TRANSACTION_CODE
9985: --
9986: ,CST_INV_SUB_LEDGER_ID_S.NEXTVAL
9987: FROM DUAL;
9988:
9989: ELSE
9990:
9991: l_mta_rec.accounting_line_type := 37;
9998: l_mta_rec.rate_or_amount := abs(l_mta_rec.base_transaction_value
9999: /l_mta_rec.primary_quantity);
10000: END IF;
10001:
10002: select decode(sign(l_mta_rec.base_transaction_value),-1,-1,1) into l_sign from dual;
10003: l_mta_rec.PRIMARY_QUANTITY := l_sign * abs(l_mta_rec.PRIMARY_QUANTITY);
10004:
10005:
10006: INSERT INTO mtl_transaction_accounts
10090: ,l_mta_rec.GL_SL_LINK_ID
10091: ,l_mta_rec.USSGL_TRANSACTION_CODE
10092: --
10093: ,CST_INV_SUB_LEDGER_ID_S.NEXTVAL
10094: FROM DUAL;
10095: /*Find a row which can absorb l_value */
10096: SELECT MAX(rowid)
10097: INTO l_rowid
10098: FROM mtl_transaction_accounts