[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUPTQYVALUES_PUB
Source
1 PACKAGE BODY OKL_SETUPTQYVALUES_PUB AS
2 /* $Header: OKLPSEVB.pls 115.5 2004/04/13 11:05:24 rnaik noship $ */
3
4 ---------------------------------------------------------------------------
5 -- PROCEDURE get_rec for: OKL_FORMULAE_V
6 ---------------------------------------------------------------------------
7 PROCEDURE get_rec(p_ptvv_rec IN ptvv_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_ptvv_rec OUT NOCOPY ptvv_rec_type) IS
12 l_ptvv_rec ptvv_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_ptvv_rec := p_ptvv_rec;
18 x_return_status := FND_API.G_RET_STS_SUCCESS;
19 x_no_data_found := TRUE;
20
21 OKL_SETUPTQYVALUES_PVT.get_rec(p_ptvv_rec => l_ptvv_rec,
22 x_return_status => l_return_status,
23 x_no_data_found => l_no_data_found,
24 x_ptvv_rec => x_ptvv_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_tqyvalues
41 -- Public wrapper for insert_tqyvalues process api
42 ---------------------------------------------------------------------------
43 PROCEDURE insert_tqyvalues(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_ptqv_rec IN ptqv_rec_type,
49 p_ptvv_rec IN ptvv_rec_type,
50 x_ptvv_rec OUT NOCOPY ptvv_rec_type
51 ) IS
52 l_ptvv_rec ptvv_rec_type;
53 l_ptqv_rec ptqv_rec_type;
54 l_data VARCHAR2(100);
55 l_api_name CONSTANT VARCHAR2(30) := 'insert_tqyvalues';
56 l_count NUMBER ;
57 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
58 BEGIN
59 x_return_status := FND_API.G_RET_STS_SUCCESS;
60 SAVEPOINT sp_insert_tqyvalues;
61 l_ptvv_rec := p_ptvv_rec;
62 l_ptqv_rec := p_ptqv_rec;
63
64
65
66 -- call process api to insert formulae
67 okl_setuptqyvalues_pvt.insert_tqyvalues(p_api_version => p_api_version,
68 p_init_msg_list => p_init_msg_list,
69 x_return_status => l_return_status,
70 x_msg_count => x_msg_count,
71 x_msg_data => x_msg_data,
72 p_ptqv_rec => l_ptqv_rec,
73 p_ptvv_rec => l_ptvv_rec,
74 x_ptvv_rec => x_ptvv_rec);
75
76 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
77 RAISE FND_API.G_EXC_ERROR;
78 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
79 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
80 END IF;
81
82 /* re-assign local record structure using output record from pvt api */
83 l_ptvv_rec := x_ptvv_rec;
84
85
86
87 EXCEPTION
88 WHEN FND_API.G_EXC_ERROR THEN
89 ROLLBACK TO sp_insert_tqyvalues;
90 -- notify caller of an UNEXPECTED error
91 x_return_status := FND_API.G_RET_STS_ERROR;
92
93 -- store SQL error message on message stack for caller
94 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
95 p_count => x_msg_count,
96 p_data => x_msg_data);
97
98 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
99 ROLLBACK TO sp_insert_tqyvalues;
100 -- notify caller of an UNEXPECTED error
101 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
102
103 -- store SQL error message on message stack for caller
104 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
105 p_count => x_msg_count,
106 p_data => x_msg_data);
107
108 WHEN OTHERS THEN
109 -- notify caller of an UNEXPECTED error
110 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
111 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPTQYVALUES_PUB','insert_tqyvalues');
112
113 -- store SQL error message on message stack for caller
114 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
115 p_count => x_msg_count,
116 p_data => x_msg_data);
117 END insert_tqyvalues;
118
119 ---------------------------------------------------------------------------
120 -- PROCEDURE update_tqyvalues
121 -- Public wrapper for update_tqyvalues process api
122 ---------------------------------------------------------------------------
123 PROCEDURE update_tqyvalues(p_api_version IN NUMBER,
124 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
125 x_return_status OUT NOCOPY VARCHAR2,
126 x_msg_count OUT NOCOPY NUMBER,
127 x_msg_data OUT NOCOPY VARCHAR2,
128 p_ptqv_rec IN ptqv_rec_type,
129 p_ptvv_rec IN ptvv_rec_type,
130 x_ptvv_rec OUT NOCOPY ptvv_rec_type) IS
131 l_ptvv_rec ptvv_rec_type;
132 l_ptqv_rec ptqv_rec_type;
133 l_data VARCHAR2(100);
134 l_count NUMBER ;
135 l_api_name CONSTANT VARCHAR2(30) := 'update_tqyvalues';
136 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
137 BEGIN
138 x_return_status := FND_API.G_RET_STS_SUCCESS;
139 SAVEPOINT sp_update_tqyvalues;
140 l_ptvv_rec := p_ptvv_rec;
141 l_ptqv_rec := p_ptqv_rec;
142
143
144
145 -- call process api to update formulae
146 okl_setuptqyvalues_pvt.update_tqyvalues(p_api_version => p_api_version,
147 p_init_msg_list => p_init_msg_list,
148 x_return_status => l_return_status,
149 x_msg_count => x_msg_count,
150 x_msg_data => x_msg_data,
151 p_ptqv_rec => l_ptqv_rec,
152 p_ptvv_rec => l_ptvv_rec,
153 x_ptvv_rec => x_ptvv_rec);
154
155 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
156 RAISE FND_API.G_EXC_ERROR;
157 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
158 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
159 END IF;
160
161 /* re-assign local record structure using output record from pvt api */
162 l_ptvv_rec := x_ptvv_rec;
163
164
165
166 EXCEPTION
167 WHEN FND_API.G_EXC_ERROR THEN
168 ROLLBACK TO sp_update_tqyvalues;
169 -- notify caller of an UNEXPECTED error
170 x_return_status := FND_API.G_RET_STS_ERROR;
171
172 -- store SQL error message on message stack for caller
173 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
174 p_count => x_msg_count,
175 p_data => x_msg_data);
176
177 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
178 ROLLBACK TO sp_update_tqyvalues;
179 -- notify caller of an UNEXPECTED error
180 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
181
182 -- store SQL error message on message stack for caller
183 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
184 p_count => x_msg_count,
185 p_data => x_msg_data);
186
187 WHEN OTHERS THEN
188 -- notify caller of an UNEXPECTED error
189 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
190 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPTQYVALUES_PUB','update_tqyvalues');
191
192 -- store SQL error message on message stack for caller
193 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
194 p_count => x_msg_count,
195 p_data => x_msg_data);
196 END update_tqyvalues;
197
198 END OKL_SETUPTQYVALUES_PUB;