98: close csr_sec_grp;
99: --
100: -- The primary key is invalid therefore we must error
101: --
102: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
103: fnd_message.raise_error;
104: --
105: end if;
106: close csr_sec_grp;
99: --
100: -- The primary key is invalid therefore we must error
101: --
102: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
103: fnd_message.raise_error;
104: --
105: end if;
106: close csr_sec_grp;
107: --
621: p_effective_date => p_effective_date) then
622: --
623: -- raise error as does not exist as lookup
624: --
625: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
626: fnd_message.set_token('FIELD','p_oper_cd');
627: fnd_message.set_token('TYPE','BEN_EXT_OPER');
628: fnd_message.raise_error;
629: --
622: --
623: -- raise error as does not exist as lookup
624: --
625: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
626: fnd_message.set_token('FIELD','p_oper_cd');
627: fnd_message.set_token('TYPE','BEN_EXT_OPER');
628: fnd_message.raise_error;
629: --
630: end if;
623: -- raise error as does not exist as lookup
624: --
625: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
626: fnd_message.set_token('FIELD','p_oper_cd');
627: fnd_message.set_token('TYPE','BEN_EXT_OPER');
628: fnd_message.raise_error;
629: --
630: end if;
631: else
624: --
625: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
626: fnd_message.set_token('FIELD','p_oper_cd');
627: fnd_message.set_token('TYPE','BEN_EXT_OPER');
628: fnd_message.raise_error;
629: --
630: end if;
631: else
632: /* BG is null, so alternative call is required */
636: p_effective_date => p_effective_date) then
637: --
638: -- raise error as does not exist as lookup
639: --
640: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
641: fnd_message.set_token('FIELD','p_oper_cd');
642: fnd_message.set_token('TYPE','BEN_EXT_OPER');
643: fnd_message.raise_error;
644: --
637: --
638: -- raise error as does not exist as lookup
639: --
640: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
641: fnd_message.set_token('FIELD','p_oper_cd');
642: fnd_message.set_token('TYPE','BEN_EXT_OPER');
643: fnd_message.raise_error;
644: --
645: end if;
638: -- raise error as does not exist as lookup
639: --
640: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
641: fnd_message.set_token('FIELD','p_oper_cd');
642: fnd_message.set_token('TYPE','BEN_EXT_OPER');
643: fnd_message.raise_error;
644: --
645: end if;
646: end if;
639: --
640: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
641: fnd_message.set_token('FIELD','p_oper_cd');
642: fnd_message.set_token('TYPE','BEN_EXT_OPER');
643: fnd_message.raise_error;
644: --
645: end if;
646: end if;
647: --
710: p_effective_date => p_effective_date) then
711: --
712: -- raise error as does not exist as lookup
713: --
714: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
715: fnd_message.set_token('FIELD','p_and_or_cd');
716: fnd_message.set_token('TYPE','BEN_EXT_AND_OR');
717: fnd_message.raise_error;
718: --
711: --
712: -- raise error as does not exist as lookup
713: --
714: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
715: fnd_message.set_token('FIELD','p_and_or_cd');
716: fnd_message.set_token('TYPE','BEN_EXT_AND_OR');
717: fnd_message.raise_error;
718: --
719: end if;
712: -- raise error as does not exist as lookup
713: --
714: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
715: fnd_message.set_token('FIELD','p_and_or_cd');
716: fnd_message.set_token('TYPE','BEN_EXT_AND_OR');
717: fnd_message.raise_error;
718: --
719: end if;
720: else
713: --
714: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
715: fnd_message.set_token('FIELD','p_and_or_cd');
716: fnd_message.set_token('TYPE','BEN_EXT_AND_OR');
717: fnd_message.raise_error;
718: --
719: end if;
720: else
721: /* BG is null, so alternative call is required */
725: p_effective_date => p_effective_date) then
726: --
727: -- raise error as does not exist as lookup
728: --
729: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
730: fnd_message.set_token('FIELD','p_and_or_cd');
731: fnd_message.set_token('TYPE','BEN_EXT_AND_OR');
732: fnd_message.raise_error;
733: --
726: --
727: -- raise error as does not exist as lookup
728: --
729: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
730: fnd_message.set_token('FIELD','p_and_or_cd');
731: fnd_message.set_token('TYPE','BEN_EXT_AND_OR');
732: fnd_message.raise_error;
733: --
734: end if;
727: -- raise error as does not exist as lookup
728: --
729: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
730: fnd_message.set_token('FIELD','p_and_or_cd');
731: fnd_message.set_token('TYPE','BEN_EXT_AND_OR');
732: fnd_message.raise_error;
733: --
734: end if;
735: end if;
728: --
729: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
730: fnd_message.set_token('FIELD','p_and_or_cd');
731: fnd_message.set_token('TYPE','BEN_EXT_AND_OR');
732: fnd_message.raise_error;
733: --
734: end if;
735: end if;
736: --
810: -- make sure the p_val string starts with ' or (
811: -- make sure no function is callled from here
812:
813: if not (substr( ltrim(rtrim(p_val)),1,1) = '''' or substr( ltrim(rtrim(p_val)),1,1) = '(' ) then
814: fnd_message.set_name('BEN','BEN_92302_DYN_SQL_ERROR');
815: fnd_message.raise_error;
816: end if ;
817:
818: --if the first string starts with ( then the second string should be '
811: -- make sure no function is callled from here
812:
813: if not (substr( ltrim(rtrim(p_val)),1,1) = '''' or substr( ltrim(rtrim(p_val)),1,1) = '(' ) then
814: fnd_message.set_name('BEN','BEN_92302_DYN_SQL_ERROR');
815: fnd_message.raise_error;
816: end if ;
817:
818: --if the first string starts with ( then the second string should be '
819: -- to avoid ( tilak() ) kind
818: --if the first string starts with ( then the second string should be '
819: -- to avoid ( tilak() ) kind
820: if substr( ltrim(rtrim(p_val)),1,1) = '(' then
821: if substr( rtrim(ltrim( substr(ltrim(rtrim(p_val)),2)) ), 1,1) <> '''' then
822: fnd_message.set_name('BEN','BEN_92302_DYN_SQL_ERROR');
823: fnd_message.raise_error;
824: end if ;
825: end if ;
826:
819: -- to avoid ( tilak() ) kind
820: if substr( ltrim(rtrim(p_val)),1,1) = '(' then
821: if substr( rtrim(ltrim( substr(ltrim(rtrim(p_val)),2)) ), 1,1) <> '''' then
822: fnd_message.set_name('BEN','BEN_92302_DYN_SQL_ERROR');
823: fnd_message.raise_error;
824: end if ;
825: end if ;
826:
827: -- make sure the last string also the ' or ) , between amy call with sceond string as function
826:
827: -- make sure the last string also the ' or ) , between amy call with sceond string as function
828: -- to avoid '0000' and tilak() kind
829: if not (substr( ltrim(rtrim(p_val)), -1) = '''' or substr( ltrim(rtrim(p_val)),-1) = ')' ) then
830: fnd_message.set_name('BEN','BEN_92302_DYN_SQL_ERROR');
831: fnd_message.raise_error;
832: end if ;
833:
834: -- to avoid '0000' and ( tilak () ) kind
827: -- make sure the last string also the ' or ) , between amy call with sceond string as function
828: -- to avoid '0000' and tilak() kind
829: if not (substr( ltrim(rtrim(p_val)), -1) = '''' or substr( ltrim(rtrim(p_val)),-1) = ')' ) then
830: fnd_message.set_name('BEN','BEN_92302_DYN_SQL_ERROR');
831: fnd_message.raise_error;
832: end if ;
833:
834: -- to avoid '0000' and ( tilak () ) kind
835:
835:
836: if substr( ltrim(rtrim(p_val)),-1) = ')' then
837: l_str := substr(rtrim(p_val), 1, length(rtrim(p_val)) -1 ) ;
838: if substr( ltrim(rtrim(l_str)),-1) <> '''' then
839: fnd_message.set_name('BEN','BEN_92302_DYN_SQL_ERROR');
840: fnd_message.raise_error;
841: end if ;
842: end if ;
843:
836: if substr( ltrim(rtrim(p_val)),-1) = ')' then
837: l_str := substr(rtrim(p_val), 1, length(rtrim(p_val)) -1 ) ;
838: if substr( ltrim(rtrim(l_str)),-1) <> '''' then
839: fnd_message.set_name('BEN','BEN_92302_DYN_SQL_ERROR');
840: fnd_message.raise_error;
841: end if ;
842: end if ;
843:
844: -- to avoid '0000' and tilak('xxxx')
845: if p_oper_cd = 'BETWEEN' then
846: l_str := ltrim( substr( p_val, instr(upper(p_val),'AND')+3)) ;
847:
848: if not (substr( ltrim(rtrim(l_str)),1,1) = '''' or substr( ltrim(rtrim(l_str)),1,1) = '(' ) then
849: fnd_message.set_name('BEN','BEN_92302_DYN_SQL_ERROR');
850: fnd_message.raise_error;
851: end if ;
852:
853: -- to avoid ( tilak() ) kind
846: l_str := ltrim( substr( p_val, instr(upper(p_val),'AND')+3)) ;
847:
848: if not (substr( ltrim(rtrim(l_str)),1,1) = '''' or substr( ltrim(rtrim(l_str)),1,1) = '(' ) then
849: fnd_message.set_name('BEN','BEN_92302_DYN_SQL_ERROR');
850: fnd_message.raise_error;
851: end if ;
852:
853: -- to avoid ( tilak() ) kind
854: if substr( ltrim(rtrim(l_str)),1,1) = '(' then
852:
853: -- to avoid ( tilak() ) kind
854: if substr( ltrim(rtrim(l_str)),1,1) = '(' then
855: if substr( rtrim(ltrim( substr(ltrim(rtrim(l_str)),2)) ), 1,1) <> '''' then
856: fnd_message.set_name('BEN','BEN_92302_DYN_SQL_ERROR');
857: fnd_message.raise_error;
858: end if ;
859: end if ;
860:
853: -- to avoid ( tilak() ) kind
854: if substr( ltrim(rtrim(l_str)),1,1) = '(' then
855: if substr( rtrim(ltrim( substr(ltrim(rtrim(l_str)),2)) ), 1,1) <> '''' then
856: fnd_message.set_name('BEN','BEN_92302_DYN_SQL_ERROR');
857: fnd_message.raise_error;
858: end if ;
859: end if ;
860:
861: end if ;
861: end if ;
862:
863: -- to avoid 'xxxx'||tilak()||'xxx'
864: if instr(p_val , '||') > 0 then
865: fnd_message.set_name('BEN','BEN_92302_DYN_SQL_ERROR');
866: fnd_message.raise_error;
867: end if ;
868:
869: l_dynamic_condition := 'Begin If ''TestValue '' ' || p_oper_cd || ' ' || p_val ||
862:
863: -- to avoid 'xxxx'||tilak()||'xxx'
864: if instr(p_val , '||') > 0 then
865: fnd_message.set_name('BEN','BEN_92302_DYN_SQL_ERROR');
866: fnd_message.raise_error;
867: end if ;
868:
869: l_dynamic_condition := 'Begin If ''TestValue '' ' || p_oper_cd || ' ' || p_val ||
870: ' then null; end if; end;';
872: begin
873: execute immediate l_dynamic_condition;
874: exception
875: when others then
876: fnd_message.set_name('BEN','BEN_92302_DYN_SQL_ERROR');
877: fnd_message.raise_error;
878: end;
879: end if;
880: end if ;
873: execute immediate l_dynamic_condition;
874: exception
875: when others then
876: fnd_message.set_name('BEN','BEN_92302_DYN_SQL_ERROR');
877: fnd_message.raise_error;
878: end;
879: end if;
880: end if ;
881: --
933: Fetch c_xwc into l_Dummy;
934: If c_xwc%FOUND then
935: Close c_xwc ;
936: -- Raise Sequence Error
937: fnd_message.set_name('BEN','BEN_94223_DUP_ORDR_NUM');
938: fnd_message.raise_error;
939: End If;
940: Close c_xwc;
941: --
934: If c_xwc%FOUND then
935: Close c_xwc ;
936: -- Raise Sequence Error
937: fnd_message.set_name('BEN','BEN_94223_DUP_ORDR_NUM');
938: fnd_message.raise_error;
939: End If;
940: Close c_xwc;
941: --
942: End if;
1172: close csr_leg_code;
1173: --
1174: -- The primary key is invalid therefore we must error
1175: --
1176: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
1177: fnd_message.raise_error;
1178: --
1179: end if;
1180: --
1173: --
1174: -- The primary key is invalid therefore we must error
1175: --
1176: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
1177: fnd_message.raise_error;
1178: --
1179: end if;
1180: --
1181: close csr_leg_code;