APPS.PA_PURGE_COSTING dependencies on PA_EXPENDITURE_COMMENTS

Line 940: pa_expenditure_comments ec1

936:
937: Cursor c_open_exp_comm is
938: Select ec1.rowid
939: From pa_expenditure_items_all ei,
940: pa_expenditure_comments ec1
941: Where ei.expenditure_item_id = ec1.expenditure_item_id
942: And ei.expenditure_item_date <= p_txn_to_date
943: And ei.project_id = p_project_id;
944:

Line 948: pa_expenditure_comments ec1

944:
945: Cursor c_close_exp_comm is
946: Select ec1.rowid
947: From pa_expenditure_items_all ei,
948: pa_expenditure_comments ec1
949: Where ei.expenditure_item_id = ec1.expenditure_item_id
950: And ei.project_id = p_project_id;
951:
952: begin

Line 1032: from pa_expenditure_comments ec

1028: ec.program_update_date,
1029: p_purge_batch_id,
1030: p_purge_release,
1031: p_project_id
1032: from pa_expenditure_comments ec
1033: where ec.rowid = l_exp_comm_rowid_tab(exp_ind);
1034:
1035: l_NoOfRecordsIns := SQL%ROWCOUNT ;
1036: end if; /*if p_archive_flag = 'Y' */

Line 1039: DELETE FROM pa_expenditure_comments ec

1035: l_NoOfRecordsIns := SQL%ROWCOUNT ;
1036: end if; /*if p_archive_flag = 'Y' */
1037:
1038: FORALL exp_ind in l_exp_comm_rowid_tab.FIRST .. l_exp_comm_rowid_tab.LAST
1039: DELETE FROM pa_expenditure_comments ec
1040: WHERE ec.rowid = l_exp_comm_rowid_tab(exp_ind);
1041:
1042: l_NoOfRecordsDel := SQL%ROWCOUNT;
1043: /* commented for performance changes

Line 1050: x_err_stage := 'PA_ExpenditureComments: Before deleting records from pa_expenditure_comments';

1046: -- selected because if archive option is selected the the records
1047: -- being purged will be those records which are already archived.
1048: -- table and
1049:
1050: x_err_stage := 'PA_ExpenditureComments: Before deleting records from pa_expenditure_comments';
1051: delete from pa_expenditure_comments ec
1052: where ( ec.expenditure_item_id, ec.line_number )
1053: in ( select ecar.expenditure_item_id, ecar.line_number
1054: from PA_EXP_COMMENTS_AR ecar

Line 1051: delete from pa_expenditure_comments ec

1047: -- being purged will be those records which are already archived.
1048: -- table and
1049:
1050: x_err_stage := 'PA_ExpenditureComments: Before deleting records from pa_expenditure_comments';
1051: delete from pa_expenditure_comments ec
1052: where ( ec.expenditure_item_id, ec.line_number )
1053: in ( select ecar.expenditure_item_id, ecar.line_number
1054: from PA_EXP_COMMENTS_AR ecar
1055: where ecar.purge_project_id = p_project_id

Line 1067: x_err_stage := 'PA_ExpenditureComments: Before deleting records from pa_expenditure_comments' ;

1063:
1064: -- If the archive option is not selected then the delete will
1065: -- be based on the commit size.
1066:
1067: x_err_stage := 'PA_ExpenditureComments: Before deleting records from pa_expenditure_comments' ;
1068: if p_txn_to_date is NOT NULL then
1069: delete from pa_expenditure_comments ec
1070: where ( ec.rowid )
1071: in ( select ec1.rowid

Line 1069: delete from pa_expenditure_comments ec

1065: -- be based on the commit size.
1066:
1067: x_err_stage := 'PA_ExpenditureComments: Before deleting records from pa_expenditure_comments' ;
1068: if p_txn_to_date is NOT NULL then
1069: delete from pa_expenditure_comments ec
1070: where ( ec.rowid )
1071: in ( select ec1.rowid
1072: from pa_expenditure_items_all ei,
1073: pa_expenditure_comments ec1

Line 1073: pa_expenditure_comments ec1

1069: delete from pa_expenditure_comments ec
1070: where ( ec.rowid )
1071: in ( select ec1.rowid
1072: from pa_expenditure_items_all ei,
1073: pa_expenditure_comments ec1
1074: where ei.expenditure_item_id = ec1.expenditure_item_id
1075: and ei.expenditure_item_date <= p_txn_to_date
1076: and ei.project_id = p_project_id
1077: and rownum <= p_commit_size

Line 1080: delete from pa_expenditure_comments ec

1076: and ei.project_id = p_project_id
1077: and rownum <= p_commit_size
1078: ) ;
1079: else
1080: delete from pa_expenditure_comments ec
1081: where ( ec.rowid )
1082: in ( select ec1.rowid
1083: from pa_expenditure_items_all ei,
1084: pa_expenditure_comments ec1

Line 1084: pa_expenditure_comments ec1

1080: delete from pa_expenditure_comments ec
1081: where ( ec.rowid )
1082: in ( select ec1.rowid
1083: from pa_expenditure_items_all ei,
1084: pa_expenditure_comments ec1
1085: where ei.expenditure_item_id = ec1.expenditure_item_id
1086: and ei.project_id = p_project_id
1087: and rownum <= p_commit_size
1088: ) ;

Line 1113: 'PA_EXPENDITURE_COMMENTS',

1109: x_err_stage := 'PA_ExpenditureComments: Commiting the transaction' ;
1110: if l_NoOfRecordsDel > 0 Then
1111: pa_purge.CommitProcess(p_purge_batch_id,
1112: p_project_id,
1113: 'PA_EXPENDITURE_COMMENTS',
1114: l_NoOfRecordsIns,
1115: l_NoOfRecordsDel,
1116: x_err_code,
1117: x_err_stack,