DBA Data[Home] [Help]

APPS.PA_PURGE_COSTING dependencies on PA_PURGE_COSTING

Line 1: package body pa_purge_costing as

1: package body pa_purge_costing as
2: /* $Header: PAXCSPRB.pls 120.4 2005/08/03 14:38:31 aaggarwa noship $ */
3:
4: -- forward declarations
5:

Line 76: pa_purge_costing.PA_CostDistLines(p_purge_batch_id => p_purge_batch_id,

72: -- Call the procedure to delete CDLs
73:
74: pa_debug.debug('*-> About to purge CDLs ') ;
75: x_err_stage := 'About to purge CDLs for project '||to_char(p_project_id) ;
76: pa_purge_costing.PA_CostDistLines(p_purge_batch_id => p_purge_batch_id,
77: p_project_id => p_project_id,
78: p_txn_to_date => p_txn_to_date ,
79: p_purge_release => p_purge_release,
80: p_archive_flag => p_archive_flag,

Line 89: pa_purge_costing.PA_CcDistLines(p_purge_batch_id => p_purge_batch_id,

85: ) ;
86:
87: pa_debug.debug('*-> About to purge CCDIST lines ') ;
88: x_err_stage := 'About to purge CCDIST lines for project '||to_char(p_project_id) ;
89: pa_purge_costing.PA_CcDistLines(p_purge_batch_id => p_purge_batch_id,
90: p_project_id => p_project_id,
91: p_txn_to_date => p_txn_to_date ,
92: p_purge_release => p_purge_release,
93: p_archive_flag => p_archive_flag,

Line 102: pa_purge_costing.PA_ExpenditureComments(p_purge_batch_id => p_purge_batch_id,

98: ) ;
99:
100: pa_debug.debug('*-> About to purge expenditure comments ') ;
101: x_err_stage := 'About to purge expenditure comments for project '||to_char(p_project_id) ;
102: pa_purge_costing.PA_ExpenditureComments(p_purge_batch_id => p_purge_batch_id,
103: p_project_id => p_project_id,
104: p_txn_to_date => p_txn_to_date ,
105: p_purge_release => p_purge_release,
106: p_archive_flag => p_archive_flag,

Line 115: pa_purge_costing.PA_ExpendItemAdjActivities(p_purge_batch_id => p_purge_batch_id,

111: ) ;
112:
113: pa_debug.debug('*-> About ot purge expenditure adj acts ') ;
114: x_err_stage := 'About to purge audit record for project '||to_char(p_project_id) ;
115: pa_purge_costing.PA_ExpendItemAdjActivities(p_purge_batch_id => p_purge_batch_id,
116: p_project_id => p_project_id,
117: p_txn_to_date => p_txn_to_date ,
118: p_purge_release => p_purge_release,
119: p_archive_flag => p_archive_flag,

Line 128: pa_purge_costing.PA_EiDenorm(p_purge_batch_id => p_purge_batch_id,

124: ) ;
125:
126: pa_debug.debug('*-> About to purge records from the denorm table');
127: x_err_stage := 'About to purge records from denorm table for project '||to_char(p_project_id) ;
128: pa_purge_costing.PA_EiDenorm(p_purge_batch_id => p_purge_batch_id,
129: p_project_id => p_project_id,
130: p_txn_to_date => p_txn_to_date ,
131: p_purge_release => p_purge_release,
132: p_archive_flag => p_archive_flag,

Line 142: pa_purge_costing.PA_ExpItemsSrcPurge() ;

138:
139: pa_debug.debug('*-> About to purge expenditure items that were transferred to another item');
140: x_err_stage := 'About to purge exp items transferred to another item for project '||to_char(p_project_id) ;
141: /*
142: pa_purge_costing.PA_ExpItemsSrcPurge() ;
143:
144: */
145: pa_debug.debug('*-> About to purge expenditure items that were transferred from another item ');
146: x_err_stage := 'About to purge exp items transferred from another item for project '||to_char(p_project_id) ;

Line 147: pa_purge_costing.PA_ExpItemsDestPurge(p_purge_batch_id => p_purge_batch_id,

143:
144: */
145: pa_debug.debug('*-> About to purge expenditure items that were transferred from another item ');
146: x_err_stage := 'About to purge exp items transferred from another item for project '||to_char(p_project_id) ;
147: pa_purge_costing.PA_ExpItemsDestPurge(p_purge_batch_id => p_purge_batch_id,
148: p_project_id => p_project_id,
149: p_txn_to_date => p_txn_to_date ,
150: p_purge_release => p_purge_release,
151: p_archive_flag => p_archive_flag,

Line 161: pa_purge_costing.PA_ExpenditureItems(p_purge_batch_id => p_purge_batch_id,

157:
158:
159: pa_debug.debug('*-> About to purge expenditure items ');
160: x_err_stage := 'About to purge expenditure items of project '||to_char(p_project_id);
161: pa_purge_costing.PA_ExpenditureItems(p_purge_batch_id => p_purge_batch_id,
162: p_project_id => p_project_id,
163: p_txn_to_date => p_txn_to_date ,
164: p_purge_release => p_purge_release,
165: p_archive_flag => p_archive_flag,

Line 174: pa_purge_costing.PA_ExpenditureHistory(p_purge_batch_id => p_purge_batch_id,

170: ) ;
171:
172: pa_debug.debug('*-> About to purge expenditure history records of expenditures ');
173: x_err_stage := 'About to purge expenditure history records of expenditures without any exp items ';
174: pa_purge_costing.PA_ExpenditureHistory(p_purge_batch_id => p_purge_batch_id,
175: p_project_id => p_project_id,
176: p_txn_to_date => p_txn_to_date ,
177: p_purge_release => p_purge_release,
178: p_archive_flag => p_archive_flag,

Line 193: pa_debug.debug('Error Procedure Name := PA_PURGE_COSTING.PA_COSTING_MAIN_PURGE' );

189: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
190:
191: WHEN OTHERS THEN
192: x_err_stage := l_err_stage ;
193: pa_debug.debug('Error Procedure Name := PA_PURGE_COSTING.PA_COSTING_MAIN_PURGE' );
194: pa_debug.debug('Error stage is '||x_err_stage );
195: pa_debug.debug('Error stack is '||x_err_stack );
196: pa_debug.debug(SQLERRM);
197: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;

Line 485: pa_purge_costing.PA_MRCCostDistLines(

481: -- being purged will be those records which are already archived.
482: -- table and
483:
484: IF (l_mrc_flag = 'Y') THEN
485: pa_purge_costing.PA_MRCCostDistLines(
486: p_purge_batch_id,
487: p_project_id,
488: p_txn_to_date,
489: p_purge_release,

Line 549: pa_debug.debug('Error Procedure Name := PA_PURGE_COSTING.PA_COSTDISTLINES' );

545: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
546:
547: WHEN OTHERS THEN
548: -- x_err_stage := l_err_stage ;
549: pa_debug.debug('Error Procedure Name := PA_PURGE_COSTING.PA_COSTDISTLINES' );
550: pa_debug.debug('Error stage is '||x_err_stage );
551: pa_debug.debug('Error stack is '||x_err_stack );
552: pa_debug.debug(SQLERRM);
553: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;

Line 794: pa_purge_costing.PA_MRCCcDistLines(

790: -- being purged will be those records which are already archived.
791: -- table and
792:
793: IF (l_mrc_flag = 'Y') THEN
794: pa_purge_costing.PA_MRCCcDistLines(
795: p_purge_batch_id,
796: p_project_id,
797: p_txn_to_date,
798: p_purge_release,

Line 894: pa_debug.debug('Error Procedure Name := PA_PURGE_COSTING.PA_CCDISTLINES' );

890: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
891:
892: WHEN OTHERS THEN
893: -- x_err_stage := l_err_stage ;
894: pa_debug.debug('Error Procedure Name := PA_PURGE_COSTING.PA_CCDISTLINES' );
895: pa_debug.debug('Error stage is '||x_err_stage );
896: pa_debug.debug('Error stack is '||x_err_stack );
897: pa_debug.debug(SQLERRM);
898: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;

Line 1136: pa_debug.debug('Error Procedure Name := PA_PURGE_COSTING.PA_EXPENDITURECOMMENTS' );

1132: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
1133:
1134: WHEN OTHERS THEN
1135: -- x_err_stage := l_err_stage ;
1136: pa_debug.debug('Error Procedure Name := PA_PURGE_COSTING.PA_EXPENDITURECOMMENTS' );
1137: pa_debug.debug('Error stage is '||x_err_stage );
1138: pa_debug.debug('Error stack is '||x_err_stack );
1139: pa_debug.debug(SQLERRM);
1140: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM;

Line 1446: pa_debug.debug('Error Procedure Name := pa_purge_costing.PA_ExpendItemAdjActivities' );

1442: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
1443:
1444: WHEN OTHERS THEN
1445: -- x_err_stage := l_err_stage ;
1446: pa_debug.debug('Error Procedure Name := pa_purge_costing.PA_ExpendItemAdjActivities' );
1447: pa_debug.debug('Error stage is '||x_err_stage );
1448: pa_debug.debug('Error stack is '||x_err_stack );
1449: pa_debug.debug(SQLERRM);
1450: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;

Line 1491: -- pa_purge_costing.pa_costing_main_purge. It purges the data from

1487: begin
1488:
1489: --
1490: -- This procedure is called by the main costing purge procedure
1491: -- pa_purge_costing.pa_costing_main_purge. It purges the data from
1492: -- Pa_Ei_Denorm. This is a new table created for Online Time and
1493: -- Expense(OTE) entry. Once OTE patch is installed user should
1494: -- uncomment these code to allow the purging of data from Pa_Ei_Denorm
1495: -- which is also a transaction table.

Line 2813: pa_purge_costing.PA_MRCExpenditureItems(

2809:
2810: if l_NoOfRecordsIns > 0 then
2811:
2812: IF (l_mrc_flag = 'Y') THEN
2813: pa_purge_costing.PA_MRCExpenditureItems(
2814: p_purge_batch_id,
2815: p_project_id,
2816: p_txn_to_date,
2817: p_purge_release,

Line 2927: pa_debug.debug('Error Procedure Name := PA_PURGE_COSTING.PA_EXPENDITUREITEMS' );

2923: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
2924:
2925: WHEN OTHERS THEN
2926: -- x_err_stage := l_err_stage ;
2927: pa_debug.debug('Error Procedure Name := PA_PURGE_COSTING.PA_EXPENDITUREITEMS' );
2928: pa_debug.debug('Error stage is '||x_err_stage );
2929: pa_debug.debug('Error stack is '||x_err_stack );
2930: pa_debug.debug(SQLERRM);
2931: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;

Line 3503: pa_debug.debug('Error Procedure Name := PA_PURGE_COSTING.PA_EXPITEMSSRCPURGE' );

3499: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
3500:
3501: WHEN OTHERS THEN
3502: -- x_err_stage := l_err_stage ;
3503: pa_debug.debug('Error Procedure Name := PA_PURGE_COSTING.PA_EXPITEMSSRCPURGE' );
3504: pa_debug.debug('Error stage is '||x_err_stage );
3505: pa_debug.debug('Error stack is '||x_err_stack );
3506: pa_debug.debug(SQLERRM);
3507: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;

Line 3658: pa_debug.debug('Error Procedure Name := PA_PURGE_COSTING.PA_EXPITEMSDESTPURGE' );

3654: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
3655:
3656: WHEN OTHERS THEN
3657: -- x_err_stage := l_err_stage ;
3658: pa_debug.debug('Error Procedure Name := PA_PURGE_COSTING.PA_EXPITEMSDESTPURGE' );
3659: pa_debug.debug('Error stage is '||x_err_stage );
3660: pa_debug.debug('Error stack is '||x_err_stack );
3661: pa_debug.debug(SQLERRM);
3662: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;

Line 3822: pa_debug.debug('Error Procedure Name := PA_PURGE_COSTING.PA_ROUTINGS1' );

3818: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
3819:
3820: WHEN OTHERS THEN
3821: -- x_err_stage := l_err_stage ;
3822: pa_debug.debug('Error Procedure Name := PA_PURGE_COSTING.PA_ROUTINGS1' );
3823: pa_debug.debug('Error stage is '||x_err_stage );
3824: pa_debug.debug('Error stack is '||x_err_stack );
3825: pa_debug.debug(SQLERRM);
3826: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;

Line 4069: pa_debug.debug('Error Procedure Name := PA_PURGE_COSTING.PA_EXPENDITURES1' );

4065: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
4066:
4067: WHEN OTHERS THEN
4068: -- x_err_stage := l_err_stage ;
4069: pa_debug.debug('Error Procedure Name := PA_PURGE_COSTING.PA_EXPENDITURES1' );
4070: pa_debug.debug('Error stage is '||x_err_stage );
4071: pa_debug.debug('Error stack is '||x_err_stack );
4072: pa_debug.debug(SQLERRM);
4073: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;

Line 4220: pa_debug.debug('Error Procedure Name := PA_PURGE_COSTING.PA_MRCExpenditureItems' );

4216: WHEN PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error then
4217: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
4218:
4219: WHEN OTHERS THEN
4220: pa_debug.debug('Error Procedure Name := PA_PURGE_COSTING.PA_MRCExpenditureItems' );
4221: pa_debug.debug('Error stage is '||x_err_stage );
4222: pa_debug.debug('Error stack is '||x_err_stack );
4223: pa_debug.debug(SQLERRM);
4224: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;

Line 4340: pa_debug.debug('Error Procedure Name := PA_PURGE_COSTING.PA_MRCCOSTDISTLINES');

4336: WHEN PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error then
4337: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
4338:
4339: WHEN OTHERS THEN
4340: pa_debug.debug('Error Procedure Name := PA_PURGE_COSTING.PA_MRCCOSTDISTLINES');
4341: pa_debug.debug('Error stage is '|| x_err_stage );
4342: pa_debug.debug('Error stack is '|| x_err_stack );
4343: pa_debug.debug(SQLERRM);
4344: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;

Line 4456: pa_debug.debug('Error Procedure Name := PA_PURGE_COSTING.PA_MRCCCDISTLINES');

4452: WHEN PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error then
4453: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
4454:
4455: WHEN OTHERS THEN
4456: pa_debug.debug('Error Procedure Name := PA_PURGE_COSTING.PA_MRCCCDISTLINES');
4457: pa_debug.debug('Error stage is '|| x_err_stage );
4458: pa_debug.debug('Error stack is '|| x_err_stack );
4459: pa_debug.debug(SQLERRM);
4460: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;

Line 4466: END pa_purge_costing;

4462: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
4463:
4464: END PA_MRCCcDistLines ;
4465:
4466: END pa_purge_costing;