[Home] [Help]
195: end if;
196:
197: -- Some transactions do not need to be cost processed and only need cost
198: -- distribution!
199: -- 1) The intransit shipment from standard to average with fob receipt
200: -- 2) The intransit receipt to standard from average with fob shipment
201: -- 3) The direct interorg shipment from standard to average
202: -- 4) The direct interorg receipt from average to standard.
203: -- 5) The intransit receipt from process to discrete
196:
197: -- Some transactions do not need to be cost processed and only need cost
198: -- distribution!
199: -- 1) The intransit shipment from standard to average with fob receipt
200: -- 2) The intransit receipt to standard from average with fob shipment
201: -- 3) The direct interorg shipment from standard to average
202: -- 4) The direct interorg receipt from average to standard.
203: -- 5) The intransit receipt from process to discrete
204: l_stmt_num := 15;
197: -- Some transactions do not need to be cost processed and only need cost
198: -- distribution!
199: -- 1) The intransit shipment from standard to average with fob receipt
200: -- 2) The intransit receipt to standard from average with fob shipment
201: -- 3) The direct interorg shipment from standard to average
202: -- 4) The direct interorg receipt from average to standard.
203: -- 5) The intransit receipt from process to discrete
204: l_stmt_num := 15;
205: if ((i_txn_action_id = 21 and i_fob_point = 2 and i_txfr_org_id = i_org_id)
198: -- distribution!
199: -- 1) The intransit shipment from standard to average with fob receipt
200: -- 2) The intransit receipt to standard from average with fob shipment
201: -- 3) The direct interorg shipment from standard to average
202: -- 4) The direct interorg receipt from average to standard.
203: -- 5) The intransit receipt from process to discrete
204: l_stmt_num := 15;
205: if ((i_txn_action_id = 21 and i_fob_point = 2 and i_txfr_org_id = i_org_id)
206: OR
4672: l_to_cost_grp := i_cost_grp_id;
4673: end if;
4674:
4675: l_stmt_num := 2;
4676: l_std_from_org := standard_cost_org(l_from_org);
4677: l_stmt_num := 4;
4678: l_std_to_org := standard_cost_org(l_to_org);
4679:
4680: l_stmt_num := 6;
4674:
4675: l_stmt_num := 2;
4676: l_std_from_org := standard_cost_org(l_from_org);
4677: l_stmt_num := 4;
4678: l_std_to_org := standard_cost_org(l_to_org);
4679:
4680: l_stmt_num := 6;
4681: select NVL(elemental_visibility_enabled,'N')
4682: into l_elemental_visible
4874: end if;
4875:
4876: /***********************************************************************
4877: ** In the following conditions we will be doing distribution for the **
4878: ** standard org, so need populate mtl_cst_actual_cost_details with **
4879: ** the standard costs. **
4880: ** 1. intransit interorg and one of the orgs is standard. **
4881: ** 2. direct interorg and the txn_org_id is standard. **
4882: ***********************************************************************/
4875:
4876: /***********************************************************************
4877: ** In the following conditions we will be doing distribution for the **
4878: ** standard org, so need populate mtl_cst_actual_cost_details with **
4879: ** the standard costs. **
4880: ** 1. intransit interorg and one of the orgs is standard. **
4881: ** 2. direct interorg and the txn_org_id is standard. **
4882: ***********************************************************************/
4883: if ((i_txn_action_id = 3 and l_std_org = i_txn_org_id) OR
4876: /***********************************************************************
4877: ** In the following conditions we will be doing distribution for the **
4878: ** standard org, so need populate mtl_cst_actual_cost_details with **
4879: ** the standard costs. **
4880: ** 1. intransit interorg and one of the orgs is standard. **
4881: ** 2. direct interorg and the txn_org_id is standard. **
4882: ***********************************************************************/
4883: if ((i_txn_action_id = 3 and l_std_org = i_txn_org_id) OR
4884: (i_txn_action_id in (12,21) and
4877: ** In the following conditions we will be doing distribution for the **
4878: ** standard org, so need populate mtl_cst_actual_cost_details with **
4879: ** the standard costs. **
4880: ** 1. intransit interorg and one of the orgs is standard. **
4881: ** 2. direct interorg and the txn_org_id is standard. **
4882: ***********************************************************************/
4883: if ((i_txn_action_id = 3 and l_std_org = i_txn_org_id) OR
4884: (i_txn_action_id in (12,21) and
4885: (l_std_from_org = 1 or l_std_to_org = 1))) then
4886:
4887: /* for bug 3761538 */
4888: if (i_txn_action_id in (12,21) and i_fob_point = 1 and l_std_to_org = 1) then
4889: -- for the receiving transaction of a intransit fob shipment interorg transfer,
4890: -- if the receiving org is standard and item is expense in the std org,
4891: -- set l_to_std_exp = 1 to later insert into mcacd from mctcd.
4892: l_stmt_num := 102;
4893: select decode(inventory_asset_flag, 'Y', 0, 1)
4894: into l_to_std_exp
4905: ((l_std_exp <> 1) or (l_std_from_org = 1) or
4906: (l_std_to_org = 1 and i_txn_action_id = 12 and i_fob_point = 1))
4907: then
4908:
4909: /* Use standard costs only for non-expense or not interorg shipements*/
4910: /* Need to use sending org cost for expense interorg receipts */
4911: l_stmt_num := 60;
4912:
4913: l_count := 0;
5022: 0,
5023: 'N');
5024: end if;
5025:
5026: -- Need to apply material overheads if standard org is receiving
5027: if (l_std_to_org =1) then
5028: l_stmt_num := 80;
5029: /* Changes for MOH Absorption engine */
5030: cst_mohRules_pub.apply_moh(
5152: fnd_file.put_line(fnd_file.log, '>>>Transaction update id'||to_char(l_txn_update_id));
5153: END IF;
5154:
5155:
5156: -- If we are shipping from a standard cost org to an average cost org, the
5157: -- transaction cost must be computed at the time of the average cost worker
5158: -- for the receiving organization. This is an exception to the general case
5159: -- where the shipping organization always figures out the transaction cost
5160: -- and populate the details rows for the receiving org.
5615: end if;
5616: /*end changes for 3679625 */
5617:
5618: if (l_update_std = 1) then
5619: /* the receiving org is standard exp. */
5620: l_stmt_num := 210;
5621: -- if the receiving org is std exp, copy the txn info
5622: -- into MCACD from MCTCD.
5623: insert into mtl_cst_actual_cost_details (
5701: end if;
5702:
5703: /* begin bug 3761538
5704: * handle intransit interorg transfers with fob pt = shipment,
5705: * from average costing org to standard costing org
5706: * where item is expense in the receiving org.
5707: */
5708: if (l_to_std_exp = 1) then
5709: if (i_txn_org_id = l_std_org) then
6009: || substr(SQLERRM, 1,200);
6010:
6011: END get_snd_rcv_uom;
6012:
6013: FUNCTION standard_cost_org(
6014: I_ORG_ID IN NUMBER
6015: ) RETURN INTEGER IS
6016: l_ret_val NUMBER;
6017: BEGIN
6020: from mtl_parameters
6021: where organization_id = i_org_id;
6022:
6023: return l_ret_val;
6024: END standard_cost_org;
6025:
6026: PROCEDURE borrow_cost(
6027: I_ORG_ID IN NUMBER,
6028: I_TXN_ID IN NUMBER,
6380: fnd_file.put_line(fnd_file.log, '>>>>Inside Interorg_Elemental_Detail');
6381: END IF;
6382: -- Insert detail elemental cost into mctcd.
6383: -- Based on the from_org :
6384: -- * If from_org is a standard org (l_compute_txn_cost=1),
6385: -- insert detail cost from cicd
6386: -- * If from_org is an avg org (l_compute_txn_cost=2),
6387: -- insert detail cost from clcd
6388: -- Need to convert the cost into the receiving org cost in receiving org
6396: if (i_compute_txn_cost = 1) then
6397: l_stmt_num := 10;
6398:
6399: IF g_debug = 'Y' THEN
6400: fnd_file.put_line(fnd_file.log, '>>>>From organization is a standard org');
6401: END IF;
6402:
6403: /* Added for bugfix 3048258 */
6404: select cost_organization_id
6818:
6819: SAVEPOINT Cost_Acct_Events;
6820:
6821: -------------------------------------------------------------------------
6822: -- standard call to check for call compatibility
6823: -------------------------------------------------------------------------
6824: IF NOT fnd_api.compatible_api_call (
6825: l_api_version,
6826: p_api_version,
7280: -- DESCRIPTION --
7281: -- This procedure determines the costs of logical transactions in --
7282: -- physical organizations. --
7283: -- The costs are determined as follows: --
7284: -- Standard Costing org: Standard cost of item --
7285: -- Average Costing org: actual cost of item --
7286: -- FIFO/FIFO org: From MCLACD of parent transaction --
7287: -- --
7288: -- This procedure should be called only for logical transactions in the --
7373:
7374: l_stmt_num := 10;
7375:
7376: -------------------------------------------------------------------------
7377: -- Standard Costing Organizations
7378: -------------------------------------------------------------------------
7379:
7380: -- -----------------------------------------------------------------------------
7381: -- Bug 6328273 fix: Check for shared costing organization
7490:
7491: end if;
7492:
7493: -- ---------------------------------------------------------------
7494: -- Bug 6328273 fix: check for shared standard costing organization
7495: -- In the current organization, no recs can be found in CICD
7496: -- Get item cost from parent organization
7497: -- --------------------------------------------------------------
7498: elsif (p_cost_method = 1 AND p_org_id <> p_cost_org_id) then
8420: WHERE
8421: organization_id = l_logical_org_id;
8422:
8423:
8424: -- For non-Standard Orgs, Get layer information
8425: -- For Standard Costing Orgs, we use '-1' as the layer id in MCACD
8426:
8427: IF l_cost_method <> 1 THEN
8428: l_stmt_num := 40;
8421: organization_id = l_logical_org_id;
8422:
8423:
8424: -- For non-Standard Orgs, Get layer information
8425: -- For Standard Costing Orgs, we use '-1' as the layer id in MCACD
8426:
8427: IF l_cost_method <> 1 THEN
8428: l_stmt_num := 40;
8429:
9140: end if;
9141: -- End of item cost history
9142:
9143: --
9144: -- Got rid of big chunck of code for standard costing org.
9145: -- For p-d xfers, in Avg Cost processor Org will always be Average Costin Org.
9146: -- Shipment to Std Orgs are being processed by Std Cost processor.
9147: --
9148: