15: --
16: l_proc varchar2(72) := g_package||'constraint_error';
17: --
18: Begin
19: hr_utility.set_location('Entering:'||l_proc, 5);
20: --
21: If (p_constraint_name = 'HR_QUEST_ANSWER_VALUES_FK1') Then
22: fnd_message.set_name('PER','PER_52443_QSV_INVAL_ANSWER_ID');
23: fnd_message.raise_error;
24: ElsIf (p_constraint_name = 'HR_QUEST_ANSWER_VALUES_FK2') Then
25: fnd_message.set_name('PER','PER_52444_QSV_INVAL_ANSWER_FLD');
26: fnd_message.raise_error;
27: ElsIf (p_constraint_name = 'HR_QUEST_ANSWER_VALUES_PK') Then
28: hr_utility.set_message('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
29: hr_utility.set_message_token('PROCEDURE', l_proc);
30: hr_utility.set_message_token('STEP','15');
31: hr_utility.raise_error;
32: ElsIf (p_constraint_name = 'HR_QUEST_ANSWER_VALUES_UK1') Then
25: fnd_message.set_name('PER','PER_52444_QSV_INVAL_ANSWER_FLD');
26: fnd_message.raise_error;
27: ElsIf (p_constraint_name = 'HR_QUEST_ANSWER_VALUES_PK') Then
28: hr_utility.set_message('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
29: hr_utility.set_message_token('PROCEDURE', l_proc);
30: hr_utility.set_message_token('STEP','15');
31: hr_utility.raise_error;
32: ElsIf (p_constraint_name = 'HR_QUEST_ANSWER_VALUES_UK1') Then
33: fnd_message.set_name('PER','PER_52445_QSV_ANSWER_EXISTS');
26: fnd_message.raise_error;
27: ElsIf (p_constraint_name = 'HR_QUEST_ANSWER_VALUES_PK') Then
28: hr_utility.set_message('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
29: hr_utility.set_message_token('PROCEDURE', l_proc);
30: hr_utility.set_message_token('STEP','15');
31: hr_utility.raise_error;
32: ElsIf (p_constraint_name = 'HR_QUEST_ANSWER_VALUES_UK1') Then
33: fnd_message.set_name('PER','PER_52445_QSV_ANSWER_EXISTS');
34: fnd_message.raise_error;
27: ElsIf (p_constraint_name = 'HR_QUEST_ANSWER_VALUES_PK') Then
28: hr_utility.set_message('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
29: hr_utility.set_message_token('PROCEDURE', l_proc);
30: hr_utility.set_message_token('STEP','15');
31: hr_utility.raise_error;
32: ElsIf (p_constraint_name = 'HR_QUEST_ANSWER_VALUES_UK1') Then
33: fnd_message.set_name('PER','PER_52445_QSV_ANSWER_EXISTS');
34: fnd_message.raise_error;
35: Else
32: ElsIf (p_constraint_name = 'HR_QUEST_ANSWER_VALUES_UK1') Then
33: fnd_message.set_name('PER','PER_52445_QSV_ANSWER_EXISTS');
34: fnd_message.raise_error;
35: Else
36: hr_utility.set_message('PER', 'HR_7877_API_INVALID_CONSTRAINT');
37: hr_utility.set_message_token('PROCEDURE', l_proc);
38: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
39: hr_utility.raise_error;
40: End If;
33: fnd_message.set_name('PER','PER_52445_QSV_ANSWER_EXISTS');
34: fnd_message.raise_error;
35: Else
36: hr_utility.set_message('PER', 'HR_7877_API_INVALID_CONSTRAINT');
37: hr_utility.set_message_token('PROCEDURE', l_proc);
38: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
39: hr_utility.raise_error;
40: End If;
41: --
34: fnd_message.raise_error;
35: Else
36: hr_utility.set_message('PER', 'HR_7877_API_INVALID_CONSTRAINT');
37: hr_utility.set_message_token('PROCEDURE', l_proc);
38: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
39: hr_utility.raise_error;
40: End If;
41: --
42: hr_utility.set_location(' Leaving:'||l_proc, 10);
35: Else
36: hr_utility.set_message('PER', 'HR_7877_API_INVALID_CONSTRAINT');
37: hr_utility.set_message_token('PROCEDURE', l_proc);
38: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
39: hr_utility.raise_error;
40: End If;
41: --
42: hr_utility.set_location(' Leaving:'||l_proc, 10);
43: End constraint_error;
38: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
39: hr_utility.raise_error;
40: End If;
41: --
42: hr_utility.set_location(' Leaving:'||l_proc, 10);
43: End constraint_error;
44: --
45: -- ----------------------------------------------------------------------------
46: -- |-----------------------------< api_updating >-----------------------------|
67: l_proc varchar2(72) := g_package||'api_updating';
68: l_fct_ret boolean;
69: --
70: Begin
71: hr_utility.set_location('Entering:'||l_proc, 5);
72: --
73: If (
74: p_quest_answer_val_id is null and
75: p_object_version_number is null
83: If (
84: p_quest_answer_val_id = g_old_rec.quest_answer_val_id and
85: p_object_version_number = g_old_rec.object_version_number
86: ) Then
87: hr_utility.set_location(l_proc, 10);
88: --
89: -- The g_old_rec is current therefore we must
90: -- set the returning function to true
91: --
100: Close C_Sel1;
101: --
102: -- The primary key is invalid therefore we must error
103: --
104: hr_utility.set_message('PER', 'HR_7220_INVALID_PRIMARY_KEY');
105: hr_utility.raise_error;
106: End If;
107: Close C_Sel1;
108: If (p_object_version_number <> g_old_rec.object_version_number) Then
101: --
102: -- The primary key is invalid therefore we must error
103: --
104: hr_utility.set_message('PER', 'HR_7220_INVALID_PRIMARY_KEY');
105: hr_utility.raise_error;
106: End If;
107: Close C_Sel1;
108: If (p_object_version_number <> g_old_rec.object_version_number) Then
109: hr_utility.set_message('PER', 'HR_7155_OBJECT_INVALID');
105: hr_utility.raise_error;
106: End If;
107: Close C_Sel1;
108: If (p_object_version_number <> g_old_rec.object_version_number) Then
109: hr_utility.set_message('PER', 'HR_7155_OBJECT_INVALID');
110: hr_utility.raise_error;
111: End If;
112: hr_utility.set_location(l_proc, 15);
113: l_fct_ret := true;
106: End If;
107: Close C_Sel1;
108: If (p_object_version_number <> g_old_rec.object_version_number) Then
109: hr_utility.set_message('PER', 'HR_7155_OBJECT_INVALID');
110: hr_utility.raise_error;
111: End If;
112: hr_utility.set_location(l_proc, 15);
113: l_fct_ret := true;
114: End If;
108: If (p_object_version_number <> g_old_rec.object_version_number) Then
109: hr_utility.set_message('PER', 'HR_7155_OBJECT_INVALID');
110: hr_utility.raise_error;
111: End If;
112: hr_utility.set_location(l_proc, 15);
113: l_fct_ret := true;
114: End If;
115: End If;
116: hr_utility.set_location(' Leaving:'||l_proc, 20);
112: hr_utility.set_location(l_proc, 15);
113: l_fct_ret := true;
114: End If;
115: End If;
116: hr_utility.set_location(' Leaving:'||l_proc, 20);
117: Return (l_fct_ret);
118: --
119: End api_updating;
120: --
141: --
142: l_proc varchar2(72) := g_package||'lck';
143: --
144: Begin
145: hr_utility.set_location('Entering:'||l_proc, 5);
146: --
147: -- Add any mandatory argument checking here:
148: -- Example:
149: -- hr_api.mandatory_arg_error
167: Close C_Sel1;
168: --
169: -- The primary key is invalid therefore we must error
170: --
171: hr_utility.set_message('PER', 'HR_7220_INVALID_PRIMARY_KEY');
172: hr_utility.raise_error;
173: End If;
174: Close C_Sel1;
175: If (p_object_version_number <> g_old_rec.object_version_number) Then
168: --
169: -- The primary key is invalid therefore we must error
170: --
171: hr_utility.set_message('PER', 'HR_7220_INVALID_PRIMARY_KEY');
172: hr_utility.raise_error;
173: End If;
174: Close C_Sel1;
175: If (p_object_version_number <> g_old_rec.object_version_number) Then
176: hr_utility.set_message('PER', 'HR_7155_OBJECT_INVALID');
172: hr_utility.raise_error;
173: End If;
174: Close C_Sel1;
175: If (p_object_version_number <> g_old_rec.object_version_number) Then
176: hr_utility.set_message('PER', 'HR_7155_OBJECT_INVALID');
177: hr_utility.raise_error;
178: End If;
179: --
180: hr_utility.set_location(' Leaving:'||l_proc, 10);
173: End If;
174: Close C_Sel1;
175: If (p_object_version_number <> g_old_rec.object_version_number) Then
176: hr_utility.set_message('PER', 'HR_7155_OBJECT_INVALID');
177: hr_utility.raise_error;
178: End If;
179: --
180: hr_utility.set_location(' Leaving:'||l_proc, 10);
181: --
176: hr_utility.set_message('PER', 'HR_7155_OBJECT_INVALID');
177: hr_utility.raise_error;
178: End If;
179: --
180: hr_utility.set_location(' Leaving:'||l_proc, 10);
181: --
182: -- We need to trap the ORA LOCK exception
183: --
184: Exception
186: --
187: -- The object is locked therefore we need to supply a meaningful
188: -- error message.
189: --
190: hr_utility.set_message('PER', 'HR_7165_OBJECT_LOCKED');
191: hr_utility.set_message_token('TABLE_NAME', 'hr_quest_answer_values');
192: hr_utility.raise_error;
193: End lck;
194: --
187: -- The object is locked therefore we need to supply a meaningful
188: -- error message.
189: --
190: hr_utility.set_message('PER', 'HR_7165_OBJECT_LOCKED');
191: hr_utility.set_message_token('TABLE_NAME', 'hr_quest_answer_values');
192: hr_utility.raise_error;
193: End lck;
194: --
195: -- ----------------------------------------------------------------------------
188: -- error message.
189: --
190: hr_utility.set_message('PER', 'HR_7165_OBJECT_LOCKED');
191: hr_utility.set_message_token('TABLE_NAME', 'hr_quest_answer_values');
192: hr_utility.raise_error;
193: End lck;
194: --
195: -- ----------------------------------------------------------------------------
196: -- |-----------------------------< convert_args >-----------------------------|
209: l_proc varchar2(72) := g_package||'convert_args';
210: --
211: Begin
212: --
213: hr_utility.set_location('Entering:'||l_proc, 5);
214: --
215: -- Convert arguments into local l_rec structure.
216: --
217: l_rec.quest_answer_val_id := p_quest_answer_val_id;
221: l_rec.value := p_value;
222: --
223: -- Return the plsql record structure.
224: --
225: hr_utility.set_location(' Leaving:'||l_proc, 10);
226: Return(l_rec);
227: --
228: End convert_args;
229: --