5: -- cost_processor Costs inventory transactions for FIFO/LIFO
6: --
7:
8: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CSTPLVCP';
9: G_DEBUG CONSTANT VARCHAR2(1) := NVL(FND_PROFILE.VALUE('MRP_DEBUG'),'N');
10:
11: l_pd_txfr_ind NUMBER := 0; -- OPM INVCONV sschinch
12:
13: procedure cost_processor(
1047: l_std_exp := 0;
1048: l_from_layer := 0;
1049: l_to_layer := 0;
1050: l_create_layers := 1;
1051: l_debug := FND_PROFILE.value('MRP_DEBUG');
1052:
1053: l_earn_moh := 1;
1054: l_return_status := fnd_api.g_ret_sts_success;
1055: l_msg_count := 0;
2337: from mtl_material_transactions
2338: where transaction_id = i_txn_id;
2339:
2340: if (l_curr_type is NULL) then
2341: FND_PROFILE.get('CURRENCY_CONVERSION_TYPE', l_curr_type);
2342: end if;
2343:
2344: if (l_rcv_curr <> l_snd_curr) then
2345: l_stmt_num := 60;
3027: l_new_cost := i_new_cost;
3028: l_interorg_rec := '';
3029: l_exp_flag := 0;
3030: l_txn_cost_exist := 0;
3031: l_debug := FND_PROFILE.VALUE('MRP_DEBUG');
3032:
3033: /********************************************************************
3034: ** Figure out layer_change flag **
3035: ** A layer change occurs when we transfer material between **