2: /* $Header: OKLRADSB.pls 115.5 2002/12/18 14:43:01 spillaip noship $ */
3: -------------------------------------------------------------------------------------------------
4: -- GLOBAL MESSAGE CONSTANTS
5: -------------------------------------------------------------------------------------------------
6: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
7: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
8: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
9: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
10: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_UNEXPECTED_ERROR';
3: -------------------------------------------------------------------------------------------------
4: -- GLOBAL MESSAGE CONSTANTS
5: -------------------------------------------------------------------------------------------------
6: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
7: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
8: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
9: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
10: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_UNEXPECTED_ERROR';
11: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
4: -- GLOBAL MESSAGE CONSTANTS
5: -------------------------------------------------------------------------------------------------
6: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
7: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
8: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
9: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
10: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_UNEXPECTED_ERROR';
11: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
12: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
5: -------------------------------------------------------------------------------------------------
6: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
7: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
8: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
9: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
10: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_UNEXPECTED_ERROR';
11: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
12: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
13:
22:
23: -- GLOBAL VARIABLES
24: -----------------------------------------------------------------------------------
25: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_ASSET_DETAILS_PUB';
26: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
27:
28: subtype klev_rec_type is OKL_CREATE_KLE_PVT.klev_rec_type;
29: subtype klev_tbl_type is OKL_CREATE_KLE_PVT.klev_tbl_type;
30: subtype clev_rec_type is OKL_CREATE_KLE_PVT.clev_rec_type;
59: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_YEAR';
60:
61:
62: BEGIN
63: x_return_status := OKL_API.G_RET_STS_SUCCESS;
64:
65: --Call start_activity to create savepoint, check compatibility and initialize message list
66:
67: x_return_status := OKL_API.START_ACTIVITY(
63: x_return_status := OKL_API.G_RET_STS_SUCCESS;
64:
65: --Call start_activity to create savepoint, check compatibility and initialize message list
66:
67: x_return_status := OKL_API.START_ACTIVITY(
68: l_api_name
69: ,p_init_msg_list
70: ,'_PUB'
71: ,x_return_status);
71: ,x_return_status);
72:
73: --Check if activity started successfully
74:
75: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
76: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
77: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
78: RAISE OKL_API.G_EXCEPTION_ERROR;
79: END IF;
72:
73: --Check if activity started successfully
74:
75: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
76: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
77: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
78: RAISE OKL_API.G_EXCEPTION_ERROR;
79: END IF;
80:
73: --Check if activity started successfully
74:
75: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
76: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
77: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
78: RAISE OKL_API.G_EXCEPTION_ERROR;
79: END IF;
80:
81: l_klev_rec.id := p_parent_line_id;
74:
75: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
76: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
77: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
78: RAISE OKL_API.G_EXCEPTION_ERROR;
79: END IF;
80:
81: l_klev_rec.id := p_parent_line_id;
82: l_klev_rec.year_built := p_year;
100: RAISE OKC_API.G_EXCEPTION_ERROR;
101: END IF;
102: x_year := lx_klev_rec.year_built;
103:
104: OKL_API.END_ACTIVITY (x_msg_count,
105: x_msg_data );
106:
107:
108: EXCEPTION
105: x_msg_data );
106:
107:
108: EXCEPTION
109: WHEN OKL_API.G_EXCEPTION_ERROR THEN
110: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
111: l_api_name,
112: G_PKG_NAME,
113: 'OKL_API.G_RET_STS_ERROR',
106:
107:
108: EXCEPTION
109: WHEN OKL_API.G_EXCEPTION_ERROR THEN
110: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
111: l_api_name,
112: G_PKG_NAME,
113: 'OKL_API.G_RET_STS_ERROR',
114: x_msg_count,
109: WHEN OKL_API.G_EXCEPTION_ERROR THEN
110: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
111: l_api_name,
112: G_PKG_NAME,
113: 'OKL_API.G_RET_STS_ERROR',
114: x_msg_count,
115: x_msg_data,
116: '_PUB');
117: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
113: 'OKL_API.G_RET_STS_ERROR',
114: x_msg_count,
115: x_msg_data,
116: '_PUB');
117: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
118: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
119: l_api_name,
120: G_PKG_NAME,
121: 'OKL_API.G_RET_STS_UNEXP_ERROR',
114: x_msg_count,
115: x_msg_data,
116: '_PUB');
117: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
118: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
119: l_api_name,
120: G_PKG_NAME,
121: 'OKL_API.G_RET_STS_UNEXP_ERROR',
122: x_msg_count,
117: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
118: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
119: l_api_name,
120: G_PKG_NAME,
121: 'OKL_API.G_RET_STS_UNEXP_ERROR',
122: x_msg_count,
123: x_msg_data,
124: '_PUB');
125: WHEN OTHERS THEN
122: x_msg_count,
123: x_msg_data,
124: '_PUB');
125: WHEN OTHERS THEN
126: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
127: l_api_name,
128: G_PKG_NAME,
129: 'OTHERS',
130: x_msg_count,
156: lx_rule_rec rule_rec_type;
157: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TAX';
158:
159: BEGIN
160: x_return_status := OKL_API.G_RET_STS_SUCCESS;
161:
162: --Call start_activity to create savepoint, check compatibility and initialize message list
163:
164: x_return_status := OKL_API.START_ACTIVITY(
160: x_return_status := OKL_API.G_RET_STS_SUCCESS;
161:
162: --Call start_activity to create savepoint, check compatibility and initialize message list
163:
164: x_return_status := OKL_API.START_ACTIVITY(
165: l_api_name
166: ,p_init_msg_list
167: ,'_PUB'
168: ,x_return_status);
168: ,x_return_status);
169:
170: --Check if activity started successfully
171:
172: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
173: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
174: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
175: RAISE OKL_API.G_EXCEPTION_ERROR;
176: END IF;
169:
170: --Check if activity started successfully
171:
172: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
173: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
174: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
175: RAISE OKL_API.G_EXCEPTION_ERROR;
176: END IF;
177:
170: --Check if activity started successfully
171:
172: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
173: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
174: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
175: RAISE OKL_API.G_EXCEPTION_ERROR;
176: END IF;
177:
178:
171:
172: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
173: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
174: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
175: RAISE OKL_API.G_EXCEPTION_ERROR;
176: END IF;
177:
178:
179: l_rule_rec.id := p_rule_id;
206: x_rule_information2 := lx_rule_rec.rule_information2;
207: x_rule_information3 := lx_rule_rec.rule_information3;
208: x_rule_information4 := lx_rule_rec.rule_information4;
209:
210: OKL_API.END_ACTIVITY (x_msg_count,
211: x_msg_data );
212:
213:
214: EXCEPTION
211: x_msg_data );
212:
213:
214: EXCEPTION
215: WHEN OKL_API.G_EXCEPTION_ERROR THEN
216: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
217: l_api_name,
218: G_PKG_NAME,
219: 'OKL_API.G_RET_STS_ERROR',
212:
213:
214: EXCEPTION
215: WHEN OKL_API.G_EXCEPTION_ERROR THEN
216: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
217: l_api_name,
218: G_PKG_NAME,
219: 'OKL_API.G_RET_STS_ERROR',
220: x_msg_count,
215: WHEN OKL_API.G_EXCEPTION_ERROR THEN
216: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
217: l_api_name,
218: G_PKG_NAME,
219: 'OKL_API.G_RET_STS_ERROR',
220: x_msg_count,
221: x_msg_data,
222: '_PUB');
223: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
219: 'OKL_API.G_RET_STS_ERROR',
220: x_msg_count,
221: x_msg_data,
222: '_PUB');
223: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
224: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
225: l_api_name,
226: G_PKG_NAME,
227: 'OKL_API.G_RET_STS_UNEXP_ERROR',
220: x_msg_count,
221: x_msg_data,
222: '_PUB');
223: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
224: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
225: l_api_name,
226: G_PKG_NAME,
227: 'OKL_API.G_RET_STS_UNEXP_ERROR',
228: x_msg_count,
223: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
224: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
225: l_api_name,
226: G_PKG_NAME,
227: 'OKL_API.G_RET_STS_UNEXP_ERROR',
228: x_msg_count,
229: x_msg_data,
230: '_PUB');
231: WHEN OTHERS THEN
228: x_msg_count,
229: x_msg_data,
230: '_PUB');
231: WHEN OTHERS THEN
232: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
233: l_api_name,
234: G_PKG_NAME,
235: 'OTHERS',
236: x_msg_count,
265:
266: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_ASSET';
267:
268: BEGIN
269: x_return_status := OKL_API.G_RET_STS_SUCCESS;
270:
271: --Call start_activity to create savepoint, check compatibility and initialize message list
272:
273: x_return_status := OKL_API.START_ACTIVITY(
269: x_return_status := OKL_API.G_RET_STS_SUCCESS;
270:
271: --Call start_activity to create savepoint, check compatibility and initialize message list
272:
273: x_return_status := OKL_API.START_ACTIVITY(
274: l_api_name
275: ,p_init_msg_list
276: ,'_PUB'
277: ,x_return_status);
277: ,x_return_status);
278:
279: --Check if activity started successfully
280:
281: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
282: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
283: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
284: RAISE OKL_API.G_EXCEPTION_ERROR;
285: END IF;
278:
279: --Check if activity started successfully
280:
281: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
282: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
283: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
284: RAISE OKL_API.G_EXCEPTION_ERROR;
285: END IF;
286:
279: --Check if activity started successfully
280:
281: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
282: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
283: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
284: RAISE OKL_API.G_EXCEPTION_ERROR;
285: END IF;
286:
287: l_asset_hdr_rec.asset_id := p_asset_id;
280:
281: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
282: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
283: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
284: RAISE OKL_API.G_EXCEPTION_ERROR;
285: END IF;
286:
287: l_asset_hdr_rec.asset_id := p_asset_id;
288:
288:
289: l_asset_desc_rec.model_number := px_model_no;
290: l_asset_desc_rec.manufacturer_name := px_manufacturer;
291:
292: If px_asset_desc is not null AND px_asset_desc <> OKL_API.G_MISS_CHAR THEN
293: l_asset_desc_rec.description := px_asset_desc;
294: end if;
295:
296: --One parameter has been commented becasue the FA APi has been changed.
318:
319: px_model_no := l_asset_desc_rec.model_number;
320: px_manufacturer := l_asset_desc_rec.manufacturer_name;
321:
322: OKL_API.END_ACTIVITY (x_msg_count,
323: x_msg_data );
324:
325:
326: EXCEPTION
323: x_msg_data );
324:
325:
326: EXCEPTION
327: WHEN OKL_API.G_EXCEPTION_ERROR THEN
328: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
329: l_api_name,
330: G_PKG_NAME,
331: 'OKL_API.G_RET_STS_ERROR',
324:
325:
326: EXCEPTION
327: WHEN OKL_API.G_EXCEPTION_ERROR THEN
328: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
329: l_api_name,
330: G_PKG_NAME,
331: 'OKL_API.G_RET_STS_ERROR',
332: x_msg_count,
327: WHEN OKL_API.G_EXCEPTION_ERROR THEN
328: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
329: l_api_name,
330: G_PKG_NAME,
331: 'OKL_API.G_RET_STS_ERROR',
332: x_msg_count,
333: x_msg_data,
334: '_PUB');
335: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
331: 'OKL_API.G_RET_STS_ERROR',
332: x_msg_count,
333: x_msg_data,
334: '_PUB');
335: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
336: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
337: l_api_name,
338: G_PKG_NAME,
339: 'OKL_API.G_RET_STS_UNEXP_ERROR',
332: x_msg_count,
333: x_msg_data,
334: '_PUB');
335: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
336: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
337: l_api_name,
338: G_PKG_NAME,
339: 'OKL_API.G_RET_STS_UNEXP_ERROR',
340: x_msg_count,
335: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
336: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
337: l_api_name,
338: G_PKG_NAME,
339: 'OKL_API.G_RET_STS_UNEXP_ERROR',
340: x_msg_count,
341: x_msg_data,
342: '_PUB');
343: WHEN OTHERS THEN
340: x_msg_count,
341: x_msg_data,
342: '_PUB');
343: WHEN OTHERS THEN
344: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
345: l_api_name,
346: G_PKG_NAME,
347: 'OTHERS',
348: x_msg_count,