[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
4497: l_to_cost_grp := i_cost_grp_id;
4498: end if;
4499:
4500: l_stmt_num := 2;
4501: l_std_from_org := standard_cost_org(l_from_org);
4502: l_stmt_num := 4;
4503: l_std_to_org := standard_cost_org(l_to_org);
4504:
4505: l_stmt_num := 6;
4499:
4500: l_stmt_num := 2;
4501: l_std_from_org := standard_cost_org(l_from_org);
4502: l_stmt_num := 4;
4503: l_std_to_org := standard_cost_org(l_to_org);
4504:
4505: l_stmt_num := 6;
4506: select NVL(elemental_visibility_enabled,'N')
4507: into l_elemental_visible
4699: end if;
4700:
4701: /***********************************************************************
4702: ** In the following conditions we will be doing distribution for the **
4703: ** standard org, so need populate mtl_cst_actual_cost_details with **
4704: ** the standard costs. **
4705: ** 1. intransit interorg and one of the orgs is standard. **
4706: ** 2. direct interorg and the txn_org_id is standard. **
4707: ***********************************************************************/
4700:
4701: /***********************************************************************
4702: ** In the following conditions we will be doing distribution for the **
4703: ** standard org, so need populate mtl_cst_actual_cost_details with **
4704: ** the standard costs. **
4705: ** 1. intransit interorg and one of the orgs is standard. **
4706: ** 2. direct interorg and the txn_org_id is standard. **
4707: ***********************************************************************/
4708: if ((i_txn_action_id = 3 and l_std_org = i_txn_org_id) OR
4701: /***********************************************************************
4702: ** In the following conditions we will be doing distribution for the **
4703: ** standard org, so need populate mtl_cst_actual_cost_details with **
4704: ** the standard costs. **
4705: ** 1. intransit interorg and one of the orgs is standard. **
4706: ** 2. direct interorg and the txn_org_id is standard. **
4707: ***********************************************************************/
4708: if ((i_txn_action_id = 3 and l_std_org = i_txn_org_id) OR
4709: (i_txn_action_id in (12,21) and
4702: ** In the following conditions we will be doing distribution for the **
4703: ** standard org, so need populate mtl_cst_actual_cost_details with **
4704: ** the standard costs. **
4705: ** 1. intransit interorg and one of the orgs is standard. **
4706: ** 2. direct interorg and the txn_org_id is standard. **
4707: ***********************************************************************/
4708: if ((i_txn_action_id = 3 and l_std_org = i_txn_org_id) OR
4709: (i_txn_action_id in (12,21) and
4710: (l_std_from_org = 1 or l_std_to_org = 1))) then
4711:
4712: /* for bug 3761538 */
4713: if (i_txn_action_id in (12,21) and i_fob_point = 1 and l_std_to_org = 1) then
4714: -- for the receiving transaction of a intransit fob shipment interorg transfer,
4715: -- if the receiving org is standard and item is expense in the std org,
4716: -- set l_to_std_exp = 1 to later insert into mcacd from mctcd.
4717: l_stmt_num := 102;
4718: select decode(inventory_asset_flag, 'Y', 0, 1)
4719: into l_to_std_exp
4730: ((l_std_exp <> 1) or (l_std_from_org = 1) or
4731: (l_std_to_org = 1 and i_txn_action_id = 12 and i_fob_point = 1))
4732: then
4733:
4734: /* Use standard costs only for non-expense or not interorg shipements*/
4735: /* Need to use sending org cost for expense interorg receipts */
4736: l_stmt_num := 60;
4737:
4738: l_count := 0;
4847: 0,
4848: 'N');
4849: end if;
4850:
4851: -- Need to apply material overheads if standard org is receiving
4852: if (l_std_to_org =1) then
4853: l_stmt_num := 80;
4854: /* Changes for MOH Absorption engine */
4855: cst_mohRules_pub.apply_moh(
4977: fnd_file.put_line(fnd_file.log, '>>>Transaction update id'||to_char(l_txn_update_id));
4978: END IF;
4979:
4980:
4981: -- If we are shipping from a standard cost org to an average cost org, the
4982: -- transaction cost must be computed at the time of the average cost worker
4983: -- for the receiving organization. This is an exception to the general case
4984: -- where the shipping organization always figures out the transaction cost
4985: -- and populate the details rows for the receiving org.
5422: end if;
5423: /*end changes for 3679625 */
5424:
5425: if (l_update_std = 1) then
5426: /* the receiving org is standard exp. */
5427: l_stmt_num := 210;
5428: -- if the receiving org is std exp, copy the txn info
5429: -- into MCACD from MCTCD.
5430: insert into mtl_cst_actual_cost_details (
5508: end if;
5509:
5510: /* begin bug 3761538
5511: * handle intransit interorg transfers with fob pt = shipment,
5512: * from average costing org to standard costing org
5513: * where item is expense in the receiving org.
5514: */
5515: if (l_to_std_exp = 1) then
5516: if (i_txn_org_id = l_std_org) then
5816: || substr(SQLERRM, 1,200);
5817:
5818: END get_snd_rcv_uom;
5819:
5820: FUNCTION standard_cost_org(
5821: I_ORG_ID IN NUMBER
5822: ) RETURN INTEGER IS
5823: l_ret_val NUMBER;
5824: BEGIN
5827: from mtl_parameters
5828: where organization_id = i_org_id;
5829:
5830: return l_ret_val;
5831: END standard_cost_org;
5832:
5833: PROCEDURE borrow_cost(
5834: I_ORG_ID IN NUMBER,
5835: I_TXN_ID IN NUMBER,
6187: fnd_file.put_line(fnd_file.log, '>>>>Inside Interorg_Elemental_Detail');
6188: END IF;
6189: -- Insert detail elemental cost into mctcd.
6190: -- Based on the from_org :
6191: -- * If from_org is a standard org (l_compute_txn_cost=1),
6192: -- insert detail cost from cicd
6193: -- * If from_org is an avg org (l_compute_txn_cost=2),
6194: -- insert detail cost from clcd
6195: -- Need to convert the cost into the receiving org cost in receiving org
6203: if (i_compute_txn_cost = 1) then
6204: l_stmt_num := 10;
6205:
6206: IF g_debug = 'Y' THEN
6207: fnd_file.put_line(fnd_file.log, '>>>>From organization is a standard org');
6208: END IF;
6209:
6210: /* Added for bugfix 3048258 */
6211: select cost_organization_id
6625:
6626: SAVEPOINT Cost_Acct_Events;
6627:
6628: -------------------------------------------------------------------------
6629: -- standard call to check for call compatibility
6630: -------------------------------------------------------------------------
6631: IF NOT fnd_api.compatible_api_call (
6632: l_api_version,
6633: p_api_version,
7085: -- DESCRIPTION --
7086: -- This procedure determines the costs of logical transactions in --
7087: -- physical organizations. --
7088: -- The costs are determined as follows: --
7089: -- Standard Costing org: Standard cost of item --
7090: -- Average Costing org: actual cost of item --
7091: -- FIFO/FIFO org: From MCLACD of parent transaction --
7092: -- --
7093: -- This procedure should be called only for logical transactions in the --
7178:
7179: l_stmt_num := 10;
7180:
7181: -------------------------------------------------------------------------
7182: -- Standard Costing Organizations
7183: -------------------------------------------------------------------------
7184:
7185: -- -----------------------------------------------------------------------------
7186: -- Bug 6328273 fix: Check for shared costing organization
7295:
7296: end if;
7297:
7298: -- ---------------------------------------------------------------
7299: -- Bug 6328273 fix: check for shared standard costing organization
7300: -- In the current organization, no recs can be found in CICD
7301: -- Get item cost from parent organization
7302: -- --------------------------------------------------------------
7303: elsif (p_cost_method = 1 AND p_org_id <> p_cost_org_id) then
8223: WHERE
8224: organization_id = l_logical_org_id;
8225:
8226:
8227: -- For non-Standard Orgs, Get layer information
8228: -- For Standard Costing Orgs, we use '-1' as the layer id in MCACD
8229:
8230: IF l_cost_method <> 1 THEN
8231: l_stmt_num := 40;
8224: organization_id = l_logical_org_id;
8225:
8226:
8227: -- For non-Standard Orgs, Get layer information
8228: -- For Standard Costing Orgs, we use '-1' as the layer id in MCACD
8229:
8230: IF l_cost_method <> 1 THEN
8231: l_stmt_num := 40;
8232:
8943: end if;
8944: -- End of item cost history
8945:
8946: --
8947: -- Got rid of big chunck of code for standard costing org.
8948: -- For p-d xfers, in Avg Cost processor Org will always be Average Costin Org.
8949: -- Shipment to Std Orgs are being processed by Std Cost processor.
8950: --
8951: