[Home] [Help]
PACKAGE BODY: APPS.IES_PANELS_PVT
Source
1 PACKAGE BODY IES_PANELS_PVT AS
2 /* $Header: iesviepb.pls 115.11 2003/06/06 20:16:18 prkotha ship $ */
3
4 PROCEDURE Insert_Panel
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_dscript_id IN NUMBER ,
14 p_panel_name IN VARCHAR2 ,
15 p_panel_uid IN VARCHAR2 ,
16 p_active_status IN NUMBER ,
17 x_panel_id OUT NOCOPY NUMBER
18 ) IS
19 BEGIN
20 Insert_Panel ( p_api_version ,
21 p_init_msg_list,
22 p_commit,
23 p_validation_level,
24 x_return_status,
25 x_msg_count,
26 x_msg_data,
27 p_created_by,
28 p_dscript_id,
29 p_panel_name,
30 null,
31 p_panel_uid,
32 p_active_status,
33 x_panel_id);
34
35 END Insert_Panel;
36
37 PROCEDURE Insert_Panel
38 ( p_api_version IN NUMBER := 1 ,
39 p_init_msg_list IN VARCHAR2 := 'DUMMY VAL' ,
40 p_commit IN VARCHAR2 := 'DUMMY VAL' ,
41 p_validation_level IN NUMBER := 1 ,
42 x_return_status OUT NOCOPY VARCHAR2 ,
43 x_msg_count OUT NOCOPY NUMBER ,
44 x_msg_data OUT NOCOPY VARCHAR2 ,
45 p_created_by IN NUMBER ,
46 p_dscript_id IN NUMBER ,
47 p_panel_name IN VARCHAR2 ,
48 p_panel_label IN VARCHAR2 ,
49 p_panel_uid IN VARCHAR2 ,
50 p_active_status IN NUMBER ,
51 x_panel_id OUT NOCOPY NUMBER
52 ) IS
53 seqval NUMBER;
54 insertstmt varchar2(4000);
55 BEGIN
56 -- Standard Start of API savepoint
57 SAVEPOINT Insert_Panel_PVT;
58
59 EXECUTE immediate 'select ies_panels_s.nextval from dual' INTO seqval;
60
61 insertStmt := 'INSERT INTO ies_panels ( panel_id ,
62 created_by ,
63 creation_date ,
64 dscript_id ,
65 panel_name ,
66 panel_label ,
67 panel_uid ,
68 active_status )
69 VALUES ( :1,
70 :2,
71 :3,
72 :4,
73 :5,
74 :6,
75 :7,
76 :8)
77 RETURNING panel_id INTO :9';
78
79 execute immediate insertStmt using seqval ,
80 p_created_by ,
81 sysdate ,
82 p_dscript_id ,
83 p_panel_name ,
84 p_panel_label ,
85 p_panel_uid ,
86 p_active_status RETURNING INTO x_panel_id;
87 EXCEPTION
88 WHEN OTHERS THEN
89 ROLLBACK TO Insert_Panel_PVT;
90 x_return_status := 'E';
91 x_msg_data := 'Error ' || TO_CHAR(SQLCODE) ||':'||SQLERRM;
92 END Insert_Panel;
93
94 PROCEDURE Update_Panel
95 ( p_api_version IN NUMBER := 1 ,
96 p_init_msg_list IN VARCHAR2 := 'DUMMY VAL' ,
97 p_commit IN VARCHAR2 := 'DUMMY VAL' ,
98 p_validation_level IN NUMBER := 1 ,
99 x_return_status OUT NOCOPY VARCHAR2 ,
100 x_msg_count OUT NOCOPY NUMBER ,
101 x_msg_data OUT NOCOPY VARCHAR2 ,
102 p_panel_id IN NUMBER ,
103 p_last_updated_by IN NUMBER ,
104 p_panel_name IN VARCHAR2 ,
105 p_panel_uid IN VARCHAR2 ,
106 p_active_status IN NUMBER ,
107 x_panel_id OUT NOCOPY NUMBER
108 ) IS
109 BEGIN
110 Update_panel
111 ( p_api_version,
112 p_init_msg_list,
113 p_commit,
114 p_validation_level,
115 x_return_status,
116 x_msg_count,
117 x_msg_data,
118 p_panel_id,
119 p_last_updated_by,
120 p_panel_name,
121 null,
122 p_panel_uid,
123 p_active_status,
124 x_panel_id);
125 END Update_Panel;
126
127 PROCEDURE Update_Panel
128 ( p_api_version IN NUMBER := 1 ,
129 p_init_msg_list IN VARCHAR2 := 'DUMMY VAL' ,
130 p_commit IN VARCHAR2 := 'DUMMY VAL' ,
131 p_validation_level IN NUMBER := 1 ,
132 x_return_status OUT NOCOPY VARCHAR2 ,
133 x_msg_count OUT NOCOPY NUMBER ,
134 x_msg_data OUT NOCOPY VARCHAR2 ,
135 p_panel_id IN NUMBER ,
136 p_last_updated_by IN NUMBER ,
137 p_panel_name IN VARCHAR2 ,
138 p_panel_label IN VARCHAR2 ,
139 p_panel_uid IN VARCHAR2 ,
140 p_active_status IN NUMBER ,
141 x_panel_id OUT NOCOPY NUMBER
142 ) IS
143 BEGIN
144 -- Standard Start of API savepoint
145 SAVEPOINT Update_Panel_PVT;
146 execute immediate 'UPDATE ies_panels SET last_updated_by = :1 ,
147 last_update_date = :2,
148 panel_name = :3,
149 panel_label = :4,
150 panel_uid = :5,
151 active_status = :6
152 WHERE panel_id = :7
153 RETURNING panel_id INTO :8' using p_last_updated_by ,
154 sysdate ,
155 p_panel_name ,
156 p_panel_label ,
157 p_panel_uid ,
158 p_active_status,
159 p_panel_id RETURNING INTO x_panel_id;
160
161 EXCEPTION
162 WHEN OTHERS THEN
163 ROLLBACK TO Update_Panel_PVT;
164 x_return_status := 'E';
165 x_msg_data := 'Error ' || TO_CHAR(SQLCODE) ||':'||SQLERRM;
166 END Update_Panel;
167 END IES_PANELS_PVT;