[Home] [Help]
79:
80: /*
81: hrassact.trash_latest_balances gets called from trigger
82: pay_balance_feeds_ard , due to performance issues in delting from
83: pay_assignment_latest_balances we are performing this operation here
84: before delete from pay_balance_feeds_f.
85:
86: */
87:
154:
155: /*------------------------- trash_latest_balances_threaded -----------------------*/
156: /*
157: * This procedure is copied from hrassact.trash_latest_balances.
158: * Deltion from pay_assignment_latest_balances will now be done in multiple threads.
159: * Master Procedure will be called from here which will spawn slave process.
160: */
161:
162:
260:
261: l_ivchk varchar2(2);
262: l_rrv_found number := -1;
263: --Added following type for Bug:6595092 bulk delete
264: Type t_latbal is table of pay_assignment_latest_balances.latest_balance_id%type;
265: lat_bal_list t_latbal;
266: lv_proc_name varchar2(80);
267:
268: --
336: /* for albcrec in alatbalc loop
337: delete from pay_balance_context_values BCV
338: where BCV.latest_balance_id = albcrec.latest_balance_id;
339: --
340: delete from pay_assignment_latest_balances ALB
341: where ALB.latest_balance_id = albcrec.latest_balance_id;
342: end loop; */
343:
344: Delete_Proc_PAY_MGR (X_errbuf => X_errbuf,
680: fnd_file.put_line(fnd_file.log,'After AD_CONC_UTILS_PKG.submit_subrequests ');
681: End if;
682: exception
683: when no_data_found then
684: fnd_file.put_line(FND_FILE.LOG, 'No more deletions in pay_assignment_latest_balances.');
685:
686: end;
687: end if;
688: else
731: END Delete_Proc_PAY_MGR;
732:
733: ----------------------------------------------------------------------------------------
734: -- Name : Delete_Proc_PAY_WKR
735: -- Function : Worker process to delete from pay_assignment_latest_balances
736:
737: ----------------------------------------------------------------------------------------
738: PROCEDURE Delete_Proc_PAY_WKR (
739: X_errbuf out NOCOPY varchar2,
896: END Delete_Proc_PAY_WKR;
897:
898: -------------------------------------------------------------------------------------
899: -- Name : Delete_assnmnt_lat_bal
900: -- Function : To delete from pay_assignment_latest_balances for Assignment ID's
901: -- between to x_assnmnt_start_id and x_assnmnt_end_id .
902: -- Pre-reqs :
903: -- Parameters :
904: -- IN : x_assnmnt_start_id in number
934: select /*+ ORDERED INDEX (PLB PAY_ASSIGNMENT_LATEST_BALA_FK2)
935: USE_NL (PLB) */
936: plb.latest_balance_id
937: from pay_defined_balances pdb,
938: pay_assignment_latest_balances plb
939: where pdb.balance_type_id = p_balance_type_id
940: and plb.defined_balance_id = pdb.defined_balance_id
941: and plb.assignment_id between p_assnmnt_start_id and p_assnmnt_end_id
942: and exists (
955: select /*+ ORDERED INDEX (PLB PAY_ASSIGNMENT_LATEST_BALA_FK2)
956: USE_NL (PLB) */
957: plb.latest_balance_id
958: from pay_defined_balances pdb,
959: pay_assignment_latest_balances plb
960: where pdb.balance_type_id = p_balance_type_id
961: and plb.defined_balance_id = pdb.defined_balance_id
962: and plb.assignment_id between p_assnmnt_start_id and p_assnmnt_end_id;
963:
965: cursor pl_feed_chk_a(p_assnmnt_start_id in varchar2,
966: p_assnmnt_end_id in varchar2,
967: p_balance_type_id in varchar2) is
968: select alb.latest_balance_id
969: from pay_assignment_latest_balances alb,
970: pay_defined_balances pdb,
971: pay_balance_dimensions pbd
972: where pdb.balance_type_id = p_balance_type_id
973: and pdb.defined_balance_id = alb.defined_balance_id
981: lv_Error_msg varchar2(1000);
982: lv_application_name CONSTANT varchar2(10) := 'Payroll';
983: lv_debug_enabled boolean default FALSE;
984:
985: Type t_latbal is table of pay_assignment_latest_balances.latest_balance_id%type;
986: lat_bal_list t_latbal;
987: --
988: v_pay_value_name varchar2(80);
989:
1012: delete from pay_balance_context_values BCV
1013: where BCV.latest_balance_id = lat_bal_list(i);
1014:
1015: forall i in 1..lat_bal_list.count
1016: delete from pay_assignment_latest_balances ALB
1017: where ALB.latest_balance_id =lat_bal_list(i);
1018:
1019: exit when alatbalc%notfound;
1020: end loop;
1032: delete from pay_balance_context_values BCV
1033: where BCV.latest_balance_id = lat_bal_list(i);
1034:
1035: forall i in 1..lat_bal_list.count
1036: delete from pay_assignment_latest_balances ALB
1037: where ALB.latest_balance_id =lat_bal_list(i);
1038:
1039: exit when albc%notfound;
1040: end loop;
1055: delete from pay_balance_context_values bcv
1056: where bcv.latest_balance_id = lat_bal_list(i);
1057:
1058: forall i in 1..lat_bal_list.count
1059: delete from pay_assignment_latest_balances alb
1060: where alb.latest_balance_id =lat_bal_list(i);
1061:
1062: exit when pl_feed_chk_a%notfound;
1063: end loop;