83:
84:
85: PROCEDURE update_serial_number(
86: p_api_version IN NUMBER,
87: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
88: p_instance_id IN NUMBER,
89: p_instance_name IN VARCHAR2,
90: p_serial_number IN VARCHAR2,
91: p_inventory_item_id IN NUMBER,
119: x_return_status => l_return_status,
120: x_msg_count => l_msg_count,
121: x_msg_data => l_msg_data);
122:
123: IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
124: RAISE OKL_API.G_EXCEPTION_ERROR;
125: ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
126: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
127: END IF;
120: x_msg_count => l_msg_count,
121: x_msg_data => l_msg_data);
122:
123: IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
124: RAISE OKL_API.G_EXCEPTION_ERROR;
125: ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
126: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
127: END IF;
128:
121: x_msg_data => l_msg_data);
122:
123: IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
124: RAISE OKL_API.G_EXCEPTION_ERROR;
125: ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
126: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
127: END IF;
128:
129: ------------ End Call to Private Process API--------------
122:
123: IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
124: RAISE OKL_API.G_EXCEPTION_ERROR;
125: ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
126: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
127: END IF;
128:
129: ------------ End Call to Private Process API--------------
130:
137: x_return_status := l_return_status;
138:
139: EXCEPTION
140:
141: WHEN OKL_API.G_EXCEPTION_ERROR THEN
142: --ROLLBACK TO update_serial_number;
143: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
144: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
145: p_data => x_msg_data);
139: EXCEPTION
140:
141: WHEN OKL_API.G_EXCEPTION_ERROR THEN
142: --ROLLBACK TO update_serial_number;
143: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
144: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
145: p_data => x_msg_data);
146:
147: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
143: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
144: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
145: p_data => x_msg_data);
146:
147: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
148: --ROLLBACK TO update_serial_number;
149: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
150: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
151: p_data => x_msg_data);
145: p_data => x_msg_data);
146:
147: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
148: --ROLLBACK TO update_serial_number;
149: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
150: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
151: p_data => x_msg_data);
152:
153: WHEN OTHERS THEN
151: p_data => x_msg_data);
152:
153: WHEN OTHERS THEN
154: --ROLLBACK TO update_serial_number;
155: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
156: FND_MSG_PUB.ADD_EXC_MSG('OKL_EQUIPMENT_EXCHANGE_PUB','update_serial_number');
157: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
158: p_data => x_msg_data);
159:
213: x_return_status => l_return_status,
214: x_msg_count => l_msg_count,
215: x_msg_data => l_msg_data);
216:
217: IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
218: RAISE OKL_API.G_EXCEPTION_ERROR;
219: ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
220: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
221: END IF;
214: x_msg_count => l_msg_count,
215: x_msg_data => l_msg_data);
216:
217: IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
218: RAISE OKL_API.G_EXCEPTION_ERROR;
219: ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
220: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
221: END IF;
222:
215: x_msg_data => l_msg_data);
216:
217: IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
218: RAISE OKL_API.G_EXCEPTION_ERROR;
219: ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
220: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
221: END IF;
222:
223: ------------ End Call to Private Process API--------------
216:
217: IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
218: RAISE OKL_API.G_EXCEPTION_ERROR;
219: ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
220: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
221: END IF;
222:
223: ------------ End Call to Private Process API--------------
224:
231: x_return_status := l_return_status;
232:
233: EXCEPTION
234:
235: WHEN OKL_API.G_EXCEPTION_ERROR THEN
236: --ROLLBACK TO store_exchange_details;
237: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
238: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
239: p_data => x_msg_data);
233: EXCEPTION
234:
235: WHEN OKL_API.G_EXCEPTION_ERROR THEN
236: --ROLLBACK TO store_exchange_details;
237: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
238: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
239: p_data => x_msg_data);
240:
241: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
237: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
238: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
239: p_data => x_msg_data);
240:
241: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
242: --ROLLBACK TO store_exchange_details;
243: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
244: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
245: p_data => x_msg_data);
239: p_data => x_msg_data);
240:
241: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
242: --ROLLBACK TO store_exchange_details;
243: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
244: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
245: p_data => x_msg_data);
246:
247: WHEN OTHERS THEN
245: p_data => x_msg_data);
246:
247: WHEN OTHERS THEN
248: --ROLLBACK TO store_exchange_details;
249: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
250: FND_MSG_PUB.ADD_EXC_MSG('OKL_EQUIPMENT_EXCHANGE_PUB','store_exchange_details');
251: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
252: p_data => x_msg_data);
253:
255:
256:
257: PROCEDURE exchange(
258: p_api_version IN NUMBER,
259: p_init_msg_list IN VARCHAR2 := OKL_API.G_FALSE,
260: p_tas_id IN NUMBER,
261: x_return_status OUT NOCOPY VARCHAR2,
262: x_msg_count OUT NOCOPY NUMBER,
263: x_msg_data OUT NOCOPY VARCHAR2)
284: x_return_status => l_return_status,
285: x_msg_count => l_msg_count,
286: x_msg_data => l_msg_data);
287:
288: IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
289: RAISE OKL_API.G_EXCEPTION_ERROR;
290: ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
292: END IF;
285: x_msg_count => l_msg_count,
286: x_msg_data => l_msg_data);
287:
288: IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
289: RAISE OKL_API.G_EXCEPTION_ERROR;
290: ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
292: END IF;
293:
286: x_msg_data => l_msg_data);
287:
288: IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
289: RAISE OKL_API.G_EXCEPTION_ERROR;
290: ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
292: END IF;
293:
294: ------------ End Call to Private Process API--------------
287:
288: IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
289: RAISE OKL_API.G_EXCEPTION_ERROR;
290: ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
292: END IF;
293:
294: ------------ End Call to Private Process API--------------
295:
302: x_return_status := l_return_status;
303:
304: EXCEPTION
305:
306: WHEN OKL_API.G_EXCEPTION_ERROR THEN
307: --ROLLBACK TO exchange;
308: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
309: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
310: p_data => x_msg_data);
304: EXCEPTION
305:
306: WHEN OKL_API.G_EXCEPTION_ERROR THEN
307: --ROLLBACK TO exchange;
308: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
309: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
310: p_data => x_msg_data);
311:
312: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
308: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
309: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
310: p_data => x_msg_data);
311:
312: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
313: --ROLLBACK TO exchange;
314: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
315: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
316: p_data => x_msg_data);
310: p_data => x_msg_data);
311:
312: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
313: --ROLLBACK TO exchange;
314: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
315: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
316: p_data => x_msg_data);
317:
318: WHEN OTHERS THEN
316: p_data => x_msg_data);
317:
318: WHEN OTHERS THEN
319: --ROLLBACK TO exchange;
320: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
321: FND_MSG_PUB.ADD_EXC_MSG('OKL_EQUIPMENT_EXCHANGE_PUB','exchange');
322: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
323: p_data => x_msg_data);
324: