DBA Data[Home] [Help]

APPS.CSTPSMCW dependencies on CSTPSMCW

Line 1: PACKAGE BODY CSTPSMCW AS

1: PACKAGE BODY CSTPSMCW AS
2: /* $Header: CSTSMCWB.pls 120.2 2006/06/14 10:26:28 sikhanna noship $ */
3:
4: G_PKG_NAME VARCHAR2(240) := 'CSTPSMCW';
5: l_debug_flag VARCHAR2(1) := FND_PROFILE.VALUE('MRP_DEBUG');

Line 4: G_PKG_NAME VARCHAR2(240) := 'CSTPSMCW';

1: PACKAGE BODY CSTPSMCW AS
2: /* $Header: CSTSMCWB.pls 120.2 2006/06/14 10:26:28 sikhanna noship $ */
3:
4: G_PKG_NAME VARCHAR2(240) := 'CSTPSMCW';
5: l_debug_flag VARCHAR2(1) := FND_PROFILE.VALUE('MRP_DEBUG');
6:
7: ----------------------------------------------------------------------------
8: -- PROCEDURE

Line 67: CST_CSTPSMCW_RUNNING EXCEPTION;

63: l_error_buf VARCHAR2(240) := '';
64: l_txn_type_id NUMBER;
65: l_stmt_num NUMBER := 0;
66:
67: CST_CSTPSMCW_RUNNING EXCEPTION;
68: CST_CMCCCU_ORG_RUNNING EXCEPTION;
69: INSERT_MMT_FAILURE EXCEPTION;
70: UPDATE_QUANTITY_ISSUE_FAILURE EXCEPTION;
71:

Line 120: RAISE CST_CSTPSMCW_RUNNING;

116: AND phase_code <> 'C'
117: AND fcr.request_id <> l_request_id;
118:
119: IF (l_req_id <> -1) THEN
120: RAISE CST_CSTPSMCW_RUNNING;
121: END IF;
122:
123: /* Check if a Standard Cost Update is Running */
124: l_stmt_num := 20;

