[Home] [Help]
2430: l_return_status VARCHAR2(11);
2431: l_msg_data VARCHAR2(2000);
2432: l_wms_flg NUMBER;
2433: process_error EXCEPTION;
2434: -- Changes for PJM for Standard Costing
2435: l_pjm_flg NUMBER;
2436: l_debug VARCHAR2(1);
2437:
2438: --Changes for MOH Absorption
2741: where MIP.from_organization_id = l_from_org
2742: and MIP.to_organization_id = l_to_org
2743: and MMT.transaction_id = i_txn_id;
2744:
2745: -- Standard org computation
2746: l_std_from_org := CSTPAVCP.standard_cost_org(l_from_org);
2747: l_std_to_org := CSTPAVCP.standard_cost_org(l_to_org);
2748:
2749: l_stmt_num := 40;
2742: and MIP.to_organization_id = l_to_org
2743: and MMT.transaction_id = i_txn_id;
2744:
2745: -- Standard org computation
2746: l_std_from_org := CSTPAVCP.standard_cost_org(l_from_org);
2747: l_std_to_org := CSTPAVCP.standard_cost_org(l_to_org);
2748:
2749: l_stmt_num := 40;
2750:
2743: and MMT.transaction_id = i_txn_id;
2744:
2745: -- Standard org computation
2746: l_std_from_org := CSTPAVCP.standard_cost_org(l_from_org);
2747: l_std_to_org := CSTPAVCP.standard_cost_org(l_to_org);
2748:
2749: l_stmt_num := 40;
2750:
2751: /* Bug 2926258 - changed default to -1 to support org_id=0 */
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
2760: -- standard costing org. Transfer to standard costing org will be processed
2761: -- by standard cost worker.
2762: --
2763: if ((i_txn_act_id = 3 and i_txn_org_id = i_org_id) OR
2764: (l_pd_txfr_ind = 1)) -- OPM INVCONV umoogala
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
2760: -- standard costing org. Transfer to standard costing org will be processed
2761: -- by standard cost worker.
2762: --
2763: if ((i_txn_act_id = 3 and i_txn_org_id = i_org_id) OR
2764: (l_pd_txfr_ind = 1)) -- OPM INVCONV umoogala
2765: then
2774: from mtl_system_items
2775: where inventory_item_id = i_item_id
2776: and organization_id = l_std_org;
2777:
2778: -- if the standard org is the transaction org id then need to find out
2779: -- expense sub flag and inventory accounts. Otherwise we use intransit
2780: -- accounts.
2781:
2782: if (l_std_org = i_txn_org_id) then
2786: else
2787: l_wms_flg := 0;
2788: end if;
2789:
2790: /* Changes for PJM for Standard costing */
2791: l_stmt_num := 47;
2792: SELECT decode(nvl(cost_group_accounting,0),0,0,
2793: decode(nvl(project_reference_enabled,0),1,1,0))
2794: INTO l_pjm_flg
2803: from mtl_secondary_inventories msi
2804: where msi.organization_id = l_std_org
2805: and secondary_inventory_name = l_subinv;
2806:
2807: /* Changes for PJM for Standard Costing */
2808: if (l_wms_flg = 0 AND l_pjm_flg = 0) then
2809: select material_account, material_overhead_account, resource_account,
2810: outside_processing_account, overhead_account,
2811: nvl(expense_account, l_std_exp_acct)
3400: if (l_err_num <> 0) then
3401: raise process_error;
3402: end if;
3403:
3404: elsif ((l_std_exp_item = 0) and (i_exp_item = 0)) then /* Standard cost org */
3405: /* Credit inventory at sending org's cost */
3406: if (l_std_exp_sub = 1) then
3407: distribute_accounts(l_from_org, i_txn_id,
3408: 0,i_cost_grp_id,i_txn_act_id,
3691:
3692: fnd_file.put_line(fnd_file.log,'ppv:' || l_ppv);
3693:
3694:
3695: -- Changes for PJM for Standard Costing
3696: l_stmt_num := 95;
3697: update mtl_material_transactions
3698: set variance_amount = l_ppv * abs(l_rcv_qty)
3699: where transaction_id = i_txn_id
3960:
3961: fnd_file.put_line(fnd_file.log,'ppv:' || l_ppv);
3962:
3963:
3964: /* Changes for PJM for Standard Costing */
3965: l_stmt_num := 95;
3966: update mtl_material_transactions
3967: set variance_amount = l_ppv * abs(l_rcv_qty)
3968: where transaction_id = i_txn_id
4303:
4304: end if; -- OPM INVCONV umoogala
4305: */
4306:
4307: elsif (l_std_exp_item = 0 AND l_std_org = l_to_org ) then /* Standard Cost Org */
4308:
4309: fnd_file.put_line(fnd_file.log,'Std org: Dr inv at receiving org cost');
4310:
4311:
4834: end if;
4835:
4836: l_stmt_num := 20;
4837: -- hit up MP for some values
4838: select primary_cost_method, -- Standard costing orgs will have to call the new inventory_accounts_std() procedure
4839: deferred_cogs_account
4840: into l_cost_method,
4841: l_def_cogs_acct_id
4842: from mtl_parameters
5319: INTO l_pjm_flg
5320: FROM MTL_PARAMETERS
5321: WHERE organization_id = i_org_id;
5322:
5323: /* Changes for PJM Standard Costing. */
5324: if (l_wms_flg=0 AND l_pjm_flg=0 AND i_subinv is not null) then
5325: l_stmt_num := 50;
5326:
5327: SELECT
5981: fnd_file.put_line(fnd_file.log,'i_elemental:' || i_elemental);
5982: fnd_file.put_line(fnd_file.log,'i_ovhd_absp:' || i_ovhd_absp);
5983:
5984:
5985: -- For the logical txns introduced in the dropshipment project, standard costing
5986: -- orgs will also call the average cost distribution processor. A few changes
5987: -- are needed to distribute_accounts() because of this so l_cost_method stores
5988: -- the costing method.
5989: l_stmt_num := 0;
7054: |-------------------------------------------------------------------------
7055: | OPM INVCONV umoogala 15-Apr-2005 Process-Discrete Xfers Enh.
7056: |
7057: | added new function cost_process_discrete_trx to cost transfer
7058: | involving Discrete Standard Costing Orgs only. This new routine will
7059: | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
7060: | be called from cmlmcw.lpc.
7061: |
7062: | Note: Process Mfg. Orgs are always marked as Standard Costing Orgs.
7058: | involving Discrete Standard Costing Orgs only. This new routine will
7059: | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
7060: | be called from cmlmcw.lpc.
7061: |
7062: | Note: Process Mfg. Orgs are always marked as Standard Costing Orgs.
7063: |
7064: | All the entries are for the transaction org only i.e., discrete
7065: | costing orgs.
7066: | All the intransit entries are booked using new logical transaction
7298: l_debug := fnd_profile.value('MRP_DEBUG');
7299:
7300: /* Check if the organization_id and/or transfer_organization_id
7301: are average or FIFO/LIFO orgs. If so, error out this transaction, since it is just meant
7302: for Standard Costing
7303: */
7304: l_stmt_num := 10;
7305:
7306:
7398:
7399: /*----------------------------------------------------------------------+
7400: -- set PJM flag
7401: +----------------------------------------------------------------------*/
7402: /* Changes for PJM Standard Costing. */
7403: /*Check if cost group accounting has been enabled. */
7404: l_stmt_num := 55;
7405:
7406: SELECT decode(nvl(cost_group_accounting,0),0,0,
7627: end if; /* if (!wms_flg ) */
7628:
7629:
7630: /*----------------------------------------------------------------------+
7631: |Insert standard cost into mtl_cst_actual_cost_details
7632: +----------------------------------------------------------------------*/
7633: fnd_file.put_line(fnd_file.log, 'inserting into mcacd');
7634:
7635: l_stmt_num := 280;
7647: end if;
7648:
7649:
7650: /*----------------------------------------------------------------------+
7651: |Call standard cost distribution hook. Return code of 1 means that the
7652: |hook has been used.
7653: +----------------------------------------------------------------------*/
7654:
7655: l_stmt_num := 290;
8522: /*----------------------------------------------------------------------+
8523: | Dr receiving Inter-org PPV
8524: +----------------------------------------------------------------------*/
8525:
8526: /* Changes for PJM Standard Costing - Update MMT with PPV amount*/
8527:
8528:
8529: UPDATE mtl_material_transactions
8530: SET variance_amount = (SELECT -1 * nvl(sum(base_transaction_value),0)