[Home] [Help]
PACKAGE: APPS.HR_QUEST_PERFORM_WEB
Source
1 PACKAGE HR_QUEST_PERFORM_WEB AS
2 /* $Header: hrqtpp1w.pkh 120.3 2005/12/13 13:52:41 svittal noship $ */
3 --
4 -- |--------------------------------------------------------------------------|
5 -- |--< Global Variable Declarations >----------------------------------------|
6 -- |--------------------------------------------------------------------------|
7 --
8 g_tag_not_found_exception EXCEPTION;
9 g_invalid_tag_exception EXCEPTION;
10 g_handled_exception EXCEPTION;
11 PRAGMA EXCEPTION_INIT(g_tag_not_found_exception, -20001);
12 PRAGMA EXCEPTION_INIT(g_invalid_tag_exception, -20002);
13 --
14 c_max_size CONSTANT NUMBER := 27648;
15 c_debug CONSTANT BOOLEAN := FALSE;
16 --
17 -- |--------------------------------------------------------------------------|
18 -- |--< Type Declarations >---------------------------------------------------|
19 -- |--------------------------------------------------------------------------|
20 --
21 TYPE r_field_structure IS RECORD
22 (a_tag VARCHAR2 (30) DEFAULT NULL
23 ,a_name VARCHAR2 (30) DEFAULT NULL
24 ,a_type VARCHAR2 (30) DEFAULT NULL
25 ,a_value LONG DEFAULT NULL
26 ,a_text LONG DEFAULT NULL
27 ,a_checked VARCHAR2 (1) DEFAULT 'N'
28 ,a_size NUMBER DEFAULT 0
29 ,a_cols NUMBER DEFAULT 0
30 ,a_rows NUMBER DEFAULT 0
31 ,a_token VARCHAR2 (30) DEFAULT NULL
32 ,field_id NUMBER DEFAULT NULL
33 ,object_version_number NUMBER DEFAULT 0
34 );
35 --
36 TYPE t_field_structure IS TABLE OF r_field_structure INDEX BY BINARY_INTEGER;
37
38 PROCEDURE Delete_Quest_Answer
39 (p_questionnaire_answer_id IN NUMBER
40 );
41 --
42 -- |--------------------------------------------------------------------------|
43 -- |--< Delete_Quest_Answer_Values >------------------------------------------|
44 -- |--------------------------------------------------------------------------|
45 --
46 -- Description:
47 -- This procedure is a wrapper around hr_qsv_del.del procedure , and it
48 -- allows to delete the question answer values from hr_quest_answer_values
49 -- tables if the entries of "VALUE" column are null.
50 --
51 PROCEDURE Delete_Quest_Answer_Values
52 (p_quest_answer_val_id IN NUMBER
53 ,p_object_version_number IN NUMBER
54 );
55 --
56 --
57 -- |--------------------------------------------------------------------------|
58 -- |--< Debug >---------------------------------------------------------------|
59 -- |--------------------------------------------------------------------------|
60 END HR_QUEST_PERFORM_WEB;