9: x_msg_data OUT NOCOPY VARCHAR2,
10: x_no_data_found OUT NOCOPY BOOLEAN,
11: x_cgrv_rec OUT NOCOPY cgrv_rec_type) IS
12: l_cgrv_rec cgrv_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_cgrv_rec := p_cgrv_rec;
14: l_no_data_found BOOLEAN;
15: BEGIN
16:
17: l_cgrv_rec := p_cgrv_rec;
18: x_return_status := FND_API.G_RET_STS_SUCCESS;
19: x_no_data_found := TRUE;
20:
21: okl_setupcontextgroups_pvt.get_rec(p_cgrv_rec => l_cgrv_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_cgrv_rec => x_cgrv_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_cgrv_rec => x_cgrv_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;
50: l_cgrv_rec cgrv_rec_type;
51: l_data VARCHAR2(100);
52: l_api_name CONSTANT VARCHAR2(30) := 'insert_contextgroups';
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_contextgroups;
58: l_cgrv_rec := p_cgrv_rec;
52: l_api_name CONSTANT VARCHAR2(30) := 'insert_contextgroups';
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_contextgroups;
58: l_cgrv_rec := p_cgrv_rec;
59:
60:
67: x_msg_data => x_msg_data,
68: p_cgrv_rec => l_cgrv_rec,
69: x_cgrv_rec => x_cgrv_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;
68: p_cgrv_rec => l_cgrv_rec,
69: x_cgrv_rec => x_cgrv_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:
69: x_cgrv_rec => x_cgrv_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 */
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_cgrv_rec := x_cgrv_rec;
79:
80:
81:
82: EXCEPTION
83: WHEN FND_API.G_EXC_ERROR THEN
84: ROLLBACK TO sp_insert_contextgroups;
85: -- notify caller of an UNEXPECTED error
86: x_return_status := FND_API.G_RET_STS_ERROR;
87:
82: EXCEPTION
83: WHEN FND_API.G_EXC_ERROR THEN
84: ROLLBACK TO sp_insert_contextgroups;
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,
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_contextgroups;
95: -- notify caller of an UNEXPECTED error
96: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
97:
92:
93: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
94: ROLLBACK TO sp_insert_contextgroups;
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_SETUPCONTEXTGROUPS_PUB','insert_contextgroups');
107:
108: -- store SQL error message on message stack for caller
109: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
125: l_cgrv_rec cgrv_rec_type;
126: l_data VARCHAR2(100);
127: l_count NUMBER ;
128: l_api_name CONSTANT VARCHAR2(30) := 'update_contextgroups';
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_contextgroups;
133: l_cgrv_rec := p_cgrv_rec;
127: l_count NUMBER ;
128: l_api_name CONSTANT VARCHAR2(30) := 'update_contextgroups';
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_contextgroups;
133: l_cgrv_rec := p_cgrv_rec;
134:
135:
142: x_msg_data => x_msg_data,
143: p_cgrv_rec => l_cgrv_rec,
144: x_cgrv_rec => x_cgrv_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;
143: p_cgrv_rec => l_cgrv_rec,
144: x_cgrv_rec => x_cgrv_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:
144: x_cgrv_rec => x_cgrv_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 */
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_cgrv_rec := x_cgrv_rec;
154:
155:
156:
157: EXCEPTION
158: WHEN FND_API.G_EXC_ERROR THEN
159: ROLLBACK TO sp_update_contextgroups;
160: -- notify caller of an UNEXPECTED error
161: x_return_status := FND_API.G_RET_STS_ERROR;
162:
157: EXCEPTION
158: WHEN FND_API.G_EXC_ERROR THEN
159: ROLLBACK TO sp_update_contextgroups;
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,
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_contextgroups;
170: -- notify caller of an UNEXPECTED error
171: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
172:
167:
168: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
169: ROLLBACK TO sp_update_contextgroups;
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_SETUPCONTEXTGROUPS_PUB','update_contextgroups');
182:
183: -- store SQL error message on message stack for caller
184: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,