9: x_msg_data OUT NOCOPY VARCHAR2,
10: x_no_data_found OUT NOCOPY BOOLEAN,
11: x_qvev_rec OUT NOCOPY qvev_rec_type) IS
12: l_qvev_rec qvev_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_qvev_rec := p_qvev_rec;
14: l_no_data_found BOOLEAN;
15: BEGIN
16:
17: l_qvev_rec := p_qvev_rec;
18: x_return_status := FND_API.G_RET_STS_SUCCESS;
19: x_no_data_found := TRUE;
20:
21: okl_SETUPPQYVALUES_pvt.get_rec(p_qvev_rec => l_qvev_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_qvev_rec => x_qvev_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_qvev_rec => x_qvev_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_pqyv_rec pqyv_rec_type;
53: l_data VARCHAR2(100);
54: l_api_name CONSTANT VARCHAR2(30) := 'insert_pqyvalues';
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_pqyvalues;
60: l_qvev_rec := p_qvev_rec;
54: l_api_name CONSTANT VARCHAR2(30) := 'insert_pqyvalues';
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_pqyvalues;
60: l_qvev_rec := p_qvev_rec;
61: l_pqyv_rec := p_pqyv_rec;
62:
71: p_pqyv_rec => l_pqyv_rec,
72: p_qvev_rec => l_qvev_rec,
73: x_qvev_rec => x_qvev_rec);
74:
75: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
76: RAISE FND_API.G_EXC_ERROR;
77: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
78: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
79: END IF;
72: p_qvev_rec => l_qvev_rec,
73: x_qvev_rec => x_qvev_rec);
74:
75: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
76: RAISE FND_API.G_EXC_ERROR;
77: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
78: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
79: END IF;
80:
73: x_qvev_rec => x_qvev_rec);
74:
75: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
76: RAISE FND_API.G_EXC_ERROR;
77: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
78: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
79: END IF;
80:
81: /* re-assign local record structure using output record from pvt api */
74:
75: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
76: RAISE FND_API.G_EXC_ERROR;
77: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
78: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
79: END IF;
80:
81: /* re-assign local record structure using output record from pvt api */
82: l_qvev_rec := x_qvev_rec;
83:
84:
85:
86: EXCEPTION
87: WHEN FND_API.G_EXC_ERROR THEN
88: ROLLBACK TO sp_insert_pqyvalues;
89: -- notify caller of an UNEXPECTED error
90: x_return_status := FND_API.G_RET_STS_ERROR;
91:
86: EXCEPTION
87: WHEN FND_API.G_EXC_ERROR THEN
88: ROLLBACK TO sp_insert_pqyvalues;
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,
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_pqyvalues;
99: -- notify caller of an UNEXPECTED error
100: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
101:
96:
97: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
98: ROLLBACK TO sp_insert_pqyvalues;
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_SETUPPQYVALUES_PUB','insert_pqyvalues');
111:
112: -- store SQL error message on message stack for caller
113: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
131: l_pqyv_rec pqyv_rec_type;
132: l_data VARCHAR2(100);
133: l_count NUMBER ;
134: l_api_name CONSTANT VARCHAR2(30) := 'update_pqyvalues';
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_update_pqyvalues;
139: l_qvev_rec := p_qvev_rec;
133: l_count NUMBER ;
134: l_api_name CONSTANT VARCHAR2(30) := 'update_pqyvalues';
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_update_pqyvalues;
139: l_qvev_rec := p_qvev_rec;
140: l_pqyv_rec := p_pqyv_rec;
141:
150: p_pqyv_rec => l_pqyv_rec,
151: p_qvev_rec => l_qvev_rec,
152: x_qvev_rec => x_qvev_rec);
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_qvev_rec => l_qvev_rec,
152: x_qvev_rec => x_qvev_rec);
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: x_qvev_rec => x_qvev_rec);
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: /* re-assign local record structure using output record from pvt api */
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: /* re-assign local record structure using output record from pvt api */
161: l_qvev_rec := x_qvev_rec;
162:
163:
164:
165: EXCEPTION
166: WHEN FND_API.G_EXC_ERROR THEN
167: ROLLBACK TO sp_update_pqyvalues;
168: -- notify caller of an UNEXPECTED error
169: x_return_status := FND_API.G_RET_STS_ERROR;
170:
165: EXCEPTION
166: WHEN FND_API.G_EXC_ERROR THEN
167: ROLLBACK TO sp_update_pqyvalues;
168: -- notify caller of an UNEXPECTED error
169: x_return_status := FND_API.G_RET_STS_ERROR;
170:
171: -- store SQL error message on message stack for caller
172: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
173: p_count => x_msg_count,
172: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
173: p_count => x_msg_count,
174: p_data => x_msg_data);
175:
176: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
177: ROLLBACK TO sp_update_pqyvalues;
178: -- notify caller of an UNEXPECTED error
179: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
180:
175:
176: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
177: ROLLBACK TO sp_update_pqyvalues;
178: -- notify caller of an UNEXPECTED error
179: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
180:
181: -- store SQL error message on message stack for caller
182: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
183: p_count => x_msg_count,
184: p_data => x_msg_data);
185:
186: WHEN OTHERS THEN
187: -- notify caller of an UNEXPECTED error
188: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
189: FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPPQYVALUES_PUB','update_pqyvalues');
190:
191: -- store SQL error message on message stack for caller
192: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,