DBA Data[Home] [Help]

APPS.CSTPAPBR dependencies on CSTPAPBR

Line 1: PACKAGE BODY CSTPAPBR AS

1: PACKAGE BODY CSTPAPBR AS
2: /* $Header: CSTAPBRB.pls 120.48.12010000.6 2008/11/21 07:47:11 anjha ship $ */
3:
4: g_debug_flag VARCHAR2(1) := NVL(fnd_profile.value('MRP_DEBUG'), 'N'); /* Bug 4586534 */
5:

Line 41: fnd_file.put_line(fnd_file.log, 'CSTPAPBR.Create_acct_lines <<');

37: CST_DIST_PKG_ERROR EXCEPTION;
38: BEGIN
39:
40: IF g_debug_flag = 'Y' THEN
41: fnd_file.put_line(fnd_file.log, 'CSTPAPBR.Create_acct_lines <<');
42: fnd_file.put_line(fnd_file.log, 'i_transaction_id: ' || i_transaction_id);
43: END IF;
44:
45: l_stmt_num := 10;

Line 556: o_err_msg := 'CSTPAPBR.create_acct_lines :Invalid Transaction Type Code';

552:
553: WHEN CST_TXN_TYPE_FAIL THEN
554: o_err_num := 30002;
555: o_err_code := SQLCODE;
556: o_err_msg := 'CSTPAPBR.create_acct_lines :Invalid Transaction Type Code';
557:
558: WHEN OTHERS THEN
559: o_err_num := SQLCODE;
560: o_err_code := '';

Line 561: o_err_msg := 'CSTPAPBR.create_acct_lines : ' || to_char(l_stmt_num) || ':'||

557:
558: WHEN OTHERS THEN
559: o_err_num := SQLCODE;
560: o_err_code := '';
561: o_err_msg := 'CSTPAPBR.create_acct_lines : ' || to_char(l_stmt_num) || ':'||
562: substr(SQLERRM,1,180);
563:
564:
565: END create_acct_lines;

Line 600: l_api_name CONSTANT VARCHAR2(30) := 'CSTPAPBR.create_inv_ae_lines';

596: l_enc_account NUMBER;
597:
598: process_error EXCEPTION;
599:
600: l_api_name CONSTANT VARCHAR2(30) := 'CSTPAPBR.create_inv_ae_lines';
601:
602: BEGIN
603:
604: IF g_debug_flag = 'Y' THEN

