DBA Data[Home] [Help]

APPS.PA_PURGE_CAPITAL dependencies on PA_PURGE

Line 1: PACKAGE BODY PA_Purge_Capital AS

1: PACKAGE BODY PA_Purge_Capital AS
2: /* $Header: PAXGCPPB.pls 120.3 2008/01/22 13:43:54 rthumma ship $ */
3:
4: l_commit_size NUMBER ;
5: l_err_stage VARCHAR2(500);

Line 48: l_err_stage := 'Before calling PA_Purge_Capital.PA_MC_AsstLinDtls';

44: -- Call the procedure to delete Project Asset Line Details
45:
46: pa_debug.debug('*-> About to purge Asset Line Details ') ;
47:
48: l_err_stage := 'Before calling PA_Purge_Capital.PA_MC_AsstLinDtls';
49:
50: PA_Purge_Capital.PA_MC_AsstLinDtls(p_purge_batch_id => p_purge_batch_id,
51: p_project_id => p_project_id,
52: p_txn_to_date => p_txn_to_date,

Line 50: PA_Purge_Capital.PA_MC_AsstLinDtls(p_purge_batch_id => p_purge_batch_id,

46: pa_debug.debug('*-> About to purge Asset Line Details ') ;
47:
48: l_err_stage := 'Before calling PA_Purge_Capital.PA_MC_AsstLinDtls';
49:
50: PA_Purge_Capital.PA_MC_AsstLinDtls(p_purge_batch_id => p_purge_batch_id,
51: p_project_id => p_project_id,
52: p_txn_to_date => p_txn_to_date,
53: p_purge_release => p_purge_release,
54: p_archive_flag => p_archive_flag,

Line 60: l_err_stage := 'Before calling PA_Purge_Capital.PA_AsstLineDtls';

56: p_err_code => p_err_code,
57: p_err_stack => p_err_stack,
58: p_err_stage => p_err_stage) ;
59:
60: l_err_stage := 'Before calling PA_Purge_Capital.PA_AsstLineDtls';
61:
62: IF p_err_code = 0 then
63: PA_Purge_Capital.PA_AsstLineDtls(p_purge_batch_id => p_purge_batch_id,
64: p_project_id => p_project_id,

Line 63: PA_Purge_Capital.PA_AsstLineDtls(p_purge_batch_id => p_purge_batch_id,

59:
60: l_err_stage := 'Before calling PA_Purge_Capital.PA_AsstLineDtls';
61:
62: IF p_err_code = 0 then
63: PA_Purge_Capital.PA_AsstLineDtls(p_purge_batch_id => p_purge_batch_id,
64: p_project_id => p_project_id,
65: p_txn_to_date => p_txn_to_date,
66: p_purge_release => p_purge_release,
67: p_archive_flag => p_archive_flag,

Line 83: p_pkg_name => 'PA_PURGE_CAPITAL',

79: WHEN OTHERS THEN
80: p_err_code := -1;
81: p_err_stage := to_char(SQLCODE);
82: FND_MSG_PUB.Add_Exc_Msg(
83: p_pkg_name => 'PA_PURGE_CAPITAL',
84: p_procedure_name => 'PA_CAPITAL_MAIN_PURGE'||'-'||l_err_stage,
85: p_error_text => 'ORA-'||LPAD(substr(p_err_stage,2),5,'0'));
86:
87: RAISE ;

Line 221: -- Pa_Purge_Project_details which will show the no. of records

217:
218:
219: -- After "deleting" or "deleting and inserting" a set of records
220: -- the transaction is commited. This also creates a record in the
221: -- Pa_Purge_Project_details which will show the no. of records
222: -- that are purged from each table.
223:
224: l_err_stage := 'Before Calling PA_Purge.CommitProcess';
225:

Line 224: l_err_stage := 'Before Calling PA_Purge.CommitProcess';

220: -- the transaction is commited. This also creates a record in the
221: -- Pa_Purge_Project_details which will show the no. of records
222: -- that are purged from each table.
223:
224: l_err_stage := 'Before Calling PA_Purge.CommitProcess';
225:
226: PA_Purge.CommitProcess(p_purge_batch_id,
227: p_project_id,
228: 'PA_MC_Prj_Ast_line_Dtls',

Line 226: PA_Purge.CommitProcess(p_purge_batch_id,

222: -- that are purged from each table.
223:
224: l_err_stage := 'Before Calling PA_Purge.CommitProcess';
225:
226: PA_Purge.CommitProcess(p_purge_batch_id,
227: p_project_id,
228: 'PA_MC_Prj_Ast_line_Dtls',
229: NoOfRecordsIns,
230: NoOfRecordsDel,

Line 263: p_pkg_name => 'PA_PURGE_CAPITAL',

259: WHEN OTHERS THEN
260: p_err_code := -1;
261: p_err_stage := to_char(SQLCODE);
262: FND_MSG_PUB.Add_Exc_Msg(
263: p_pkg_name => 'PA_PURGE_CAPITAL',
264: p_procedure_name => 'PA_MC_AsstLinDtls'||'-'||l_err_stage,
265: p_error_text => 'ORA-'||LPAD(substr(p_err_stage,2),5,'0'));
266:
267: RAISE ;

Line 402: -- Pa_Purge_Project_details which will show the no. of records

398:
399: ELSE
400: -- After "deleting" or "deleting and inserting" a set of records
401: -- the transaction is commited. This also creates a record in the
402: -- Pa_Purge_Project_details which will show the no. of records
403: -- that are purged from each table.
404:
405: l_err_stage := 'Before Calling PA_Purge.CommitProcess';
406:

Line 405: l_err_stage := 'Before Calling PA_Purge.CommitProcess';

401: -- the transaction is commited. This also creates a record in the
402: -- Pa_Purge_Project_details which will show the no. of records
403: -- that are purged from each table.
404:
405: l_err_stage := 'Before Calling PA_Purge.CommitProcess';
406:
407: PA_Purge.CommitProcess( p_purge_batch_id,
408: p_project_id,
409: 'PA_MC_Prj_Ast_line_Dtls',

Line 407: PA_Purge.CommitProcess( p_purge_batch_id,

403: -- that are purged from each table.
404:
405: l_err_stage := 'Before Calling PA_Purge.CommitProcess';
406:
407: PA_Purge.CommitProcess( p_purge_batch_id,
408: p_project_id,
409: 'PA_MC_Prj_Ast_line_Dtls',
410: NoOfRecordsIns,
411: NoOfRecordsDel,

Line 427: p_pkg_name => 'PA_PURGE_CAPITAL',

423: WHEN OTHERS THEN
424: p_err_code := -1;
425: p_err_stage := to_char(SQLCODE);
426: FND_MSG_PUB.Add_Exc_Msg(
427: p_pkg_name => 'PA_PURGE_CAPITAL',
428: p_procedure_name => 'PA_MC_AsstLinDtls'||'-'||l_err_stage,
429: p_error_text => 'ORA-'||LPAD(substr(p_err_stage,2),5,'0'));
430:
431: RAISE ;

Line 587: -- Pa_Purge_Project_details which will show the no. of records

583:
584: ELSE
585: -- After "deleting" or "deleting and inserting" a set of records
586: -- the transaction is commited. This also creates a record in the
587: -- Pa_Purge_Project_details which will show the no. of records
588: -- that are purged from each table.
589:
590: l_err_stage := 'Before Calling PA_Purge.CommitProcess';
591:

Line 590: l_err_stage := 'Before Calling PA_Purge.CommitProcess';

586: -- the transaction is commited. This also creates a record in the
587: -- Pa_Purge_Project_details which will show the no. of records
588: -- that are purged from each table.
589:
590: l_err_stage := 'Before Calling PA_Purge.CommitProcess';
591:
592: PA_Purge.CommitProcess( p_purge_batch_id,
593: p_project_id,
594: 'PA_Project_Asset_line_Details',

Line 592: PA_Purge.CommitProcess( p_purge_batch_id,

588: -- that are purged from each table.
589:
590: l_err_stage := 'Before Calling PA_Purge.CommitProcess';
591:
592: PA_Purge.CommitProcess( p_purge_batch_id,
593: p_project_id,
594: 'PA_Project_Asset_line_Details',
595: NoOfRecordsIns,
596: NoOfRecordsDel,

Line 612: p_pkg_name => 'PA_PURGE_CAPITAL',

608: WHEN OTHERS THEN
609: p_err_code := -1;
610: p_err_stage := to_char(SQLCODE);
611: FND_MSG_PUB.Add_Exc_Msg(
612: p_pkg_name => 'PA_PURGE_CAPITAL',
613: p_procedure_name => 'PA_AsstLineDtls'||'-'||l_err_stage,
614: p_error_text => 'ORA-'||LPAD(substr(p_err_stage,2),5,'0'));
615:
616: RAISE ;

Line 620: END PA_Purge_Capital;

616: RAISE ;
617:
618: END PA_AsstLineDtls ;
619:
620: END PA_Purge_Capital;