[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUPPSTYPES_PUB
Source
1 PACKAGE BODY OKL_SETUPPSTYPES_PUB AS
2 /* $Header: OKLPSPSB.pls 115.6 2004/04/13 11:19:51 rnaik noship $ */
3 ---------------------------------------------------------------------------
4 -- PROCEDURE get_rec for: OKL_PROD_STRM_TYPES_V
5 ---------------------------------------------------------------------------
6 PROCEDURE get_rec(p_psyv_rec IN psyv_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_psyv_rec OUT NOCOPY psyv_rec_type) IS
11 l_psyv_rec psyv_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_psyv_rec := p_psyv_rec;
17 x_return_status := FND_API.G_RET_STS_SUCCESS;
18 x_no_data_found := TRUE;
19
20 okl_setuppstypes_pvt.get_rec(p_psyv_rec => l_psyv_rec,
21 x_return_status => l_return_status,
22 x_no_data_found => l_no_data_found,
23 x_psyv_rec => x_psyv_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_pstypes
40 -- Public wrapper for insert_pstypes process api
41 ---------------------------------------------------------------------------
42 PROCEDURE insert_pstypes(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_pdtv_rec IN pdtv_rec_type,
48 p_psyv_rec IN psyv_rec_type,
49 x_psyv_rec OUT NOCOPY psyv_rec_type
50 ) IS
51 l_psyv_rec psyv_rec_type;
52 l_pdtv_rec pdtv_rec_type;
53 l_data VARCHAR2(100);
54 l_count NUMBER ;
55 l_api_name CONSTANT VARCHAR2(30) := 'insert_pstypes';
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_pstypes;
60 l_psyv_rec := p_psyv_rec;
61 l_pdtv_rec := p_pdtv_rec;
62
63
64
65 -- call process api to insert psyalues
66 okl_setuppstypes_pvt.insert_pstypes(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_psyv_rec => l_psyv_rec,
72 x_psyv_rec => x_psyv_rec,
73 p_pdtv_rec => l_pdtv_rec
74 );
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_psyv_rec := x_psyv_rec;
84
85
86 EXCEPTION
87 WHEN FND_API.G_EXC_ERROR THEN
88 ROLLBACK TO sp_insert_pstypes;
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_pstypes;
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_SETUPPSTYPES_PUB','insert_pstypes');
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_pstypes;
117
118 ---------------------------------------------------------------------------
119 -- PROCEDURE update_pstypes
120 -- Public wrapper for update_pstypes process api
121 ---------------------------------------------------------------------------
122 PROCEDURE update_pstypes(p_api_version IN NUMBER,
123 p_init_msg_list IN VARCHAR2 DEFAULT OKL_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_pdtv_rec IN pdtv_rec_type,
128 p_psyv_rec IN psyv_rec_type,
129 x_psyv_rec OUT NOCOPY psyv_rec_type
130 ) IS
131 l_psyv_rec psyv_rec_type;
132 l_pdtv_rec pdtv_rec_type;
133 l_data VARCHAR2(100);
134 l_count NUMBER ;
135 l_api_name CONSTANT VARCHAR2(30) := 'update_pstypes';
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_pstypes;
140 l_psyv_rec := p_psyv_rec;
141 l_pdtv_rec := p_pdtv_rec;
142
143
144
145 -- call process api to update psyalues
146 okl_setuppstypes_pvt.update_pstypes(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_psyv_rec => l_psyv_rec,
152 x_psyv_rec => x_psyv_rec,
153 p_pdtv_rec => l_pdtv_rec
154 );
155
156 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
157 RAISE FND_API.G_EXC_ERROR;
158 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
159 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
160 END IF;
161
162 /* re-assign local record structure using output record from pvt api */
163 l_psyv_rec := x_psyv_rec;
164
165
166 EXCEPTION
167 WHEN FND_API.G_EXC_ERROR THEN
168 ROLLBACK TO sp_update_pstypes;
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_pstypes;
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_SETUPPSTYPES_PUB','update_pstypes');
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_pstypes;
197
198
199 END OKL_SETUPPSTYPES_PUB;