Line 772: CSTPAPBR.wip_cost_txn (i_ae_txn_rec,

768: l_curr_rec.currency_conv_type := NULL;
769: l_curr_rec.currency_conv_rate := NULL;
770:
771: l_stmt_num := 20;
772: CSTPAPBR.wip_cost_txn (i_ae_txn_rec,
773: l_curr_rec,
774: l_ae_line_tbl,
775: l_err_rec);
776: -- check error;

Line 786: CSTPAPBR.sub_cost_txn (i_ae_txn_rec,

782:
783: -- Subinventory transfer.
784: -- ----------------------
785: l_stmt_num := 30;
786: CSTPAPBR.sub_cost_txn (i_ae_txn_rec,
787: l_curr_rec,
788: l_ae_line_tbl,
789: l_err_rec);
790: -- check error;

Line 799: CSTPAPBR.interorg_cost_txn (i_ae_txn_rec,

795:
796: -- Interorg transfers.
797: -- -------------------
798: l_stmt_num := 40;
799: CSTPAPBR.interorg_cost_txn (i_ae_txn_rec,
800: l_curr_rec,
801: l_ae_line_tbl,
802: l_err_rec);
803: -- check error;

Line 812: CSTPAPBR.pcu_cost_txn (i_ae_txn_rec,

808:
809: -- Cost Update.
810: -- ------------
811: l_stmt_num := 50;
812: CSTPAPBR.pcu_cost_txn (i_ae_txn_rec,
813: l_curr_rec,
814: l_ae_line_tbl,
815: l_err_rec);
816: -- check error;

Line 825: CSTPAPBR.cost_logical_txn (i_ae_txn_rec,

821: --Call the logical procedure if a logical transaction
822: elsif (l_logical_transaction = 1 and i_ae_txn_rec.txn_action_id <> 17) then -- Bug 5485387
823:
824: l_stmt_num := 55;
825: CSTPAPBR.cost_logical_txn (i_ae_txn_rec,
826: l_curr_rec,
827: l_ae_line_tbl,
828: l_err_rec);
829: if(l_err_rec.l_err_num <> 0 and l_err_rec.l_err_num is not null) then

Line 836: CSTPAPBR.cost_consigned_update_txn(i_ae_txn_rec,

832:
833: --For consigned price update transaction
834: elsif (i_ae_txn_rec.txn_action_id = 25 and i_ae_txn_rec.txn_src_type_id = 1) then
835: l_stmt_num := 57;
836: CSTPAPBR.cost_consigned_update_txn(i_ae_txn_rec,
837: l_curr_rec,
838: l_ae_line_tbl,
839: l_err_rec);
840: if(l_err_rec.l_err_num <> 0 and l_err_rec.l_err_num is not null) then

Line 850: CSTPAPBR.cost_internal_order_exp_txn(i_ae_txn_rec,

846: OR i_ae_txn_rec.txn_action_id = 17) then
847:
848: l_stmt_num := 58;
849:
850: CSTPAPBR.cost_internal_order_exp_txn(i_ae_txn_rec,
851: l_curr_rec,
852: l_ae_line_tbl,
853: l_err_rec);
854:

Line 864: CSTPAPBR.inv_cost_txn (i_ae_txn_rec,

860:
861: -- Rest of inventory transactions.
862: -- -------------------------------
863: l_stmt_num := 60;
864: CSTPAPBR.inv_cost_txn (i_ae_txn_rec,
865: l_curr_rec,
866: l_ae_line_tbl,
867: l_err_rec);
868: -- check error;

Line 982: o_ae_err_rec.l_err_msg := 'CSTPAPBR.create_inv_ae_lines : ' || to_char(l_stmt_num) || ':'||

978:
979: when others then
980: o_ae_err_rec.l_err_num := SQLCODE;
981: o_ae_err_rec.l_err_code := '';
982: o_ae_err_rec.l_err_msg := 'CSTPAPBR.create_inv_ae_lines : ' || to_char(l_stmt_num) || ':'||
983: substr(SQLERRM,1,180);
984:
985: END create_inv_ae_lines;
986:

Line 1348: o_ae_err_rec.l_err_msg := 'CSTPAPBR.wip_cost_txn' || to_char(l_stmt_num) ||

1344:
1345: when others then
1346: o_ae_err_rec.l_err_num := SQLCODE;
1347: o_ae_err_rec.l_err_code := '';
1348: o_ae_err_rec.l_err_msg := 'CSTPAPBR.wip_cost_txn' || to_char(l_stmt_num) ||
1349: substr(SQLERRM,1,180);
1350:
1351: END wip_cost_txn;
1352:

Line 1477: o_ae_err_rec.l_err_msg := 'CSTPAPBR.sub_cost_txn' || to_char(l_stmt_num) ||

1473:
1474: when others then
1475: o_ae_err_rec.l_err_num := SQLCODE;
1476: o_ae_err_rec.l_err_code := '';
1477: o_ae_err_rec.l_err_msg := 'CSTPAPBR.sub_cost_txn' || to_char(l_stmt_num) ||
1478: substr(SQLERRM,1,180);
1479:
1480: END sub_cost_txn;
1481:

Line 1690: l_api_name CONSTANT VARCHAR2(30) := 'CSTPAPBR.interorg_cost_txn';

1686:
1687: l_perp_ship_value NUMBER;
1688: l_use_prev_period_cost NUMBER;
1689: l_cg_exp_item NUMBER;
1690: l_api_name CONSTANT VARCHAR2(30) := 'CSTPAPBR.interorg_cost_txn';
1691:
1692: BEGIN
1693:
1694: IF g_debug_flag = 'Y' THEN

Line 1877: CSTPAPBR.offset_accounts(i_ae_txn_rec,

1873:
1874: -- Call Offset Accounts
1875: ------------------------
1876: l_stmt_num := 32;
1877: CSTPAPBR.offset_accounts(i_ae_txn_rec,
1878: i_ae_curr_rec,
1879: 2, -- Accounting Line Type
1880: 0, -- Elemental Flag
1881: 0, -- Overhead Flag

Line 1900: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

1896: -- Call Inventory Accounts
1897: --------------------------
1898: l_stmt_num := 33;
1899: if (l_exp_flg) then
1900: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
1901: i_ae_curr_rec,
1902: l_exp_flg, -- Exp Flag
1903: l_exp_account, -- Exp Acct
1904: l_dr_flag,

Line 1908: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

1904: l_dr_flag,
1905: l_ae_line_tbl,
1906: l_err_rec);
1907: else
1908: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
1909: i_ae_curr_rec,
1910: "FALSE", -- Exp Flag
1911: null, -- Exp Acct
1912: l_dr_flag,

Line 2147: CSTPAPBR.offset_accounts (i_ae_txn_rec,

2143: -- Debit COGS
2144: -- ----------
2145: l_stmt_num := 62;
2146:
2147: CSTPAPBR.offset_accounts (i_ae_txn_rec,
2148: i_ae_curr_rec,
2149: 2, --- Acct Line Type
2150: 0, --- Elemental Flag
2151: 0, --- Ovhd Flag

Line 2168: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

2164:
2165: -- Credit On-hand (if expense, then use expense account)
2166: -- -----------------------------------------------------
2167: IF (l_exp_flg) THEN
2168: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
2169: i_ae_curr_rec,
2170: l_exp_flg, -- Exp Flag
2171: l_exp_account, -- Exp Acct
2172: l_dr_flag,

Line 2176: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

2172: l_dr_flag,
2173: l_ae_line_tbl,
2174: l_err_rec);
2175: ELSE
2176: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
2177: i_ae_curr_rec,
2178: "FALSE", -- Exp Flag
2179: null, -- Exp Acct
2180: l_dr_flag,

Line 2379: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

2375:
2376: /* If the item is expense in the receiving CG, hit the expense account instead of Intransit */
2377: IF (l_cg_exp_item = 1) THEN
2378: /* Debit Expense */
2379: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
2380: i_ae_curr_rec,
2381: l_exp_flg, -- Exp Flag
2382: l_exp_account, -- Exp Acct
2383: l_dr_flag,

Line 2388: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

2384: l_ae_line_tbl,
2385: l_err_rec);
2386: ELSE
2387: /* Debit Inventory - Intransit */
2388: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
2389: i_ae_curr_rec,
2390: "FALSE", --- Exp Flag
2391: null, --- Exp Acct
2392: l_dr_flag,

Line 2422: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

2418: l_dr_flag := TRUE;
2419:
2420: -- Debit Intransit
2421: ------------------
2422: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
2423: i_ae_curr_rec,
2424: "FALSE", --- Exp Flag
2425: null, --- Exp Acct
2426: l_dr_flag,

Line 2441: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

2437:
2438: -- Credit On-hand (if expense, then use expense account)
2439: -- -----------------------------------------------------
2440: IF (l_exp_flg) THEN
2441: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
2442: i_ae_curr_rec,
2443: l_exp_flg, -- Exp Flag
2444: l_exp_account, -- Exp Acct
2445: l_dr_flag,

Line 2449: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

2445: l_dr_flag,
2446: l_ae_line_tbl,
2447: l_err_rec);
2448: ELSE
2449: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
2450: i_ae_curr_rec,
2451: "FALSE", -- Exp Flag
2452: null, -- Exp Acct
2453: l_dr_flag,

Line 2492: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

2488:
2489: -- Credit On-hand (if expense, then use expense account)
2490: -- -----------------------------------------------------
2491: IF (l_exp_flg) THEN
2492: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
2493: i_ae_curr_rec,
2494: l_exp_flg, -- Exp Flag
2495: l_exp_account, -- Exp Acct
2496: l_dr_flag,

Line 2500: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

2496: l_dr_flag,
2497: l_ae_line_tbl,
2498: l_err_rec);
2499: ELSE
2500: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
2501: i_ae_curr_rec,
2502: "FALSE", -- Exp Flag
2503: null, -- Exp Acct
2504: l_dr_flag,

Line 3100: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

3096:
3097: /* If the item is expense in the receiving CG, hit the expense account instead of Intransit */
3098: IF (l_cg_exp_item = 1) THEN
3099: /* Debit Expense */
3100: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
3101: i_ae_curr_rec,
3102: l_exp_flg, -- Exp Flag
3103: l_exp_account, -- Exp Acct
3104: l_dr_flag,

Line 3109: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

3105: l_ae_line_tbl,
3106: l_err_rec);
3107: ELSE
3108: /* Debit Inventory - Intransit */
3109: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
3110: i_ae_curr_rec,
3111: "FALSE", --- Exp Flag
3112: null, --- Exp Acct
3113: l_dr_flag,

Line 3242: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

3238: l_dr_flag := TRUE;
3239:
3240: -- Debit Intransit
3241: -- ---------------
3242: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
3243: i_ae_curr_rec,
3244: "FALSE", --- Exp Flag
3245: null, --- Exp Acct
3246: l_dr_flag,

Line 3261: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

3257:
3258: -- Credit On-hand (if expense, then use expense account)
3259: -- -----------------------------------------------------
3260: IF (l_exp_flg) THEN
3261: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
3262: i_ae_curr_rec,
3263: l_exp_flg, -- Exp Flag
3264: l_exp_account, -- Exp Acct
3265: l_dr_flag,

Line 3269: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

3265: l_dr_flag,
3266: l_ae_line_tbl,
3267: l_err_rec);
3268: ELSE
3269: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
3270: i_ae_curr_rec,
3271: "FALSE", -- Exp Flag
3272: null, -- Exp Acct
3273: l_dr_flag,

Line 3301: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

3297: IF (l_cg_exp_item <> 1) THEN
3298: -- Credit On-hand (if expense, then use expense account)
3299: -- -----------------------------------------------------
3300: IF (l_exp_flg) THEN
3301: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
3302: i_ae_curr_rec,
3303: l_exp_flg, -- Exp Flag
3304: l_exp_account, -- Exp Acct
3305: l_dr_flag,

Line 3309: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

3305: l_dr_flag,
3306: l_ae_line_tbl,
3307: l_err_rec);
3308: ELSE
3309: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
3310: i_ae_curr_rec,
3311: "FALSE", -- Exp Flag
3312: null, -- Exp Acct
3313: l_dr_flag,

Line 4136: CSTPAPBR.offset_accounts (i_ae_txn_rec,

4132: -- Debit COGS
4133: -- ----------
4134: l_stmt_num := 385;
4135:
4136: CSTPAPBR.offset_accounts (i_ae_txn_rec,
4137: i_ae_curr_rec,
4138: 2, --- Acct Line Type
4139: 0, --- Elemental Flag
4140: 0, --- Ovhd Flag

Line 4156: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

4152: -- Credit Intransit
4153: -- ----------------
4154: l_stmt_num := 390;
4155:
4156: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
4157: i_ae_curr_rec,
4158: "FALSE", --- Exp Flag
4159: null, --- Exp Acct
4160: l_dr_flag,

Line 4348: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

4344:
4345: -- Debit On-hand (if expense, then use expense account)
4346: -- -----------------------------------------------------
4347: IF (l_exp_flg) THEN
4348: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
4349: i_ae_curr_rec,
4350: l_exp_flg, -- Exp Flag
4351: l_exp_account, -- Exp Acct
4352: l_dr_flag,

Line 4356: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

4352: l_dr_flag,
4353: l_ae_line_tbl,
4354: l_err_rec);
4355: ELSE
4356: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
4357: i_ae_curr_rec,
4358: "FALSE", -- Exp Flag
4359: null, -- Exp Acct
4360: l_dr_flag,

Line 4391: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

4387:
4388: -- Debit On-hand (if expense, then use expense account)
4389: -- -----------------------------------------------------
4390: IF (l_exp_flg) THEN
4391: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
4392: i_ae_curr_rec,
4393: l_exp_flg, -- Exp Flag
4394: l_exp_account, -- Exp Acct
4395: l_dr_flag,

Line 4399: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

4395: l_dr_flag,
4396: l_ae_line_tbl,
4397: l_err_rec);
4398: ELSE
4399: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
4400: i_ae_curr_rec,
4401: "FALSE", -- Exp Flag
4402: null, -- Exp Acct
4403: l_dr_flag,

Line 4419: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

4415: -- Credit Intransit
4416: -- ----------------
4417: l_stmt_num := 424;
4418:
4419: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
4420: i_ae_curr_rec,
4421: "FALSE", --- Exp Flag
4422: null, --- Exp Acct
4423: l_dr_flag,

Line 4477: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

4473:
4474: -- Debit On-hand (if expense, then use expense account)
4475: -- -----------------------------------------------------
4476: IF (l_exp_flg) THEN
4477: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
4478: i_ae_curr_rec,
4479: l_exp_flg, -- Exp Flag
4480: l_exp_account, -- Exp Acct
4481: l_dr_flag,

Line 4485: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

4481: l_dr_flag,
4482: l_ae_line_tbl,
4483: l_err_rec);
4484: ELSE
4485: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
4486: i_ae_curr_rec,
4487: "FALSE", -- Exp Flag
4488: null, -- Exp Acct
4489: l_dr_flag,

Line 4599: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

4595: l_dr_flag := FALSE;
4596:
4597: IF (l_cg_exp_item = 1) THEN
4598: /* Credit Expense */
4599: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
4600: i_ae_curr_rec,
4601: l_exp_flg, -- Exp Flag
4602: l_exp_account, -- Exp Acct
4603: l_dr_flag,

Line 4608: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

4604: l_ae_line_tbl,
4605: l_err_rec);
4606: ELSE
4607: /* Credit Inventory - Intransit */
4608: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
4609: i_ae_curr_rec,
4610: "FALSE", --- Exp Flag
4611: null, --- Exp Acct
4612: l_dr_flag,

Line 5165: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

5161:
5162: -- Debit On-hand (if expense, then use expense account)
5163: -- -----------------------------------------------------
5164: IF (l_exp_flg) THEN
5165: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
5166: i_ae_curr_rec,
5167: l_exp_flg, -- Exp Flag
5168: l_exp_account, -- Exp Acct
5169: l_dr_flag,

Line 5173: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

5169: l_dr_flag,
5170: l_ae_line_tbl,
5171: l_err_rec);
5172: ELSE
5173: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
5174: i_ae_curr_rec,
5175: "FALSE", -- Exp Flag
5176: null, -- Exp Acct
5177: l_dr_flag,

