DBA Data[Home] [Help]

APPS.CSTPECEP dependencies on CSTPECEP

Line 1: PACKAGE BODY CSTPECEP AS

1: PACKAGE BODY CSTPECEP AS
2: /* $Header: CSTECEPB.pls 120.5 2006/08/24 11:24:29 arathee noship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CSTPECEP';
5:

Line 4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CSTPECEP';

1: PACKAGE BODY CSTPECEP AS
2: /* $Header: CSTECEPB.pls 120.5 2006/08/24 11:24:29 arathee noship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CSTPECEP';
5:
6: /*---------------------------------------------------------------------------*
7: | PUBLIC PROCEDURE |
8: | estimate_wip_jobs |

Line 76: l_entity_id_tab CSTPECEP.wip_entity_id_type;

72: conc_status BOOLEAN;
73: /*cst_process_error EXCEPTION;*/
74: process_error EXCEPTION;
75:
76: l_entity_id_tab CSTPECEP.wip_entity_id_type;
77: l_maint_organization_id NUMBER;
78:
79: BEGIN
80:

Line 164: l_err_msg := 'CSTPECEP.estimate_wip_jobs('

160:
161: l_err_code := 'Invalid Program Argument Combination';
162:
163: l_err_num := 2002;
164: l_err_msg := 'CSTPECEP.estimate_wip_jobs('
165: || to_char(l_stmt_num)
166: || '): '
167: ||l_err_code;
168: IF l_debug = 'Y' THEN

Line 315: SAVEPOINT CSTPECEP_MAIN_PUB;

311: --------------------------------------------------------------------
312: -- Processs WIP Jobs
313: --------------------------------------------------------------------
314: -- Have a savepoint before starting the job. This is main savepoint
315: SAVEPOINT CSTPECEP_MAIN_PUB;
316:
317: l_stmt_num := 30;
318:
319: IF l_entity_id_tab.COUNT > 0 THEN

Line 411: SAVEPOINT CSTPECEP_INT_PUB;

407: BEGIN
408:
409: -- Have an intermediate savepoint. Its position is updated as and when
410: -- we have a successful completion. We would rollback only errored out estimation
411: SAVEPOINT CSTPECEP_INT_PUB;
412:
413: l_stmt_num := 40;
414:
415: CST_EAMCOST_PUB.compute_job_estimate

Line 465: ROLLBACK TO CSTPECEP_INT_PUB;

461:
462: EXCEPTION
463: WHEN PROCESS_ERROR THEN
464:
465: ROLLBACK TO CSTPECEP_INT_PUB;
466:
467: UPDATE wip_discrete_jobs
468: SET estimation_status = 3,
469: last_update_date = SYSDATE,

Line 476: l_err_msg := 'CSTPECEP.estimate_wip_jobs('

472: WHERE wip_entity_id = l_entity_id_tab(l_index);
473:
474:
475: l_err_num := 2002;
476: l_err_msg := 'CSTPECEP.estimate_wip_jobs('
477: || to_char(l_stmt_num)
478: || '): '
479: ||l_err_code;
480: IF l_debug = 'Y' THEN

Line 498: ROLLBACK TO CSTPECEP_MAIN_PUB;

494: WHEN OTHERS THEN
495:
496: -- Rollback all. Even last estimation data is restored. That is primary reason
497: -- of having this main Savepoint. This is done only in some unexpected exception
498: ROLLBACK TO CSTPECEP_MAIN_PUB;
499:
500: FORALL l_index IN l_entity_id_tab.FIRST..l_entity_id_tab.LAST
501: UPDATE wip_discrete_jobs
502: SET estimation_status = 1,

Line 511: l_err_msg := SUBSTR('CSTPECEP.estimate_wip_jobs('

507: AND wip_entity_id = l_entity_id_tab(l_index);
508:
509: l_err_num := SQLCODE;
510: l_err_code := NULL;
511: l_err_msg := SUBSTR('CSTPECEP.estimate_wip_jobs('
512: || to_char(l_stmt_num)
513: || '): '
514: ||SQLERRM,1,240);
515: IF l_debug = 'Y' THEN

Line 574: l_entity_id_tab CSTPECEP.wip_entity_id_type;

570: l_prog_app_id NUMBER := 0;
571: l_login_id NUMBER := 0;
572: l_conc_program_id NUMBER := 0;
573:
574: l_entity_id_tab CSTPECEP.wip_entity_id_type;
575:
576:
577: BEGIN
578:

Line 634: FND_MSG_PUB.ADD_EXC_MSG('CSTPECEP', 'ESTIMATE_WORKORDER('

630: IF l_return_status <> FND_API.g_ret_sts_success THEN
631:
632: l_api_message := 'Error: CST_EAMCOST_PUB.delete_eamperbal()';
633:
634: FND_MSG_PUB.ADD_EXC_MSG('CSTPECEP', 'ESTIMATE_WORKORDER('
635: ||TO_CHAR(l_stmt_num)
636: ||'): ', l_api_message);
637: RAISE FND_API.g_exc_error;
638:

Line 671: FND_MSG_PUB.ADD_EXC_MSG('CSTPECEP', 'ESTIMATE_WORKORDER('

667: IF l_return_status <> FND_API.g_ret_sts_success THEN
668:
669: l_api_message := 'Error: CST_EAMCOST_PUB.Delete_eamBalAcct()';
670:
671: FND_MSG_PUB.ADD_EXC_MSG('CSTPECEP', 'ESTIMATE_WORKORDER('
672: ||TO_CHAR(l_stmt_num)
673: ||'): ', l_api_message);
674: RAISE FND_API.g_exc_error;
675:

Line 696: FND_MSG_PUB.ADD_EXC_MSG('CSTPECEP', 'ESTIMATE_WORKORDER('

692: IF l_return_status <> FND_API.g_ret_sts_success THEN
693:
694: l_api_message := 'Error: CST_eamCost_PUB.Insert_tempEstimateDetails()';
695:
696: FND_MSG_PUB.ADD_EXC_MSG('CSTPECEP', 'ESTIMATE_WORKORDER('
697: ||TO_CHAR(l_stmt_num)
698: ||'): ', l_api_message);
699: RAISE FND_API.g_exc_error;
700:

Line 726: FND_MSG_PUB.ADD_EXC_MSG('CSTPECEP', 'ESTIMATE_WORKORDER('

722: IF l_return_status <> FND_API.g_ret_sts_success THEN
723:
724: l_api_message := 'Error: CST_EAMCOST_PUB.compute_job_estimate()';
725:
726: FND_MSG_PUB.ADD_EXC_MSG('CSTPECEP', 'ESTIMATE_WORKORDER('
727: ||TO_CHAR(l_stmt_num)
728: ||'): ', l_api_message);
729: RAISE FND_API.g_exc_error;
730:

Line 825: ( 'CSTPECEP'

821: --
822: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
823: THEN
824: fnd_msg_pub.add_exc_msg
825: ( 'CSTPECEP'
826: , 'Estimate_WorkOrder : l_stmt_num - '||to_char(l_stmt_num)
827: );
828:
829: END IF;

Line 840: END CSTPECEP;

836: END Estimate_WorkOrder_GRP;
837:
838:
839:
840: END CSTPECEP;