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;