DBA Data[Home] [Help]

APPS.PA_PURGE_COSTING dependencies on PA_ROUTINGS

Line 3673: -- API name : PA_Routings1

3669:
3670: end PA_ExpItemsDestPurge ;
3671:
3672: -- Start of comments
3673: -- API name : PA_Routings1
3674: -- Type : Public
3675: -- Pre-reqs : None
3676: -- Function : This procedure purges all the routing records whose expenditures
3677: -- does not have any expenditure items.

Line 3683: procedure PA_Routings1 ( p_purge_batch_id IN NUMBER,

3679: -- Parameters : Refer to the comments of the previous procedure
3680: --
3681: -- End of comments
3682:
3683: procedure PA_Routings1 ( p_purge_batch_id IN NUMBER,
3684: p_project_id IN NUMBER,
3685: p_purge_release IN VARCHAR2,
3686: p_archive_flag IN VARCHAR2,
3687: p_commit_size IN NUMBER,

Line 3713: x_err_stage := 'PA_Routings1: Before inserting records into PA_Routings_AR' ;

3709: -- in the commit size.
3710:
3711: l_commit_size := p_commit_size / 2 ;
3712:
3713: x_err_stage := 'PA_Routings1: Before inserting records into PA_Routings_AR' ;
3714: insert into PA_Routings_AR
3715: (
3716: Expenditure_Id,
3717: Routed_From_Person_Id,

Line 3714: insert into PA_Routings_AR

3710:
3711: l_commit_size := p_commit_size / 2 ;
3712:
3713: x_err_stage := 'PA_Routings1: Before inserting records into PA_Routings_AR' ;
3714: insert into PA_Routings_AR
3715: (
3716: Expenditure_Id,
3717: Routed_From_Person_Id,
3718: Start_Date,

Line 3747: from pa_routings ro

3743: ro.Routing_Comment,
3744: p_purge_batch_id,
3745: p_purge_release,
3746: p_project_id
3747: from pa_routings ro
3748: where not exists
3749: ( select x.expenditure_id
3750: from pa_expenditures_all x
3751: where ro.expenditure_id = x.expenditure_id)

Line 3762: x_err_stage := 'PA_Routings1: Before deleting records from pa_routings' ;

3758: -- selected because if archive option is selected the the records
3759: -- being purged will be those records which are already archived.
3760: -- table and
3761:
3762: x_err_stage := 'PA_Routings1: Before deleting records from pa_routings' ;
3763:
3764: delete from pa_routings ro
3765: where (ro.expenditure_id, ro.start_date ) in
3766: ( select roar.expenditure_id, roar.start_date

Line 3764: delete from pa_routings ro

3760: -- table and
3761:
3762: x_err_stage := 'PA_Routings1: Before deleting records from pa_routings' ;
3763:
3764: delete from pa_routings ro
3765: where (ro.expenditure_id, ro.start_date ) in
3766: ( select roar.expenditure_id, roar.start_date
3767: from pa_routings_ar roar
3768: where roar.purge_project_id = p_project_id

Line 3767: from pa_routings_ar roar

3763:
3764: delete from pa_routings ro
3765: where (ro.expenditure_id, ro.start_date ) in
3766: ( select roar.expenditure_id, roar.start_date
3767: from pa_routings_ar roar
3768: where roar.purge_project_id = p_project_id
3769: ) ;
3770:
3771: l_NoOfRecordsDel := SQL%ROWCOUNT ;

Line 3780: x_err_stage := 'PA_Routings1: Before deleting records from pa_routings' ;

3776:
3777: -- If the archive option is not selected then the delete will
3778: -- be based on the commit size.
3779:
3780: x_err_stage := 'PA_Routings1: Before deleting records from pa_routings' ;
3781: delete from pa_routings ro
3782: where not exists
3783: ( select x.expenditure_id
3784: from pa_expenditures_all x

Line 3781: delete from pa_routings ro

3777: -- If the archive option is not selected then the delete will
3778: -- be based on the commit size.
3779:
3780: x_err_stage := 'PA_Routings1: Before deleting records from pa_routings' ;
3781: delete from pa_routings ro
3782: where not exists
3783: ( select x.expenditure_id
3784: from pa_expenditures_all x
3785: where ro.expenditure_id = x.expenditure_id)

Line 3795: x_err_stage := 'PA_Routings1: No more records to archive / purge ' ;

3791: if SQL%ROWCOUNT = 0 then
3792: -- Once the SqlCount becomes 0, which means that there are
3793: -- no more records to be purged then we exit the loop.
3794:
3795: x_err_stage := 'PA_Routings1: No more records to archive / purge ' ;
3796: exit ;
3797:
3798: else
3799: -- After "deleting" or "deleting and inserting" a set of records

Line 3804: x_err_stage := 'PA_Routings1: Commiting the transaction' ;

3800: -- the transaction is commited. This also creates a record in the
3801: -- Pa_Purge_Project_details which will show the no. of records
3802: -- that are purged from each table.
3803:
3804: x_err_stage := 'PA_Routings1: Commiting the transaction' ;
3805: pa_purge.CommitProcess(p_purge_batch_id,
3806: p_project_id,
3807: 'PA_ROUTINGS',
3808: l_NoOfRecordsIns,

Line 3807: 'PA_ROUTINGS',

3803:
3804: x_err_stage := 'PA_Routings1: Commiting the transaction' ;
3805: pa_purge.CommitProcess(p_purge_batch_id,
3806: p_project_id,
3807: 'PA_ROUTINGS',
3808: l_NoOfRecordsIns,
3809: l_NoOfRecordsDel,
3810: x_err_code,
3811: x_err_stack,

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

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

Line 3834: end PA_Routings1 ;

3830: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;
3831:
3832: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
3833:
3834: end PA_Routings1 ;
3835:
3836: -- Start of comments
3837: -- API name : PA_Expenditures1
3838: -- Type : Public