[Home] [Help]
PACKAGE BODY: APPS.HR_QUEST_PERFORM_WEB
Source
1 PACKAGE BODY HR_QUEST_PERFORM_WEB AS
2 /* $Header: hrqtpp1w.pkb 120.3 2005/12/13 13:53:10 svittal noship $ */
3 --
4 -- Global variables
5 g_space varchar2(1) default ' ';
6 g_chr10 varchar2(2000) := hr_util_misc_web.g_new_line;
7 g_chr13 varchar2(2000) := hr_util_misc_web.g_carriage_return;
8 g_package varchar2(30) := 'HR_QUEST_PERFORM_WEB';
9
10
11 -- |--------------------------------------------------------------------------|
12 -- |--< Delete_Quest_Answer_Values >------------------------------------------|
13 -- |--------------------------------------------------------------------------|
14 --
15 PROCEDURE Delete_Quest_Answer_Values
16 (p_quest_answer_val_id IN NUMBER
17 ,P_object_version_number IN NUMBER
18 )
19 IS
20 l_proc varchar2(200) := g_package || 'Delete_Quest_Answer_Values';
21
22 --
23 BEGIN
24 --
25 hr_utility.set_location(' Entering:' || l_proc,5);
26
27 hr_qsv_del.del(p_quest_answer_val_id => p_quest_answer_val_id
28 ,p_object_version_number=> p_object_version_number);
29
30 hr_utility.set_location(' Leaving:' || l_proc,50);
31
32 EXCEPTION
33 WHEN OTHERS THEN
34 hr_utility.set_location('Exception while deleting the answer values',40);
35 RAISE;
36
37 --
38 END Delete_Quest_Answer_Values;
39 --
40 -- |--------------------------------------------------------------------------|
41 -- |--< Delete_Quest_Answer >-------------------------------------------------|
42 -- |--------------------------------------------------------------------------|
43 --
44 PROCEDURE Delete_Quest_Answer
45 (p_questionnaire_answer_id IN NUMBER
46 )
47 IS
48 --
49 l_proc varchar2(200) := g_package || 'Delete_Quest_Answer';
50
51
52 BEGIN
53 --
54
55 DECLARE
56 --
57 Cursor C_Quest_Answer_Values
58 is
59 select quest_answer_val_id,object_version_number
60 from hr_quest_answer_values
61 where questionnaire_answer_id = p_questionnaire_answer_id;
62
63 begin
64 hr_utility.set_location(' Entering:' || l_proc,5);
65
66
67 For R_C_Quest_Answer_Values in C_Quest_Answer_Values
68 LOOP
69 Delete_Quest_Answer_Values
70 (p_quest_answer_val_id=>R_C_Quest_Answer_Values.quest_answer_val_id
71 ,p_object_version_number=>R_C_Quest_Answer_Values.object_version_number
72 );
73 END LOOP;
74
75 hr_qsa_del.del(p_questionnaire_answer_id => p_questionnaire_answer_id);
76 hr_utility.set_location(' Entering:' || l_proc,5);
77
78 --
79 EXCEPTION
80 WHEN OTHERS THEN
81 hr_utility.set_location('Exception while deleting the answer ',40);
82 RAISE;
83
84 end;
85
86 --
87 END Delete_Quest_Answer;
88 --
89
90 END HR_QUEST_PERFORM_WEB;