584: lv_debug_enabled := FALSE;
585:
586:
587: If lv_debug_enabled then
588: fnd_file.put_line(fnd_file.log,'Enter :'||l_module);
589: End if;
590:
591: l_stmt_num :=0;
592: l_stmt_num :=5;
632: lv_Num_Workers := X_Num_Workers;
633: /* Get the Pay Action Parameter Value of THREADS */
634:
635: If lv_debug_enabled then
636: fnd_file.put_line(fnd_file.log,'Before pay_core_utils.get_action_parameter ');
637: End if;
638:
639: pay_core_utils.get_action_parameter('THREADS',lv_Num_Workers,lv_param_found);
640:
642: lv_Num_Workers := x_Num_Workers;
643: end if;
644:
645: If lv_debug_enabled then
646: fnd_file.put_line(fnd_file.log,'No of Workers :'||to_char(lv_Num_Workers));
647: End if;
648:
649: If lv_debug_enabled then
650: fnd_file.put_line(fnd_file.log,'After pay_core_utils.get_action_parameter ');
646: fnd_file.put_line(fnd_file.log,'No of Workers :'||to_char(lv_Num_Workers));
647: End if;
648:
649: If lv_debug_enabled then
650: fnd_file.put_line(fnd_file.log,'After pay_core_utils.get_action_parameter ');
651: End if;
652:
653: begin
654:
652:
653: begin
654:
655: If lv_debug_enabled then
656: fnd_file.put_line(fnd_file.log,'Before AD_CONC_UTILS_PKG.submit_subrequests ');
657: End if;
658:
659: AD_CONC_UTILS_PKG.submit_subrequests(
660: X_errbuf=>X_errbuf,
671: X_Argument9 => null,
672: X_Argument10 => null);
673:
674: exception when others then
675: fnd_file.put_line(FND_FILE.LOG,'Error '||sqlcode ||' '||sqlerrm);
676:
677: end;
678:
679: If lv_debug_enabled then
676:
677: end;
678:
679: If lv_debug_enabled then
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.');
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
701: end loop;
702: end if;
703:
704: If lv_debug_enabled then
705: fnd_file.put_line(fnd_file.log,'Leaving :'||l_module);
706: End if;
707:
708: EXCEPTION
709: WHEN submit_conc_failed THEN
778: lv_debug_enabled := FALSE;
779:
780:
781: If lv_debug_enabled then
782: fnd_file.put_line(fnd_file.log,'Enter :'||l_module);
783: End if;
784: --
785: BEGIN
786: l_stmt_num :=10;
813: while (l_any_rows_to_process = TRUE)
814: loop
815: l_stmt_num :=30;
816: If lv_debug_enabled then
817: fnd_file.put_line(fnd_file.log,'Before calling Update_Payroll_Subledger');
818: fnd_file.put_line(fnd_file.log,'l_start_id :'||l_start_id);
819: fnd_file.put_line(fnd_file.log,'l_end_id :'||l_end_id);
820: End if;
821:
814: loop
815: l_stmt_num :=30;
816: If lv_debug_enabled then
817: fnd_file.put_line(fnd_file.log,'Before calling Update_Payroll_Subledger');
818: fnd_file.put_line(fnd_file.log,'l_start_id :'||l_start_id);
819: fnd_file.put_line(fnd_file.log,'l_end_id :'||l_end_id);
820: End if;
821:
822: PAY_BALANCE_FEED_DEL_PKG.Delete_assnmnt_lat_bal(
815: l_stmt_num :=30;
816: If lv_debug_enabled then
817: fnd_file.put_line(fnd_file.log,'Before calling Update_Payroll_Subledger');
818: fnd_file.put_line(fnd_file.log,'l_start_id :'||l_start_id);
819: fnd_file.put_line(fnd_file.log,'l_end_id :'||l_end_id);
820: End if;
821:
822: PAY_BALANCE_FEED_DEL_PKG.Delete_assnmnt_lat_bal(
823: X_errbuf=>X_errbuf,
828: p_balance_type_id=>X_Argument5,
829: P_input_value_id=>X_Argument6);
830:
831: If lv_debug_enabled then
832: fnd_file.put_line(fnd_file.log,'After calling Update_Payroll_Subledger');
833: End if;
834:
835: if (X_retcode <>FND_API.G_RET_STS_SUCCESS) then
836: raise update_exception;
865: raise;
866: END;
867:
868: If lv_debug_enabled then
869: fnd_file.put_line(fnd_file.log,'Leaving :'||l_module);
870: End if;
871:
872: EXCEPTION
873: WHEN update_exception THEN
993: lv_debug_enabled := FALSE;
994:
995:
996: If lv_debug_enabled then
997: fnd_file.put_line(fnd_file.log,'Enter :'||l_module);
998: fnd_file.put_line(fnd_file.log,'In X_ASSNMNT_START_ID :'|| to_char(x_assnmnt_start_id));
999: fnd_file.put_line(fnd_file.log,'In X_ASSNMNT_END_ID :'|| to_char(x_assnmnt_end_id));
1000: fnd_file.put_line(fnd_file.log,'In P_CURSOR :'|| to_char(p_cursor));
1001: fnd_file.put_line(fnd_file.log,'In P_BALANCE_TYPE_ID :'|| to_char(p_balance_type_id));
994:
995:
996: If lv_debug_enabled then
997: fnd_file.put_line(fnd_file.log,'Enter :'||l_module);
998: fnd_file.put_line(fnd_file.log,'In X_ASSNMNT_START_ID :'|| to_char(x_assnmnt_start_id));
999: fnd_file.put_line(fnd_file.log,'In X_ASSNMNT_END_ID :'|| to_char(x_assnmnt_end_id));
1000: fnd_file.put_line(fnd_file.log,'In P_CURSOR :'|| to_char(p_cursor));
1001: fnd_file.put_line(fnd_file.log,'In P_BALANCE_TYPE_ID :'|| to_char(p_balance_type_id));
1002: fnd_file.put_line(fnd_file.log,'In P_INPUT_VALUE_ID :'|| to_char(p_input_value_id));
995:
996: If lv_debug_enabled then
997: fnd_file.put_line(fnd_file.log,'Enter :'||l_module);
998: fnd_file.put_line(fnd_file.log,'In X_ASSNMNT_START_ID :'|| to_char(x_assnmnt_start_id));
999: fnd_file.put_line(fnd_file.log,'In X_ASSNMNT_END_ID :'|| to_char(x_assnmnt_end_id));
1000: fnd_file.put_line(fnd_file.log,'In P_CURSOR :'|| to_char(p_cursor));
1001: fnd_file.put_line(fnd_file.log,'In P_BALANCE_TYPE_ID :'|| to_char(p_balance_type_id));
1002: fnd_file.put_line(fnd_file.log,'In P_INPUT_VALUE_ID :'|| to_char(p_input_value_id));
1003: End if;
996: If lv_debug_enabled then
997: fnd_file.put_line(fnd_file.log,'Enter :'||l_module);
998: fnd_file.put_line(fnd_file.log,'In X_ASSNMNT_START_ID :'|| to_char(x_assnmnt_start_id));
999: fnd_file.put_line(fnd_file.log,'In X_ASSNMNT_END_ID :'|| to_char(x_assnmnt_end_id));
1000: fnd_file.put_line(fnd_file.log,'In P_CURSOR :'|| to_char(p_cursor));
1001: fnd_file.put_line(fnd_file.log,'In P_BALANCE_TYPE_ID :'|| to_char(p_balance_type_id));
1002: fnd_file.put_line(fnd_file.log,'In P_INPUT_VALUE_ID :'|| to_char(p_input_value_id));
1003: End if;
1004:
997: fnd_file.put_line(fnd_file.log,'Enter :'||l_module);
998: fnd_file.put_line(fnd_file.log,'In X_ASSNMNT_START_ID :'|| to_char(x_assnmnt_start_id));
999: fnd_file.put_line(fnd_file.log,'In X_ASSNMNT_END_ID :'|| to_char(x_assnmnt_end_id));
1000: fnd_file.put_line(fnd_file.log,'In P_CURSOR :'|| to_char(p_cursor));
1001: fnd_file.put_line(fnd_file.log,'In P_BALANCE_TYPE_ID :'|| to_char(p_balance_type_id));
1002: fnd_file.put_line(fnd_file.log,'In P_INPUT_VALUE_ID :'|| to_char(p_input_value_id));
1003: End if;
1004:
1005: If p_cursor = 'alatbalc' then
998: fnd_file.put_line(fnd_file.log,'In X_ASSNMNT_START_ID :'|| to_char(x_assnmnt_start_id));
999: fnd_file.put_line(fnd_file.log,'In X_ASSNMNT_END_ID :'|| to_char(x_assnmnt_end_id));
1000: fnd_file.put_line(fnd_file.log,'In P_CURSOR :'|| to_char(p_cursor));
1001: fnd_file.put_line(fnd_file.log,'In P_BALANCE_TYPE_ID :'|| to_char(p_balance_type_id));
1002: fnd_file.put_line(fnd_file.log,'In P_INPUT_VALUE_ID :'|| to_char(p_input_value_id));
1003: End if;
1004:
1005: If p_cursor = 'alatbalc' then
1006:
1072:
1073: --
1074:
1075: If lv_debug_enabled then
1076: fnd_file.put_line(fnd_file.log,'Leaving :'||l_module);
1077: End if;
1078: commit;
1079:
1080: EXCEPTION when others then
1080: EXCEPTION when others then
1081: Rollback;
1082: X_errbuf:=l_module||': '|| SQLERRM;
1083: X_retcode := AD_CONC_UTILS_PKG.CONC_FAIL;
1084: fnd_file.put_line(FND_FILE.LOG,'Error Update_Payroll_Subledger '||SQLCODE||' '||SQLERRM);
1085: end Delete_assnmnt_lat_bal;
1086:
1087: END PAY_BALANCE_FEED_DEL_PKG;