Line 244: l_err_code := SUBSTR('CSTPSMCW.lot_txn_cost_processor('

240:
241: EXCEPTION
242: WHEN CST_CMCCCU_ORG_RUNNING THEN
243: ROLLBACK;
244: l_err_code := SUBSTR('CSTPSMCW.lot_txn_cost_processor('
245: || to_char(l_stmt_num)
246: || '): - 24003 '
247: || 'Req_id: '
248: || TO_CHAR(l_req_id)

Line 258: WHEN CST_CSTPSMCW_RUNNING THEN

254: FND_FILE.PUT_LINE(fnd_file.log,SUBSTR(l_err_code
255: ||' '
256: ||l_err_msg,1,240));
257:
258: WHEN CST_CSTPSMCW_RUNNING THEN
259: ROLLBACK;
260: l_err_code := SUBSTR('CSTPSMCW.lot_txn_cost_processor('
261: || to_char(l_stmt_num)
262: || '): - 24143 '

Line 260: l_err_code := SUBSTR('CSTPSMCW.lot_txn_cost_processor('

256: ||l_err_msg,1,240));
257:
258: WHEN CST_CSTPSMCW_RUNNING THEN
259: ROLLBACK;
260: l_err_code := SUBSTR('CSTPSMCW.lot_txn_cost_processor('
261: || to_char(l_stmt_num)
262: || '): - 24143 '
263: || 'Req_id: '
264: || TO_CHAR(l_req_id)

Line 267: fnd_message.set_name('BOM', 'CST_CSTPSMCW_RUNNING');

263: || 'Req_id: '
264: || TO_CHAR(l_req_id)
265: || ' . ',1,240);
266:
267: fnd_message.set_name('BOM', 'CST_CSTPSMCW_RUNNING');
268: l_err_msg := fnd_message.get;
269: l_err_msg := SUBSTR(l_err_msg,1,240);
270: FND_FILE.PUT_LINE(fnd_file.log,SUBSTR(l_err_code
271: ||' '

Line 278: l_err_msg := SUBSTR('CSTPSMCW.LOT_COST_TXN_PROCESSOR('

274: CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',l_err_msg);
275:
276: WHEN UPDATE_QUANTITY_ISSUE_FAILURE THEN
277: ROLLBACK;
278: l_err_msg := SUBSTR('CSTPSMCW.LOT_COST_TXN_PROCESSOR('
279: || to_char(l_stmt_num)
280: || '): '
281: ||SQLERRM,1,240
282: ||': '||l_error_buf);

Line 289: l_err_msg := SUBSTR('CSTPSMCW.LOT_COST_TXN_PROCESSOR('

285: CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',l_err_msg);
286:
287: WHEN INSERT_MMT_FAILURE THEN
288: ROLLBACK;
289: l_err_msg := SUBSTR('CSTPSMCW.LOT_COST_TXN_PROCESSOR('
290: || to_char(l_stmt_num)
291: || '): '
292: ||SQLERRM,1,240
293: ||': '||l_error_buf);

Line 301: l_err_msg := SUBSTR('CSTPSMCW.lot_txn_cost_processor('

297:
298: WHEN OTHERS THEN
299: ROLLBACK;
300: l_err_code := NULL;
301: l_err_msg := SUBSTR('CSTPSMCW.lot_txn_cost_processor('
302: || to_char(l_stmt_num)
303: || '): '
304: ||SQLERRM,1,240);
305:

Line 715: l_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num)||'):' || l_err_msg || substr(SQLERRM, 1, 200);

711: EXCEPTION
712: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
713: x_err_num := -1;
714: x_err_code := 'Inconsistent API Version';--FND_API.G_RET_SYS_ERROR;
715: l_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num)||'):' || l_err_msg || substr(SQLERRM, 1, 200);
716: FND_FILE.put_line(fnd_file.log, 'API Version Obsoleted'|| l_err_msg );
717: x_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num);
718: l_ret_update := UPDATE_WSMT_TXN_STATUS ( l_wsmt_transaction_id,
719: WIP_CONSTANTS.ERROR,

Line 717: x_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num);

713: x_err_num := -1;
714: x_err_code := 'Inconsistent API Version';--FND_API.G_RET_SYS_ERROR;
715: l_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num)||'):' || l_err_msg || substr(SQLERRM, 1, 200);
716: FND_FILE.put_line(fnd_file.log, 'API Version Obsoleted'|| l_err_msg );
717: x_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num);
718: l_ret_update := UPDATE_WSMT_TXN_STATUS ( l_wsmt_transaction_id,
719: WIP_CONSTANTS.ERROR,
720: l_err_msg,
721: p_request_id,

Line 727: l_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num)||'):' || l_err_msg;

723: l_program_id );
724: WHEN UNKNOWN_TXN_ERROR THEN
725: x_err_num := -1;
726: x_err_code := 'Unknown Transaction Type passed... Catastrophic Failure';
727: l_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num)||'):' || l_err_msg;
728: FND_FILE.put_line(fnd_file.log, 'Unknown Transaction Type passed... Catastrophic Failure'|| l_err_msg );
729: x_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num);
730:
731: l_ret_update := UPDATE_WSMT_TXN_STATUS ( l_wsmt_transaction_id,

Line 729: x_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num);

725: x_err_num := -1;
726: x_err_code := 'Unknown Transaction Type passed... Catastrophic Failure';
727: l_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num)||'):' || l_err_msg;
728: FND_FILE.put_line(fnd_file.log, 'Unknown Transaction Type passed... Catastrophic Failure'|| l_err_msg );
729: x_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num);
730:
731: l_ret_update := UPDATE_WSMT_TXN_STATUS ( l_wsmt_transaction_id,
732: WIP_CONSTANTS.ERROR,
733: l_err_msg,

Line 741: l_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num)||'): ' || l_err_msg;

737:
738: WHEN NO_WSMT_TRANSACTION THEN
739: x_err_num := -1;
740: x_err_code := 'MMT not populated with Transaction ID from WSMT';
741: l_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num)||'): ' || l_err_msg;
742: x_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num)||'):';
743: FND_FILE.put_line(fnd_file.log, 'MMT not populated with Transaction ID from WSMT'|| l_err_msg );
744: l_ret_update := UPDATE_WSMT_TXN_STATUS ( l_wsmt_transaction_id,
745: WIP_CONSTANTS.ERROR,

Line 742: x_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num)||'):';

738: WHEN NO_WSMT_TRANSACTION THEN
739: x_err_num := -1;
740: x_err_code := 'MMT not populated with Transaction ID from WSMT';
741: l_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num)||'): ' || l_err_msg;
742: x_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num)||'):';
743: FND_FILE.put_line(fnd_file.log, 'MMT not populated with Transaction ID from WSMT'|| l_err_msg );
744: l_ret_update := UPDATE_WSMT_TXN_STATUS ( l_wsmt_transaction_id,
745: WIP_CONSTANTS.ERROR,
746: l_err_msg,

Line 753: l_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num)||'): ' || l_err_msg;

