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