18: p_vfav_rec IN vfav_rec_type,
19: x_vfav_rec OUT NOCOPY vfav_rec_type) IS
20:
21: l_vfav_rec vfav_rec_type;
22: l_return_status VARCHAR2(3) := FND_API.G_RET_STS_SUCCESS;
23: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_VERSION_FA';
24: l_api_version CONSTANT NUMBER := 1;
25: BEGIN
26: savepoint create_version_fa_pub;
24: l_api_version CONSTANT NUMBER := 1;
25: BEGIN
26: savepoint create_version_fa_pub;
27: -- Standard call to check for call compatibility.
28: IF NOT (FND_API.Compatible_API_Call (l_api_version,
29: p_api_version,
30: l_api_name,
31: G_PKG_NAME)) THEN
32: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28: IF NOT (FND_API.Compatible_API_Call (l_api_version,
29: p_api_version,
30: l_api_name,
31: G_PKG_NAME)) THEN
32: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33: END IF;
34: -- Initialize message list if p_init_msg_list is set to TRUE.
35: IF (FND_API.to_Boolean( p_init_msg_list )) THEN
36: FND_MSG_PUB.initialize;
31: G_PKG_NAME)) THEN
32: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33: END IF;
34: -- Initialize message list if p_init_msg_list is set to TRUE.
35: IF (FND_API.to_Boolean( p_init_msg_list )) THEN
36: FND_MSG_PUB.initialize;
37: END IF;
38: l_vfav_rec := p_vfav_rec;
39: g_vfav_rec := l_vfav_rec;
48: x_msg_count => x_msg_count,
49: x_msg_data => x_msg_data,
50: p_vfav_rec => l_vfav_rec,
51: x_vfav_rec => x_vfav_rec);
52: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
53: RAISE FND_API.G_EXC_ERROR;
54: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
55: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
56: END IF;
49: x_msg_data => x_msg_data,
50: p_vfav_rec => l_vfav_rec,
51: x_vfav_rec => x_vfav_rec);
52: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
53: RAISE FND_API.G_EXC_ERROR;
54: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
55: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
56: END IF;
57: l_vfav_rec := x_vfav_rec;
50: p_vfav_rec => l_vfav_rec,
51: x_vfav_rec => x_vfav_rec);
52: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
53: RAISE FND_API.G_EXC_ERROR;
54: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
55: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
56: END IF;
57: l_vfav_rec := x_vfav_rec;
58: g_vfav_rec := l_vfav_rec;
51: x_vfav_rec => x_vfav_rec);
52: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
53: RAISE FND_API.G_EXC_ERROR;
54: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
55: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
56: END IF;
57: l_vfav_rec := x_vfav_rec;
58: g_vfav_rec := l_vfav_rec;
59: -- Verticle industry post- processing section
57: l_vfav_rec := x_vfav_rec;
58: g_vfav_rec := l_vfav_rec;
59: -- Verticle industry post- processing section
60: -- Customer post processing section
61: x_return_status := FND_API.G_RET_STS_SUCCESS;
62: EXCEPTION
63: When FND_API.G_EXC_ERROR then
64: ROLLBACK TO create_version_fa_pub;
65: x_return_status := FND_API.G_RET_STS_ERROR;
59: -- Verticle industry post- processing section
60: -- Customer post processing section
61: x_return_status := FND_API.G_RET_STS_SUCCESS;
62: EXCEPTION
63: When FND_API.G_EXC_ERROR then
64: ROLLBACK TO create_version_fa_pub;
65: x_return_status := FND_API.G_RET_STS_ERROR;
66: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
67: p_data => x_msg_data);
61: x_return_status := FND_API.G_RET_STS_SUCCESS;
62: EXCEPTION
63: When FND_API.G_EXC_ERROR then
64: ROLLBACK TO create_version_fa_pub;
65: x_return_status := FND_API.G_RET_STS_ERROR;
66: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
67: p_data => x_msg_data);
68: When FND_API.G_EXC_UNEXPECTED_ERROR then
69: ROLLBACK TO create_version_fa_pub;
64: ROLLBACK TO create_version_fa_pub;
65: x_return_status := FND_API.G_RET_STS_ERROR;
66: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
67: p_data => x_msg_data);
68: When FND_API.G_EXC_UNEXPECTED_ERROR then
69: ROLLBACK TO create_version_fa_pub;
70: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
71: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
72: p_data => x_msg_data);
66: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
67: p_data => x_msg_data);
68: When FND_API.G_EXC_UNEXPECTED_ERROR then
69: ROLLBACK TO create_version_fa_pub;
70: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
71: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
72: p_data => x_msg_data);
73: When OTHERS then
74: ROLLBACK TO create_version_fa_pub;
71: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
72: p_data => x_msg_data);
73: When OTHERS then
74: ROLLBACK TO create_version_fa_pub;
75: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
76: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'create_version_fa_pub');
77: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
78: p_count => x_msg_count,
79: p_data => x_msg_data);
73: When OTHERS then
74: ROLLBACK TO create_version_fa_pub;
75: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
76: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'create_version_fa_pub');
77: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
78: p_count => x_msg_count,
79: p_data => x_msg_data);
80: END create_version_fa;
81:
96: x_msg_data OUT NOCOPY VARCHAR2,
97: p_vfav_tbl IN vfav_tbl_type,
98: x_vfav_tbl OUT NOCOPY vfav_tbl_type) IS
99: i NUMBER := 0;
100: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
101: BEGIN
102: x_return_status := FND_API.G_RET_STS_SUCCESS;
103: IF p_vfav_tbl.COUNT > 0 THEN
104: i := p_vfav_tbl.FIRST;
98: x_vfav_tbl OUT NOCOPY vfav_tbl_type) IS
99: i NUMBER := 0;
100: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
101: BEGIN
102: x_return_status := FND_API.G_RET_STS_SUCCESS;
103: IF p_vfav_tbl.COUNT > 0 THEN
104: i := p_vfav_tbl.FIRST;
105: LOOP
106: create_version_fa(p_api_version => p_api_version,
109: x_msg_count => x_msg_count,
110: x_msg_data => x_msg_data,
111: p_vfav_rec => p_vfav_tbl(i),
112: x_vfav_rec => x_vfav_tbl(i));
113: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
114: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
115: x_return_status := l_return_status;
116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
117: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
110: x_msg_data => x_msg_data,
111: p_vfav_rec => p_vfav_tbl(i),
112: x_vfav_rec => x_vfav_tbl(i));
113: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
114: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
115: x_return_status := l_return_status;
116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
117: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
118: x_return_status := l_return_status;
112: x_vfav_rec => x_vfav_tbl(i));
113: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
114: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
115: x_return_status := l_return_status;
116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
117: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
118: x_return_status := l_return_status;
119: RAISE FND_API.G_EXC_ERROR;
120: ELSE
113: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
114: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
115: x_return_status := l_return_status;
116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
117: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
118: x_return_status := l_return_status;
119: RAISE FND_API.G_EXC_ERROR;
120: ELSE
121: x_return_status := l_return_status;
115: x_return_status := l_return_status;
116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
117: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
118: x_return_status := l_return_status;
119: RAISE FND_API.G_EXC_ERROR;
120: ELSE
121: x_return_status := l_return_status;
122: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
123: END IF;
118: x_return_status := l_return_status;
119: RAISE FND_API.G_EXC_ERROR;
120: ELSE
121: x_return_status := l_return_status;
122: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
123: END IF;
124: END IF;
125: EXIT WHEN (i = p_vfav_tbl.LAST);
126: i := p_vfav_tbl.NEXT(i);
126: i := p_vfav_tbl.NEXT(i);
127: END LOOP;
128: END IF;
129: EXCEPTION
130: WHEN FND_API.G_EXC_ERROR THEN
131: ROLLBACK TO create_version_fa_pub;
132: x_return_status := FND_API.G_RET_STS_ERROR;
133: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
134: p_data => x_msg_data);
128: END IF;
129: EXCEPTION
130: WHEN FND_API.G_EXC_ERROR THEN
131: ROLLBACK TO create_version_fa_pub;
132: x_return_status := FND_API.G_RET_STS_ERROR;
133: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
134: p_data => x_msg_data);
135: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
136: ROLLBACK TO create_version_fa_pub;
131: ROLLBACK TO create_version_fa_pub;
132: x_return_status := FND_API.G_RET_STS_ERROR;
133: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
134: p_data => x_msg_data);
135: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
136: ROLLBACK TO create_version_fa_pub;
137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
138: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
139: p_data => x_msg_data);
133: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
134: p_data => x_msg_data);
135: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
136: ROLLBACK TO create_version_fa_pub;
137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
138: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
139: p_data => x_msg_data);
140: WHEN OTHERS then
141: ROLLBACK TO create_version_fa_pub;
138: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
139: p_data => x_msg_data);
140: WHEN OTHERS then
141: ROLLBACK TO create_version_fa_pub;
142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
143: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, 'create_version_fa_pub');
144: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
145: p_count => x_msg_count,
146: p_data => x_msg_data);
140: WHEN OTHERS then
141: ROLLBACK TO create_version_fa_pub;
142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
143: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, 'create_version_fa_pub');
144: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
145: p_count => x_msg_count,
146: p_data => x_msg_data);
147: END create_version_fa;
148:
162: p_vfav_rec IN vfav_rec_type,
163: x_vfav_rec OUT NOCOPY vfav_rec_type) IS
164:
165: l_vfav_rec vfav_rec_type;
166: l_return_status VARCHAR2(3) := FND_API.G_RET_STS_SUCCESS;
167: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_VERSION_FA';
168: l_api_version CONSTANT NUMBER := 1;
169: BEGIN
170: savepoint update_version_fa_pub;
168: l_api_version CONSTANT NUMBER := 1;
169: BEGIN
170: savepoint update_version_fa_pub;
171: -- Standard call to check for call compatibility.
172: IF NOT (FND_API.Compatible_API_Call (l_api_version,
173: p_api_version,
174: l_api_name,
175: G_PKG_NAME)) THEN
176: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
172: IF NOT (FND_API.Compatible_API_Call (l_api_version,
173: p_api_version,
174: l_api_name,
175: G_PKG_NAME)) THEN
176: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
177: END IF;
178: -- Initialize message list if p_init_msg_list is set to TRUE.
179: IF (FND_API.to_Boolean( p_init_msg_list )) THEN
180: FND_MSG_PUB.initialize;
175: G_PKG_NAME)) THEN
176: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
177: END IF;
178: -- Initialize message list if p_init_msg_list is set to TRUE.
179: IF (FND_API.to_Boolean( p_init_msg_list )) THEN
180: FND_MSG_PUB.initialize;
181: END IF;
182: l_vfav_rec := p_vfav_rec;
183: g_vfav_rec := l_vfav_rec;
192: x_msg_count => x_msg_count,
193: x_msg_data => x_msg_data,
194: p_vfav_rec => l_vfav_rec,
195: x_vfav_rec => x_vfav_rec);
196: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
197: RAISE FND_API.G_EXC_ERROR;
198: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
200: END IF;
193: x_msg_data => x_msg_data,
194: p_vfav_rec => l_vfav_rec,
195: x_vfav_rec => x_vfav_rec);
196: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
197: RAISE FND_API.G_EXC_ERROR;
198: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
200: END IF;
201: l_vfav_rec := x_vfav_rec;
194: p_vfav_rec => l_vfav_rec,
195: x_vfav_rec => x_vfav_rec);
196: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
197: RAISE FND_API.G_EXC_ERROR;
198: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
200: END IF;
201: l_vfav_rec := x_vfav_rec;
202: g_vfav_rec := l_vfav_rec;
195: x_vfav_rec => x_vfav_rec);
196: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
197: RAISE FND_API.G_EXC_ERROR;
198: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
200: END IF;
201: l_vfav_rec := x_vfav_rec;
202: g_vfav_rec := l_vfav_rec;
203: -- Verticle industry post- processing section
201: l_vfav_rec := x_vfav_rec;
202: g_vfav_rec := l_vfav_rec;
203: -- Verticle industry post- processing section
204: -- Customer post processing section
205: x_return_status := FND_API.G_RET_STS_SUCCESS;
206: EXCEPTION
207: When FND_API.G_EXC_ERROR then
208: ROLLBACK TO update_version_fa_pub;
209: x_return_status := FND_API.G_RET_STS_ERROR;
203: -- Verticle industry post- processing section
204: -- Customer post processing section
205: x_return_status := FND_API.G_RET_STS_SUCCESS;
206: EXCEPTION
207: When FND_API.G_EXC_ERROR then
208: ROLLBACK TO update_version_fa_pub;
209: x_return_status := FND_API.G_RET_STS_ERROR;
210: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
211: p_data => x_msg_data);
205: x_return_status := FND_API.G_RET_STS_SUCCESS;
206: EXCEPTION
207: When FND_API.G_EXC_ERROR then
208: ROLLBACK TO update_version_fa_pub;
209: x_return_status := FND_API.G_RET_STS_ERROR;
210: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
211: p_data => x_msg_data);
212: When FND_API.G_EXC_UNEXPECTED_ERROR then
213: ROLLBACK TO update_version_fa_pub;
208: ROLLBACK TO update_version_fa_pub;
209: x_return_status := FND_API.G_RET_STS_ERROR;
210: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
211: p_data => x_msg_data);
212: When FND_API.G_EXC_UNEXPECTED_ERROR then
213: ROLLBACK TO update_version_fa_pub;
214: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
215: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
216: p_data => x_msg_data);
210: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
211: p_data => x_msg_data);
212: When FND_API.G_EXC_UNEXPECTED_ERROR then
213: ROLLBACK TO update_version_fa_pub;
214: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
215: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
216: p_data => x_msg_data);
217: When OTHERS then
218: ROLLBACK TO update_version_fa_pub;
215: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
216: p_data => x_msg_data);
217: When OTHERS then
218: ROLLBACK TO update_version_fa_pub;
219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
220: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'update_version_fa_pub');
221: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
222: p_count => x_msg_count,
223: p_data => x_msg_data);
217: When OTHERS then
218: ROLLBACK TO update_version_fa_pub;
219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
220: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'update_version_fa_pub');
221: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
222: p_count => x_msg_count,
223: p_data => x_msg_data);
224: END update_version_fa;
225:
240: x_msg_data OUT NOCOPY VARCHAR2,
241: p_vfav_tbl IN vfav_tbl_type,
242: x_vfav_tbl OUT NOCOPY vfav_tbl_type) IS
243: i NUMBER := 0;
244: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
245: BEGIN
246: x_return_status := FND_API.G_RET_STS_SUCCESS;
247: IF p_vfav_tbl.COUNT > 0 THEN
248: i := p_vfav_tbl.FIRST;
242: x_vfav_tbl OUT NOCOPY vfav_tbl_type) IS
243: i NUMBER := 0;
244: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
245: BEGIN
246: x_return_status := FND_API.G_RET_STS_SUCCESS;
247: IF p_vfav_tbl.COUNT > 0 THEN
248: i := p_vfav_tbl.FIRST;
249: LOOP
250: update_version_fa(p_api_version => p_api_version,
253: x_msg_count => x_msg_count,
254: x_msg_data => x_msg_data,
255: p_vfav_rec => p_vfav_tbl(i),
256: x_vfav_rec => x_vfav_tbl(i));
257: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
258: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
259: x_return_status := l_return_status;
260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
261: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
254: x_msg_data => x_msg_data,
255: p_vfav_rec => p_vfav_tbl(i),
256: x_vfav_rec => x_vfav_tbl(i));
257: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
258: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
259: x_return_status := l_return_status;
260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
261: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
262: x_return_status := l_return_status;
256: x_vfav_rec => x_vfav_tbl(i));
257: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
258: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
259: x_return_status := l_return_status;
260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
261: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
262: x_return_status := l_return_status;
263: RAISE FND_API.G_EXC_ERROR;
264: ELSE
257: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
258: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
259: x_return_status := l_return_status;
260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
261: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
262: x_return_status := l_return_status;
263: RAISE FND_API.G_EXC_ERROR;
264: ELSE
265: x_return_status := l_return_status;
259: x_return_status := l_return_status;
260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
261: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
262: x_return_status := l_return_status;
263: RAISE FND_API.G_EXC_ERROR;
264: ELSE
265: x_return_status := l_return_status;
266: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
267: END IF;
262: x_return_status := l_return_status;
263: RAISE FND_API.G_EXC_ERROR;
264: ELSE
265: x_return_status := l_return_status;
266: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
267: END IF;
268: END IF;
269: EXIT WHEN (i = p_vfav_tbl.LAST);
270: i := p_vfav_tbl.NEXT(i);
270: i := p_vfav_tbl.NEXT(i);
271: END LOOP;
272: END IF;
273: EXCEPTION
274: WHEN FND_API.G_EXC_ERROR THEN
275: ROLLBACK TO update_version_fa_pub;
276: x_return_status := FND_API.G_RET_STS_ERROR;
277: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
278: p_data => x_msg_data);
272: END IF;
273: EXCEPTION
274: WHEN FND_API.G_EXC_ERROR THEN
275: ROLLBACK TO update_version_fa_pub;
276: x_return_status := FND_API.G_RET_STS_ERROR;
277: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
278: p_data => x_msg_data);
279: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
280: ROLLBACK TO update_version_fa_pub;
275: ROLLBACK TO update_version_fa_pub;
276: x_return_status := FND_API.G_RET_STS_ERROR;
277: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
278: p_data => x_msg_data);
279: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
280: ROLLBACK TO update_version_fa_pub;
281: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
282: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
283: p_data => x_msg_data);
277: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
278: p_data => x_msg_data);
279: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
280: ROLLBACK TO update_version_fa_pub;
281: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
282: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
283: p_data => x_msg_data);
284: WHEN OTHERS then
285: ROLLBACK TO update_version_fa_pub;
282: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
283: p_data => x_msg_data);
284: WHEN OTHERS then
285: ROLLBACK TO update_version_fa_pub;
286: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
287: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, 'update_version_fa_pub');
288: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
289: p_count => x_msg_count,
290: p_data => x_msg_data);
284: WHEN OTHERS then
285: ROLLBACK TO update_version_fa_pub;
286: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
287: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, 'update_version_fa_pub');
288: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
289: p_count => x_msg_count,
290: p_data => x_msg_data);
291: END update_version_fa;
292:
305: x_msg_data OUT NOCOPY VARCHAR2,
306: p_vfav_rec IN vfav_rec_type) IS
307:
308: l_vfav_rec vfav_rec_type;
309: l_return_status VARCHAR2(3) := FND_API.G_RET_STS_SUCCESS;
310: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_VERSION_FA';
311: l_api_version CONSTANT NUMBER := 1;
312: BEGIN
313: savepoint delete_version_fa_pub;
311: l_api_version CONSTANT NUMBER := 1;
312: BEGIN
313: savepoint delete_version_fa_pub;
314: -- Standard call to check for call compatibility.
315: IF NOT (FND_API.Compatible_API_Call (l_api_version,
316: p_api_version,
317: l_api_name,
318: G_PKG_NAME)) THEN
319: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
315: IF NOT (FND_API.Compatible_API_Call (l_api_version,
316: p_api_version,
317: l_api_name,
318: G_PKG_NAME)) THEN
319: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
320: END IF;
321: -- Initialize message list if p_init_msg_list is set to TRUE.
322: IF (FND_API.to_Boolean( p_init_msg_list )) THEN
323: FND_MSG_PUB.initialize;
318: G_PKG_NAME)) THEN
319: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
320: END IF;
321: -- Initialize message list if p_init_msg_list is set to TRUE.
322: IF (FND_API.to_Boolean( p_init_msg_list )) THEN
323: FND_MSG_PUB.initialize;
324: END IF;
325: l_vfav_rec := p_vfav_rec;
326: g_vfav_rec := l_vfav_rec;
334: x_return_status => l_return_status,
335: x_msg_count => x_msg_count,
336: x_msg_data => x_msg_data,
337: p_vfav_rec => l_vfav_rec);
338: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
339: RAISE FND_API.G_EXC_ERROR;
340: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
341: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
342: END IF;
335: x_msg_count => x_msg_count,
336: x_msg_data => x_msg_data,
337: p_vfav_rec => l_vfav_rec);
338: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
339: RAISE FND_API.G_EXC_ERROR;
340: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
341: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
342: END IF;
343: g_vfav_rec := l_vfav_rec;
336: x_msg_data => x_msg_data,
337: p_vfav_rec => l_vfav_rec);
338: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
339: RAISE FND_API.G_EXC_ERROR;
340: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
341: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
342: END IF;
343: g_vfav_rec := l_vfav_rec;
344: -- Verticle industry post- processing section
337: p_vfav_rec => l_vfav_rec);
338: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
339: RAISE FND_API.G_EXC_ERROR;
340: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
341: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
342: END IF;
343: g_vfav_rec := l_vfav_rec;
344: -- Verticle industry post- processing section
345: -- Customer post processing section
342: END IF;
343: g_vfav_rec := l_vfav_rec;
344: -- Verticle industry post- processing section
345: -- Customer post processing section
346: x_return_status := FND_API.G_RET_STS_SUCCESS;
347: EXCEPTION
348: When FND_API.G_EXC_ERROR then
349: ROLLBACK TO delete_version_fa_pub;
350: x_return_status := FND_API.G_RET_STS_ERROR;
344: -- Verticle industry post- processing section
345: -- Customer post processing section
346: x_return_status := FND_API.G_RET_STS_SUCCESS;
347: EXCEPTION
348: When FND_API.G_EXC_ERROR then
349: ROLLBACK TO delete_version_fa_pub;
350: x_return_status := FND_API.G_RET_STS_ERROR;
351: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
352: p_data => x_msg_data);
346: x_return_status := FND_API.G_RET_STS_SUCCESS;
347: EXCEPTION
348: When FND_API.G_EXC_ERROR then
349: ROLLBACK TO delete_version_fa_pub;
350: x_return_status := FND_API.G_RET_STS_ERROR;
351: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
352: p_data => x_msg_data);
353: When FND_API.G_EXC_UNEXPECTED_ERROR then
354: ROLLBACK TO delete_version_fa_pub;
349: ROLLBACK TO delete_version_fa_pub;
350: x_return_status := FND_API.G_RET_STS_ERROR;
351: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
352: p_data => x_msg_data);
353: When FND_API.G_EXC_UNEXPECTED_ERROR then
354: ROLLBACK TO delete_version_fa_pub;
355: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
356: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
357: p_data => x_msg_data);
351: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
352: p_data => x_msg_data);
353: When FND_API.G_EXC_UNEXPECTED_ERROR then
354: ROLLBACK TO delete_version_fa_pub;
355: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
356: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
357: p_data => x_msg_data);
358: When OTHERS then
359: ROLLBACK TO delete_version_fa_pub;
356: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
357: p_data => x_msg_data);
358: When OTHERS then
359: ROLLBACK TO delete_version_fa_pub;
360: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
361: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'delete_version_fa_pub');
362: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
363: p_count => x_msg_count,
364: p_data => x_msg_data);
358: When OTHERS then
359: ROLLBACK TO delete_version_fa_pub;
360: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
361: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'delete_version_fa_pub');
362: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
363: p_count => x_msg_count,
364: p_data => x_msg_data);
365: END delete_version_fa;
366:
380: x_msg_count OUT NOCOPY NUMBER,
381: x_msg_data OUT NOCOPY VARCHAR2,
382: p_vfav_tbl IN vfav_tbl_type) IS
383: i NUMBER := 0;
384: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
385: BEGIN
386: x_return_status := FND_API.G_RET_STS_SUCCESS;
387: IF p_vfav_tbl.COUNT > 0 THEN
388: i := p_vfav_tbl.FIRST;
382: p_vfav_tbl IN vfav_tbl_type) IS
383: i NUMBER := 0;
384: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
385: BEGIN
386: x_return_status := FND_API.G_RET_STS_SUCCESS;
387: IF p_vfav_tbl.COUNT > 0 THEN
388: i := p_vfav_tbl.FIRST;
389: LOOP
390: delete_version_fa(p_api_version => p_api_version,
392: x_return_status => l_return_status,
393: x_msg_count => x_msg_count,
394: x_msg_data => x_msg_data,
395: p_vfav_rec => p_vfav_tbl(i));
396: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
397: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
398: x_return_status := l_return_status;
399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
400: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
393: x_msg_count => x_msg_count,
394: x_msg_data => x_msg_data,
395: p_vfav_rec => p_vfav_tbl(i));
396: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
397: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
398: x_return_status := l_return_status;
399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
400: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
401: x_return_status := l_return_status;
395: p_vfav_rec => p_vfav_tbl(i));
396: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
397: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
398: x_return_status := l_return_status;
399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
400: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
401: x_return_status := l_return_status;
402: RAISE FND_API.G_EXC_ERROR;
403: ELSE
396: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
397: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
398: x_return_status := l_return_status;
399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
400: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
401: x_return_status := l_return_status;
402: RAISE FND_API.G_EXC_ERROR;
403: ELSE
404: x_return_status := l_return_status;
398: x_return_status := l_return_status;
399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
400: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
401: x_return_status := l_return_status;
402: RAISE FND_API.G_EXC_ERROR;
403: ELSE
404: x_return_status := l_return_status;
405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
406: END IF;
401: x_return_status := l_return_status;
402: RAISE FND_API.G_EXC_ERROR;
403: ELSE
404: x_return_status := l_return_status;
405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
406: END IF;
407: END IF;
408: EXIT WHEN (i = p_vfav_tbl.LAST);
409: i := p_vfav_tbl.NEXT(i);
409: i := p_vfav_tbl.NEXT(i);
410: END LOOP;
411: END IF;
412: EXCEPTION
413: WHEN FND_API.G_EXC_ERROR THEN
414: ROLLBACK TO delete_version_fa_pub;
415: x_return_status := FND_API.G_RET_STS_ERROR;
416: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
417: p_data => x_msg_data);
411: END IF;
412: EXCEPTION
413: WHEN FND_API.G_EXC_ERROR THEN
414: ROLLBACK TO delete_version_fa_pub;
415: x_return_status := FND_API.G_RET_STS_ERROR;
416: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
417: p_data => x_msg_data);
418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
419: ROLLBACK TO delete_version_fa_pub;
414: ROLLBACK TO delete_version_fa_pub;
415: x_return_status := FND_API.G_RET_STS_ERROR;
416: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
417: p_data => x_msg_data);
418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
419: ROLLBACK TO delete_version_fa_pub;
420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
421: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
422: p_data => x_msg_data);
416: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
417: p_data => x_msg_data);
418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
419: ROLLBACK TO delete_version_fa_pub;
420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
421: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
422: p_data => x_msg_data);
423: WHEN OTHERS then
424: ROLLBACK TO delete_version_fa_pub;
421: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
422: p_data => x_msg_data);
423: WHEN OTHERS then
424: ROLLBACK TO delete_version_fa_pub;
425: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
426: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, 'delete_version_fa_pub');
427: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
428: p_count => x_msg_count,
429: p_data => x_msg_data);
423: WHEN OTHERS then
424: ROLLBACK TO delete_version_fa_pub;
425: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
426: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, 'delete_version_fa_pub');
427: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
428: p_count => x_msg_count,
429: p_data => x_msg_data);
430: END delete_version_fa;
431:
445: x_msg_data OUT NOCOPY VARCHAR2,
446: p_vfav_rec IN vfav_rec_type) IS
447:
448: l_vfav_rec vfav_rec_type;
449: l_return_status VARCHAR2(3) := FND_API.G_RET_STS_SUCCESS;
450: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_VERSION_FA';
451: l_api_version CONSTANT NUMBER := 1;
452: BEGIN
453: savepoint validate_version_fa_pub;
451: l_api_version CONSTANT NUMBER := 1;
452: BEGIN
453: savepoint validate_version_fa_pub;
454: -- Standard call to check for call compatibility.
455: IF NOT (FND_API.Compatible_API_Call (l_api_version,
456: p_api_version,
457: l_api_name,
458: G_PKG_NAME)) THEN
459: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
455: IF NOT (FND_API.Compatible_API_Call (l_api_version,
456: p_api_version,
457: l_api_name,
458: G_PKG_NAME)) THEN
459: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
460: END IF;
461: -- Initialize message list if p_init_msg_list is set to TRUE.
462: IF (FND_API.to_Boolean( p_init_msg_list )) THEN
463: FND_MSG_PUB.initialize;
458: G_PKG_NAME)) THEN
459: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
460: END IF;
461: -- Initialize message list if p_init_msg_list is set to TRUE.
462: IF (FND_API.to_Boolean( p_init_msg_list )) THEN
463: FND_MSG_PUB.initialize;
464: END IF;
465: l_vfav_rec := p_vfav_rec;
466: g_vfav_rec := l_vfav_rec;
474: x_return_status => l_return_status,
475: x_msg_count => x_msg_count,
476: x_msg_data => x_msg_data,
477: p_vfav_rec => l_vfav_rec);
478: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
479: RAISE FND_API.G_EXC_ERROR;
480: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
481: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
482: END IF;
475: x_msg_count => x_msg_count,
476: x_msg_data => x_msg_data,
477: p_vfav_rec => l_vfav_rec);
478: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
479: RAISE FND_API.G_EXC_ERROR;
480: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
481: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
482: END IF;
483: g_vfav_rec := l_vfav_rec;
476: x_msg_data => x_msg_data,
477: p_vfav_rec => l_vfav_rec);
478: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
479: RAISE FND_API.G_EXC_ERROR;
480: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
481: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
482: END IF;
483: g_vfav_rec := l_vfav_rec;
484: -- Verticle industry post- processing section
477: p_vfav_rec => l_vfav_rec);
478: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
479: RAISE FND_API.G_EXC_ERROR;
480: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
481: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
482: END IF;
483: g_vfav_rec := l_vfav_rec;
484: -- Verticle industry post- processing section
485: -- Customer post processing section
482: END IF;
483: g_vfav_rec := l_vfav_rec;
484: -- Verticle industry post- processing section
485: -- Customer post processing section
486: x_return_status := FND_API.G_RET_STS_SUCCESS;
487: EXCEPTION
488: When FND_API.G_EXC_ERROR then
489: ROLLBACK TO validate_version_fa_pub;
490: x_return_status := FND_API.G_RET_STS_ERROR;
484: -- Verticle industry post- processing section
485: -- Customer post processing section
486: x_return_status := FND_API.G_RET_STS_SUCCESS;
487: EXCEPTION
488: When FND_API.G_EXC_ERROR then
489: ROLLBACK TO validate_version_fa_pub;
490: x_return_status := FND_API.G_RET_STS_ERROR;
491: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
492: p_data => x_msg_data);
486: x_return_status := FND_API.G_RET_STS_SUCCESS;
487: EXCEPTION
488: When FND_API.G_EXC_ERROR then
489: ROLLBACK TO validate_version_fa_pub;
490: x_return_status := FND_API.G_RET_STS_ERROR;
491: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
492: p_data => x_msg_data);
493: When FND_API.G_EXC_UNEXPECTED_ERROR then
494: ROLLBACK TO validate_version_fa_pub;
489: ROLLBACK TO validate_version_fa_pub;
490: x_return_status := FND_API.G_RET_STS_ERROR;
491: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
492: p_data => x_msg_data);
493: When FND_API.G_EXC_UNEXPECTED_ERROR then
494: ROLLBACK TO validate_version_fa_pub;
495: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
496: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
497: p_data => x_msg_data);
491: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
492: p_data => x_msg_data);
493: When FND_API.G_EXC_UNEXPECTED_ERROR then
494: ROLLBACK TO validate_version_fa_pub;
495: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
496: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
497: p_data => x_msg_data);
498: When OTHERS then
499: ROLLBACK TO validate_version_fa_pub;
496: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
497: p_data => x_msg_data);
498: When OTHERS then
499: ROLLBACK TO validate_version_fa_pub;
500: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
501: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'validate_version_fa_pub');
502: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
503: p_count => x_msg_count,
504: p_data => x_msg_data);
498: When OTHERS then
499: ROLLBACK TO validate_version_fa_pub;
500: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
501: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'validate_version_fa_pub');
502: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
503: p_count => x_msg_count,
504: p_data => x_msg_data);
505: END validate_version_fa;
506:
520: x_msg_count OUT NOCOPY NUMBER,
521: x_msg_data OUT NOCOPY VARCHAR2,
522: p_vfav_tbl IN vfav_tbl_type) IS
523: i NUMBER := 0;
524: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
525: BEGIN
526: x_return_status := FND_API.G_RET_STS_SUCCESS;
527: IF p_vfav_tbl.COUNT > 0 THEN
528: i := p_vfav_tbl.FIRST;
522: p_vfav_tbl IN vfav_tbl_type) IS
523: i NUMBER := 0;
524: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
525: BEGIN
526: x_return_status := FND_API.G_RET_STS_SUCCESS;
527: IF p_vfav_tbl.COUNT > 0 THEN
528: i := p_vfav_tbl.FIRST;
529: LOOP
530: validate_version_fa(p_api_version => p_api_version,
532: x_return_status => l_return_status,
533: x_msg_count => x_msg_count,
534: x_msg_data => x_msg_data,
535: p_vfav_rec => p_vfav_tbl(i));
536: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
537: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
538: x_return_status := l_return_status;
539: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
540: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
533: x_msg_count => x_msg_count,
534: x_msg_data => x_msg_data,
535: p_vfav_rec => p_vfav_tbl(i));
536: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
537: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
538: x_return_status := l_return_status;
539: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
540: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
541: x_return_status := l_return_status;
535: p_vfav_rec => p_vfav_tbl(i));
536: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
537: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
538: x_return_status := l_return_status;
539: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
540: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
541: x_return_status := l_return_status;
542: RAISE FND_API.G_EXC_ERROR;
543: ELSE
536: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
537: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
538: x_return_status := l_return_status;
539: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
540: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
541: x_return_status := l_return_status;
542: RAISE FND_API.G_EXC_ERROR;
543: ELSE
544: x_return_status := l_return_status;
538: x_return_status := l_return_status;
539: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
540: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
541: x_return_status := l_return_status;
542: RAISE FND_API.G_EXC_ERROR;
543: ELSE
544: x_return_status := l_return_status;
545: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
546: END IF;
541: x_return_status := l_return_status;
542: RAISE FND_API.G_EXC_ERROR;
543: ELSE
544: x_return_status := l_return_status;
545: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
546: END IF;
547: END IF;
548: EXIT WHEN (i = p_vfav_tbl.LAST);
549: i := p_vfav_tbl.NEXT(i);
549: i := p_vfav_tbl.NEXT(i);
550: END LOOP;
551: END IF;
552: EXCEPTION
553: WHEN FND_API.G_EXC_ERROR THEN
554: ROLLBACK TO validate_version_fa_pub;
555: x_return_status := FND_API.G_RET_STS_ERROR;
556: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
557: p_data => x_msg_data);
551: END IF;
552: EXCEPTION
553: WHEN FND_API.G_EXC_ERROR THEN
554: ROLLBACK TO validate_version_fa_pub;
555: x_return_status := FND_API.G_RET_STS_ERROR;
556: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
557: p_data => x_msg_data);
558: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
559: ROLLBACK TO validate_version_fa_pub;
554: ROLLBACK TO validate_version_fa_pub;
555: x_return_status := FND_API.G_RET_STS_ERROR;
556: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
557: p_data => x_msg_data);
558: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
559: ROLLBACK TO validate_version_fa_pub;
560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
561: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
562: p_data => x_msg_data);
556: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
557: p_data => x_msg_data);
558: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
559: ROLLBACK TO validate_version_fa_pub;
560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
561: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
562: p_data => x_msg_data);
563: WHEN OTHERS then
564: ROLLBACK TO validate_version_fa_pub;
561: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
562: p_data => x_msg_data);
563: WHEN OTHERS then
564: ROLLBACK TO validate_version_fa_pub;
565: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
566: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, 'validate_version_fa_pub');
567: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
568: p_count => x_msg_count,
569: p_data => x_msg_data);
563: WHEN OTHERS then
564: ROLLBACK TO validate_version_fa_pub;
565: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
566: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, 'validate_version_fa_pub');
567: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
568: p_count => x_msg_count,
569: p_data => x_msg_data);
570: END validate_version_fa;
571:
585: x_msg_data OUT NOCOPY VARCHAR2,
586: p_vfav_rec IN vfav_rec_type) IS
587:
588: l_vfav_rec vfav_rec_type;
589: l_return_status VARCHAR2(3) := FND_API.G_RET_STS_SUCCESS;
590: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_VERSION_FA';
591: l_api_version CONSTANT NUMBER := 1;
592: BEGIN
593: savepoint lock_version_fa_pub;
591: l_api_version CONSTANT NUMBER := 1;
592: BEGIN
593: savepoint lock_version_fa_pub;
594: -- Standard call to check for call compatibility.
595: IF NOT (FND_API.Compatible_API_Call (l_api_version,
596: p_api_version,
597: l_api_name,
598: G_PKG_NAME)) THEN
599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
595: IF NOT (FND_API.Compatible_API_Call (l_api_version,
596: p_api_version,
597: l_api_name,
598: G_PKG_NAME)) THEN
599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
600: END IF;
601: -- Initialize message list if p_init_msg_list is set to TRUE.
602: IF (FND_API.to_Boolean( p_init_msg_list )) THEN
603: FND_MSG_PUB.initialize;
598: G_PKG_NAME)) THEN
599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
600: END IF;
601: -- Initialize message list if p_init_msg_list is set to TRUE.
602: IF (FND_API.to_Boolean( p_init_msg_list )) THEN
603: FND_MSG_PUB.initialize;
604: END IF;
605: l_vfav_rec := p_vfav_rec;
606: -- Business API call section
611: x_return_status => l_return_status,
612: x_msg_count => x_msg_count,
613: x_msg_data => x_msg_data,
614: p_vfav_rec => l_vfav_rec);
615: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
616: RAISE FND_API.G_EXC_ERROR;
617: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
618: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
619: END IF;
612: x_msg_count => x_msg_count,
613: x_msg_data => x_msg_data,
614: p_vfav_rec => l_vfav_rec);
615: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
616: RAISE FND_API.G_EXC_ERROR;
617: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
618: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
619: END IF;
620: g_vfav_rec := l_vfav_rec;
613: x_msg_data => x_msg_data,
614: p_vfav_rec => l_vfav_rec);
615: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
616: RAISE FND_API.G_EXC_ERROR;
617: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
618: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
619: END IF;
620: g_vfav_rec := l_vfav_rec;
621: x_return_status := FND_API.G_RET_STS_SUCCESS;
614: p_vfav_rec => l_vfav_rec);
615: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
616: RAISE FND_API.G_EXC_ERROR;
617: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
618: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
619: END IF;
620: g_vfav_rec := l_vfav_rec;
621: x_return_status := FND_API.G_RET_STS_SUCCESS;
622: EXCEPTION
617: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
618: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
619: END IF;
620: g_vfav_rec := l_vfav_rec;
621: x_return_status := FND_API.G_RET_STS_SUCCESS;
622: EXCEPTION
623: When FND_API.G_EXC_ERROR then
624: ROLLBACK TO lock_version_fa_pub;
625: x_return_status := FND_API.G_RET_STS_ERROR;
619: END IF;
620: g_vfav_rec := l_vfav_rec;
621: x_return_status := FND_API.G_RET_STS_SUCCESS;
622: EXCEPTION
623: When FND_API.G_EXC_ERROR then
624: ROLLBACK TO lock_version_fa_pub;
625: x_return_status := FND_API.G_RET_STS_ERROR;
626: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
627: p_data => x_msg_data);
621: x_return_status := FND_API.G_RET_STS_SUCCESS;
622: EXCEPTION
623: When FND_API.G_EXC_ERROR then
624: ROLLBACK TO lock_version_fa_pub;
625: x_return_status := FND_API.G_RET_STS_ERROR;
626: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
627: p_data => x_msg_data);
628: When FND_API.G_EXC_UNEXPECTED_ERROR then
629: ROLLBACK TO lock_version_fa_pub;
624: ROLLBACK TO lock_version_fa_pub;
625: x_return_status := FND_API.G_RET_STS_ERROR;
626: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
627: p_data => x_msg_data);
628: When FND_API.G_EXC_UNEXPECTED_ERROR then
629: ROLLBACK TO lock_version_fa_pub;
630: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
631: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
632: p_data => x_msg_data);
626: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
627: p_data => x_msg_data);
628: When FND_API.G_EXC_UNEXPECTED_ERROR then
629: ROLLBACK TO lock_version_fa_pub;
630: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
631: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
632: p_data => x_msg_data);
633: When OTHERS then
634: ROLLBACK TO lock_version_fa_pub;
631: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
632: p_data => x_msg_data);
633: When OTHERS then
634: ROLLBACK TO lock_version_fa_pub;
635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
636: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'lock_version_fa_pub');
637: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
638: p_count => x_msg_count,
639: p_data => x_msg_data);
633: When OTHERS then
634: ROLLBACK TO lock_version_fa_pub;
635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
636: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'lock_version_fa_pub');
637: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
638: p_count => x_msg_count,
639: p_data => x_msg_data);
640: END lock_version_fa;
641:
655: x_msg_count OUT NOCOPY NUMBER,
656: x_msg_data OUT NOCOPY VARCHAR2,
657: p_vfav_tbl IN vfav_tbl_type) IS
658: i NUMBER := 0;
659: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
660: BEGIN
661: x_return_status := FND_API.G_RET_STS_SUCCESS;
662: IF p_vfav_tbl.COUNT > 0 THEN
663: i := p_vfav_tbl.FIRST;
657: p_vfav_tbl IN vfav_tbl_type) IS
658: i NUMBER := 0;
659: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
660: BEGIN
661: x_return_status := FND_API.G_RET_STS_SUCCESS;
662: IF p_vfav_tbl.COUNT > 0 THEN
663: i := p_vfav_tbl.FIRST;
664: LOOP
665: lock_version_fa(p_api_version => p_api_version,
667: x_return_status => l_return_status,
668: x_msg_count => x_msg_count,
669: x_msg_data => x_msg_data,
670: p_vfav_rec => p_vfav_tbl(i));
671: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
672: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
673: x_return_status := l_return_status;
674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
675: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
668: x_msg_count => x_msg_count,
669: x_msg_data => x_msg_data,
670: p_vfav_rec => p_vfav_tbl(i));
671: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
672: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
673: x_return_status := l_return_status;
674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
675: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
676: x_return_status := l_return_status;
670: p_vfav_rec => p_vfav_tbl(i));
671: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
672: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
673: x_return_status := l_return_status;
674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
675: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
676: x_return_status := l_return_status;
677: RAISE FND_API.G_EXC_ERROR;
678: ELSE
671: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
672: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
673: x_return_status := l_return_status;
674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
675: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
676: x_return_status := l_return_status;
677: RAISE FND_API.G_EXC_ERROR;
678: ELSE
679: x_return_status := l_return_status;
673: x_return_status := l_return_status;
674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
675: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
676: x_return_status := l_return_status;
677: RAISE FND_API.G_EXC_ERROR;
678: ELSE
679: x_return_status := l_return_status;
680: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
681: END IF;
676: x_return_status := l_return_status;
677: RAISE FND_API.G_EXC_ERROR;
678: ELSE
679: x_return_status := l_return_status;
680: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
681: END IF;
682: END IF;
683: EXIT WHEN (i = p_vfav_tbl.LAST);
684: i := p_vfav_tbl.NEXT(i);
684: i := p_vfav_tbl.NEXT(i);
685: END LOOP;
686: END IF;
687: EXCEPTION
688: WHEN FND_API.G_EXC_ERROR THEN
689: ROLLBACK TO lock_version_fa_pub;
690: x_return_status := FND_API.G_RET_STS_ERROR;
691: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
692: p_data => x_msg_data);
686: END IF;
687: EXCEPTION
688: WHEN FND_API.G_EXC_ERROR THEN
689: ROLLBACK TO lock_version_fa_pub;
690: x_return_status := FND_API.G_RET_STS_ERROR;
691: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
692: p_data => x_msg_data);
693: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
694: ROLLBACK TO lock_version_fa_pub;
689: ROLLBACK TO lock_version_fa_pub;
690: x_return_status := FND_API.G_RET_STS_ERROR;
691: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
692: p_data => x_msg_data);
693: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
694: ROLLBACK TO lock_version_fa_pub;
695: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
696: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
697: p_data => x_msg_data);
691: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
692: p_data => x_msg_data);
693: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
694: ROLLBACK TO lock_version_fa_pub;
695: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
696: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
697: p_data => x_msg_data);
698: WHEN OTHERS then
699: ROLLBACK TO lock_version_fa_pub;
696: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
697: p_data => x_msg_data);
698: WHEN OTHERS then
699: ROLLBACK TO lock_version_fa_pub;
700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
701: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, 'lock_version_fa_pub');
702: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
703: p_count => x_msg_count,
704: p_data => x_msg_data);
698: WHEN OTHERS then
699: ROLLBACK TO lock_version_fa_pub;
700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
701: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, 'lock_version_fa_pub');
702: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
703: p_count => x_msg_count,
704: p_data => x_msg_data);
705: END lock_version_fa;
706: