[Home] [Help]
121: -- This is the Main procedure which is being called by Concurrent process
122: -- Input parameter is Batch Name
123: -- fetches all records from psp_distribution_interface table belongs to given batch name and
124: -- validates each record whether it is valid or not.
125: -- If all records are valid then imports into psp_pre_gen_dist_lines table and marks as Transfered in
126: -- psp_distribution_interface table
127: --
128: PROCEDURE IMPORT_PREGEN_LINES (ERRBUF OUT NOCOPY Varchar2,
129: RETCODE OUT NOCOPY Number,
710: --For Bug 2096440 : Moved the END IF above , the check for l_batch_status=1 has to be applicable for autopop 'Y' as well as 'N'
711: -- end if; /* Bug 2007521: Optimization */
712: --
713: if l_batch_status = 0 then
714: INSERT INTO PSP_PRE_GEN_DIST_LINES ( pre_gen_dist_line_id,
715: distribution_interface_id,
716: person_id,
717: assignment_id,
718: element_type_id,
903: fnd_msg_pub.add_exc_msg('PSP_PREGEN','Error while inserting data in Payroll Controls');
904: raise FND_API.G_EXC_UNEXPECTED_ERROR;
905: end if;
906: --dbms_output.PUT_LINE('...Before Updating control_id in pre gen ' );
907: UPDATE psp_pre_gen_dist_lines
908: SET payroll_control_id = l_control_id
909: WHERE time_period_id = l_ft_time_period_id and
910: batch_name = p_batch_name and
911: source_type = 'P' and
991: fnd_msg_pub.add_exc_msg('PSP_PREGEN','Error while inserting data in Payroll Controls');
992: raise FND_API.G_EXC_UNEXPECTED_ERROR;
993: end if;
994: --dbms_output.PUT_LINE('...Before Updating control_id in pre gen ' );
995: UPDATE psp_pre_gen_dist_lines
996: SET payroll_control_id = l_control_id
997: WHERE time_period_id = l_ft_time_period_id and
998: batch_name = p_batch_name and
999: source_type = 'P' and