749: l_program_id );
750: WHEN COST_TXN_FAILURE THEN
751: x_err_num := -1;
752: x_err_code := 'Transaction Costing Failed';
753: l_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num)||'): ' || l_err_msg;
754: FND_FILE.put_line(fnd_file.log, 'Transaction Costing Failed'|| l_err_msg );
755: l_ret_update := UPDATE_WSMT_TXN_STATUS ( l_wsmt_transaction_id,
756: WIP_CONSTANTS.ERROR,
757: l_err_msg,

Line 764: l_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num)||'): ' || l_err_msg;

760: l_program_id );
761: WHEN UPDATE_JOB_QUANTITY_FAILURE THEN
762: x_err_num := -1;
763: x_err_code := 'Failed to Update Job Info: Transaction Costing Failed';
764: l_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num)||'): ' || l_err_msg;
765: x_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num)||'):';
766: FND_FILE.put_line(fnd_file.log, 'Failed to Update Job Info: Transaction Costing Failed'|| l_err_msg );
767: l_ret_update := UPDATE_WSMT_TXN_STATUS ( l_wsmt_transaction_id,
768: WIP_CONSTANTS.ERROR,

Line 765: x_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num)||'):';

761: WHEN UPDATE_JOB_QUANTITY_FAILURE THEN
762: x_err_num := -1;
763: x_err_code := 'Failed to Update Job Info: Transaction Costing Failed';
764: l_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num)||'): ' || l_err_msg;
765: x_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num)||'):';
766: FND_FILE.put_line(fnd_file.log, 'Failed to Update Job Info: Transaction Costing Failed'|| l_err_msg );
767: l_ret_update := UPDATE_WSMT_TXN_STATUS ( l_wsmt_transaction_id,
768: WIP_CONSTANTS.ERROR,
769: l_err_msg,

Line 776: l_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num)||'): ' || l_err_msg;

772: l_program_id );
773: WHEN PROCESS_SM_OP_YIELD_FAILURE THEN
774: x_err_num := -1;
775: x_err_code := 'Update of Wip Operation Yields Failed';
776: l_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num)||'): ' || l_err_msg;
777: x_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num)||'):';
778: FND_FILE.put_line(fnd_file.log, 'Update of Wip Operation Yields Failed'|| l_err_msg );
779: l_ret_update := UPDATE_WSMT_TXN_STATUS ( l_wsmt_transaction_id,
780: WIP_CONSTANTS.ERROR,

Line 777: x_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num)||'):';

773: WHEN PROCESS_SM_OP_YIELD_FAILURE THEN
774: x_err_num := -1;
775: x_err_code := 'Update of Wip Operation Yields Failed';
776: l_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num)||'): ' || l_err_msg;
777: x_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num)||'):';
778: FND_FILE.put_line(fnd_file.log, 'Update of Wip Operation Yields Failed'|| l_err_msg );
779: l_ret_update := UPDATE_WSMT_TXN_STATUS ( l_wsmt_transaction_id,
780: WIP_CONSTANTS.ERROR,
781: l_err_msg,

Line 788: l_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num)||'): ' || l_err_msg;

784: l_program_id );
785: WHEN PROCESS_OP_YIELD_FAILURE THEN
786: x_err_num := -1;
787: x_err_code := 'Operation Yield Costing Failed';
788: l_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num)||'): ' || l_err_msg;
789: x_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num)||'):';
790: FND_FILE.put_line(fnd_file.log, 'Operation Yield Costing Failed'|| l_err_msg );
791: l_ret_update := UPDATE_WSMT_TXN_STATUS ( l_wsmt_transaction_id,
792: WIP_CONSTANTS.ERROR,

Line 789: x_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num)||'):';

785: WHEN PROCESS_OP_YIELD_FAILURE THEN
786: x_err_num := -1;
787: x_err_code := 'Operation Yield Costing Failed';
788: l_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num)||'): ' || l_err_msg;
789: x_err_msg := 'CSTPSMCW.COST_LOT_TXN('||to_char(l_stmt_num)||'):';
790: FND_FILE.put_line(fnd_file.log, 'Operation Yield Costing Failed'|| l_err_msg );
791: l_ret_update := UPDATE_WSMT_TXN_STATUS ( l_wsmt_transaction_id,
792: WIP_CONSTANTS.ERROR,
793: l_err_msg,

Line 800: END CSTPSMCW;

796: l_program_id );
797: END COST_LOT_TXN;
798:
799:
800: END CSTPSMCW;