178: --
179: -- When not found, raise error.
180: --
181: if l_elm_rec.element_type_id is NULL then
182: hr_utility.set_message(801,'HR_7478_PLK_INCONSISTENT_ELE');
183: hr_utility.set_message_token('ELEMENT_TYPE_ID',NULL);
184: hr_utility.set_message_token('ELEMENT_NAME',p_elm_code_tbl(l_index));
185: hr_utility.raise_error;
186: else
179: -- When not found, raise error.
180: --
181: if l_elm_rec.element_type_id is NULL then
182: hr_utility.set_message(801,'HR_7478_PLK_INCONSISTENT_ELE');
183: hr_utility.set_message_token('ELEMENT_TYPE_ID',NULL);
184: hr_utility.set_message_token('ELEMENT_NAME',p_elm_code_tbl(l_index));
185: hr_utility.raise_error;
186: else
187: p_elm_rec_tbl(l_elm_rec.element_type_id).element_code := p_elm_code_tbl(l_index);
180: --
181: if l_elm_rec.element_type_id is NULL then
182: hr_utility.set_message(801,'HR_7478_PLK_INCONSISTENT_ELE');
183: hr_utility.set_message_token('ELEMENT_TYPE_ID',NULL);
184: hr_utility.set_message_token('ELEMENT_NAME',p_elm_code_tbl(l_index));
185: hr_utility.raise_error;
186: else
187: p_elm_rec_tbl(l_elm_rec.element_type_id).element_code := p_elm_code_tbl(l_index);
188: p_elm_rec_tbl(l_elm_rec.element_type_id).input_currency_code := l_elm_rec.input_currency_code;
181: if l_elm_rec.element_type_id is NULL then
182: hr_utility.set_message(801,'HR_7478_PLK_INCONSISTENT_ELE');
183: hr_utility.set_message_token('ELEMENT_TYPE_ID',NULL);
184: hr_utility.set_message_token('ELEMENT_NAME',p_elm_code_tbl(l_index));
185: hr_utility.raise_error;
186: else
187: p_elm_rec_tbl(l_elm_rec.element_type_id).element_code := p_elm_code_tbl(l_index);
188: p_elm_rec_tbl(l_elm_rec.element_type_id).input_currency_code := l_elm_rec.input_currency_code;
189: p_elm_rec_tbl(l_elm_rec.element_type_id).multiple_entries_allowed_flag := l_elm_rec.multiple_entries_allowed_flag;
329: p_assignment_id => p_assignment_id,
330: p_element_type_id => l_element_type_id,
331: p_session_date => p_effective_date);
332: if p_element_link_id is NULL then
333: hr_utility.set_message(801,'HR_7027_ELE_ENTRY_EL_NOT_EXST');
334: hr_utility.set_message_token('DATE',fnd_date.date_to_displaydate(p_effective_date));
335: hr_utility.raise_error;
336: end if;
337: --
330: p_element_type_id => l_element_type_id,
331: p_session_date => p_effective_date);
332: if p_element_link_id is NULL then
333: hr_utility.set_message(801,'HR_7027_ELE_ENTRY_EL_NOT_EXST');
334: hr_utility.set_message_token('DATE',fnd_date.date_to_displaydate(p_effective_date));
335: hr_utility.raise_error;
336: end if;
337: --
338: -- At first, checks whether the entry is available.
331: p_session_date => p_effective_date);
332: if p_element_link_id is NULL then
333: hr_utility.set_message(801,'HR_7027_ELE_ENTRY_EL_NOT_EXST');
334: hr_utility.set_message_token('DATE',fnd_date.date_to_displaydate(p_effective_date));
335: hr_utility.raise_error;
336: end if;
337: --
338: -- At first, checks whether the entry is available.
339: --
543: open csr_iv;
544: fetch csr_iv into l_rec;
545: If csr_iv%NOTFOUND then
546: close csr_iv;
547: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
548: hr_utility.set_message_token('PROCEDURE','hr_entry.check_format');
549: hr_utility.set_message_token('STEP','1');
550: hr_utility.raise_error;
551: End If;
544: fetch csr_iv into l_rec;
545: If csr_iv%NOTFOUND then
546: close csr_iv;
547: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
548: hr_utility.set_message_token('PROCEDURE','hr_entry.check_format');
549: hr_utility.set_message_token('STEP','1');
550: hr_utility.raise_error;
551: End If;
552: close csr_iv;
545: If csr_iv%NOTFOUND then
546: close csr_iv;
547: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
548: hr_utility.set_message_token('PROCEDURE','hr_entry.check_format');
549: hr_utility.set_message_token('STEP','1');
550: hr_utility.raise_error;
551: End If;
552: close csr_iv;
553: --
546: close csr_iv;
547: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
548: hr_utility.set_message_token('PROCEDURE','hr_entry.check_format');
549: hr_utility.set_message_token('STEP','1');
550: hr_utility.raise_error;
551: End If;
552: close csr_iv;
553: --
554: -- When user entered value is NULL.
561: --
562: -- When not hot defaulted.
563: --
564: If l_rec.hot_default_flag = 'N' then
565: hr_utility.set_message(801,'HR_6127_ELE_ENTRY_VALUE_MAND');
566: hr_utility.set_message_token('INPUT_VALUE_NAME',l_rec.name);
567: hr_utility.raise_error;
568: --
569: -- When hot defaulted.
562: -- When not hot defaulted.
563: --
564: If l_rec.hot_default_flag = 'N' then
565: hr_utility.set_message(801,'HR_6127_ELE_ENTRY_VALUE_MAND');
566: hr_utility.set_message_token('INPUT_VALUE_NAME',l_rec.name);
567: hr_utility.raise_error;
568: --
569: -- When hot defaulted.
570: --
563: --
564: If l_rec.hot_default_flag = 'N' then
565: hr_utility.set_message(801,'HR_6127_ELE_ENTRY_VALUE_MAND');
566: hr_utility.set_message_token('INPUT_VALUE_NAME',l_rec.name);
567: hr_utility.raise_error;
568: --
569: -- When hot defaulted.
570: --
571: Else
569: -- When hot defaulted.
570: --
571: Else
572: If l_rec.default_value is NULL then
573: hr_utility.set_message(801,'HR_6128_ELE_ENTRY_MAND_HOT');
574: hr_utility.set_message_token('INPUT_VALUE_NAME',l_rec.name);
575: hr_utility.raise_error;
576: Else
577: p_canonical_value := l_rec.default_value;
570: --
571: Else
572: If l_rec.default_value is NULL then
573: hr_utility.set_message(801,'HR_6128_ELE_ENTRY_MAND_HOT');
574: hr_utility.set_message_token('INPUT_VALUE_NAME',l_rec.name);
575: hr_utility.raise_error;
576: Else
577: p_canonical_value := l_rec.default_value;
578: hr_chkfmt.changeformat(
571: Else
572: If l_rec.default_value is NULL then
573: hr_utility.set_message(801,'HR_6128_ELE_ENTRY_MAND_HOT');
574: hr_utility.set_message_token('INPUT_VALUE_NAME',l_rec.name);
575: hr_utility.raise_error;
576: Else
577: p_canonical_value := l_rec.default_value;
578: hr_chkfmt.changeformat(
579: input => p_canonical_value,
608: -- In case the value input is incorrect format.
609: --
610: when others then
611: l_d_uom := hr_general.decode_lookup('UNITS',l_rec.uom);
612: hr_utility.set_message(801,'PAY_6306_INPUT_VALUE_FORMAT');
613: hr_utility.set_message_token('UNIT_OF_MEASURE',l_d_uom);
614: hr_utility.raise_error;
615: End;
616: --
609: --
610: when others then
611: l_d_uom := hr_general.decode_lookup('UNITS',l_rec.uom);
612: hr_utility.set_message(801,'PAY_6306_INPUT_VALUE_FORMAT');
613: hr_utility.set_message_token('UNIT_OF_MEASURE',l_d_uom);
614: hr_utility.raise_error;
615: End;
616: --
617: -- Format min_value and max_value for output parameters.
610: when others then
611: l_d_uom := hr_general.decode_lookup('UNITS',l_rec.uom);
612: hr_utility.set_message(801,'PAY_6306_INPUT_VALUE_FORMAT');
613: hr_utility.set_message_token('UNIT_OF_MEASURE',l_d_uom);
614: hr_utility.raise_error;
615: End;
616: --
617: -- Format min_value and max_value for output parameters.
618: -- These parameters should be used for message only.
636: -- then raise error. In case of 'W'(Warning), Forms should warn to user
637: -- with fnd_message.warn procedure.
638: --
639: If l_min_max_status = 'F' and l_rec.warning_or_error = 'E' then
640: hr_utility.set_message(801,'PAY_JP_INPUTV_OUT_OF_RANGE');
641: hr_utility.set_message_token('MIN_VALUE',p_user_min_value);
642: hr_utility.set_message_token('MAX_VALUE',p_user_max_value);
643: hr_utility.raise_error;
644: End If;
637: -- with fnd_message.warn procedure.
638: --
639: If l_min_max_status = 'F' and l_rec.warning_or_error = 'E' then
640: hr_utility.set_message(801,'PAY_JP_INPUTV_OUT_OF_RANGE');
641: hr_utility.set_message_token('MIN_VALUE',p_user_min_value);
642: hr_utility.set_message_token('MAX_VALUE',p_user_max_value);
643: hr_utility.raise_error;
644: End If;
645: --
638: --
639: If l_min_max_status = 'F' and l_rec.warning_or_error = 'E' then
640: hr_utility.set_message(801,'PAY_JP_INPUTV_OUT_OF_RANGE');
641: hr_utility.set_message_token('MIN_VALUE',p_user_min_value);
642: hr_utility.set_message_token('MAX_VALUE',p_user_max_value);
643: hr_utility.raise_error;
644: End If;
645: --
646: -- Execute formula validation.
639: If l_min_max_status = 'F' and l_rec.warning_or_error = 'E' then
640: hr_utility.set_message(801,'PAY_JP_INPUTV_OUT_OF_RANGE');
641: hr_utility.set_message_token('MIN_VALUE',p_user_min_value);
642: hr_utility.set_message_token('MAX_VALUE',p_user_max_value);
643: hr_utility.raise_error;
644: End If;
645: --
646: -- Execute formula validation.
647: --
660: -- then raise error. In case of 'W'(Warning), Forms should warn to user
661: -- with fnd_message.warn procedure.
662: --
663: If l_formula_status = 'E' and l_rec.warning_or_error = 'E' then
664: hr_utility.set_message(801,'HR_ELE_ENTRY_FORMULA_HINT');
665: hr_utility.set_message_token('FORMULA_TEXT',p_formula_message);
666: hr_utility.raise_error;
667: End If;
668: --
661: -- with fnd_message.warn procedure.
662: --
663: If l_formula_status = 'E' and l_rec.warning_or_error = 'E' then
664: hr_utility.set_message(801,'HR_ELE_ENTRY_FORMULA_HINT');
665: hr_utility.set_message_token('FORMULA_TEXT',p_formula_message);
666: hr_utility.raise_error;
667: End If;
668: --
669: -- In case lookup_type validation is applied.
662: --
663: If l_formula_status = 'E' and l_rec.warning_or_error = 'E' then
664: hr_utility.set_message(801,'HR_ELE_ENTRY_FORMULA_HINT');
665: hr_utility.set_message_token('FORMULA_TEXT',p_formula_message);
666: hr_utility.raise_error;
667: End If;
668: --
669: -- In case lookup_type validation is applied.
670: --
675: If hr_api.not_exists_in_hr_lookups(
676: p_effective_date => p_effective_date,
677: p_lookup_type => l_rec.lookup_type,
678: p_lookup_code => p_canonical_value) then
679: hr_utility.set_message(801,'HR_7033_ELE_ENTRY_LKUP_INVLD');
680: hr_utility.set_message_token('LOOKUP_TYPE',l_rec.lookup_type);
681: hr_utility.raise_error;
682: End If;
683: End If;
676: p_effective_date => p_effective_date,
677: p_lookup_type => l_rec.lookup_type,
678: p_lookup_code => p_canonical_value) then
679: hr_utility.set_message(801,'HR_7033_ELE_ENTRY_LKUP_INVLD');
680: hr_utility.set_message_token('LOOKUP_TYPE',l_rec.lookup_type);
681: hr_utility.raise_error;
682: End If;
683: End If;
684: End If;
677: p_lookup_type => l_rec.lookup_type,
678: p_lookup_code => p_canonical_value) then
679: hr_utility.set_message(801,'HR_7033_ELE_ENTRY_LKUP_INVLD');
680: hr_utility.set_message_token('LOOKUP_TYPE',l_rec.lookup_type);
681: hr_utility.raise_error;
682: End If;
683: End If;
684: End If;
685: --
739: and p_effective_date
740: between pet.effective_start_date and pet.effective_end_date;
741: --
742: Begin
743: hr_utility.set_location('Entering:'||l_proc, 5);
744: Open C_Sel1;
745: Fetch C_Sel1 Into l_entry_type,
746: l_processing_type;
747: If C_Sel1%notfound then
745: Fetch C_Sel1 Into l_entry_type,
746: l_processing_type;
747: If C_Sel1%notfound then
748: Close C_Sel1;
749: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
750: hr_utility.set_message_token('PROCEDURE', l_proc);
751: hr_utility.set_message_token('STEP','10');
752: hr_utility.raise_error;
753: End If;
746: l_processing_type;
747: If C_Sel1%notfound then
748: Close C_Sel1;
749: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
750: hr_utility.set_message_token('PROCEDURE', l_proc);
751: hr_utility.set_message_token('STEP','10');
752: hr_utility.raise_error;
753: End If;
754: Close C_Sel1;
747: If C_Sel1%notfound then
748: Close C_Sel1;
749: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
750: hr_utility.set_message_token('PROCEDURE', l_proc);
751: hr_utility.set_message_token('STEP','10');
752: hr_utility.raise_error;
753: End If;
754: Close C_Sel1;
755: --
748: Close C_Sel1;
749: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
750: hr_utility.set_message_token('PROCEDURE', l_proc);
751: hr_utility.set_message_token('STEP','10');
752: hr_utility.raise_error;
753: End If;
754: Close C_Sel1;
755: --
756: If l_processing_type = 'N' or
773: p_update_override => p_update_override,
774: p_update_change_insert => p_update_change_insert);
775: End If;
776: --
777: hr_utility.set_location(' Leaving:'||l_proc, 10);
778: End find_dt_upd_modes;
779: --
780: -- ----------------------------------------------------------------------------
781: -- |--------------------------< find_dt_del_modes >---------------------------|
818: and p_effective_date
819: between pet.effective_start_date and pet.effective_end_date;
820: --
821: Begin
822: hr_utility.set_location('Entering:'||l_proc, 5);
823: Open C_Sel1;
824: Fetch C_Sel1 Into l_parent_key_value1,
825: l_parent_key_value2,
826: l_entry_type,
826: l_entry_type,
827: l_processing_type;
828: If C_Sel1%notfound then
829: Close C_Sel1;
830: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
831: hr_utility.set_message_token('PROCEDURE', l_proc);
832: hr_utility.set_message_token('STEP','10');
833: hr_utility.raise_error;
834: End If;
827: l_processing_type;
828: If C_Sel1%notfound then
829: Close C_Sel1;
830: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
831: hr_utility.set_message_token('PROCEDURE', l_proc);
832: hr_utility.set_message_token('STEP','10');
833: hr_utility.raise_error;
834: End If;
835: Close C_Sel1;
828: If C_Sel1%notfound then
829: Close C_Sel1;
830: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
831: hr_utility.set_message_token('PROCEDURE', l_proc);
832: hr_utility.set_message_token('STEP','10');
833: hr_utility.raise_error;
834: End If;
835: Close C_Sel1;
836: --
829: Close C_Sel1;
830: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
831: hr_utility.set_message_token('PROCEDURE', l_proc);
832: hr_utility.set_message_token('STEP','10');
833: hr_utility.raise_error;
834: End If;
835: Close C_Sel1;
836: --
837: If l_processing_type = 'N' or
860: p_future_change => p_future_change,
861: p_delete_next_change => p_delete_next_change);
862: End If;
863: --
864: hr_utility.set_location(' Leaving:'||l_proc, 10);
865: End find_dt_del_modes;
866: --
867: -- ----------------------------------------------------------------------------
868: -- |-------------------------------< ins_lck >--------------------------------|
883: l_validation_start_date date;
884: l_validation_end_date date;
885: --
886: Begin
887: hr_utility.set_location('Entering:'||l_proc, 5);
888: --
889: -- Validate the datetrack mode getting the validation start
890: -- and end dates for the specified datetrack operation.
891: --
911: --
912: p_validation_start_date := l_validation_start_date;
913: p_validation_end_date := l_validation_end_date;
914: --
915: hr_utility.set_location(' Leaving:'||l_proc, 15);
916: End ins_lck;
917: --
918: -- ----------------------------------------------------------------------------
919: -- |---------------------------------< lck >----------------------------------|
958: -- from hr_comments hc
959: -- where hc.comment_id = g_old_rec.comment_id;
960: --
961: Begin
962: hr_utility.set_location('Entering:'||l_proc, 5);
963: --
964: -- Ensure that all the mandatory arguments are not null
965: --
966: hr_api.mandatory_arg_error(p_api_name => l_proc,
991: Close C_Sel1;
992: --
993: -- The primary key is invalid therefore we must error
994: --
995: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
996: hr_utility.raise_error;
997: --
998: End If;
999: Close C_Sel1;
992: --
993: -- The primary key is invalid therefore we must error
994: --
995: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
996: hr_utility.raise_error;
997: --
998: End If;
999: Close C_Sel1;
1000: --
1001: -- Check if the set object version number is the same as the existing
1002: -- object version number
1003: --
1004: If (p_object_version_number <> g_old_rec.object_version_number) Then
1005: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
1006: hr_utility.raise_error;
1007: End If;
1008: hr_utility.set_location(l_proc, 15);
1009: --
1002: -- object version number
1003: --
1004: If (p_object_version_number <> g_old_rec.object_version_number) Then
1005: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
1006: hr_utility.raise_error;
1007: End If;
1008: hr_utility.set_location(l_proc, 15);
1009: --
1010: -- Providing we are doing an update and a comment_id exists then
1004: If (p_object_version_number <> g_old_rec.object_version_number) Then
1005: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
1006: hr_utility.raise_error;
1007: End If;
1008: hr_utility.set_location(l_proc, 15);
1009: --
1010: -- Providing we are doing an update and a comment_id exists then
1011: -- we select the comment text.
1012: --
1024: -- -- The comment_text for the specified comment_id does not exist.
1025: -- -- We must error due to data integrity problems.
1026: -- --
1027: -- Close C_Sel3;
1028: -- hr_utility.set_message(801, 'HR_7202_COMMENT_TEXT_NOT_EXIST');
1029: -- hr_utility.raise_error;
1030: -- End If;
1031: -- Close C_Sel3;
1032: -- End If;
1025: -- -- We must error due to data integrity problems.
1026: -- --
1027: -- Close C_Sel3;
1028: -- hr_utility.set_message(801, 'HR_7202_COMMENT_TEXT_NOT_EXIST');
1029: -- hr_utility.raise_error;
1030: -- End If;
1031: -- Close C_Sel3;
1032: -- End If;
1033: --
1033: --
1034: -- Validate the datetrack mode mode getting the validation start
1035: -- and end dates for the specified datetrack operation.
1036: --
1037: hr_utility.set_location('Entering validation_dt_mode', 15);
1038: dt_api.validate_dt_mode
1039: (p_effective_date => p_effective_date,
1040: p_datetrack_mode => p_datetrack_mode,
1041: p_base_table_name => 'pay_element_entries_f',
1055: -- We are doing a datetrack 'INSERT' which is illegal within this
1056: -- procedure therefore we must error (note: to lck on insert the
1057: -- private procedure ins_lck should be called).
1058: --
1059: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1060: hr_utility.set_message_token('PROCEDURE', l_proc);
1061: hr_utility.set_message_token('STEP','20');
1062: hr_utility.raise_error;
1063: --
1056: -- procedure therefore we must error (note: to lck on insert the
1057: -- private procedure ins_lck should be called).
1058: --
1059: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1060: hr_utility.set_message_token('PROCEDURE', l_proc);
1061: hr_utility.set_message_token('STEP','20');
1062: hr_utility.raise_error;
1063: --
1064: End If;
1057: -- private procedure ins_lck should be called).
1058: --
1059: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1060: hr_utility.set_message_token('PROCEDURE', l_proc);
1061: hr_utility.set_message_token('STEP','20');
1062: hr_utility.raise_error;
1063: --
1064: End If;
1065: --
1058: --
1059: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1060: hr_utility.set_message_token('PROCEDURE', l_proc);
1061: hr_utility.set_message_token('STEP','20');
1062: hr_utility.raise_error;
1063: --
1064: End If;
1065: --
1066: -- Set the validation start and end date OUT arguments
1067: --
1068: p_validation_start_date := l_validation_start_date;
1069: p_validation_end_date := l_validation_end_date;
1070: --
1071: hr_utility.set_location(' Leaving:'||l_proc, 30);
1072: --
1073: -- We need to trap the ORA LOCK exception
1074: --
1075: Exception
1077: --
1078: -- The object is locked therefore we need to supply a meaningful
1079: -- error message.
1080: --
1081: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
1082: hr_utility.set_message_token('TABLE_NAME', 'pay_element_entries_f');
1083: hr_utility.raise_error;
1084: When l_object_invalid then
1085: --
1078: -- The object is locked therefore we need to supply a meaningful
1079: -- error message.
1080: --
1081: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
1082: hr_utility.set_message_token('TABLE_NAME', 'pay_element_entries_f');
1083: hr_utility.raise_error;
1084: When l_object_invalid then
1085: --
1086: -- The object doesn't exist or is invalid
1079: -- error message.
1080: --
1081: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
1082: hr_utility.set_message_token('TABLE_NAME', 'pay_element_entries_f');
1083: hr_utility.raise_error;
1084: When l_object_invalid then
1085: --
1086: -- The object doesn't exist or is invalid
1087: --
1084: When l_object_invalid then
1085: --
1086: -- The object doesn't exist or is invalid
1087: --
1088: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
1089: hr_utility.set_message_token('TABLE_NAME', 'pay_element_entries_f');
1090: hr_utility.raise_error;
1091: End lck;
1092: --
1085: --
1086: -- The object doesn't exist or is invalid
1087: --
1088: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
1089: hr_utility.set_message_token('TABLE_NAME', 'pay_element_entries_f');
1090: hr_utility.raise_error;
1091: End lck;
1092: --
1093: -- ----------------------------------------------------------------------------
1086: -- The object doesn't exist or is invalid
1087: --
1088: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
1089: hr_utility.set_message_token('TABLE_NAME', 'pay_element_entries_f');
1090: hr_utility.raise_error;
1091: End lck;
1092: --
1093: -- ----------------------------------------------------------------------------
1094: -- |---------------------------< init_varray >--------------------------------|