[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUPPDTTEMPLATES_PUB
Source
1 PACKAGE BODY OKL_SETUPPDTTEMPLATES_PUB AS
2 /* $Header: OKLPSPTB.pls 115.4 2004/04/13 11:20:01 rnaik noship $ */
3
4 ---------------------------------------------------------------------------
5 -- PROCEDURE get_rec for: OKL_PDT_TEMPLATES_V
6 ---------------------------------------------------------------------------
7 PROCEDURE get_rec(p_ptlv_rec IN ptlv_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_ptlv_rec OUT NOCOPY ptlv_rec_type) IS
12 l_ptlv_rec ptlv_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_ptlv_rec := p_ptlv_rec;
18 x_return_status := FND_API.G_RET_STS_SUCCESS;
19 x_no_data_found := TRUE;
20
21 okl_setuppdttemplates_pvt.get_rec(p_ptlv_rec => l_ptlv_rec,
22 x_return_status => l_return_status,
23 x_no_data_found => l_no_data_found,
24 x_ptlv_rec => x_ptlv_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_pdttemplates
41 -- Public wrapper for insert_pdttemplates process api
42 ---------------------------------------------------------------------------
43 PROCEDURE insert_pdttemplates(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_ptlv_rec IN ptlv_rec_type,
49 x_ptlv_rec OUT NOCOPY ptlv_rec_type) IS
50 l_ptlv_rec ptlv_rec_type;
51 l_data VARCHAR2(100);
52 l_api_name CONSTANT VARCHAR2(30) := 'insert_pdttemplates';
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_pdttemplates;
58 l_ptlv_rec := p_ptlv_rec;
59
60
61
62 -- call process api to insert pdttemplates
63 okl_setuppdttemplates_pvt.insert_pdttemplates(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_ptlv_rec => l_ptlv_rec,
69 x_ptlv_rec => x_ptlv_rec);
70
71 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
72 RAISE FND_API.G_EXC_ERROR;
73 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
74 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
75 END IF;
76
77 /* re-assign local record structure using output record from pvt api */
78 l_ptlv_rec := x_ptlv_rec;
79
80
81
82 EXCEPTION
83 WHEN FND_API.G_EXC_ERROR THEN
84 ROLLBACK TO sp_insert_pdttemplates;
85 -- notify caller of an UNEXPECTED error
86 x_return_status := FND_API.G_RET_STS_ERROR;
87
88 -- store SQL error message on message stack for caller
89 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
90 p_count => x_msg_count,
91 p_data => x_msg_data);
92
93 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
94 ROLLBACK TO sp_insert_pdttemplates;
95 -- notify caller of an UNEXPECTED error
96 x_return_status := FND_API.G_RET_STS_UNEXP_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 OTHERS THEN
104 -- notify caller of an UNEXPECTED error
105 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
106 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPPDTTEMPLATES_PUB','insert_pdttemplates');
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 END insert_pdttemplates;
113
114 ---------------------------------------------------------------------------
115 -- PROCEDURE update_pdttemplates
116 -- Public wrapper for update_pdttemplates process api
117 ---------------------------------------------------------------------------
118 PROCEDURE update_pdttemplates(p_api_version IN NUMBER,
119 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
120 x_return_status OUT NOCOPY VARCHAR2,
121 x_msg_count OUT NOCOPY NUMBER,
122 x_msg_data OUT NOCOPY VARCHAR2,
123 p_ptlv_rec IN ptlv_rec_type,
124 x_ptlv_rec OUT NOCOPY ptlv_rec_type) IS
125 l_ptlv_rec ptlv_rec_type;
126 l_data VARCHAR2(100);
127 l_count NUMBER ;
128 l_api_name CONSTANT VARCHAR2(30) := 'update_pdttemplates';
129 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
130 BEGIN
131 x_return_status := FND_API.G_RET_STS_SUCCESS;
132 SAVEPOINT sp_update_pdttemplates;
133 l_ptlv_rec := p_ptlv_rec;
134
135
136
137 -- call process api to update pdttemplates
138 okl_setuppdttemplates_pvt.update_pdttemplates(p_api_version => p_api_version,
139 p_init_msg_list => p_init_msg_list,
140 x_return_status => l_return_status,
141 x_msg_count => x_msg_count,
142 x_msg_data => x_msg_data,
143 p_ptlv_rec => l_ptlv_rec,
144 x_ptlv_rec => x_ptlv_rec);
145
146 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
147 RAISE FND_API.G_EXC_ERROR;
148 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
149 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
150 END IF;
151
152 /* re-assign local record structure using output record from pvt api */
153 l_ptlv_rec := x_ptlv_rec;
154
155
156
157 EXCEPTION
158 WHEN FND_API.G_EXC_ERROR THEN
159 ROLLBACK TO sp_update_pdttemplates;
160 -- notify caller of an UNEXPECTED error
161 x_return_status := FND_API.G_RET_STS_ERROR;
162
163 -- store SQL error message on message stack for caller
164 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
165 p_count => x_msg_count,
166 p_data => x_msg_data);
167
168 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
169 ROLLBACK TO sp_update_pdttemplates;
170 -- notify caller of an UNEXPECTED error
171 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
172
173 -- store SQL error message on message stack for caller
174 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
175 p_count => x_msg_count,
176 p_data => x_msg_data);
177
178 WHEN OTHERS THEN
179 -- notify caller of an UNEXPECTED error
180 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
181 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPPDTTEMPLATES_PUB','update_pdttemplates');
182
183 -- store SQL error message on message stack for caller
184 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
185 p_count => x_msg_count,
186 p_data => x_msg_data);
187 END update_pdttemplates;
188
189 END OKL_SETUPPDTTEMPLATES_PUB;