DBA Data[Home] [Help]

APPS.PA_PURGE_COSTING dependencies on PA_ROUTINGS

Line 3669: -- API name : PA_Routings1

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

Line 3679: procedure PA_Routings1 ( p_purge_batch_id IN NUMBER,

3675: -- Parameters : Refer to the comments of the previous procedure
3676: --
3677: -- End of comments
3678:
3679: procedure PA_Routings1 ( p_purge_batch_id IN NUMBER,
3680: p_project_id IN NUMBER,
3681: p_purge_release IN VARCHAR2,
3682: p_archive_flag IN VARCHAR2,
3683: p_commit_size IN NUMBER,

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

3705: -- in the commit size.
3706:
3707: l_commit_size := p_commit_size / 2 ;
3708:
3709: x_err_stage := 'PA_Routings1: Before inserting records into PA_Routings_AR' ;
3710: insert into PA_Routings_AR
3711: (
3712: Expenditure_Id,
3713: Routed_From_Person_Id,

Line 3710: insert into PA_Routings_AR

3706:
3707: l_commit_size := p_commit_size / 2 ;
3708:
3709: x_err_stage := 'PA_Routings1: Before inserting records into PA_Routings_AR' ;
3710: insert into PA_Routings_AR
3711: (
3712: Expenditure_Id,
3713: Routed_From_Person_Id,
3714: Start_Date,

Line 3743: from pa_routings ro

3739: ro.Routing_Comment,
3740: p_purge_batch_id,
3741: p_purge_release,
3742: p_project_id
3743: from pa_routings ro
3744: where not exists
3745: ( select x.expenditure_id
3746: from pa_expenditures_all x
3747: where ro.expenditure_id = x.expenditure_id)

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

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

Line 3760: delete from pa_routings ro

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

Line 3763: from pa_routings_ar roar

3759:
3760: delete from pa_routings ro
3761: where (ro.expenditure_id, ro.start_date ) in
3762: ( select roar.expenditure_id, roar.start_date
3763: from pa_routings_ar roar
3764: where roar.purge_project_id = p_project_id
3765: ) ;
3766:
3767: l_NoOfRecordsDel := SQL%ROWCOUNT ;

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

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

Line 3777: delete from pa_routings ro

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

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

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

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

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

Line 3803: 'PA_ROUTINGS',

3799:
3800: x_err_stage := 'PA_Routings1: Commiting the transaction' ;
3801: pa_purge.CommitProcess(p_purge_batch_id,
3802: p_project_id,
3803: 'PA_ROUTINGS',
3804: l_NoOfRecordsIns,
3805: l_NoOfRecordsDel,
3806: x_err_code,
3807: x_err_stack,

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 3830: end PA_Routings1 ;

3826: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;
3827:
3828: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
3829:
3830: end PA_Routings1 ;
3831:
3832: -- Start of comments
3833: -- API name : PA_Expenditures1
3834: -- Type : Public