[Home] [Help]
PACKAGE BODY: APPS.IES_QUESTION_DATA_PVT
Source
1 PACKAGE BODY IES_QUESTION_DATA_PVT AS
2 /* $Header: iesviqdb.pls 115.5 2002/12/09 21:13:57 appldev ship $ */
3
4 PROCEDURE Insert_Question_Data
5 ( p_api_version IN NUMBER := 1 ,
6 p_init_msg_list IN VARCHAR2 := 'DUMMY VAL' ,
7 p_commit IN VARCHAR2 := 'DUMMY VAL' ,
8 p_validation_level IN NUMBER := 1 ,
9 x_return_status OUT NOCOPY VARCHAR2 ,
10 x_msg_count OUT NOCOPY NUMBER ,
11 x_msg_data OUT NOCOPY VARCHAR2 ,
12 p_created_by IN NUMBER ,
13 p_transaction_id IN NUMBER ,
14 p_question_id IN NUMBER ,
15 p_lookup_id IN NUMBER ,
16 p_answer_id IN NUMBER ,
17 p_freeform_int IN NUMBER ,
18 p_freeform_string IN VARCHAR2 ,
19 p_freeform_date IN DATE
20 ) IS
21 BEGIN
22 -- Standard Start of API savepoint
23 SAVEPOINT Insert_Question_Data_PVT;
24 INSERT INTO ies_question_data ( question_data_id ,
25 created_by ,
26 creation_date ,
27 transaction_id ,
28 question_id ,
29 lookup_id ,
30 answer_id ,
31 freeform_int ,
32 freeform_string ,
33 freeform_date )
34 VALUES ( ies_question_data_s.nextval ,
35 p_created_by ,
36 sysdate ,
37 p_transaction_id ,
38 p_question_id ,
39 p_lookup_id ,
40 p_answer_id ,
41 p_freeform_int ,
42 p_freeform_string ,
43 p_freeform_date );
44 EXCEPTION
45 WHEN OTHERS THEN
46 ROLLBACK TO Insert_Question_Data_PVT;
47 x_return_status := 'E';
48 x_msg_data := 'Error ' || TO_CHAR(SQLCODE) ||':'||SQLERRM;
49 END Insert_Question_Data;
50 END IES_Question_Data_PVT;