[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUPPQYVALUES_PUB
Source
1 PACKAGE BODY OKL_SETUPPQYVALUES_PUB AS
2 /* $Header: OKLPSQVB.pls 115.6 2004/04/13 11:20:12 rnaik noship $ */
3
4 ---------------------------------------------------------------------------
5 -- PROCEDURE get_rec for: OKL_PQY_VALUES_V
6 ---------------------------------------------------------------------------
7 PROCEDURE get_rec(p_qvev_rec IN qvev_rec_type,
8 x_return_status OUT NOCOPY VARCHAR2,
9 x_msg_data OUT NOCOPY VARCHAR2,
10 x_no_data_found OUT NOCOPY BOOLEAN,
11 x_qvev_rec OUT NOCOPY qvev_rec_type) IS
12 l_qvev_rec qvev_rec_type;
13 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
14 l_no_data_found BOOLEAN;
15 BEGIN
16
17 l_qvev_rec := p_qvev_rec;
18 x_return_status := FND_API.G_RET_STS_SUCCESS;
19 x_no_data_found := TRUE;
20
21 okl_SETUPPQYVALUES_pvt.get_rec(p_qvev_rec => l_qvev_rec,
22 x_return_status => l_return_status,
23 x_no_data_found => l_no_data_found,
24 x_qvev_rec => x_qvev_rec);
25
26 IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
27 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28 END IF;
29
30 EXCEPTION
31 WHEN OTHERS THEN
32 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
33 x_no_data_found := FALSE;
34 FND_MESSAGE.set_name(application => G_APP_NAME,
35 name => G_UNEXPECTED_ERROR);
36 x_msg_data := FND_MESSAGE.get;
37 END get_rec;
38
39 ---------------------------------------------------------------------------
40 -- PROCEDURE insert_pqyvalues
41 -- Public wrapper for insert_pqyvalues process api
42 ---------------------------------------------------------------------------
43 PROCEDURE insert_pqyvalues(p_api_version IN NUMBER,
44 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
45 x_return_status OUT NOCOPY VARCHAR2,
46 x_msg_count OUT NOCOPY NUMBER,
47 x_msg_data OUT NOCOPY VARCHAR2,
48 p_pqyv_rec IN pqyv_rec_type,
49 p_qvev_rec IN qvev_rec_type,
50 x_qvev_rec OUT NOCOPY qvev_rec_type) IS
51 l_qvev_rec qvev_rec_type;
52 l_pqyv_rec pqyv_rec_type;
53 l_data VARCHAR2(100);
54 l_api_name CONSTANT VARCHAR2(30) := 'insert_pqyvalues';
55 l_count NUMBER ;
56 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
57 BEGIN
58 x_return_status := FND_API.G_RET_STS_SUCCESS;
59 SAVEPOINT sp_insert_pqyvalues;
60 l_qvev_rec := p_qvev_rec;
61 l_pqyv_rec := p_pqyv_rec;
62
63
64
65 -- call process api to insert pqyvalues
66 okl_SETUPPQYVALUES_pvt.insert_pqyvalues(p_api_version => p_api_version,
67 p_init_msg_list => p_init_msg_list,
68 x_return_status => l_return_status,
69 x_msg_count => x_msg_count,
70 x_msg_data => x_msg_data,
71 p_pqyv_rec => l_pqyv_rec,
72 p_qvev_rec => l_qvev_rec,
73 x_qvev_rec => x_qvev_rec);
74
75 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
76 RAISE FND_API.G_EXC_ERROR;
77 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
78 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
79 END IF;
80
81 /* re-assign local record structure using output record from pvt api */
82 l_qvev_rec := x_qvev_rec;
83
84
85
86 EXCEPTION
87 WHEN FND_API.G_EXC_ERROR THEN
88 ROLLBACK TO sp_insert_pqyvalues;
89 -- notify caller of an UNEXPECTED error
90 x_return_status := FND_API.G_RET_STS_ERROR;
91
92 -- store SQL error message on message stack for caller
93 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
94 p_count => x_msg_count,
95 p_data => x_msg_data);
96
97 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
98 ROLLBACK TO sp_insert_pqyvalues;
99 -- notify caller of an UNEXPECTED error
100 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
101
102 -- store SQL error message on message stack for caller
103 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
104 p_count => x_msg_count,
105 p_data => x_msg_data);
106
107 WHEN OTHERS THEN
108 -- notify caller of an UNEXPECTED error
109 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
110 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPPQYVALUES_PUB','insert_pqyvalues');
111
112 -- store SQL error message on message stack for caller
113 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
114 p_count => x_msg_count,
115 p_data => x_msg_data);
116 END insert_pqyvalues;
117
118 ---------------------------------------------------------------------------
119 -- PROCEDURE update_pqyvalues
120 -- Public wrapper for update_pqyvalues process api
121 ---------------------------------------------------------------------------
122 PROCEDURE update_pqyvalues(p_api_version IN NUMBER,
123 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
124 x_return_status OUT NOCOPY VARCHAR2,
125 x_msg_count OUT NOCOPY NUMBER,
126 x_msg_data OUT NOCOPY VARCHAR2,
127 p_pqyv_rec IN pqyv_rec_type,
128 p_qvev_rec IN qvev_rec_type,
129 x_qvev_rec OUT NOCOPY qvev_rec_type) IS
130 l_qvev_rec qvev_rec_type;
131 l_pqyv_rec pqyv_rec_type;
132 l_data VARCHAR2(100);
133 l_count NUMBER ;
134 l_api_name CONSTANT VARCHAR2(30) := 'update_pqyvalues';
135 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
136 BEGIN
137 x_return_status := FND_API.G_RET_STS_SUCCESS;
138 SAVEPOINT sp_update_pqyvalues;
139 l_qvev_rec := p_qvev_rec;
140 l_pqyv_rec := p_pqyv_rec;
141
142
143
144 -- call process api to update pqyvalues
145 okl_SETUPPQYVALUES_pvt.update_pqyvalues(p_api_version => p_api_version,
146 p_init_msg_list => p_init_msg_list,
147 x_return_status => l_return_status,
148 x_msg_count => x_msg_count,
149 x_msg_data => x_msg_data,
150 p_pqyv_rec => l_pqyv_rec,
151 p_qvev_rec => l_qvev_rec,
152 x_qvev_rec => x_qvev_rec);
153
154 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
155 RAISE FND_API.G_EXC_ERROR;
156 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
157 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
158 END IF;
159
160 /* re-assign local record structure using output record from pvt api */
161 l_qvev_rec := x_qvev_rec;
162
163
164
165 EXCEPTION
166 WHEN FND_API.G_EXC_ERROR THEN
167 ROLLBACK TO sp_update_pqyvalues;
168 -- notify caller of an UNEXPECTED error
169 x_return_status := FND_API.G_RET_STS_ERROR;
170
171 -- store SQL error message on message stack for caller
172 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
173 p_count => x_msg_count,
174 p_data => x_msg_data);
175
176 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
177 ROLLBACK TO sp_update_pqyvalues;
178 -- notify caller of an UNEXPECTED error
179 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
180
181 -- store SQL error message on message stack for caller
182 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
183 p_count => x_msg_count,
184 p_data => x_msg_data);
185
186 WHEN OTHERS THEN
187 -- notify caller of an UNEXPECTED error
188 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
189 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPPQYVALUES_PUB','update_pqyvalues');
190
191 -- store SQL error message on message stack for caller
192 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
193 p_count => x_msg_count,
194 p_data => x_msg_data);
195 END update_pqyvalues;
196
197 END OKL_SETUPPQYVALUES_PUB;