Line 5193: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

5189: -- Credit Intransit
5190: -- ----------------
5191: l_stmt_num := 580;
5192:
5193: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
5194: i_ae_curr_rec,
5195: "FALSE", --- Exp Flag
5196: null, --- Exp Acct
5197: l_dr_flag,

Line 5224: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

5220:
5221: -- Debit On-hand (if expense, then use expense account)
5222: -- -----------------------------------------------------
5223: IF (l_exp_flg) THEN
5224: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
5225: i_ae_curr_rec,
5226: l_exp_flg, -- Exp Flag
5227: l_exp_account, -- Exp Acct
5228: l_dr_flag,

Line 5232: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

5228: l_dr_flag,
5229: l_ae_line_tbl,
5230: l_err_rec);
5231: ELSE
5232: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
5233: i_ae_curr_rec,
5234: "FALSE", -- Exp Flag
5235: null, -- Exp Acct
5236: l_dr_flag,

Line 5348: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

5344: l_dr_flag := TRUE;
5345:
5346: IF (l_cg_exp_item = 1) THEN /* When Item is expense Bug:5337446 */
5347: /* Debit Expense */
5348: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
5349: i_ae_curr_rec,
5350: l_exp_flg, -- Exp Flag
5351: l_exp_account, -- Exp Acct
5352: l_dr_flag,

