32: if not hr_qsf_shd.api_updating
33: (p_field_id => p_rec.field_id
34: ,p_object_version_number => p_rec.object_version_number
35: ) then
36: fnd_message.set_name('PER','HR_6153_ALL_PROCEDURE_FAIL');
37: fnd_message.set_token('PROCEDURE',l_proc);
38: fnd_message.set_token('STEP','20');
39: fnd_message.raise_error;
40: end if;
33: (p_field_id => p_rec.field_id
34: ,p_object_version_number => p_rec.object_version_number
35: ) then
36: fnd_message.set_name('PER','HR_6153_ALL_PROCEDURE_FAIL');
37: fnd_message.set_token('PROCEDURE',l_proc);
38: fnd_message.set_token('STEP','20');
39: fnd_message.raise_error;
40: end if;
41: hr_utility.set_location(l_proc,30);
34: ,p_object_version_number => p_rec.object_version_number
35: ) then
36: fnd_message.set_name('PER','HR_6153_ALL_PROCEDURE_FAIL');
37: fnd_message.set_token('PROCEDURE',l_proc);
38: fnd_message.set_token('STEP','20');
39: fnd_message.raise_error;
40: end if;
41: hr_utility.set_location(l_proc,30);
42: --
35: ) then
36: fnd_message.set_name('PER','HR_6153_ALL_PROCEDURE_FAIL');
37: fnd_message.set_token('PROCEDURE',l_proc);
38: fnd_message.set_token('STEP','20');
39: fnd_message.raise_error;
40: end if;
41: hr_utility.set_location(l_proc,30);
42: --
43: if nvl(p_rec.questionnaire_template_id,hr_api.g_number) <>
133: end if;
134: close csr_id_exists;
135: else
136: -- Questionnaire template id is null - raise error
137: fnd_message.set_name('PER','PER_52419_QSF_MAND_TEMPLATE_ID');
138: fnd_message.raise_error;
139: end if;
140: --
141: hr_utility.set_location('Leaving: '||l_proc,50);
134: close csr_id_exists;
135: else
136: -- Questionnaire template id is null - raise error
137: fnd_message.set_name('PER','PER_52419_QSF_MAND_TEMPLATE_ID');
138: fnd_message.raise_error;
139: end if;
140: --
141: hr_utility.set_location('Leaving: '||l_proc,50);
142:
167: hr_utility.set_location('Entering: '||l_proc,10);
168: --
169: if p_name is null then
170: -- Raise error, since name is a mandatory column.
171: fnd_message.set_name('PER','PER_52423_QSF_MAND_NAME');
172: fnd_message.raise_error;
173: end if;
174: --
175: hr_utility.set_location('Leaving: '||l_proc,20);
168: --
169: if p_name is null then
170: -- Raise error, since name is a mandatory column.
171: fnd_message.set_name('PER','PER_52423_QSF_MAND_NAME');
172: fnd_message.raise_error;
173: end if;
174: --
175: hr_utility.set_location('Leaving: '||l_proc,20);
176:
210: hr_qsf_shd.constraint_error('HR_QUEST_FIELDS_TYPE_CHK');
211: end if;
212: else
213: -- p_type is null
214: fnd_message.set_name('PER','PER_52426_QSF_MAND_TYPE');
215: fnd_message.raise_error;
216: end if;
217: --
218: hr_utility.set_location('Leaving: '||l_proc,20);
211: end if;
212: else
213: -- p_type is null
214: fnd_message.set_name('PER','PER_52426_QSF_MAND_TYPE');
215: fnd_message.raise_error;
216: end if;
217: --
218: hr_utility.set_location('Leaving: '||l_proc,20);
219:
247: if p_html_text is not null then
248: -- Check that the size of the text is less than max_size
249: -- if Length(p_html_text) > c_max_size then
250: -- Greater than max, so error
251: -- fnd_message.set_name('PER','PER_52420_QSF_HTML_TXT_OVRSZD');
252: -- fnd_message.raise_error;
253: -- end if;
254: null;
255: else
248: -- Check that the size of the text is less than max_size
249: -- if Length(p_html_text) > c_max_size then
250: -- Greater than max, so error
251: -- fnd_message.set_name('PER','PER_52420_QSF_HTML_TXT_OVRSZD');
252: -- fnd_message.raise_error;
253: -- end if;
254: null;
255: else
256: -- html_text is null
253: -- end if;
254: null;
255: else
256: -- html_text is null
257: fnd_message.set_name('PER','PER_52421_QSF_MAND_HTML_TEXT');
258: fnd_message.raise_error;
259: end if;
260: --
261: hr_utility.set_location('Leaving: '||l_proc,20);
254: null;
255: else
256: -- html_text is null
257: fnd_message.set_name('PER','PER_52421_QSF_MAND_HTML_TEXT');
258: fnd_message.raise_error;
259: end if;
260: --
261: hr_utility.set_location('Leaving: '||l_proc,20);
262:
297: hr_qsf_shd.constraint_error('HR_QUEST_FIELDS_SQL_FLAG_CHK');
298: end if;
299: else
300: -- p_sql_required flag is null, yet is a mandatory column
301: fnd_message.set_name('PER','PER_52422_QSF_MAND_REQD_FLAG');
302: fnd_message.raise_error;
303: end if;
304: --
305: hr_utility.set_location('Leaving: '||l_proc,20);
298: end if;
299: else
300: -- p_sql_required flag is null, yet is a mandatory column
301: fnd_message.set_name('PER','PER_52422_QSF_MAND_REQD_FLAG');
302: fnd_message.raise_error;
303: end if;
304: --
305: hr_utility.set_location('Leaving: '||l_proc,20);
306:
435: --
436: -- The primary key is invalid, therefore we must error
437: --
438: close csr_leg_code;
439: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
440: fnd_message.raise_error;
441: end if;
442: hr_utility.set_location(l_proc,30);
443: --
436: -- The primary key is invalid, therefore we must error
437: --
438: close csr_leg_code;
439: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
440: fnd_message.raise_error;
441: end if;
442: hr_utility.set_location(l_proc,30);
443: --
444: -- Set the global variables so the values are available