9: x_msg_data OUT NOCOPY VARCHAR2,
10: x_no_data_found OUT NOCOPY BOOLEAN,
11: x_orlv_rec OUT NOCOPY orlv_rec_type) IS
12: l_orlv_rec orlv_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_orlv_rec := p_orlv_rec;
14: l_no_data_found BOOLEAN;
15: BEGIN
16:
17: l_orlv_rec := p_orlv_rec;
18: x_return_status := FND_API.G_RET_STS_SUCCESS;
19: x_no_data_found := TRUE;
20:
21: okl_setupoptrules_pvt.get_rec(p_orlv_rec => l_orlv_rec,
22: x_return_status => l_return_status,
22: x_return_status => l_return_status,
23: x_no_data_found => l_no_data_found,
24: x_orlv_rec => x_orlv_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
23: x_no_data_found => l_no_data_found,
24: x_orlv_rec => x_orlv_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
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;
52: l_orlv_rec orlv_rec_type;
53: l_data VARCHAR2(100);
54: l_api_name CONSTANT VARCHAR2(30) := 'insert_optrules';
55: l_count NUMBER ;
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_optrules;
60:
54: l_api_name CONSTANT VARCHAR2(30) := 'insert_optrules';
55: l_count NUMBER ;
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_optrules;
60:
61: l_optv_rec := p_optv_rec;
62: l_orlv_rec := p_orlv_rec;
72: p_optv_rec => l_optv_rec,
73: p_orlv_rec => l_orlv_rec,
74: x_orlv_rec => x_orlv_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;
73: p_orlv_rec => l_orlv_rec,
74: x_orlv_rec => x_orlv_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:
74: x_orlv_rec => x_orlv_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 */
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_orlv_rec := x_orlv_rec;
84:
85:
86:
87: EXCEPTION
88: WHEN FND_API.G_EXC_ERROR THEN
89: ROLLBACK TO sp_insert_optrules;
90: -- notify caller of an UNEXPECTED error
91: x_return_status := FND_API.G_RET_STS_ERROR;
92:
87: EXCEPTION
88: WHEN FND_API.G_EXC_ERROR THEN
89: ROLLBACK TO sp_insert_optrules;
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,
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_optrules;
100: -- notify caller of an UNEXPECTED error
101: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
102:
97:
98: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
99: ROLLBACK TO sp_insert_optrules;
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_SETUPOPTRULES_PUB','insert_optrules');
112:
113: -- store SQL error message on message stack for caller
114: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
131: l_orlv_tbl orlv_tbl_type;
132: l_data VARCHAR2(100);
133: l_count NUMBER ;
134: l_api_name CONSTANT VARCHAR2(30) := 'delete_optrules';
135: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
136: BEGIN
137: x_return_status := FND_API.G_RET_STS_SUCCESS;
138: SAVEPOINT sp_delete_optrules;
139:
133: l_count NUMBER ;
134: l_api_name CONSTANT VARCHAR2(30) := 'delete_optrules';
135: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
136: BEGIN
137: x_return_status := FND_API.G_RET_STS_SUCCESS;
138: SAVEPOINT sp_delete_optrules;
139:
140: l_optv_rec := p_optv_rec;
141: l_orlv_tbl := p_orlv_tbl;
150: x_msg_data => x_msg_data,
151: p_optv_rec => l_optv_rec,
152: p_orlv_tbl => l_orlv_tbl);
153:
154: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
155: RAISE FND_API.G_EXC_ERROR;
156: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
157: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
158: END IF;
151: p_optv_rec => l_optv_rec,
152: p_orlv_tbl => l_orlv_tbl);
153:
154: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
155: RAISE FND_API.G_EXC_ERROR;
156: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
157: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
158: END IF;
159:
152: p_orlv_tbl => l_orlv_tbl);
153:
154: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
155: RAISE FND_API.G_EXC_ERROR;
156: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
157: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
158: END IF;
159:
160:
153:
154: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
155: RAISE FND_API.G_EXC_ERROR;
156: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
157: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
158: END IF;
159:
160:
161:
159:
160:
161:
162: EXCEPTION
163: WHEN FND_API.G_EXC_ERROR THEN
164: ROLLBACK TO sp_delete_optrules;
165: -- notify caller of an UNEXPECTED error
166: x_return_status := FND_API.G_RET_STS_ERROR;
167:
162: EXCEPTION
163: WHEN FND_API.G_EXC_ERROR THEN
164: ROLLBACK TO sp_delete_optrules;
165: -- notify caller of an UNEXPECTED error
166: x_return_status := FND_API.G_RET_STS_ERROR;
167:
168: -- store SQL error message on message stack for caller
169: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
170: p_count => x_msg_count,
169: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
170: p_count => x_msg_count,
171: p_data => x_msg_data);
172:
173: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
174: ROLLBACK TO sp_delete_optrules;
175: -- notify caller of an UNEXPECTED error
176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
177:
172:
173: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
174: ROLLBACK TO sp_delete_optrules;
175: -- notify caller of an UNEXPECTED error
176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
177:
178: -- store SQL error message on message stack for caller
179: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
180: p_count => x_msg_count,
181: p_data => x_msg_data);
182:
183: WHEN OTHERS THEN
184: -- notify caller of an UNEXPECTED error
185: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
186: FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPOPTRULES_PUB','delete_optrules');
187:
188: -- store SQL error message on message stack for caller
189: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,