7: -- Accounting Line Type
8: --
9: G_INTERORG_PROFIT_ACCT BINARY_INTEGER := 34;
10:
11: G_DEBUG VARCHAR2(10) := fnd_profile.value('MRP_DEBUG');
12:
13:
14: --Local procedure
15: PROCEDURE balance_account_txn_type(
136: l_err_code := '';
137: l_err_msg := '';
138: l_hook_used:=0;
139:
140: l_debug := fnd_profile.value('MRP_DEBUG');
141:
142:
143: IF (l_debug = 'Y' ) THEN
144: FND_FILE.put_line( FND_FILE.log, 'CSTPACDP.Cost_txn << ' );
341: if (l_alt_curr is not NULL and l_conv_rate = -1) then
342: if (l_alt_curr <> l_pri_curr) then
343:
344: if (l_conv_type is NULL) then
345: FND_PROFILE.get('CURRENCY_CONVERSION_TYPE', l_conv_type);
346: end if;
347:
348: l_stmt_num := 40;
349:
1263: l_err_code := '';
1264: l_err_msg := '';
1265: l_ovhd_absp := 0;
1266: l_mat_ovhd_exists := '';
1267: l_debug := fnd_profile.value('MRP_DEBUG');
1268:
1269: -- There are no cost distributions for expense items.
1270: if (i_exp_item = 1) then
1271: return;
1757: l_err_num := 0;
1758: l_err_code := '';
1759: l_err_msg := '';
1760:
1761: l_debug := fnd_profile.value('MRP_DEBUG');
1762: -- Figure out expense subinventory.
1763:
1764: if(wms_install.check_install(l_return_status, l_msg_count, l_msg_data,i_org_id)) then
1765: l_wms_flg := 1;
2526: FROM hr_organization_information
2527: WHERE org_information_context = 'Accounting Information'
2528: AND organization_id = i_txf_org_id;
2529:
2530: l_io_invoicing := to_number(fnd_profile.value('INV_INTERCOMPANY_INVOICE_INTERNAL_ORDER'));
2531: fnd_file.put_line(fnd_file.LOG, 'SrcTypeID/ActID = ' || i_src_type_id ||'/'|| i_txn_act_id ||
2532: ' OU/xferOU: ' || l_org_ou ||'/'|| l_txf_org_ou ||
2533: ' Internal Order invoicing: ' || l_io_invoicing);
2534:
4436: l_ele_exist := 0;
4437: l_err_num := 0;
4438: l_err_code := '';
4439: l_err_msg := '';
4440: l_debug := fnd_profile.value('MRP_DEBUG');
4441:
4442: l_stmt_num := 2;
4443: if (i_qty = 0 and l_debug = 'Y') THEN
4444: FND_MESSAGE.set_name('BOM', 'CST_UPDATE_ZERO_QTY');
5528: l_stmt_num := 10;
5529:
5530: fnd_file.put_line(fnd_file.log, 'In Inventory_accounts');
5531:
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;
5969: -- initialize variables;
5970: l_err_num := 0;
5971: l_err_code := '';
5972: l_err_msg := '';
5973: l_debug := fnd_profile.value('MRP_DEBUG');
5974:
5975:
5976: fnd_file.put_line(fnd_file.log,'In distribute_accounts');
5977: fnd_file.put_line(fnd_file.log,'i_org_id:' || i_org_id );
6928:
6929: BEGIN
6930:
6931: l_stmt_num := 10;
6932: l_debug := fnd_profile.value('MRP_DEBUG');
6933: IF (l_debug = 'Y') THEN
6934: fnd_file.put_line(fnd_file.log,'In balance account!!!!');
6935: END IF;
6936:
7294: /* INVCONV ANTHIYAG Bug#5352186 09-Sep-2006 End */
7295:
7296: begin
7297: fnd_file.put_line(fnd_file.log, 'cost_process_discrete_trx <<<');
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
7376: FROM hr_organization_information
7377: WHERE org_information_context = 'Accounting Information'
7378: AND organization_id = txf_org_id;
7379:
7380: l_io_invoicing := to_number(fnd_profile.value('INV_INTERCOMPANY_INVOICE_INTERNAL_ORDER'));
7381: fnd_file.put_line(fnd_file.LOG, 'OU/xferOU: ' || l_org_ou ||'/'||l_txf_org_ou||
7382: ' Internal Order invoicing: ' || l_io_invoicing);
7383:
7384: --