[Home] [Help]
596: -- information correct has to be 'Yes'.
597: if p_info_crct_flag = 'N' then
598: FND_MESSAGE.SET_NAME('IGI','IGI_CIS2007_SUB_VER_MAND_CP');
599: l_err_msg := FND_MESSAGE.GET;
600: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_err_msg);
601: l_err_all_msg := l_err_all_msg ||' '|| l_err_msg;
602: l_err_count := l_err_count + 1;
603: end if;
604: -- Subcontractor verification is mandatory
604: -- Subcontractor verification is mandatory
605: if p_nil_return_flag = 'N' and p_subcont_verify_flag is null then
606: FND_MESSAGE.SET_NAME('IGI','IGI_CIS2007_SUB_VER_MAND_CP');
607: l_err_msg := FND_MESSAGE.GET;
608: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_err_msg);
609: l_err_all_msg := l_err_all_msg ||' '|| l_err_msg;
610: l_err_count := l_err_count + 1;
611: end if;
612: -- Employment Status declaration is mandatory
612: -- Employment Status declaration is mandatory
613: if p_nil_return_flag = 'N' and p_emp_status_flag is null then
614: FND_MESSAGE.SET_NAME('IGI','IGI_CIS2007_EMP_STAT_MAND_CP');
615: l_err_msg := FND_MESSAGE.GET;
616: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_err_msg);
617: l_err_all_msg := l_err_all_msg ||' '|| l_err_msg;
618: l_err_count := l_err_count + 1;
619: --IGI_CIS2007_EMP_STAT_MAND_CP
620: end if;
632: if l_period_allowed = 0 then
633: FND_MESSAGE.SET_NAME('IGI','IGI_CIS2007_MTH_RET_NA');
634: FND_MESSAGE.SET_TOKEN('PERIOD', p_period_name);
635: l_err_msg := FND_MESSAGE.GET;
636: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_err_msg);
637: l_err_all_msg := l_err_all_msg ||' '|| l_err_msg;
638: raise e_validation_exception;
639: End if;
640:
653: If l_nil_ret_count > 0 then
654: FND_MESSAGE.SET_NAME('IGI','IGI_CIS2007_NIL_RET_EXISTS');
655: FND_MESSAGE.SET_TOKEN('PERIOD_NAME', p_period_name);
656: l_err_msg := FND_MESSAGE.GET;
657: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_err_msg);
658: l_err_all_msg := l_err_all_msg ||' '|| l_err_msg;
659: raise e_validation_exception;
660: End if;
661: --
664: If l_non_nil_ret_count > 0 then
665: FND_MESSAGE.SET_NAME('IGI','IGI_CIS2007_MTH_RET_EXISTS');
666: FND_MESSAGE.SET_TOKEN('PERIOD_NAME', p_period_name);
667: l_err_msg := FND_MESSAGE.GET;
668: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_err_msg);
669: l_err_all_msg := l_err_all_msg ||' '|| l_err_msg;
670: raise e_validation_exception;
671: End if;
672: -- Procedure call to calculate the payments
683: if l_pay_count > 0 and p_nil_return_flag = 'Y' then
684: FND_MESSAGE.SET_NAME('IGI','IGI_CIS2007_VENDORS_PAID');
685: FND_MESSAGE.SET_TOKEN('PERIOD', p_period_name);
686: l_err_msg := FND_MESSAGE.GET;
687: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_err_msg);
688: l_err_all_msg := l_err_all_msg ||' '|| l_err_msg;
689: raise e_validation_exception;
690: end if;
691: --
694: if l_pay_count = 0 and p_nil_return_flag = 'N' then
695: FND_MESSAGE.SET_NAME('IGI','IGI_CIS2007_NO_VENDORS_PAID');
696: FND_MESSAGE.SET_TOKEN('PERIOD', p_period_name);
697: l_err_msg := FND_MESSAGE.GET;
698: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_err_msg);
699: l_err_all_msg := l_err_all_msg ||' '|| l_err_msg;
700: raise e_validation_exception;
701: end if;
702: --
705: SELECT IGI_CIS_MTH_RET_HDR_T_S.nextval
706: INTO l_header_id
707: FROM dual;
708: -- for debugging
709: FND_FILE.PUT_LINE(FND_FILE.LOG,'Header Id: ' || l_header_id);
710: --
711: -- populate the header_table
712: --
713: For C_rep_entity_rec in C_rep_entity loop
712: --
713: For C_rep_entity_rec in C_rep_entity loop
714: l_org_id := C_rep_entity_rec.ORG_ID;
715: -- for debugging
716: FND_FILE.PUT_LINE(FND_FILE.LOG,'Org id: ' || l_org_id);
717:
718: insert into igi_cis_mth_ret_hdr_t(
719: HEADER_ID,
720: ORG_ID,
771: end loop;
772: -- for debugging
773: if l_rep_ent_exist <> 1 then
774: l_err_msg := 'Reporting Entites Not Found';
775: FND_FILE.PUT_LINE(FND_FILE.LOG,l_err_msg);
776: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_err_msg);
777: raise e_rep_ent_not_found_error;
778: End if;
779: FND_FILE.PUT_LINE(FND_FILE.LOG,'Header table is populated');
772: -- for debugging
773: if l_rep_ent_exist <> 1 then
774: l_err_msg := 'Reporting Entites Not Found';
775: FND_FILE.PUT_LINE(FND_FILE.LOG,l_err_msg);
776: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_err_msg);
777: raise e_rep_ent_not_found_error;
778: End if;
779: FND_FILE.PUT_LINE(FND_FILE.LOG,'Header table is populated');
780: --
775: FND_FILE.PUT_LINE(FND_FILE.LOG,l_err_msg);
776: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_err_msg);
777: raise e_rep_ent_not_found_error;
778: End if;
779: FND_FILE.PUT_LINE(FND_FILE.LOG,'Header table is populated');
780: --
781: -- populate the lines table
782: --
783: if p_nil_return_flag = 'Y' then
893: );
894: End loop;
895: End if;
896: -- for debugging
897: FND_FILE.PUT_LINE(FND_FILE.LOG,'Lines table is populated');
898: --
899: -- populate the payments table
900: --
901: insert into igi_cis_mth_ret_pay_t
935: sysdate,
936: FND_GLOBAL.USER_ID()
937: from igi_cis_mth_ret_pay_gt;
938: -- for debugging
939: FND_FILE.PUT_LINE(FND_FILE.LOG,'Payments table is populated');
940: commit;
941: --
942: -- submit the CP request to run the subcontractor deduction report
943: --
1047: if p_mth_ret_mode = 'F' then
1048: MOVE_TO_HISTORY(l_prelim_hdr_id, 'C');
1049: --- commit and run the report
1050: commit;
1051: FND_FILE.PUT_LINE(FND_FILE.LOG,'Records moved to History tables successfully ');
1052: --
1053: -- submit the CP request to run the subcontractor deduction report
1054: --
1055: IF (p_mth_report_template is NULL OR p_mth_report_format is NULL) THEN
1117: errbuf := l_err_msg;
1118: retcode := 2;
1119: when others then
1120: -- for debugging
1121: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error in processing' || sqlerrm);
1122: -- rollback the insert and updates
1123: rollback;
1124: errbuf := sqlerrm;
1125: retcode := 2;