[Home] [Help]
1: Package Body hr_qsa_ins as
2: /* $Header: hrqsarhi.pkb 115.12 2003/08/27 00:16:05 hpandya ship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' hr_qsa_ins.'; -- Global package name
9: --
10: -- The following global variables are only to be used by
11: -- the set_base_key_value and pre_insert procedures.
12: --
21: --
22: Begin
23: hr_utility.set_location('Entering:'||l_proc, 10);
24: --
25: hr_qsa_ins.g_questionnaire_answer_id_i := p_questionnaire_answer_id;
26: --
27: hr_utility.set_location(' Leaving:'||l_proc, 20);
28: End set_base_key_value;
29: --
159: --
160: Cursor C_Sel2 is
161: select null
162: from hr_quest_answers
163: where questionnaire_answer_id = hr_qsa_ins.g_questionnaire_answer_id_i;
164: --
165: Begin
166: hr_utility.set_location('Entering:'||l_proc, 5);
167: --
164: --
165: Begin
166: hr_utility.set_location('Entering:'||l_proc, 5);
167: --
168: if hr_qsa_ins.g_questionnaire_answer_id_i is not null then
169: --
170: -- Verify registered primary key values not already in use
171: --
172: Open C_Sel2;
183: Close C_Sel2;
184: --
185: -- Use registered key values and clear globals
186: --
187: p_rec.questionnaire_answer_id := hr_qsa_ins.g_questionnaire_answer_id_i;
188: hr_qsa_ins.g_questionnaire_answer_id_i := null;
189: else
190: --
191: -- Select the next sequence number
184: --
185: -- Use registered key values and clear globals
186: --
187: p_rec.questionnaire_answer_id := hr_qsa_ins.g_questionnaire_answer_id_i;
188: hr_qsa_ins.g_questionnaire_answer_id_i := null;
189: else
190: --
191: -- Select the next sequence number
192: --
336: --
337: hr_utility.set_location(' Leaving:'||l_proc, 10);
338: End ins;
339: --
340: end hr_qsa_ins;