[Home] [Help]
PACKAGE BODY: APPS.IES_ANSWERS_PVT
Source
1 PACKAGE BODY IES_ANSWERS_PVT AS
2 /* $Header: iesvieab.pls 115.7 2003/06/06 20:16:22 prkotha ship $ */
3
4 PROCEDURE Insert_Answer
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_lookup_id IN NUMBER ,
14 p_answer_value IN VARCHAR2 ,
15 p_display_value IN VARCHAR2 ,
16 p_answer_order IN NUMBER ,
17 p_answer_active IN NUMBER ,
18 p_active_status IN NUMBER ,
19 x_answer_id OUT NOCOPY NUMBER
20 ) IS
21 seqval NUMBER;
22 insertstmt varchar2(4000);
23 BEGIN
24 -- Standard Start of API savepoint
25 SAVEPOINT Insert_Answer_PVT;
26
27 EXECUTE immediate 'select ies_answers_s.nextval from dual' INTO seqval;
28
29 insertStmt := 'INSERT INTO ies_answers ( answer_id ,
30 created_by ,
31 creation_date ,
32 lookup_id ,
33 answer_value ,
34 answer_display_value ,
35 answer_order ,
36 answer_active ,
37 active_status )
38 VALUES ( :1 ,
39 :2 ,
40 :3 ,
41 :4 ,
42 :5 ,
43 :6 ,
44 :7 ,
45 :8 ,
46 :9 ) RETURNING answer_id INTO :10';
47 EXECUTE immediate insertStmt using seqval, p_created_by, sysdate, p_lookup_id,
48 p_answer_value, p_display_value, p_answer_order, p_answer_active,
49 p_active_status returning into x_answer_id ;
50 EXCEPTION
51 WHEN OTHERS THEN
52 ROLLBACK TO Insert_Answer_PVT;
53 x_return_status := 'E';
54 x_msg_data := 'Error ' || TO_CHAR(SQLCODE) ||':'||SQLERRM;
55 END Insert_Answer;
56
57 PROCEDURE Update_Answer
58 ( p_api_version IN NUMBER := 1 ,
59 p_init_msg_list IN VARCHAR2 := 'DUMMY VAL' ,
60 p_commit IN VARCHAR2 := 'DUMMY VAL' ,
61 p_validation_level IN NUMBER := 1 ,
62 x_return_status OUT NOCOPY VARCHAR2 ,
63 x_msg_count OUT NOCOPY NUMBER ,
64 x_msg_data OUT NOCOPY VARCHAR2 ,
65 p_answer_id IN NUMBER ,
66 p_last_updated_by IN NUMBER ,
67 p_answer_value IN VARCHAR2 ,
68 p_display_value IN VARCHAR2 ,
69 p_answer_order IN NUMBER ,
70 p_answer_active IN NUMBER ,
71 p_active_status IN NUMBER ,
72 x_answer_id OUT NOCOPY NUMBER
73 ) IS
74 updateStmt varchar2(4000);
75 BEGIN
76 -- Standard Start of API savepoint
77 SAVEPOINT Update_Answer_PVT;
78 updateStmt := 'UPDATE ies_answers SET last_updated_by = :1 ,
79 last_update_date = :2,
80 answer_value = :3,
81 answer_display_value = :4,
82 answer_order = :5,
83 answer_active = :6,
84 active_status = :7
85 WHERE answer_id = :8 RETURNING answer_id INTO :9';
86
87 execute immediate updateStmt USING p_last_updated_by,
88 sysdate ,
89 p_answer_value ,
90 p_display_value ,
91 p_answer_order ,
92 p_answer_active ,
93 p_active_status,
94 p_answer_id returning into x_answer_id ;
95 EXCEPTION
96 WHEN OTHERS THEN
97 ROLLBACK TO Update_Answer_PVT;
98 x_return_status := 'E';
99 x_msg_data := 'Error ' || TO_CHAR(SQLCODE) ||':'||SQLERRM;
100 END Update_Answer;
101 END IES_ANSWERS_PVT;