828: l_rep_ent_exist := 0;
829:
830: -- information correct has to be 'Yes'.
831: if p_info_crct_flag = 'N' then
832: FND_MESSAGE.SET_NAME('IGI','IGI_CIS2007_SUB_VER_MAND_CP');
833: l_err_msg := FND_MESSAGE.GET;
834: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_err_msg);
835: l_err_all_msg := l_err_all_msg ||' '|| l_err_msg;
836: l_err_count := l_err_count + 1;
829:
830: -- information correct has to be 'Yes'.
831: if p_info_crct_flag = 'N' then
832: FND_MESSAGE.SET_NAME('IGI','IGI_CIS2007_SUB_VER_MAND_CP');
833: l_err_msg := FND_MESSAGE.GET;
834: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_err_msg);
835: l_err_all_msg := l_err_all_msg ||' '|| l_err_msg;
836: l_err_count := l_err_count + 1;
837: end if;
836: l_err_count := l_err_count + 1;
837: end if;
838: -- Subcontractor verification is mandatory
839: if p_nil_return_flag = 'N' and p_subcont_verify_flag is null then
840: FND_MESSAGE.SET_NAME('IGI','IGI_CIS2007_SUB_VER_MAND_CP');
841: l_err_msg := FND_MESSAGE.GET;
842: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_err_msg);
843: l_err_all_msg := l_err_all_msg ||' '|| l_err_msg;
844: l_err_count := l_err_count + 1;
837: end if;
838: -- Subcontractor verification is mandatory
839: if p_nil_return_flag = 'N' and p_subcont_verify_flag is null then
840: FND_MESSAGE.SET_NAME('IGI','IGI_CIS2007_SUB_VER_MAND_CP');
841: l_err_msg := FND_MESSAGE.GET;
842: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_err_msg);
843: l_err_all_msg := l_err_all_msg ||' '|| l_err_msg;
844: l_err_count := l_err_count + 1;
845: end if;
844: l_err_count := l_err_count + 1;
845: end if;
846: -- Employment Status declaration is mandatory
847: if p_nil_return_flag = 'N' and p_emp_status_flag is null then
848: FND_MESSAGE.SET_NAME('IGI','IGI_CIS2007_EMP_STAT_MAND_CP');
849: l_err_msg := FND_MESSAGE.GET;
850: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_err_msg);
851: l_err_all_msg := l_err_all_msg ||' '|| l_err_msg;
852: l_err_count := l_err_count + 1;
845: end if;
846: -- Employment Status declaration is mandatory
847: if p_nil_return_flag = 'N' and p_emp_status_flag is null then
848: FND_MESSAGE.SET_NAME('IGI','IGI_CIS2007_EMP_STAT_MAND_CP');
849: l_err_msg := FND_MESSAGE.GET;
850: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_err_msg);
851: l_err_all_msg := l_err_all_msg ||' '|| l_err_msg;
852: l_err_count := l_err_count + 1;
853: --IGI_CIS2007_EMP_STAT_MAND_CP
864: log(C_STATE_LEVEL, l_procedure_name, 'l_period_allowed='||l_period_allowed);
865: End loop;
866:
867: if l_period_allowed = 0 then
868: FND_MESSAGE.SET_NAME('IGI','IGI_CIS2007_MTH_RET_NA');
869: FND_MESSAGE.SET_TOKEN('PERIOD', p_period_name);
870: l_err_msg := FND_MESSAGE.GET;
871: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_err_msg);
872: l_err_all_msg := l_err_all_msg ||' '|| l_err_msg;
865: End loop;
866:
867: if l_period_allowed = 0 then
868: FND_MESSAGE.SET_NAME('IGI','IGI_CIS2007_MTH_RET_NA');
869: FND_MESSAGE.SET_TOKEN('PERIOD', p_period_name);
870: l_err_msg := FND_MESSAGE.GET;
871: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_err_msg);
872: l_err_all_msg := l_err_all_msg ||' '|| l_err_msg;
873: raise e_validation_exception;
866:
867: if l_period_allowed = 0 then
868: FND_MESSAGE.SET_NAME('IGI','IGI_CIS2007_MTH_RET_NA');
869: FND_MESSAGE.SET_TOKEN('PERIOD', p_period_name);
870: l_err_msg := FND_MESSAGE.GET;
871: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_err_msg);
872: l_err_all_msg := l_err_all_msg ||' '|| l_err_msg;
873: raise e_validation_exception;
874: End if;
890: log(C_STATE_LEVEL, l_procedure_name, 'l_nil_ret_count='||l_nil_ret_count);
891: log(C_STATE_LEVEL, l_procedure_name, 'l_non_nil_ret_count='||l_non_nil_ret_count);
892: End loop;
893: If l_nil_ret_count > 0 then
894: FND_MESSAGE.SET_NAME('IGI','IGI_CIS2007_NIL_RET_EXISTS');
895: FND_MESSAGE.SET_TOKEN('PERIOD_NAME', p_period_name);
896: l_err_msg := FND_MESSAGE.GET;
897: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_err_msg);
898: l_err_all_msg := l_err_all_msg ||' '|| l_err_msg;
891: log(C_STATE_LEVEL, l_procedure_name, 'l_non_nil_ret_count='||l_non_nil_ret_count);
892: End loop;
893: If l_nil_ret_count > 0 then
894: FND_MESSAGE.SET_NAME('IGI','IGI_CIS2007_NIL_RET_EXISTS');
895: FND_MESSAGE.SET_TOKEN('PERIOD_NAME', p_period_name);
896: l_err_msg := FND_MESSAGE.GET;
897: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_err_msg);
898: l_err_all_msg := l_err_all_msg ||' '|| l_err_msg;
899: raise e_validation_exception;
892: End loop;
893: If l_nil_ret_count > 0 then
894: FND_MESSAGE.SET_NAME('IGI','IGI_CIS2007_NIL_RET_EXISTS');
895: FND_MESSAGE.SET_TOKEN('PERIOD_NAME', p_period_name);
896: l_err_msg := FND_MESSAGE.GET;
897: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_err_msg);
898: l_err_all_msg := l_err_all_msg ||' '|| l_err_msg;
899: raise e_validation_exception;
900: End if;
901: --
902: -- Throw error if there is a Non nil return already.
903: --
904: If l_non_nil_ret_count > 0 then
905: FND_MESSAGE.SET_NAME('IGI','IGI_CIS2007_MTH_RET_EXISTS');
906: FND_MESSAGE.SET_TOKEN('PERIOD_NAME', p_period_name);
907: l_err_msg := FND_MESSAGE.GET;
908: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_err_msg);
909: l_err_all_msg := l_err_all_msg ||' '|| l_err_msg;
902: -- Throw error if there is a Non nil return already.
903: --
904: If l_non_nil_ret_count > 0 then
905: FND_MESSAGE.SET_NAME('IGI','IGI_CIS2007_MTH_RET_EXISTS');
906: FND_MESSAGE.SET_TOKEN('PERIOD_NAME', p_period_name);
907: l_err_msg := FND_MESSAGE.GET;
908: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_err_msg);
909: l_err_all_msg := l_err_all_msg ||' '|| l_err_msg;
910: raise e_validation_exception;
903: --
904: If l_non_nil_ret_count > 0 then
905: FND_MESSAGE.SET_NAME('IGI','IGI_CIS2007_MTH_RET_EXISTS');
906: FND_MESSAGE.SET_TOKEN('PERIOD_NAME', p_period_name);
907: l_err_msg := FND_MESSAGE.GET;
908: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_err_msg);
909: l_err_all_msg := l_err_all_msg ||' '|| l_err_msg;
910: raise e_validation_exception;
911: End if;
922: --
923: -- throw error if there are payments for nil return
924: --
925: if l_pay_count > 0 and p_nil_return_flag = 'Y' then
926: FND_MESSAGE.SET_NAME('IGI','IGI_CIS2007_VENDORS_PAID');
927: FND_MESSAGE.SET_TOKEN('PERIOD', p_period_name);
928: l_err_msg := FND_MESSAGE.GET;
929: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_err_msg);
930: l_err_all_msg := l_err_all_msg ||' '|| l_err_msg;
923: -- throw error if there are payments for nil return
924: --
925: if l_pay_count > 0 and p_nil_return_flag = 'Y' then
926: FND_MESSAGE.SET_NAME('IGI','IGI_CIS2007_VENDORS_PAID');
927: FND_MESSAGE.SET_TOKEN('PERIOD', p_period_name);
928: l_err_msg := FND_MESSAGE.GET;
929: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_err_msg);
930: l_err_all_msg := l_err_all_msg ||' '|| l_err_msg;
931: raise e_validation_exception;
924: --
925: if l_pay_count > 0 and p_nil_return_flag = 'Y' then
926: FND_MESSAGE.SET_NAME('IGI','IGI_CIS2007_VENDORS_PAID');
927: FND_MESSAGE.SET_TOKEN('PERIOD', p_period_name);
928: l_err_msg := FND_MESSAGE.GET;
929: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_err_msg);
930: l_err_all_msg := l_err_all_msg ||' '|| l_err_msg;
931: raise e_validation_exception;
932: end if;
933: --
934: -- throw error if there are no payments for non-nil return
935: --
936: if l_pay_count = 0 and p_nil_return_flag = 'N' then
937: FND_MESSAGE.SET_NAME('IGI','IGI_CIS2007_NO_VENDORS_PAID');
938: FND_MESSAGE.SET_TOKEN('PERIOD', p_period_name);
939: l_err_msg := FND_MESSAGE.GET;
940: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_err_msg);
941: l_err_all_msg := l_err_all_msg ||' '|| l_err_msg;
934: -- throw error if there are no payments for non-nil return
935: --
936: if l_pay_count = 0 and p_nil_return_flag = 'N' then
937: FND_MESSAGE.SET_NAME('IGI','IGI_CIS2007_NO_VENDORS_PAID');
938: FND_MESSAGE.SET_TOKEN('PERIOD', p_period_name);
939: l_err_msg := FND_MESSAGE.GET;
940: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_err_msg);
941: l_err_all_msg := l_err_all_msg ||' '|| l_err_msg;
942: raise e_validation_exception;
935: --
936: if l_pay_count = 0 and p_nil_return_flag = 'N' then
937: FND_MESSAGE.SET_NAME('IGI','IGI_CIS2007_NO_VENDORS_PAID');
938: FND_MESSAGE.SET_TOKEN('PERIOD', p_period_name);
939: l_err_msg := FND_MESSAGE.GET;
940: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_err_msg);
941: l_err_all_msg := l_err_all_msg ||' '|| l_err_msg;
942: raise e_validation_exception;
943: end if;