17: p_tlpv_rec IN tlpv_rec_type,
18: x_tlpv_rec OUT NOCOPY tlpv_rec_type) IS
19:
20: l_tlpv_rec tlpv_rec_type;
21: l_return_status VARCHAR2(3) := FND_API.G_RET_STS_SUCCESS;
22: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_TXL_ASSET_LINE';
23: l_api_version CONSTANT NUMBER := 1;
24: BEGIN
25: savepoint create_txl_asset_Def_pub;
23: l_api_version CONSTANT NUMBER := 1;
24: BEGIN
25: savepoint create_txl_asset_Def_pub;
26: -- Standard call to check for call compatibility.
27: IF NOT (FND_API.Compatible_API_Call (l_api_version,
28: p_api_version,
29: l_api_name,
30: G_PKG_NAME)) THEN
31: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
27: IF NOT (FND_API.Compatible_API_Call (l_api_version,
28: p_api_version,
29: l_api_name,
30: G_PKG_NAME)) THEN
31: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32: END IF;
33: -- Initialize message list if p_init_msg_list is set to TRUE.
34: IF (FND_API.to_Boolean( p_init_msg_list )) THEN
35: FND_MSG_PUB.initialize;
30: G_PKG_NAME)) THEN
31: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32: END IF;
33: -- Initialize message list if p_init_msg_list is set to TRUE.
34: IF (FND_API.to_Boolean( p_init_msg_list )) THEN
35: FND_MSG_PUB.initialize;
36: END IF;
37: l_tlpv_rec := p_tlpv_rec;
38: g_tlpv_rec := l_tlpv_rec;
47: x_msg_count => x_msg_count,
48: x_msg_data => x_msg_data,
49: p_talv_rec => l_tlpv_rec,
50: x_talv_rec => x_tlpv_rec);
51: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
52: RAISE FND_API.G_EXC_ERROR;
53: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
54: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
55: END IF;
48: x_msg_data => x_msg_data,
49: p_talv_rec => l_tlpv_rec,
50: x_talv_rec => x_tlpv_rec);
51: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
52: RAISE FND_API.G_EXC_ERROR;
53: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
54: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
55: END IF;
56: l_tlpv_rec := x_tlpv_rec;
49: p_talv_rec => l_tlpv_rec,
50: x_talv_rec => x_tlpv_rec);
51: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
52: RAISE FND_API.G_EXC_ERROR;
53: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
54: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
55: END IF;
56: l_tlpv_rec := x_tlpv_rec;
57: g_tlpv_rec := l_tlpv_rec;
50: x_talv_rec => x_tlpv_rec);
51: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
52: RAISE FND_API.G_EXC_ERROR;
53: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
54: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
55: END IF;
56: l_tlpv_rec := x_tlpv_rec;
57: g_tlpv_rec := l_tlpv_rec;
58: -- Verticle industry post- processing section
56: l_tlpv_rec := x_tlpv_rec;
57: g_tlpv_rec := l_tlpv_rec;
58: -- Verticle industry post- processing section
59: -- Customer post processing section
60: x_return_status := FND_API.G_RET_STS_SUCCESS;
61: EXCEPTION
62: When FND_API.G_EXC_ERROR then
63: ROLLBACK TO create_txl_asset_Def_pub;
64: x_return_status := FND_API.G_RET_STS_ERROR;
58: -- Verticle industry post- processing section
59: -- Customer post processing section
60: x_return_status := FND_API.G_RET_STS_SUCCESS;
61: EXCEPTION
62: When FND_API.G_EXC_ERROR then
63: ROLLBACK TO create_txl_asset_Def_pub;
64: x_return_status := FND_API.G_RET_STS_ERROR;
65: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
66: p_data => x_msg_data);
60: x_return_status := FND_API.G_RET_STS_SUCCESS;
61: EXCEPTION
62: When FND_API.G_EXC_ERROR then
63: ROLLBACK TO create_txl_asset_Def_pub;
64: x_return_status := FND_API.G_RET_STS_ERROR;
65: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
66: p_data => x_msg_data);
67: When FND_API.G_EXC_UNEXPECTED_ERROR then
68: ROLLBACK TO create_txl_asset_Def_pub;
63: ROLLBACK TO create_txl_asset_Def_pub;
64: x_return_status := FND_API.G_RET_STS_ERROR;
65: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
66: p_data => x_msg_data);
67: When FND_API.G_EXC_UNEXPECTED_ERROR then
68: ROLLBACK TO create_txl_asset_Def_pub;
69: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
70: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
71: p_data => x_msg_data);
65: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
66: p_data => x_msg_data);
67: When FND_API.G_EXC_UNEXPECTED_ERROR then
68: ROLLBACK TO create_txl_asset_Def_pub;
69: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
70: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
71: p_data => x_msg_data);
72: When OTHERS then
73: ROLLBACK TO create_txl_asset_Def_pub;
70: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
71: p_data => x_msg_data);
72: When OTHERS then
73: ROLLBACK TO create_txl_asset_Def_pub;
74: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
75: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'create_txl_asset_Def_pub');
76: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
77: p_count => x_msg_count,
78: p_data => x_msg_data);
72: When OTHERS then
73: ROLLBACK TO create_txl_asset_Def_pub;
74: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
75: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'create_txl_asset_Def_pub');
76: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
77: p_count => x_msg_count,
78: p_data => x_msg_data);
79: END create_txl_asset_Def;
80:
95: x_msg_data OUT NOCOPY VARCHAR2,
96: p_tlpv_tbl IN tlpv_tbl_type,
97: x_tlpv_tbl OUT NOCOPY tlpv_tbl_type) IS
98: i NUMBER := 0;
99: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
100: BEGIN
101: x_return_status := FND_API.G_RET_STS_SUCCESS;
102: IF p_tlpv_tbl.COUNT > 0 THEN
103: i := p_tlpv_tbl.FIRST;
97: x_tlpv_tbl OUT NOCOPY tlpv_tbl_type) IS
98: i NUMBER := 0;
99: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
100: BEGIN
101: x_return_status := FND_API.G_RET_STS_SUCCESS;
102: IF p_tlpv_tbl.COUNT > 0 THEN
103: i := p_tlpv_tbl.FIRST;
104: LOOP
105: create_txl_asset_Def(p_api_version => p_api_version,
108: x_msg_count => x_msg_count,
109: x_msg_data => x_msg_data,
110: p_tlpv_rec => p_tlpv_tbl(i),
111: x_tlpv_rec => x_tlpv_tbl(i));
112: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
113: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
114: x_return_status := l_return_status;
115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
116: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
109: x_msg_data => x_msg_data,
110: p_tlpv_rec => p_tlpv_tbl(i),
111: x_tlpv_rec => x_tlpv_tbl(i));
112: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
113: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
114: x_return_status := l_return_status;
115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
116: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
117: x_return_status := l_return_status;
111: x_tlpv_rec => x_tlpv_tbl(i));
112: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
113: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
114: x_return_status := l_return_status;
115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
116: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
117: x_return_status := l_return_status;
118: RAISE FND_API.G_EXC_ERROR;
119: ELSE
112: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
113: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
114: x_return_status := l_return_status;
115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
116: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
117: x_return_status := l_return_status;
118: RAISE FND_API.G_EXC_ERROR;
119: ELSE
120: x_return_status := l_return_status;
114: x_return_status := l_return_status;
115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
116: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
117: x_return_status := l_return_status;
118: RAISE FND_API.G_EXC_ERROR;
119: ELSE
120: x_return_status := l_return_status;
121: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
122: END IF;
117: x_return_status := l_return_status;
118: RAISE FND_API.G_EXC_ERROR;
119: ELSE
120: x_return_status := l_return_status;
121: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
122: END IF;
123: END IF;
124: EXIT WHEN (i = p_tlpv_tbl.LAST);
125: i := p_tlpv_tbl.NEXT(i);
125: i := p_tlpv_tbl.NEXT(i);
126: END LOOP;
127: END IF;
128: EXCEPTION
129: WHEN FND_API.G_EXC_ERROR THEN
130: ROLLBACK TO create_txl_asset_Def_pub;
131: x_return_status := FND_API.G_RET_STS_ERROR;
132: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
133: p_data => x_msg_data);
127: END IF;
128: EXCEPTION
129: WHEN FND_API.G_EXC_ERROR THEN
130: ROLLBACK TO create_txl_asset_Def_pub;
131: x_return_status := FND_API.G_RET_STS_ERROR;
132: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
133: p_data => x_msg_data);
134: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
135: ROLLBACK TO create_txl_asset_Def_pub;
130: ROLLBACK TO create_txl_asset_Def_pub;
131: x_return_status := FND_API.G_RET_STS_ERROR;
132: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
133: p_data => x_msg_data);
134: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
135: ROLLBACK TO create_txl_asset_Def_pub;
136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
137: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
138: p_data => x_msg_data);
132: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
133: p_data => x_msg_data);
134: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
135: ROLLBACK TO create_txl_asset_Def_pub;
136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
137: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
138: p_data => x_msg_data);
139: WHEN OTHERS then
140: ROLLBACK TO create_txl_asset_Def_pub;
137: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
138: p_data => x_msg_data);
139: WHEN OTHERS then
140: ROLLBACK TO create_txl_asset_Def_pub;
141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
142: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, 'create_txl_asset_Def_pub');
143: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
144: p_count => x_msg_count,
145: p_data => x_msg_data);
139: WHEN OTHERS then
140: ROLLBACK TO create_txl_asset_Def_pub;
141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
142: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, 'create_txl_asset_Def_pub');
143: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
144: p_count => x_msg_count,
145: p_data => x_msg_data);
146: END create_txl_asset_Def;
147:
161: p_tlpv_rec IN tlpv_rec_type,
162: x_tlpv_rec OUT NOCOPY tlpv_rec_type) IS
163:
164: l_tlpv_rec tlpv_rec_type;
165: l_return_status VARCHAR2(3) := FND_API.G_RET_STS_SUCCESS;
166: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TXL_ASSET_LINE';
167: l_api_version CONSTANT NUMBER := 1;
168: BEGIN
169: savepoint update_txl_asset_Def_pub;
167: l_api_version CONSTANT NUMBER := 1;
168: BEGIN
169: savepoint update_txl_asset_Def_pub;
170: -- Standard call to check for call compatibility.
171: IF NOT (FND_API.Compatible_API_Call (l_api_version,
172: p_api_version,
173: l_api_name,
174: G_PKG_NAME)) THEN
175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
171: IF NOT (FND_API.Compatible_API_Call (l_api_version,
172: p_api_version,
173: l_api_name,
174: G_PKG_NAME)) THEN
175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
176: END IF;
177: -- Initialize message list if p_init_msg_list is set to TRUE.
178: IF (FND_API.to_Boolean( p_init_msg_list )) THEN
179: FND_MSG_PUB.initialize;
174: G_PKG_NAME)) THEN
175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
176: END IF;
177: -- Initialize message list if p_init_msg_list is set to TRUE.
178: IF (FND_API.to_Boolean( p_init_msg_list )) THEN
179: FND_MSG_PUB.initialize;
180: END IF;
181: l_tlpv_rec := p_tlpv_rec;
182: g_tlpv_rec := l_tlpv_rec;
191: x_msg_count => x_msg_count,
192: x_msg_data => x_msg_data,
193: p_talv_rec => l_tlpv_rec,
194: x_talv_rec => x_tlpv_rec);
195: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
196: RAISE FND_API.G_EXC_ERROR;
197: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
199: END IF;
192: x_msg_data => x_msg_data,
193: p_talv_rec => l_tlpv_rec,
194: x_talv_rec => x_tlpv_rec);
195: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
196: RAISE FND_API.G_EXC_ERROR;
197: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
199: END IF;
200: l_tlpv_rec := x_tlpv_rec;
193: p_talv_rec => l_tlpv_rec,
194: x_talv_rec => x_tlpv_rec);
195: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
196: RAISE FND_API.G_EXC_ERROR;
197: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
199: END IF;
200: l_tlpv_rec := x_tlpv_rec;
201: g_tlpv_rec := l_tlpv_rec;
194: x_talv_rec => x_tlpv_rec);
195: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
196: RAISE FND_API.G_EXC_ERROR;
197: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
199: END IF;
200: l_tlpv_rec := x_tlpv_rec;
201: g_tlpv_rec := l_tlpv_rec;
202: -- Verticle industry post- processing section
200: l_tlpv_rec := x_tlpv_rec;
201: g_tlpv_rec := l_tlpv_rec;
202: -- Verticle industry post- processing section
203: -- Customer post processing section
204: x_return_status := FND_API.G_RET_STS_SUCCESS;
205: EXCEPTION
206: When FND_API.G_EXC_ERROR then
207: ROLLBACK TO update_txl_asset_Def_pub;
208: x_return_status := FND_API.G_RET_STS_ERROR;
202: -- Verticle industry post- processing section
203: -- Customer post processing section
204: x_return_status := FND_API.G_RET_STS_SUCCESS;
205: EXCEPTION
206: When FND_API.G_EXC_ERROR then
207: ROLLBACK TO update_txl_asset_Def_pub;
208: x_return_status := FND_API.G_RET_STS_ERROR;
209: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
210: p_data => x_msg_data);
204: x_return_status := FND_API.G_RET_STS_SUCCESS;
205: EXCEPTION
206: When FND_API.G_EXC_ERROR then
207: ROLLBACK TO update_txl_asset_Def_pub;
208: x_return_status := FND_API.G_RET_STS_ERROR;
209: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
210: p_data => x_msg_data);
211: When FND_API.G_EXC_UNEXPECTED_ERROR then
212: ROLLBACK TO update_txl_asset_Def_pub;
207: ROLLBACK TO update_txl_asset_Def_pub;
208: x_return_status := FND_API.G_RET_STS_ERROR;
209: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
210: p_data => x_msg_data);
211: When FND_API.G_EXC_UNEXPECTED_ERROR then
212: ROLLBACK TO update_txl_asset_Def_pub;
213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
214: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
215: p_data => x_msg_data);
209: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
210: p_data => x_msg_data);
211: When FND_API.G_EXC_UNEXPECTED_ERROR then
212: ROLLBACK TO update_txl_asset_Def_pub;
213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
214: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
215: p_data => x_msg_data);
216: When OTHERS then
217: ROLLBACK TO update_txl_asset_Def_pub;
214: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
215: p_data => x_msg_data);
216: When OTHERS then
217: ROLLBACK TO update_txl_asset_Def_pub;
218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
219: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'update_txl_asset_Def_pub');
220: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
221: p_count => x_msg_count,
222: p_data => x_msg_data);
216: When OTHERS then
217: ROLLBACK TO update_txl_asset_Def_pub;
218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
219: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'update_txl_asset_Def_pub');
220: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
221: p_count => x_msg_count,
222: p_data => x_msg_data);
223: END update_txl_asset_Def;
224:
239: x_msg_data OUT NOCOPY VARCHAR2,
240: p_tlpv_tbl IN tlpv_tbl_type,
241: x_tlpv_tbl OUT NOCOPY tlpv_tbl_type) IS
242: i NUMBER := 0;
243: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
244: BEGIN
245: x_return_status := FND_API.G_RET_STS_SUCCESS;
246: IF p_tlpv_tbl.COUNT > 0 THEN
247: i := p_tlpv_tbl.FIRST;
241: x_tlpv_tbl OUT NOCOPY tlpv_tbl_type) IS
242: i NUMBER := 0;
243: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
244: BEGIN
245: x_return_status := FND_API.G_RET_STS_SUCCESS;
246: IF p_tlpv_tbl.COUNT > 0 THEN
247: i := p_tlpv_tbl.FIRST;
248: LOOP
249: update_txl_asset_Def(p_api_version => p_api_version,
252: x_msg_count => x_msg_count,
253: x_msg_data => x_msg_data,
254: p_tlpv_rec => p_tlpv_tbl(i),
255: x_tlpv_rec => x_tlpv_tbl(i));
256: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
257: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
258: x_return_status := l_return_status;
259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
260: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
253: x_msg_data => x_msg_data,
254: p_tlpv_rec => p_tlpv_tbl(i),
255: x_tlpv_rec => x_tlpv_tbl(i));
256: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
257: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
258: x_return_status := l_return_status;
259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
260: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
261: x_return_status := l_return_status;
255: x_tlpv_rec => x_tlpv_tbl(i));
256: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
257: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
258: x_return_status := l_return_status;
259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
260: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
261: x_return_status := l_return_status;
262: RAISE FND_API.G_EXC_ERROR;
263: ELSE
256: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
257: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
258: x_return_status := l_return_status;
259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
260: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
261: x_return_status := l_return_status;
262: RAISE FND_API.G_EXC_ERROR;
263: ELSE
264: x_return_status := l_return_status;
258: x_return_status := l_return_status;
259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
260: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
261: x_return_status := l_return_status;
262: RAISE FND_API.G_EXC_ERROR;
263: ELSE
264: x_return_status := l_return_status;
265: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
266: END IF;
261: x_return_status := l_return_status;
262: RAISE FND_API.G_EXC_ERROR;
263: ELSE
264: x_return_status := l_return_status;
265: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
266: END IF;
267: END IF;
268: EXIT WHEN (i = p_tlpv_tbl.LAST);
269: i := p_tlpv_tbl.NEXT(i);
269: i := p_tlpv_tbl.NEXT(i);
270: END LOOP;
271: END IF;
272: EXCEPTION
273: WHEN FND_API.G_EXC_ERROR THEN
274: ROLLBACK TO update_txl_asset_Def_pub;
275: x_return_status := FND_API.G_RET_STS_ERROR;
276: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
277: p_data => x_msg_data);
271: END IF;
272: EXCEPTION
273: WHEN FND_API.G_EXC_ERROR THEN
274: ROLLBACK TO update_txl_asset_Def_pub;
275: x_return_status := FND_API.G_RET_STS_ERROR;
276: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
277: p_data => x_msg_data);
278: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
279: ROLLBACK TO update_txl_asset_Def_pub;
274: ROLLBACK TO update_txl_asset_Def_pub;
275: x_return_status := FND_API.G_RET_STS_ERROR;
276: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
277: p_data => x_msg_data);
278: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
279: ROLLBACK TO update_txl_asset_Def_pub;
280: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
281: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
282: p_data => x_msg_data);
276: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
277: p_data => x_msg_data);
278: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
279: ROLLBACK TO update_txl_asset_Def_pub;
280: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
281: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
282: p_data => x_msg_data);
283: WHEN OTHERS then
284: ROLLBACK TO update_txl_asset_Def_pub;
281: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
282: p_data => x_msg_data);
283: WHEN OTHERS then
284: ROLLBACK TO update_txl_asset_Def_pub;
285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
286: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, 'update_txl_asset_Def_pub');
287: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
288: p_count => x_msg_count,
289: p_data => x_msg_data);
283: WHEN OTHERS then
284: ROLLBACK TO update_txl_asset_Def_pub;
285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
286: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, 'update_txl_asset_Def_pub');
287: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
288: p_count => x_msg_count,
289: p_data => x_msg_data);
290: END update_txl_asset_Def;
291:
305: x_msg_data OUT NOCOPY VARCHAR2,
306: p_tlpv_rec IN tlpv_rec_type) IS
307:
308: l_tlpv_rec tlpv_rec_type;
309: l_return_status VARCHAR2(3) := FND_API.G_RET_STS_SUCCESS;
310: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_TXL_ASSET_LINES';
311: l_api_version CONSTANT NUMBER := 1;
312: BEGIN
313: savepoint delete_txl_asset_Def_pub;
311: l_api_version CONSTANT NUMBER := 1;
312: BEGIN
313: savepoint delete_txl_asset_Def_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_tlpv_rec := p_tlpv_rec;
326: g_tlpv_rec := l_tlpv_rec;
334: x_return_status => l_return_status,
335: x_msg_count => x_msg_count,
336: x_msg_data => x_msg_data,
337: p_talv_rec => l_tlpv_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_talv_rec => l_tlpv_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_tlpv_rec := l_tlpv_rec;
336: x_msg_data => x_msg_data,
337: p_talv_rec => l_tlpv_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_tlpv_rec := l_tlpv_rec;
344: -- Verticle industry post- processing section
337: p_talv_rec => l_tlpv_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_tlpv_rec := l_tlpv_rec;
344: -- Verticle industry post- processing section
345: -- Customer post processing section
342: END IF;
343: g_tlpv_rec := l_tlpv_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_txl_asset_Def_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_txl_asset_Def_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_txl_asset_Def_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_txl_asset_Def_pub;
349: ROLLBACK TO delete_txl_asset_Def_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_txl_asset_Def_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_txl_asset_Def_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_txl_asset_Def_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_txl_asset_Def_pub;
360: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
361: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'delete_txl_asset_Def_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_txl_asset_Def_pub;
360: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
361: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'delete_txl_asset_Def_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_txl_asset_Def;
366:
380: x_msg_count OUT NOCOPY NUMBER,
381: x_msg_data OUT NOCOPY VARCHAR2,
382: p_tlpv_tbl IN tlpv_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_tlpv_tbl.COUNT > 0 THEN
388: i := p_tlpv_tbl.FIRST;
382: p_tlpv_tbl IN tlpv_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_tlpv_tbl.COUNT > 0 THEN
388: i := p_tlpv_tbl.FIRST;
389: LOOP
390: delete_txl_asset_Def(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_tlpv_rec => p_tlpv_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_tlpv_rec => p_tlpv_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_tlpv_rec => p_tlpv_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_tlpv_tbl.LAST);
409: i := p_tlpv_tbl.NEXT(i);
409: i := p_tlpv_tbl.NEXT(i);
410: END LOOP;
411: END IF;
412: EXCEPTION
413: WHEN FND_API.G_EXC_ERROR THEN
414: ROLLBACK TO delete_txl_asset_Def_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_txl_asset_Def_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_txl_asset_Def_pub;
414: ROLLBACK TO delete_txl_asset_Def_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_txl_asset_Def_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_txl_asset_Def_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_txl_asset_Def_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_txl_asset_Def_pub;
425: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
426: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, 'delete_txl_asset_Def_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_txl_asset_Def_pub;
425: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
426: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, 'delete_txl_asset_Def_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_txl_asset_Def;
431:
445: x_msg_data OUT NOCOPY VARCHAR2,
446: p_tlpv_rec IN tlpv_rec_type) IS
447:
448: l_tlpv_rec tlpv_rec_type;
449: l_return_status VARCHAR2(3) := FND_API.G_RET_STS_SUCCESS;
450: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_TXL_ASSET_LINES';
451: l_api_version CONSTANT NUMBER := 1;
452: BEGIN
453: savepoint validate_txl_asset_Def_pub;
451: l_api_version CONSTANT NUMBER := 1;
452: BEGIN
453: savepoint validate_txl_asset_Def_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_tlpv_rec := p_tlpv_rec;
466: g_tlpv_rec := l_tlpv_rec;
474: x_return_status => l_return_status,
475: x_msg_count => x_msg_count,
476: x_msg_data => x_msg_data,
477: p_talv_rec => l_tlpv_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_talv_rec => l_tlpv_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_tlpv_rec := l_tlpv_rec;
476: x_msg_data => x_msg_data,
477: p_talv_rec => l_tlpv_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_tlpv_rec := l_tlpv_rec;
484: -- Verticle industry post- processing section
477: p_talv_rec => l_tlpv_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_tlpv_rec := l_tlpv_rec;
484: -- Verticle industry post- processing section
485: -- Customer post processing section
482: END IF;
483: g_tlpv_rec := l_tlpv_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_txl_asset_Def_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_txl_asset_Def_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_txl_asset_Def_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_txl_asset_Def_pub;
489: ROLLBACK TO validate_txl_asset_Def_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_txl_asset_Def_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_txl_asset_Def_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_txl_asset_Def_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_txl_asset_Def_pub;
500: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
501: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'validate_txl_asset_Def_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_txl_asset_Def_pub;
500: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
501: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'validate_txl_asset_Def_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_txl_asset_Def;
506:
520: x_msg_count OUT NOCOPY NUMBER,
521: x_msg_data OUT NOCOPY VARCHAR2,
522: p_tlpv_tbl IN tlpv_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_tlpv_tbl.COUNT > 0 THEN
528: i := p_tlpv_tbl.FIRST;
522: p_tlpv_tbl IN tlpv_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_tlpv_tbl.COUNT > 0 THEN
528: i := p_tlpv_tbl.FIRST;
529: LOOP
530: validate_txl_asset_Def(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_tlpv_rec => p_tlpv_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_tlpv_rec => p_tlpv_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_tlpv_rec => p_tlpv_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_tlpv_tbl.LAST);
549: i := p_tlpv_tbl.NEXT(i);
549: i := p_tlpv_tbl.NEXT(i);
550: END LOOP;
551: END IF;
552: EXCEPTION
553: WHEN FND_API.G_EXC_ERROR THEN
554: ROLLBACK TO validate_txl_asset_Def_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_txl_asset_Def_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_txl_asset_Def_pub;
554: ROLLBACK TO validate_txl_asset_Def_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_txl_asset_Def_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_txl_asset_Def_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_txl_asset_Def_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_txl_asset_Def_pub;
565: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
566: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, 'validate_txl_asset_Def_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_txl_asset_Def_pub;
565: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
566: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, 'validate_txl_asset_Def_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_txl_asset_Def;
571:
585: x_msg_data OUT NOCOPY VARCHAR2,
586: p_tlpv_rec IN tlpv_rec_type) IS
587:
588: l_tlpv_rec tlpv_rec_type;
589: l_return_status VARCHAR2(3) := FND_API.G_RET_STS_SUCCESS;
590: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_TXL_ASSET_LINE';
591: l_api_version CONSTANT NUMBER := 1;
592: BEGIN
593: savepoint lock_txl_ass_pub;
591: l_api_version CONSTANT NUMBER := 1;
592: BEGIN
593: savepoint lock_txl_ass_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: -- Business API call section
606: l_tlpv_rec.id := p_tlpv_rec.id;
610: x_return_status => l_return_status,
611: x_msg_count => x_msg_count,
612: x_msg_data => x_msg_data,
613: p_talv_rec => l_tlpv_rec);
614: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
615: RAISE FND_API.G_EXC_ERROR;
616: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
618: END IF;
611: x_msg_count => x_msg_count,
612: x_msg_data => x_msg_data,
613: p_talv_rec => l_tlpv_rec);
614: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
615: RAISE FND_API.G_EXC_ERROR;
616: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
618: END IF;
619: g_tlpv_rec := l_tlpv_rec;
612: x_msg_data => x_msg_data,
613: p_talv_rec => l_tlpv_rec);
614: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
615: RAISE FND_API.G_EXC_ERROR;
616: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
618: END IF;
619: g_tlpv_rec := l_tlpv_rec;
620: x_return_status := FND_API.G_RET_STS_SUCCESS;
613: p_talv_rec => l_tlpv_rec);
614: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
615: RAISE FND_API.G_EXC_ERROR;
616: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
618: END IF;
619: g_tlpv_rec := l_tlpv_rec;
620: x_return_status := FND_API.G_RET_STS_SUCCESS;
621: EXCEPTION
616: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
618: END IF;
619: g_tlpv_rec := l_tlpv_rec;
620: x_return_status := FND_API.G_RET_STS_SUCCESS;
621: EXCEPTION
622: When FND_API.G_EXC_ERROR then
623: ROLLBACK TO lock_txl_ass_pub;
624: x_return_status := FND_API.G_RET_STS_ERROR;
618: END IF;
619: g_tlpv_rec := l_tlpv_rec;
620: x_return_status := FND_API.G_RET_STS_SUCCESS;
621: EXCEPTION
622: When FND_API.G_EXC_ERROR then
623: ROLLBACK TO lock_txl_ass_pub;
624: x_return_status := FND_API.G_RET_STS_ERROR;
625: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
626: p_data => x_msg_data);
620: x_return_status := FND_API.G_RET_STS_SUCCESS;
621: EXCEPTION
622: When FND_API.G_EXC_ERROR then
623: ROLLBACK TO lock_txl_ass_pub;
624: x_return_status := FND_API.G_RET_STS_ERROR;
625: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
626: p_data => x_msg_data);
627: When FND_API.G_EXC_UNEXPECTED_ERROR then
628: ROLLBACK TO lock_txl_ass_pub;
623: ROLLBACK TO lock_txl_ass_pub;
624: x_return_status := FND_API.G_RET_STS_ERROR;
625: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
626: p_data => x_msg_data);
627: When FND_API.G_EXC_UNEXPECTED_ERROR then
628: ROLLBACK TO lock_txl_ass_pub;
629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
630: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
631: p_data => x_msg_data);
625: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
626: p_data => x_msg_data);
627: When FND_API.G_EXC_UNEXPECTED_ERROR then
628: ROLLBACK TO lock_txl_ass_pub;
629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
630: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
631: p_data => x_msg_data);
632: When OTHERS then
633: ROLLBACK TO lock_txl_ass_pub;
630: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
631: p_data => x_msg_data);
632: When OTHERS then
633: ROLLBACK TO lock_txl_ass_pub;
634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
635: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'lock_txl_asset_Def_pub');
636: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
637: p_count => x_msg_count,
638: p_data => x_msg_data);
632: When OTHERS then
633: ROLLBACK TO lock_txl_ass_pub;
634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
635: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'lock_txl_asset_Def_pub');
636: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
637: p_count => x_msg_count,
638: p_data => x_msg_data);
639: END lock_txl_asset_Def;
640:
654: x_msg_count OUT NOCOPY NUMBER,
655: x_msg_data OUT NOCOPY VARCHAR2,
656: p_tlpv_tbl IN tlpv_tbl_type) IS
657: i NUMBER := 0;
658: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
659: BEGIN
660: x_return_status := FND_API.G_RET_STS_SUCCESS;
661: IF p_tlpv_tbl.COUNT > 0 THEN
662: i := p_tlpv_tbl.FIRST;
656: p_tlpv_tbl IN tlpv_tbl_type) IS
657: i NUMBER := 0;
658: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
659: BEGIN
660: x_return_status := FND_API.G_RET_STS_SUCCESS;
661: IF p_tlpv_tbl.COUNT > 0 THEN
662: i := p_tlpv_tbl.FIRST;
663: LOOP
664: lock_txl_asset_Def(p_api_version => p_api_version,
666: x_return_status => l_return_status,
667: x_msg_count => x_msg_count,
668: x_msg_data => x_msg_data,
669: p_tlpv_rec => p_tlpv_tbl(i));
670: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
671: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
672: x_return_status := l_return_status;
673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
674: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
667: x_msg_count => x_msg_count,
668: x_msg_data => x_msg_data,
669: p_tlpv_rec => p_tlpv_tbl(i));
670: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
671: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
672: x_return_status := l_return_status;
673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
674: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
675: x_return_status := l_return_status;
669: p_tlpv_rec => p_tlpv_tbl(i));
670: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
671: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
672: x_return_status := l_return_status;
673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
674: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
675: x_return_status := l_return_status;
676: RAISE FND_API.G_EXC_ERROR;
677: ELSE
670: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
671: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
672: x_return_status := l_return_status;
673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
674: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
675: x_return_status := l_return_status;
676: RAISE FND_API.G_EXC_ERROR;
677: ELSE
678: x_return_status := l_return_status;
672: x_return_status := l_return_status;
673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
674: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
675: x_return_status := l_return_status;
676: RAISE FND_API.G_EXC_ERROR;
677: ELSE
678: x_return_status := l_return_status;
679: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
680: END IF;
675: x_return_status := l_return_status;
676: RAISE FND_API.G_EXC_ERROR;
677: ELSE
678: x_return_status := l_return_status;
679: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
680: END IF;
681: END IF;
682: EXIT WHEN (i = p_tlpv_tbl.LAST);
683: i := p_tlpv_tbl.NEXT(i);
683: i := p_tlpv_tbl.NEXT(i);
684: END LOOP;
685: END IF;
686: EXCEPTION
687: WHEN FND_API.G_EXC_ERROR THEN
688: ROLLBACK TO lock_txl_ass_pub;
689: x_return_status := FND_API.G_RET_STS_ERROR;
690: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
691: p_data => x_msg_data);
685: END IF;
686: EXCEPTION
687: WHEN FND_API.G_EXC_ERROR THEN
688: ROLLBACK TO lock_txl_ass_pub;
689: x_return_status := FND_API.G_RET_STS_ERROR;
690: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
691: p_data => x_msg_data);
692: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
693: ROLLBACK TO lock_txl_ass_pub;
688: ROLLBACK TO lock_txl_ass_pub;
689: x_return_status := FND_API.G_RET_STS_ERROR;
690: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
691: p_data => x_msg_data);
692: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
693: ROLLBACK TO lock_txl_ass_pub;
694: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
695: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
696: p_data => x_msg_data);
690: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
691: p_data => x_msg_data);
692: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
693: ROLLBACK TO lock_txl_ass_pub;
694: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
695: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
696: p_data => x_msg_data);
697: WHEN OTHERS then
698: ROLLBACK TO lock_txl_ass_pub;
695: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
696: p_data => x_msg_data);
697: WHEN OTHERS then
698: ROLLBACK TO lock_txl_ass_pub;
699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
700: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, 'lock_txl_asset_Def_pub');
701: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
702: p_count => x_msg_count,
703: p_data => x_msg_data);
697: WHEN OTHERS then
698: ROLLBACK TO lock_txl_ass_pub;
699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
700: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, 'lock_txl_asset_Def_pub');
701: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
702: p_count => x_msg_count,
703: p_data => x_msg_data);
704: END lock_txl_asset_Def;
705: