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.12020000.2 2012/07/11 12:52:43 vkatakam ship $ */
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.12020000.2 2012/07/11 12:52:43 vkatakam ship $ */
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 575: l_entity_id_tab CSTPECEP.wip_entity_id_type;

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

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

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

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

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

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

697: IF l_return_status <> FND_API.g_ret_sts_success THEN
698:
699: l_api_message := 'Error: CST_eamCost_PUB.Insert_tempEstimateDetails()';
700:
701: FND_MSG_PUB.ADD_EXC_MSG('CSTPECEP', 'ESTIMATE_WORKORDER('
702: ||TO_CHAR(l_stmt_num)
703: ||'): ', l_api_message);
704: RAISE FND_API.g_exc_error;
705:

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

727: IF l_return_status <> FND_API.g_ret_sts_success THEN
728:
729: l_api_message := 'Error: CST_EAMCOST_PUB.compute_job_estimate()';
730:
731: FND_MSG_PUB.ADD_EXC_MSG('CSTPECEP', 'ESTIMATE_WORKORDER('
732: ||TO_CHAR(l_stmt_num)
733: ||'): ', l_api_message);
734: RAISE FND_API.g_exc_error;
735:

Line 832: ( 'CSTPECEP'

828: --
829: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
830: THEN
831: fnd_msg_pub.add_exc_msg
832: ( 'CSTPECEP'
833: , 'Estimate_WorkOrder : l_stmt_num - '||to_char(l_stmt_num)
834: );
835:
836: END IF;

Line 847: END CSTPECEP;

843: END Estimate_WorkOrder_GRP;
844:
845:
846:
847: END CSTPECEP;