[Home] [Help]
PACKAGE BODY: APPS.OKC_XPRT_QUESTION_PUB
Source
1 PACKAGE body OKC_XPRT_QUESTION_PUB
2 /* $Header: OKCPXIQB.pls 120.1 2011/03/10 18:05:39 harchand noship $ */
3 AS
4
5 ---------------------------------------------------------------------------
6 -- GLOBAL MESSAGE CONSTANTS
7 ---------------------------------------------------------------------------
8 G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
9 G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
10 G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
11 ---------------------------------------------------------------------------
12 -- GLOBAL VARIABLES
13 ---------------------------------------------------------------------------
14 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_XPRT_QUESTION_PUB';
15 G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
16
17 ------------------------------------------------------------------------------
18 -- GLOBAL CONSTANTS
19 ------------------------------------------------------------------------------
20 G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
21 G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
22 G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
23 G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
24 G_RET_STS_UNEXP_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
25
26 G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
27 G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
28 G_SQLCODE_TOKEN CONSTANT varchar2(200) := 'ERROR_CODE';
29
30 PROCEDURE create_question( p_xprt_question_rec IN OUT NOCOPY okc_xprt_question_pvt.xprt_qn_const_rec_type
31 ,p_commit IN VARCHAR2 := fnd_api.g_false
32 )
33 IS
34
35 x_return_status varchar2(1);
36 x_msg_data varchar2(2500);
37
38 BEGIN
39
40 p_xprt_question_rec.QN_CONST_type := 'Q';
41
42 OKC_XPRT_QUESTION_PVT.create_question
43 (p_xprt_question_rec => p_xprt_question_rec,
44 p_commit => p_commit,
45 x_return_status => x_return_status,
46 x_msg_data => x_msg_data
47 );
48
49 p_xprt_question_rec.sts := x_return_status;
50 p_xprt_question_rec.MSG := x_msg_data;
51
52 EXCEPTION
53 WHEN OTHERS THEN
54 RAISE;
55 END create_question;
56
57 PROCEDURE create_question( p_xprt_question_tbl IN OUT NOCOPY okc_xprt_question_pvt.xprt_qn_const_tbl_type
58 ,p_commit IN VARCHAR2 := fnd_api.g_false)
59 IS
60 l_count NUMBER;
61 BEGIN
62 l_count:=p_xprt_question_tbl.Count;
63
64 FOR i IN p_xprt_question_tbl.first ..p_xprt_question_tbl.last
65 LOOP
66 BEGIN
67 create_question(p_xprt_question_rec => p_xprt_question_tbl(i), p_commit => p_commit);
68 EXCEPTION
69 WHEN OTHERS THEN
70 p_xprt_question_tbl(i).sts:= G_RET_STS_UNEXP_ERROR;
71 p_xprt_question_tbl(i).MSG:=SQLERRM;
72 END;
73 END LOOP;
74
75 EXCEPTION
76 WHEN OTHERS THEN
77 RAISE;
78 END create_question;
79
80
81
82 PROCEDURE update_question(p_xprt_update_question_rec IN OUT NOCOPY okc_xprt_question_pvt.xprt_qn_const_rec_type
83 ,p_commit IN VARCHAR2 := fnd_api.g_false)
84 IS
85
86
87 x_return_status varchar2(1);
88 x_msg_data varchar2(2500);
89
90
91 BEGIN
92
93 p_xprt_update_question_rec.QN_CONST_type := 'Q';
94
95 OKC_XPRT_QUESTION_PVT.update_question
96 (p_xprt_update_question_rec => p_xprt_update_question_rec,
97 p_commit => p_commit,
98 x_return_status => x_return_status,
99 x_msg_data => x_msg_data
100 );
101 p_xprt_update_question_rec.sts := x_return_status;
102 p_xprt_update_question_rec.MSG := x_msg_data;
103 EXCEPTION
104 WHEN OTHERS THEN
105 RAISE;
106 END update_question;
107
108
109
110
111 PROCEDURE update_question(p_xprt_update_question_tbl IN OUT NOCOPY okc_xprt_question_pvt.xprt_qn_const_tbl_type
112 ,p_commit IN VARCHAR2 := fnd_api.g_false)
113 IS
114 l_count NUMBER;
115 BEGIN
116 l_count:=p_xprt_update_question_tbl.Count;
117 FOR i IN p_xprt_update_question_tbl.first ..p_xprt_update_question_tbl.last
118 LOOP
119 BEGIN
120 update_question (p_xprt_update_question_rec => p_xprt_update_question_tbl(i)
121 ,p_commit => p_commit);
122 EXCEPTION
123 WHEN OTHERS THEN
124 p_xprt_update_question_tbl(i).sts := G_RET_STS_UNEXP_ERROR;
125 p_xprt_update_question_tbl(i).MSG := SQLERRM;
126 END;
127 END LOOP;
128 EXCEPTION
129 WHEN OTHERS THEN
130 RAISE;
131 END update_question;
132
133
134 PROCEDURE create_constant( p_xprt_constant_rec IN OUT NOCOPY okc_xprt_question_pvt.xprt_qn_const_rec_type
135 ,p_commit IN VARCHAR2 := fnd_api.g_false
136 )
137 IS
138
139 x_return_status varchar2(1);
140 x_msg_data varchar2(2500);
141
142 BEGIN
143 p_xprt_constant_rec.QN_CONST_type := 'C';
144
145 OKC_XPRT_QUESTION_PVT.create_question
146 (p_xprt_question_rec => p_xprt_constant_rec,
147 p_commit => p_commit,
148 x_return_status => x_return_status,
149 x_msg_data => x_msg_data
150 );
151
152 p_xprt_constant_rec.sts := x_return_status;
153 p_xprt_constant_rec.MSG := x_msg_data;
154
155 EXCEPTION
156 WHEN OTHERS THEN
157 RAISE;
158 END create_constant;
159
160 PROCEDURE create_constant( p_xprt_constant_tbl IN OUT NOCOPY okc_xprt_question_pvt.xprt_qn_const_tbl_type
161 ,p_commit IN VARCHAR2 := fnd_api.g_false)
162 IS
163 l_count NUMBER;
164 BEGIN
165 l_count:=p_xprt_constant_tbl.Count;
166
167 FOR i IN p_xprt_constant_tbl.first ..p_xprt_constant_tbl.last
168 LOOP
169 BEGIN
170 create_constant(p_xprt_constant_rec => p_xprt_constant_tbl(i), p_commit => p_commit);
171 EXCEPTION
172 WHEN OTHERS THEN
173 p_xprt_constant_tbl(i).sts:= G_RET_STS_UNEXP_ERROR;
174 p_xprt_constant_tbl(i).MSG:=SQLERRM;
175 END;
176 END LOOP;
177
178 EXCEPTION
179 WHEN OTHERS THEN
180 RAISE;
181 END create_constant;
182
183
184
185 PROCEDURE update_constant(p_xprt_update_constant_rec IN OUT NOCOPY okc_xprt_question_pvt.xprt_qn_const_rec_type
186 ,p_commit IN VARCHAR2 := fnd_api.g_false)
187 IS
188
189
190 x_return_status varchar2(1);
191 x_msg_data varchar2(2500);
192
193
194 BEGIN
195
196 p_xprt_update_constant_rec.QN_CONST_type := 'C';
197 OKC_XPRT_QUESTION_PVT.update_question
198 (p_xprt_update_question_rec => p_xprt_update_constant_rec,
199 p_commit => p_commit,
200 x_return_status => x_return_status,
201 x_msg_data => x_msg_data
202 );
203 p_xprt_update_constant_rec.sts := x_return_status;
204 p_xprt_update_constant_rec.MSG := x_msg_data;
205 EXCEPTION
206 WHEN OTHERS THEN
207 RAISE;
208 END update_constant;
209
210
211
212
213 PROCEDURE update_constant(p_xprt_update_constant_tbl IN OUT NOCOPY okc_xprt_question_pvt.xprt_qn_const_tbl_type
214 ,p_commit IN VARCHAR2 := fnd_api.g_false)
215 IS
216 l_count NUMBER;
217 BEGIN
218 l_count:=p_xprt_update_constant_tbl.Count;
219 FOR i IN p_xprt_update_constant_tbl.first ..p_xprt_update_constant_tbl.last
220 LOOP
221 BEGIN
222 update_constant (p_xprt_update_constant_rec => p_xprt_update_constant_tbl(i)
223 ,p_commit => p_commit);
224 EXCEPTION
225 WHEN OTHERS THEN
226 p_xprt_update_constant_tbl(i).sts := G_RET_STS_UNEXP_ERROR;
227 p_xprt_update_constant_tbl(i).MSG := SQLERRM;
228 END;
229 END LOOP;
230 EXCEPTION
231 WHEN OTHERS THEN
232 RAISE;
233 END update_constant;
234
235 END OKC_XPRT_QUESTION_PUB;