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