Line 5357: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

5353: l_ae_line_tbl,
5354: l_err_rec);
5355: ELSE
5356: /* Debit Intransit */
5357: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
5358: i_ae_curr_rec,
5359: "FALSE", -- Exp Flag
5360: null, -- Exp Acct
5361: l_dr_flag,

Line 5590: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

5586: IF (l_cg_exp_item <> 1) THEN /* Create Credit entries only if item is not expense */
5587:
5588: /* Removed the code for shipping from Exp subInv 5474899 */
5589: /* Credit Intransit */
5590: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
5591: i_ae_curr_rec,
5592: "FALSE", -- Exp Flag
5593: null, -- Exp Acct
5594: l_dr_flag,

Line 5693: o_ae_err_rec.l_err_msg := 'CSTPAPBR.interorg_cost_txn' || to_char(l_stmt_num) ||

5689:
5690: when others then
5691: o_ae_err_rec.l_err_num := SQLCODE;
5692: o_ae_err_rec.l_err_code := '';
5693: o_ae_err_rec.l_err_msg := 'CSTPAPBR.interorg_cost_txn' || to_char(l_stmt_num) ||
5694: substr(SQLERRM,1,180);
5695:
5696: END interorg_cost_txn;
5697:

Line 5943: CSTPAPBR.insert_account (i_ae_txn_rec,

5939: l_ae_line_rec.transaction_value := abs(l_cost-l_var);/*BUG 6895314*/
5940:
5941: end if;
5942:
5943: CSTPAPBR.insert_account (i_ae_txn_rec,
5944: i_ae_curr_rec,
5945: l_dr_flag,
5946: l_ae_line_rec,
5947: l_ae_line_tbl,

Line 5996: CSTPAPBR.insert_account (i_ae_txn_rec,

5992: else
5993: l_ae_line_rec.transaction_value := abs(l_cost+l_onhand_var); /*BUG 6895314*/
5994: end if;
5995:
5996: CSTPAPBR.insert_account (i_ae_txn_rec,
5997: i_ae_curr_rec,
5998: l_dr_flag,
5999: l_ae_line_rec,
6000: l_ae_line_tbl,

Line 6044: CSTPAPBR.insert_account (i_ae_txn_rec,

6040: l_ae_line_rec.account := i_ae_txn_rec.expense_account_id;
6041: end if;
6042: l_ae_line_rec.transaction_value := abs(l_onhand_var);
6043: l_stmt_num := 70;
6044: CSTPAPBR.insert_account (i_ae_txn_rec,
6045: i_ae_curr_rec,
6046: l_dr_flag,
6047: l_ae_line_rec,
6048: l_ae_line_tbl,

Line 6096: CSTPAPBR.insert_account (i_ae_txn_rec,

6092: into l_ae_line_rec.account
6093: from dual;
6094: */
6095: l_ae_line_rec.account := i_ae_txn_rec.mat_account;
6096: CSTPAPBR.insert_account (i_ae_txn_rec,
6097: i_ae_curr_rec,
6098: l_dr_flag,
6099: l_ae_line_rec,
6100: l_ae_line_tbl,

Line 6134: CSTPAPBR.insert_account (i_ae_txn_rec,

6130: else
6131: l_dr_flag := "FALSE";
6132: end if;
6133:
6134: CSTPAPBR.insert_account (i_ae_txn_rec,
6135: i_ae_curr_rec,
6136: l_dr_flag,
6137: l_ae_line_rec,
6138: l_ae_line_tbl,

Line 6179: o_ae_err_rec.l_err_msg := 'CSTPAPBR.pcu_cost_txn' || to_char(l_stmt_num) ||

6175:
6176: when others then
6177: o_ae_err_rec.l_err_num := SQLCODE;
6178: o_ae_err_rec.l_err_code := '';
6179: o_ae_err_rec.l_err_msg := 'CSTPAPBR.pcu_cost_txn' || to_char(l_stmt_num) ||
6180: substr(SQLERRM,1,180);
6181:
6182: END pcu_cost_txn;
6183:

Line 6543: o_ae_err_rec.l_err_msg := 'CSTPAPBR.inv_cost_txn' || to_char(l_stmt_num) ||

6539:
6540: when others then
6541: o_ae_err_rec.l_err_num := SQLCODE;
6542: o_ae_err_rec.l_err_code := '';
6543: o_ae_err_rec.l_err_msg := 'CSTPAPBR.inv_cost_txn' || to_char(l_stmt_num) ||
6544: substr(SQLERRM,1,180);
6545:
6546: END inv_cost_txn;
6547:

Line 6810: o_ae_err_rec.l_err_msg := 'CSTPAPBR.cost_logical_txn' ||

6806:
6807: when others then
6808: o_ae_err_rec.l_err_num := SQLCODE;
6809: o_ae_err_rec.l_err_code := '';
6810: o_ae_err_rec.l_err_msg := 'CSTPAPBR.cost_logical_txn' ||
6811: to_char(l_stmt_num) || substr(SQLERRM,1,180);
6812:
6813: END cost_logical_txn;
6814:

Line 6977: o_ae_err_rec.l_err_msg := 'CSTPAPBR.inv_cost_txn' || to_char(l_stmt_num) ||

6973:
6974: when others then
6975: o_ae_err_rec.l_err_num := SQLCODE;
6976: o_ae_err_rec.l_err_code := '';
6977: o_ae_err_rec.l_err_msg := 'CSTPAPBR.inv_cost_txn' || to_char(l_stmt_num) ||
6978: substr(SQLERRM,1,180);
6979:
6980: END cost_consigned_update_txn;
6981:

Line 7050: o_ae_err_rec.l_err_msg := 'CSTPAPBR.inv_cost_txn' || to_char(l_stmt_num) ||

7046:
7047: when others then
7048: o_ae_err_rec.l_err_num := SQLCODE;
7049: o_ae_err_rec.l_err_code := '';
7050: o_ae_err_rec.l_err_msg := 'CSTPAPBR.inv_cost_txn' || to_char(l_stmt_num) ||
7051: substr(SQLERRM,1,180);
7052:
7053: END encumbrance_account;
7054:

Line 7079: l_api_name CONSTANT VARCHAR2(30) := 'CSTPAPBR.inventory_accounts';

7075: l_ae_line_rec CSTPALTY.cst_ae_line_rec_type;
7076: l_ele_exist NUMBER;
7077: l_acct_exist NUMBER;
7078: l_stmt_num NUMBER := 0;
7079: l_api_name CONSTANT VARCHAR2(30) := 'CSTPAPBR.inventory_accounts';
7080:
7081: l_expense_account NUMBER;
7082:
7083: l_err_rec CSTPALTY.cst_ae_err_rec_type;

Line 7337: o_ae_err_rec.l_err_msg := 'CSTPAPBR.inventory_accounts' || to_char(l_stmt_num) ||

7333:
7334: when others then
7335: o_ae_err_rec.l_err_num := SQLCODE;
7336: o_ae_err_rec.l_err_code := '';
7337: o_ae_err_rec.l_err_msg := 'CSTPAPBR.inventory_accounts' || to_char(l_stmt_num) ||
7338: substr(SQLERRM,1,180);
7339:
7340: END inventory_accounts;
7341:

Line 7372: l_api_name CONSTANT VARCHAR2(30) := 'CSTPAPBR.offset_accounts';

7368: --l_err_rec CSTPALBR.cst_ae_err_rec_type;
7369: --l_acct_rec CSTPALBR.cst_ae_acct_rec_type;
7370: process_error EXCEPTION;
7371: no_txn_det_error EXCEPTION;
7372: l_api_name CONSTANT VARCHAR2(30) := 'CSTPAPBR.offset_accounts';
7373: BEGIN
7374: IF g_debug_flag = 'Y' THEN
7375: fnd_file.put_line(fnd_file.log, l_api_name || ': ' || l_stmt_num || ': begin << ');
7376: FND_FILE.put_line(fnd_file.log, l_api_name || ': ' || l_stmt_num || ': Elemental flag: ' ||to_char(i_elemental));

Line 7570: o_ae_err_rec.l_err_msg := 'CSTPAPBR.offset_accounts' || to_char(l_stmt_num) ||

7566:
7567: when others then
7568: o_ae_err_rec.l_err_num := SQLCODE;
7569: o_ae_err_rec.l_err_code := '';
7570: o_ae_err_rec.l_err_msg := 'CSTPAPBR.offset_accounts' || to_char(l_stmt_num) ||
7571: substr(SQLERRM,1,180);
7572:
7573: end offset_accounts;
7574:

Line 7710: o_ae_err_rec.l_err_msg := 'CSTPAPBR.ovhd_accounts' || to_char(l_stmt_num) ||

7706:
7707: when others then
7708: o_ae_err_rec.l_err_num := SQLCODE;
7709: o_ae_err_rec.l_err_code := '';
7710: o_ae_err_rec.l_err_msg := 'CSTPAPBR.ovhd_accounts' || to_char(l_stmt_num) ||
7711: substr(SQLERRM,1,180);
7712:
7713: END ovhd_accounts;
7714:

Line 7740: l_api_name CONSTANT VARCHAR2(30) := 'CSTPAPBR.insert_account';

7736: l_stmt_num NUMBER := 0;
7737: next_record_avail NUMBER;
7738: invalid_acct_error EXCEPTION;
7739:
7740: l_api_name CONSTANT VARCHAR2(30) := 'CSTPAPBR.insert_account';
7741:
7742: BEGIN
7743: IF g_debug_flag = 'Y' THEN
7744: fnd_file.put_line(fnd_file.log, l_api_name || ': ' || l_stmt_num || ': begin << ');

Line 7953: o_ae_err_rec.l_err_msg := 'CSTPAPBR.insert_account' || to_char(l_stmt_num) ||

7949:
7950: when others then
7951: o_ae_err_rec.l_err_num := SQLCODE;
7952: o_ae_err_rec.l_err_code := '';
7953: o_ae_err_rec.l_err_msg := 'CSTPAPBR.insert_account' || to_char(l_stmt_num) ||
7954: substr(SQLERRM,1,180);
7955:
7956: end insert_account;
7957:

Line 7971: l_api_name CONSTANT VARCHAR2(30) := 'CSTPAPBR.balance_account';

7967: l_ent_value NUMBER := 0;
7968: l_acc_value NUMBER := 0;
7969: l_last_rec NUMBER;
7970: l_stmt_num NUMBER := 0;
7971: l_api_name CONSTANT VARCHAR2(30) := 'CSTPAPBR.balance_account';
7972: BEGIN
7973: IF g_debug_flag = 'Y' THEN
7974: fnd_file.put_line(fnd_file.log, l_api_name || ': ' || l_stmt_num || ': begin << ');
7975: END IF;

Line 8021: o_ae_err_rec.l_err_msg := 'CSTPAPBR.balance_account' || to_char(l_stmt_num) ||

8017:
8018: when others then
8019: o_ae_err_rec.l_err_num := SQLCODE;
8020: o_ae_err_rec.l_err_code := '';
8021: o_ae_err_rec.l_err_msg := 'CSTPAPBR.balance_account' || to_char(l_stmt_num) ||
8022: substr(SQLERRM,1,180);
8023:
8024: END balance_account;
8025:

Line 8214: CSTPAPBR.insert_account (i_ae_txn_rec,

8210:
8211: /* Call Insert Account.
8212: -- --------------------*/
8213: l_stmt_num := 90;
8214: CSTPAPBR.insert_account (i_ae_txn_rec,
8215: l_ae_curr_rec,
8216: l_dr_flag,
8217: l_ae_line_rec,
8218: l_ae_line_tbl,

Line 8248: CSTPAPBR.insert_account (i_ae_txn_rec,

8244:
8245: /* Call Insert Account.
8246: -- -------------------- */
8247: l_stmt_num := 120;
8248: CSTPAPBR.insert_account (i_ae_txn_rec,
8249: l_ae_curr_rec,
8250: l_dr_flag,
8251: l_ae_line_rec,
8252: l_ae_line_tbl,

Line 8344: CSTPAPBR.get_accts (i_ae_txn_rec,

8340:
8341: if (l_ae_line_rec.account = -1) then
8342: l_stmt_num := 150;
8343: l_ae_line_rec.cost_element_id := cost_element;
8344: CSTPAPBR.get_accts (i_ae_txn_rec,
8345: l_ae_line_rec,
8346: l_ae_line_tbl,
8347: l_acct_id1,
8348: l_acct_id2,

Line 8380: CSTPAPBR.insert_account (i_ae_txn_rec,

8376:
8377: -- Call Insert Account.
8378: -- --------------------
8379: l_stmt_num := 190;
8380: CSTPAPBR.insert_account (i_ae_txn_rec,
8381: l_ae_curr_rec,
8382: l_dr_flag,
8383: l_ae_line_rec,
8384: l_ae_line_tbl,

Line 8409: CSTPAPBR.insert_account (i_ae_txn_rec,

8405:
8406: -- Call Insert Account.
8407: -- --------------------
8408: l_stmt_num := 220;
8409: CSTPAPBR.insert_account (i_ae_txn_rec,
8410: l_ae_curr_rec,
8411: l_dr_flag,
8412: l_ae_line_rec,
8413: l_ae_line_tbl,

Line 8434: CSTPAPBR.balance_account (l_ae_line_tbl,

8430:
8431: -- Take care of rounding errors.
8432: -- -----------------------------
8433: l_stmt_num := 230;
8434: CSTPAPBR.balance_account (l_ae_line_tbl,
8435: l_ae_err_rec);
8436:
8437: -- check error
8438: if(l_ae_err_rec.l_err_num <> 0 and l_ae_err_rec.l_err_num is not null) then

Line 8466: o_ae_err_rec.l_err_msg := 'CSTPAPBR.create_wip_ae_lines : ' || to_char(l_stmt_num) ||' : '||

8462:
8463: when others then
8464: o_ae_err_rec.l_err_num := SQLCODE;
8465: o_ae_err_rec.l_err_code := '';
8466: o_ae_err_rec.l_err_msg := 'CSTPAPBR.create_wip_ae_lines : ' || to_char(l_stmt_num) ||' : '||
8467: substr(SQLERRM,1,180);
8468:
8469: END create_wip_ae_lines;
8470:

Line 8694: o_ae_err_rec.l_err_msg := 'CSTPAPBR.get_accts ' || to_char(l_stmt_num) ||' '||

8690:
8691: when others then
8692: o_ae_err_rec.l_err_num := SQLCODE;
8693: o_ae_err_rec.l_err_code := '';
8694: o_ae_err_rec.l_err_msg := 'CSTPAPBR.get_accts ' || to_char(l_stmt_num) ||' '||
8695: substr(SQLERRM,1,180);
8696:
8697: END get_accts;
8698:

Line 8947: o_ae_err_rec.l_err_msg := 'CSTPAPBR.offset_accounts' || to_char(l_stmt_num) ||

8943:
8944: when others then
8945: o_ae_err_rec.l_err_num := SQLCODE;
8946: o_ae_err_rec.l_err_code := '';
8947: o_ae_err_rec.l_err_msg := 'CSTPAPBR.offset_accounts' || to_char(l_stmt_num) ||
8948: substr(SQLERRM,1,180);
8949:
8950: end WIP_accounts;
8951:

Line 9242: o_ae_err_rec.l_err_msg := 'CSTPAPBR.Get_Intercompany_account ' || to_char(l_stmt_num) ||

9238:
9239: when others then
9240: o_ae_err_rec.l_err_num := SQLCODE;
9241: o_ae_err_rec.l_err_code := '';
9242: o_ae_err_rec.l_err_msg := 'CSTPAPBR.Get_Intercompany_account ' || to_char(l_stmt_num) ||
9243: substr(SQLERRM,1,180);
9244: END Get_Intercompany_account;
9245:
9246:

Line 9332: l_api_name CONSTANT VARCHAR2(240) := 'CSTPAPBR.cost_internal_order_exp_txn';

9328: process_error EXCEPTION;
9329: no_mfca_acct_error EXCEPTION;
9330: no_interorg_profit_acct_error EXCEPTION;
9331:
9332: l_api_name CONSTANT VARCHAR2(240) := 'CSTPAPBR.cost_internal_order_exp_txn';
9333:
9334: BEGIN
9335:
9336: IF g_debug_flag = 'Y' THEN

Line 9507: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

9503:
9504: -- Credit On-hand (if expense, then use expense account)
9505: -- -----------------------------------------------------
9506: IF (l_exp_flag) THEN
9507: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
9508: i_ae_curr_rec,
9509: l_exp_flag, -- Exp Flag
9510: l_mfa_exp_account, -- Exp Acct
9511: l_dr_flag,

Line 9517: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

9513: l_err_rec);
9514:
9515: l_stmt_num := 150;
9516: ELSE
9517: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
9518: i_ae_curr_rec,
9519: "FALSE", -- Exp Flag
9520: null, -- Exp Acct
9521: l_dr_flag,

Line 9582: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

9578:
9579: -- Credit On-hand (if expense, then use expense account)
9580: -- -----------------------------------------------------
9581: IF (l_exp_flag) THEN
9582: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
9583: i_ae_curr_rec,
9584: l_exp_flag, -- Exp Flag
9585: l_mfa_exp_account, -- Exp Acct
9586: l_dr_flag,

Line 9592: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

9588: l_err_rec);
9589:
9590: l_stmt_num := 210;
9591: ELSE
9592: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
9593: i_ae_curr_rec,
9594: "FALSE", -- Exp Flag
9595: null, -- Exp Acct
9596: l_dr_flag,

Line 9991: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

9987:
9988: l_dr_flag := FALSE;
9989:
9990: IF (l_exp_flag) THEN
9991: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
9992: i_ae_curr_rec,
9993: l_exp_flag, -- Exp Flag
9994: l_mfa_exp_account, -- Exp Acct
9995: l_dr_flag,

Line 10001: CSTPAPBR.inventory_accounts (i_ae_txn_rec,

9997: l_err_rec);
9998: l_stmt_num := 570;
9999:
10000: ELSE
10001: CSTPAPBR.inventory_accounts (i_ae_txn_rec,
10002: i_ae_curr_rec,
10003: "FALSE", -- Exp Flag
10004: null, -- Exp Acct
10005: l_dr_flag,

Line 10210: l_api_name CONSTANT VARCHAR2(240) := 'CSTPAPBR.get_pacp_priorPrd_mta_cost';

10206: l_transfer_cost_flag VARCHAR2(1);
10207:
10208: l_err_rec CSTPALTY.cst_ae_err_rec_type;
10209:
10210: l_api_name CONSTANT VARCHAR2(240) := 'CSTPAPBR.get_pacp_priorPrd_mta_cost';
10211:
10212: BEGIN
10213:
10214: IF g_debug_flag = 'Y' THEN

Line 10789: END CSTPAPBR;

10785:
10786: END CompEncumbrance_IntOrdersExp;
10787:
10788:
10789: END CSTPAPBR;