44: WSH_DEBUG_SV.push(l_module_name);
45: WSH_DEBUG_SV.log(l_module_name,'l_inputCount',l_inputCount);
46: END IF;
47: --
48: x_return_status := wsh_util_core.g_ret_sts_success;
49: --
50: --
51: l_index := x_inboundTxnHistory_recTbl.transaction_type.FIRST;
52: --
78:
79: IF l_param_name is not null THEN
80: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
81: FND_MESSAGE.SET_TOKEN('FIELD_NAME',l_param_name);
82: x_return_status := wsh_util_core.g_ret_sts_error;
83: wsh_util_core.add_message(x_return_status,l_module_name);
84: RAISE FND_API.G_EXC_ERROR;
85: END IF;
86: --
79: IF l_param_name is not null THEN
80: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
81: FND_MESSAGE.SET_TOKEN('FIELD_NAME',l_param_name);
82: x_return_status := wsh_util_core.g_ret_sts_error;
83: wsh_util_core.add_message(x_return_status,l_module_name);
84: RAISE FND_API.G_EXC_ERROR;
85: END IF;
86: --
87: --
154: WSH_DEBUG_SV.log(l_module_name,'l_resultCount',l_resultCount);
155: END IF;
156: --
157: FND_MESSAGE.SET_NAME('WSH','WSH_IB_TXN_BULK_INSERT_ERROR');
158: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
159: RAISE FND_API.G_EXC_ERROR;
160: --}
161: END IF;
162: --}
169: --
170: EXCEPTION
171: --{
172: WHEN FND_API.G_EXC_ERROR THEN
173: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
174: --
175: -- Debug Statements
176: --
177: IF l_debug_on THEN
179: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
180: END IF;
181: --
182: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
183: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
184: --
185: -- Debug Statements
186: --
187: IF l_debug_on THEN
188: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
189: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
190: END IF;
191: --
192: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
193: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
194: --
195: -- Debug Statements
196: --
189: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
190: END IF;
191: --
192: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
193: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
194: --
195: -- Debug Statements
196: --
197: IF l_debug_on THEN
194: --
195: -- Debug Statements
196: --
197: IF l_debug_on THEN
198: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
199: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
200: END IF;
201: --
202: WHEN OTHERS THEN
195: -- Debug Statements
196: --
197: IF l_debug_on THEN
198: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
199: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
200: END IF;
201: --
202: WHEN OTHERS THEN
203: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
199: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
200: END IF;
201: --
202: WHEN OTHERS THEN
203: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
204: wsh_util_core.default_handler('WSH_INBOUND_TXN_HISTORY_PKG.create_txn_history_bulk');
205: --}
206: --
207: -- Debug Statements
200: END IF;
201: --
202: WHEN OTHERS THEN
203: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
204: wsh_util_core.default_handler('WSH_INBOUND_TXN_HISTORY_PKG.create_txn_history_bulk');
205: --}
206: --
207: -- Debug Statements
208: --
247: IF l_debug_on THEN
248: WSH_DEBUG_SV.push(l_module_name);
249: END IF;
250: --
251: x_return_status := wsh_util_core.g_ret_sts_success;
252: --
253: --
254: IF l_debug_on THEN
255: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit create_txn_history_bulk',WSH_DEBUG_SV.C_PROC_LEVEL);
264: IF l_debug_on THEN
265: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
266: END IF;
267: --
268: wsh_util_core.api_post_call
269: (
270: p_return_status => l_return_status,
271: x_num_warnings => l_num_warnings,
272: x_num_errors => l_num_errors
280: END IF;
281: --
282: IF l_num_errors > 0
283: THEN
284: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
285: ELSIF l_num_warnings > 0
286: THEN
287: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
288: ELSE
283: THEN
284: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
285: ELSIF l_num_warnings > 0
286: THEN
287: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
288: ELSE
289: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
290: END IF;
291: --
285: ELSIF l_num_warnings > 0
286: THEN
287: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
288: ELSE
289: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
290: END IF;
291: --
292: --
293: IF l_debug_on THEN
298: EXCEPTION
299: --{
300: WHEN FND_API.G_EXC_ERROR THEN
301: ROLLBACK;
302: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
303: --
304: -- Debug Statements
305: --
306: IF l_debug_on THEN
309: END IF;
310: --
311: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
312: ROLLBACK;
313: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
314: --
315: -- Debug Statements
316: --
317: IF l_debug_on THEN
318: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
319: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
320: END IF;
321: --
322: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
323: COMMIT;
324: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
325: --
326: -- Debug Statements
320: END IF;
321: --
322: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
323: COMMIT;
324: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
325: --
326: -- Debug Statements
327: --
328: IF l_debug_on THEN
325: --
326: -- Debug Statements
327: --
328: IF l_debug_on THEN
329: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
330: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
331: END IF;
332: --
333: WHEN OTHERS THEN
326: -- Debug Statements
327: --
328: IF l_debug_on THEN
329: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
330: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
331: END IF;
332: --
333: WHEN OTHERS THEN
334: ROLLBACK;
331: END IF;
332: --
333: WHEN OTHERS THEN
334: ROLLBACK;
335: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
336: wsh_util_core.default_handler('WSH_INBOUND_TXN_HISTORY_PKG.AUTONOMOUS_CREATE_bulk');
337: --}
338: --
339: -- Debug Statements
332: --
333: WHEN OTHERS THEN
334: ROLLBACK;
335: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
336: wsh_util_core.default_handler('WSH_INBOUND_TXN_HISTORY_PKG.AUTONOMOUS_CREATE_bulk');
337: --}
338: --
339: -- Debug Statements
340: --
398: IF l_debug_on THEN
399: WSH_DEBUG_SV.push(l_module_name);
400: END IF;
401: --
402: x_return_status := wsh_util_core.g_ret_sts_success;
403:
404: -- This to verify all the mandatory input parameters for each transaction
405: -- type.
406: IF (p_txn_history_rec.transaction_type is null) THEN
428:
429: IF l_param_name is not null THEN
430: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
431: FND_MESSAGE.SET_TOKEN('FIELD_NAME',l_param_name);
432: x_return_status := wsh_util_core.g_ret_sts_error;
433: wsh_util_core.add_message(x_return_status,l_module_name);
434: RAISE FND_API.G_EXC_ERROR;
435: END IF;
436:
429: IF l_param_name is not null THEN
430: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
431: FND_MESSAGE.SET_TOKEN('FIELD_NAME',l_param_name);
432: x_return_status := wsh_util_core.g_ret_sts_error;
433: wsh_util_core.add_message(x_return_status,l_module_name);
434: RAISE FND_API.G_EXC_ERROR;
435: END IF;
436:
437: --select wsh_inbound_txn_history_s.nextval into l_txn_id from dual;
497: --
498: EXCEPTION
499: --{
500: WHEN FND_API.G_EXC_ERROR THEN
501: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
502: --
503: -- Debug Statements
504: --
505: IF l_debug_on THEN
507: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
508: END IF;
509: --
510: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
511: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
512: --
513: -- Debug Statements
514: --
515: IF l_debug_on THEN
516: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
517: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
518: END IF;
519: --
520: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
521: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
522: --
523: -- Debug Statements
524: --
517: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
518: END IF;
519: --
520: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
521: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
522: --
523: -- Debug Statements
524: --
525: IF l_debug_on THEN
522: --
523: -- Debug Statements
524: --
525: IF l_debug_on THEN
526: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
527: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
528: END IF;
529: --
530: WHEN OTHERS THEN
523: -- Debug Statements
524: --
525: IF l_debug_on THEN
526: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
527: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
528: END IF;
529: --
530: WHEN OTHERS THEN
531: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
527: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
528: END IF;
529: --
530: WHEN OTHERS THEN
531: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
532: wsh_util_core.default_handler('WSH_INBOUND_TXN_HISTORY_PKG.CREATE_TXN_HISTORY');
533: --}
534: --
535: -- Debug Statements
528: END IF;
529: --
530: WHEN OTHERS THEN
531: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
532: wsh_util_core.default_handler('WSH_INBOUND_TXN_HISTORY_PKG.CREATE_TXN_HISTORY');
533: --}
534: --
535: -- Debug Statements
536: --
574: IF l_debug_on THEN
575: WSH_DEBUG_SV.push(l_module_name);
576: END IF;
577: --
578: x_return_status := wsh_util_core.g_ret_sts_success;
579: --
580: --
581: IF l_debug_on THEN
582: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit create_txn_history',WSH_DEBUG_SV.C_PROC_LEVEL);
592: IF l_debug_on THEN
593: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
594: END IF;
595: --
596: wsh_util_core.api_post_call
597: (
598: p_return_status => l_return_status,
599: x_num_warnings => l_num_warnings,
600: x_num_errors => l_num_errors
608: END IF;
609: --
610: IF l_num_errors > 0
611: THEN
612: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
613: ELSIF l_num_warnings > 0
614: THEN
615: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
616: ELSE
611: THEN
612: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
613: ELSIF l_num_warnings > 0
614: THEN
615: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
616: ELSE
617: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
618: END IF;
619: --
613: ELSIF l_num_warnings > 0
614: THEN
615: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
616: ELSE
617: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
618: END IF;
619: --
620: --
621: IF l_debug_on THEN
626: EXCEPTION
627: --{
628: WHEN FND_API.G_EXC_ERROR THEN
629: ROLLBACK;
630: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
631: --
632: -- Debug Statements
633: --
634: IF l_debug_on THEN
637: END IF;
638: --
639: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
640: ROLLBACK;
641: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
642: --
643: -- Debug Statements
644: --
645: IF l_debug_on THEN
646: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
647: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
648: END IF;
649: --
650: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
651: COMMIT;
652: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
653: --
654: -- Debug Statements
648: END IF;
649: --
650: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
651: COMMIT;
652: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
653: --
654: -- Debug Statements
655: --
656: IF l_debug_on THEN
653: --
654: -- Debug Statements
655: --
656: IF l_debug_on THEN
657: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
658: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
659: END IF;
660: --
661: WHEN OTHERS THEN
654: -- Debug Statements
655: --
656: IF l_debug_on THEN
657: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
658: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
659: END IF;
660: --
661: WHEN OTHERS THEN
662: ROLLBACK;
659: END IF;
660: --
661: WHEN OTHERS THEN
662: ROLLBACK;
663: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
664: wsh_util_core.default_handler('WSH_INBOUND_TXN_HISTORY_PKG.AUTONOMOUS_CREATE');
665: --}
666: --
667: -- Debug Statements
660: --
661: WHEN OTHERS THEN
662: ROLLBACK;
663: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
664: wsh_util_core.default_handler('WSH_INBOUND_TXN_HISTORY_PKG.AUTONOMOUS_CREATE');
665: --}
666: --
667: -- Debug Statements
668: --
714: IF l_debug_on THEN
715: WSH_DEBUG_SV.push(l_module_name);
716: END IF;
717: --
718: x_return_status := wsh_util_core.g_ret_sts_success;
719: update wsh_inbound_txn_history
720: set RECEIPT_NUMBER = DECODE
721: (
722: p_txn_history_rec.RECEIPT_NUMBER,
836: --
837: EXCEPTION
838: --{
839: WHEN FND_API.G_EXC_ERROR THEN
840: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
841: --
842: -- Debug Statements
843: --
844: IF l_debug_on THEN
846: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
847: END IF;
848: --
849: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
850: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
851: --
852: -- Debug Statements
853: --
854: IF l_debug_on THEN
855: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
856: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
857: END IF;
858: --
859: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
860: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
861: --
862: -- Debug Statements
863: --
856: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
857: END IF;
858: --
859: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
860: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
861: --
862: -- Debug Statements
863: --
864: IF l_debug_on THEN
861: --
862: -- Debug Statements
863: --
864: IF l_debug_on THEN
865: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
866: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
867: END IF;
868: --
869: WHEN OTHERS THEN
862: -- Debug Statements
863: --
864: IF l_debug_on THEN
865: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
866: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
867: END IF;
868: --
869: WHEN OTHERS THEN
870: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
866: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
867: END IF;
868: --
869: WHEN OTHERS THEN
870: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
871: wsh_util_core.default_handler('WSH_INBOUND_TXN_HISTORY_PKG.UPDATE_TXN_HISTORY');
872: --}
873: --
874: -- Debug Statements
867: END IF;
868: --
869: WHEN OTHERS THEN
870: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
871: wsh_util_core.default_handler('WSH_INBOUND_TXN_HISTORY_PKG.UPDATE_TXN_HISTORY');
872: --}
873: --
874: -- Debug Statements
875: --
924: --
925: WSH_DEBUG_SV.log(l_module_name,'P_TRANSACTION_ID',P_TRANSACTION_ID);
926: END IF;
927: --
928: x_return_status := wsh_util_core.g_ret_sts_success;
929: delete from wsh_inbound_txn_history
930: where transaction_id = p_transaction_id;
931: --}
932: --
938: --
939: EXCEPTION
940: --{
941: WHEN FND_API.G_EXC_ERROR THEN
942: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
943: --
944: -- Debug Statements
945: --
946: IF l_debug_on THEN
948: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
949: END IF;
950: --
951: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
952: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
953: --
954: -- Debug Statements
955: --
956: IF l_debug_on THEN
957: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
958: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
959: END IF;
960: --
961: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
962: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
963: --
964: -- Debug Statements
965: --
958: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
959: END IF;
960: --
961: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
962: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
963: --
964: -- Debug Statements
965: --
966: IF l_debug_on THEN
963: --
964: -- Debug Statements
965: --
966: IF l_debug_on THEN
967: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
968: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
969: END IF;
970: --
971: WHEN OTHERS THEN
964: -- Debug Statements
965: --
966: IF l_debug_on THEN
967: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
968: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
969: END IF;
970: --
971: WHEN OTHERS THEN
972: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
968: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
969: END IF;
970: --
971: WHEN OTHERS THEN
972: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
973: wsh_util_core.default_handler('WSH_INBOUND_TXN_HISTORY_PKG.DELETE_TXN_HISTORY');
974: --}
975: --
976: -- Debug Statements
969: END IF;
970: --
971: WHEN OTHERS THEN
972: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
973: wsh_util_core.default_handler('WSH_INBOUND_TXN_HISTORY_PKG.DELETE_TXN_HISTORY');
974: --}
975: --
976: -- Debug Statements
977: --
1063: WSH_DEBUG_SV.log(l_module_name,'P_SHIPMENT_HEADER_ID',P_SHIPMENT_HEADER_ID);
1064: WSH_DEBUG_SV.log(l_module_name,'P_TRANSACTION_TYPE',P_TRANSACTION_TYPE);
1065: END IF;
1066: --
1067: x_return_status := wsh_util_core.g_ret_sts_success;
1068: IF (p_transaction_id IS NULL AND (p_shipment_header_id IS NULL or p_transaction_type is NULL) ) THEN
1069: --{
1070: RAISE FND_API.G_EXC_ERROR;
1071: --}
1083: --
1084: EXCEPTION
1085: --{
1086: WHEN FND_API.G_EXC_ERROR THEN
1087: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1088: --
1089: -- Debug Statements
1090: --
1091: IF l_debug_on THEN
1093: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1094: END IF;
1095: --
1096: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1097: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1098: --
1099: -- Debug Statements
1100: --
1101: IF l_debug_on THEN
1102: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1103: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1104: END IF;
1105: --
1106: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
1107: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1108: --
1109: -- Debug Statements
1110: --
1103: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1104: END IF;
1105: --
1106: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
1107: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1108: --
1109: -- Debug Statements
1110: --
1111: IF l_debug_on THEN
1108: --
1109: -- Debug Statements
1110: --
1111: IF l_debug_on THEN
1112: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1113: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
1114: END IF;
1115: --
1116: WHEN OTHERS THEN
1109: -- Debug Statements
1110: --
1111: IF l_debug_on THEN
1112: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1113: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
1114: END IF;
1115: --
1116: WHEN OTHERS THEN
1117: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1113: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
1114: END IF;
1115: --
1116: WHEN OTHERS THEN
1117: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1118: wsh_util_core.default_handler('WSH_INBOUND_TXN_HISTORY_PKG.GET_TXN_HISTORY');
1119: --}
1120: --
1121: -- Debug Statements
1114: END IF;
1115: --
1116: WHEN OTHERS THEN
1117: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1118: wsh_util_core.default_handler('WSH_INBOUND_TXN_HISTORY_PKG.GET_TXN_HISTORY');
1119: --}
1120: --
1121: -- Debug Statements
1122: --
1154: x_return_status OUT NOCOPY VARCHAR2
1155: )
1156: IS
1157: --{
1158: l_txn_id_tab wsh_util_core.id_tab_type;
1159: cursor l_txn_history_csr(p_shipment_header_id NUMBER) is
1160: select transaction_id
1161: from wsh_inbound_txn_history
1162: where transaction_type not in ('RECEIPT', 'ASN')
1193: p_transaction_type => p_txn_type,
1194: x_txn_history_rec => l_txn_history_rec,
1195: x_return_status => l_return_status);
1196:
1197: wsh_util_core.api_post_call(
1198: p_return_status => l_return_status,
1199: x_num_warnings => l_num_warnings,
1200: x_num_errors => l_num_errors);
1201:
1205: update_txn_history (
1206: p_txn_history_rec => l_txn_history_rec,
1207: x_return_status => l_return_status);
1208:
1209: wsh_util_core.api_post_call(
1210: p_return_status => l_return_status,
1211: x_num_warnings => l_num_warnings,
1212: x_num_errors => l_num_errors);
1213:
1223: p_transaction_type => p_txn_type,
1224: x_txn_history_rec => l_txn_history_rec,
1225: x_return_status => l_return_status);
1226:
1227: wsh_util_core.api_post_call(
1228: p_return_status => l_return_status,
1229: x_num_warnings => l_num_warnings,
1230: x_num_errors => l_num_errors);
1231:
1234: update_txn_history (
1235: p_txn_history_rec => l_txn_history_rec,
1236: x_return_status => l_return_status);
1237:
1238: wsh_util_core.api_post_call(
1239: p_return_status => l_return_status,
1240: x_num_warnings => l_num_warnings,
1241: x_num_errors => l_num_errors);
1242: --}
1262: WSH_DEBUG_SV.log(l_module_name,'P_TXN_STATUS',P_TXN_STATUS);
1263: WSH_DEBUG_SV.log(l_module_name,'P_TXN_TYPE',P_TXN_TYPE);
1264: END IF;
1265: --
1266: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1267: --
1268: -- Debug Statements
1269: --
1270: IF l_debug_on THEN
1273: --
1274: EXCEPTION
1275: --{
1276: WHEN FND_API.G_EXC_ERROR THEN
1277: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1278: --
1279: -- Debug Statements
1280: --
1281: IF l_debug_on THEN
1283: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1284: END IF;
1285: --
1286: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1287: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1288: --
1289: -- Debug Statements
1290: --
1291: IF l_debug_on THEN
1292: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1293: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1294: END IF;
1295: --
1296: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
1297: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1298: --
1299: -- Debug Statements
1300: --
1293: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1294: END IF;
1295: --
1296: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
1297: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1298: --
1299: -- Debug Statements
1300: --
1301: IF l_debug_on THEN
1298: --
1299: -- Debug Statements
1300: --
1301: IF l_debug_on THEN
1302: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1303: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
1304: END IF;
1305: --
1306: WHEN OTHERS THEN
1299: -- Debug Statements
1300: --
1301: IF l_debug_on THEN
1302: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1303: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
1304: END IF;
1305: --
1306: WHEN OTHERS THEN
1307: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1303: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
1304: END IF;
1305: --
1306: WHEN OTHERS THEN
1307: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1308: wsh_util_core.default_handler('WSH_INBOUND_TXN_HISTORY_PKG.POST_PROCESS');
1309: --}
1310: --
1311: -- Debug Statements
1304: END IF;
1305: --
1306: WHEN OTHERS THEN
1307: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1308: wsh_util_core.default_handler('WSH_INBOUND_TXN_HISTORY_PKG.POST_PROCESS');
1309: --}
1310: --
1311: -- Debug Statements
1312: --
1374: WSH_DEBUG_SV.log(l_module_name,'P_TXN_TYPE',P_TXN_TYPE);
1375: WSH_DEBUG_SV.log(l_module_name,'P_OBJECT_VERSION_NUMBER',P_OBJECT_VERSION_NUMBER);
1376: END IF;
1377: --
1378: x_return_status := wsh_util_core.g_ret_sts_success;
1379: --
1380: --
1381: IF l_debug_on THEN
1382: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit lock_asn_receipt_header',WSH_DEBUG_SV.C_PROC_LEVEL);
1386: (
1387: p_shipment_header_id => p_shipment_header_id,
1388: p_transaction_type => p_txn_type,
1389: p_on_error => 'RETRY', --'RETURN',
1390: p_on_noDataFound => WSH_UTIL_CORE.G_RET_STS_ERROR,
1391: x_txn_history_rec => l_txn_history_rec,
1392: x_return_status => l_return_status,
1393: x_locked => l_locked
1394: );
1397: --
1398: -- Debug Statements
1399: --
1400: IF l_debug_on THEN
1401: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1402: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1403: END IF;
1404: --
1405: wsh_util_core.api_post_call
1401: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1402: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1403: END IF;
1404: --
1405: wsh_util_core.api_post_call
1406: (
1407: p_return_status => l_return_status,
1408: x_num_warnings => l_num_warnings,
1409: x_num_errors => l_num_errors
1422: (
1423: p_shipment_header_id => p_shipment_header_id,
1424: p_transaction_type => 'RECEIPT',
1425: p_on_error => 'RETRY', --'RETURN',
1426: p_on_noDataFound => WSH_UTIL_CORE.G_RET_STS_SUCCESS,
1427: x_txn_history_rec => l_Receipttxn_history_rec,
1428: x_return_status => l_return_status,
1429: x_locked => l_locked
1430: );
1433: --
1434: -- Debug Statements
1435: --
1436: IF l_debug_on THEN
1437: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1438: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1439: END IF;
1440: --
1441: wsh_util_core.api_post_call
1437: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1438: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1439: END IF;
1440: --
1441: wsh_util_core.api_post_call
1442: (
1443: p_return_status => l_return_status,
1444: x_num_warnings => l_num_warnings,
1445: x_num_errors => l_num_errors
1450: THEN
1451: --{
1452: FND_MESSAGE.SET_NAME('WSH','WSH_ASN_REVERT_ERROR');
1453: FND_MESSAGE.SET_TOKEN('SHIPMENT_NUMBER',l_txn_history_rec.shipment_number);
1454: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
1455: RAISE FND_API.G_EXC_ERROR;
1456: --}
1457: END IF;
1458: --}
1463: IF l_locked = 'N'
1464: THEN
1465: --{
1466: FND_MESSAGE.SET_NAME('WSH','WSH_IB_TXN_LOCK_ERROR');
1467: wsh_util_core.add_message(x_return_status,l_module_name);
1468: RAISE FND_API.G_EXC_ERROR;
1469: --}
1470: END IF;
1471: */
1474: IF l_txn_history_rec.object_version_number > p_object_version_number
1475: THEN
1476: --{
1477: FND_MESSAGE.SET_NAME('WSH','WSH_IB_TXN_CHANGE_ERROR');
1478: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
1479: RAISE FND_API.G_EXC_ERROR;
1480: --}
1481: END IF;
1482: --
1556: --
1557: -- Debug Statements
1558: --
1559: IF l_debug_on THEN
1560: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1561: END IF;
1562: --
1563: wsh_util_core.api_post_call
1564: (
1559: IF l_debug_on THEN
1560: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1561: END IF;
1562: --
1563: wsh_util_core.api_post_call
1564: (
1565: p_return_status => l_return_status,
1566: x_num_warnings => l_num_warnings,
1567: x_num_errors => l_num_errors
1587: --
1588: -- Debug Statements
1589: --
1590: IF l_debug_on THEN
1591: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1592: END IF;
1593: --
1594: wsh_util_core.api_post_call
1595: (
1590: IF l_debug_on THEN
1591: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1592: END IF;
1593: --
1594: wsh_util_core.api_post_call
1595: (
1596: p_return_status => l_return_status,
1597: x_num_warnings => l_num_warnings,
1598: x_num_errors => l_num_errors
1607: END IF;
1608: --
1609: IF l_num_errors > 0
1610: THEN
1611: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1612: ELSIF l_num_warnings > 0
1613: THEN
1614: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1615: ELSE
1610: THEN
1611: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1612: ELSIF l_num_warnings > 0
1613: THEN
1614: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1615: ELSE
1616: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1617: END IF;
1618: --
1612: ELSIF l_num_warnings > 0
1613: THEN
1614: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1615: ELSE
1616: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1617: END IF;
1618: --
1619: IF l_debug_on THEN
1620: WSH_DEBUG_SV.pop(l_module_name);
1623: --}
1624: EXCEPTION
1625: --{
1626: WHEN FND_API.G_EXC_ERROR THEN
1627: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1628: --
1629: -- Debug Statements
1630: --
1631: IF l_debug_on THEN
1633: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1634: END IF;
1635: --
1636: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1637: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1638: --
1639: -- Debug Statements
1640: --
1641: IF l_debug_on THEN
1642: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1643: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1644: END IF;
1645: --
1646: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
1647: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1648: --
1649: -- Debug Statements
1650: --
1643: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1644: END IF;
1645: --
1646: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
1647: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1648: --
1649: -- Debug Statements
1650: --
1651: IF l_debug_on THEN
1648: --
1649: -- Debug Statements
1650: --
1651: IF l_debug_on THEN
1652: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1653: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
1654: END IF;
1655: --
1656: WHEN OTHERS THEN
1649: -- Debug Statements
1650: --
1651: IF l_debug_on THEN
1652: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1653: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
1654: END IF;
1655: --
1656: WHEN OTHERS THEN
1657: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1653: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
1654: END IF;
1655: --
1656: WHEN OTHERS THEN
1657: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1658: wsh_util_core.default_handler('WSH_INBOUND_TXN_HISTORY_PKG.POST_PROCESS',l_module_name);
1659: --
1660: -- Debug Statements
1661: --
1654: END IF;
1655: --
1656: WHEN OTHERS THEN
1657: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1658: wsh_util_core.default_handler('WSH_INBOUND_TXN_HISTORY_PKG.POST_PROCESS',l_module_name);
1659: --
1660: -- Debug Statements
1661: --
1662: IF l_debug_on THEN
1672: (
1673: p_shipment_header_id IN NUMBER DEFAULT NULL,
1674: p_transaction_type IN VARCHAR2 DEFAULT NULL,
1675: p_on_error IN VARCHAR2 DEFAULT 'RETURN', -- 'RETRY'
1676: p_on_noDataFound IN VARCHAR2 DEFAULT WSH_UTIL_CORE.G_RET_STS_ERROR, --WSH_UTIL_CORE.G_RET_STS_SUCCESS
1677: x_txn_history_rec OUT NOCOPY ib_txn_history_rec_type,
1678: x_return_status OUT NOCOPY VARCHAR2,
1679: x_locked OUT NOCOPY VARCHAR2 -- Y/N
1680: )
1738: WSH_DEBUG_SV.log(l_module_name,'P_ON_ERROR',P_ON_ERROR);
1739: WSH_DEBUG_SV.log(l_module_name,'p_on_noDataFound',p_on_noDataFound);
1740: END IF;
1741: --
1742: x_return_status := wsh_util_core.g_ret_sts_success;
1743: x_locked := 'N';
1744: --
1745: IF p_shipment_header_id IS NULL
1746: THEN
1753: IF l_param_name is not null
1754: THEN
1755: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
1756: FND_MESSAGE.SET_TOKEN('FIELD_NAME',l_param_name);
1757: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
1758: RAISE FND_API.G_EXC_ERROR;
1759: END IF;
1760: --
1761: --
1763: THEN
1764: --{
1765: FND_MESSAGE.SET_NAME('WSH','WSH_PUB_INVALID_PARAMETER');
1766: FND_MESSAGE.SET_TOKEN('FIELD_NAME','p_transaction_type');
1767: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
1768: RAISE FND_API.G_EXC_ERROR;
1769: --}
1770: END IF;
1771: --
1774: THEN
1775: --{
1776: FND_MESSAGE.SET_NAME('WSH','WSH_PUB_INVALID_PARAMETER');
1777: FND_MESSAGE.SET_TOKEN('FIELD_NAME','p_on_error');
1778: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
1779: RAISE FND_API.G_EXC_ERROR;
1780: --}
1781: END IF;
1782: --
1780: --}
1781: END IF;
1782: --
1783: --
1784: IF p_on_noDataFound NOT IN ( WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_SUCCESS )
1785: THEN
1786: --{
1787: FND_MESSAGE.SET_NAME('WSH','WSH_PUB_INVALID_PARAMETER');
1788: FND_MESSAGE.SET_TOKEN('FIELD_NAME','p_on_noDataFound');
1785: THEN
1786: --{
1787: FND_MESSAGE.SET_NAME('WSH','WSH_PUB_INVALID_PARAMETER');
1788: FND_MESSAGE.SET_TOKEN('FIELD_NAME','p_on_noDataFound');
1789: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
1790: RAISE FND_API.G_EXC_ERROR;
1791: --}
1792: END IF;
1793: --
1805: --
1806: IF l_found
1807: THEN
1808: x_locked := 'Y';
1809: ELSIF p_on_noDataFound = WSH_UTIL_CORE.G_RET_STS_ERROR
1810: THEN
1811: FND_MESSAGE.SET_NAME('WSH','WSH_IB_TXN_NOT_FOUND');
1812: FND_MESSAGE.SET_TOKEN('TXN_TYPE',p_transaction_type);
1813: FND_MESSAGE.SET_TOKEN('SHIPMENT_HEADER_ID',p_shipment_header_id);
1810: THEN
1811: FND_MESSAGE.SET_NAME('WSH','WSH_IB_TXN_NOT_FOUND');
1812: FND_MESSAGE.SET_TOKEN('TXN_TYPE',p_transaction_type);
1813: FND_MESSAGE.SET_TOKEN('SHIPMENT_HEADER_ID',p_shipment_header_id);
1814: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
1815: RAISE FND_API.G_EXC_ERROR;
1816: END IF;
1817: --
1818: EXIT;
1843: --}
1844: EXCEPTION
1845: --{
1846: WHEN FND_API.G_EXC_ERROR THEN
1847: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1848: --
1849: -- Debug Statements
1850: --
1851: IF l_debug_on THEN
1853: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1854: END IF;
1855: --
1856: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1857: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1858: --
1859: -- Debug Statements
1860: --
1861: IF l_debug_on THEN
1862: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1863: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1864: END IF;
1865: --
1866: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
1867: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1868: --
1869: -- Debug Statements
1870: --
1863: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1864: END IF;
1865: --
1866: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
1867: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1868: --
1869: -- Debug Statements
1870: --
1871: IF l_debug_on THEN
1868: --
1869: -- Debug Statements
1870: --
1871: IF l_debug_on THEN
1872: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1873: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
1874: END IF;
1875: --
1876: WHEN OTHERS THEN
1869: -- Debug Statements
1870: --
1871: IF l_debug_on THEN
1872: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1873: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
1874: END IF;
1875: --
1876: WHEN OTHERS THEN
1877: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1873: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
1874: END IF;
1875: --
1876: WHEN OTHERS THEN
1877: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1878: wsh_util_core.default_handler('WSH_INBOUND_TXN_HISTORY_PKG.lock_asn_receipt_header',l_module_name);
1879: --
1880: -- Debug Statements
1881: --
1874: END IF;
1875: --
1876: WHEN OTHERS THEN
1877: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1878: wsh_util_core.default_handler('WSH_INBOUND_TXN_HISTORY_PKG.lock_asn_receipt_header',l_module_name);
1879: --
1880: -- Debug Statements
1881: --
1882: IF l_debug_on THEN
1933: --
1934: WSH_DEBUG_SV.log(l_module_name,'p_transaction_id',p_transaction_id);
1935: END IF;
1936: --
1937: x_return_status := wsh_util_core.g_ret_sts_success;
1938: x_locked := 'N';
1939: --
1940: IF p_transaction_id IS NULL
1941: THEN
1945: IF l_param_name is not null
1946: THEN
1947: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
1948: FND_MESSAGE.SET_TOKEN('FIELD_NAME',l_param_name);
1949: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
1950: RAISE FND_API.G_EXC_ERROR;
1951: END IF;
1952: --
1953: --
1963: x_locked := 'Y';
1964: ELSE
1965: FND_MESSAGE.SET_NAME('WSH','WSH_IB_TXN_UPDATE_ERROR');
1966: FND_MESSAGE.SET_TOKEN('TRANSACTION_ID',p_transaction_id);
1967: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
1968: RAISE FND_API.G_EXC_ERROR;
1969: END IF;
1970: --
1971: -- Debug Statements
1987: END IF;
1988: --
1989: WHEN FND_API.G_EXC_ERROR THEN
1990: ROLLBACK TO SAVEPOINT lock_n_roll_sp;
1991: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1992: --
1993: -- Debug Statements
1994: --
1995: IF l_debug_on THEN
1998: END IF;
1999: --
2000: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2001: ROLLBACK TO SAVEPOINT lock_n_roll_sp;
2002: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2003: --
2004: -- Debug Statements
2005: --
2006: IF l_debug_on THEN
2007: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2008: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2009: END IF;
2010: --
2011: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
2012: ROLLBACK TO SAVEPOINT lock_n_roll_sp;
2013: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2014: --
2015: -- Debug Statements
2009: END IF;
2010: --
2011: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
2012: ROLLBACK TO SAVEPOINT lock_n_roll_sp;
2013: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2014: --
2015: -- Debug Statements
2016: --
2017: IF l_debug_on THEN
2014: --
2015: -- Debug Statements
2016: --
2017: IF l_debug_on THEN
2018: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2019: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
2020: END IF;
2021: --
2022: WHEN OTHERS THEN
2015: -- Debug Statements
2016: --
2017: IF l_debug_on THEN
2018: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2019: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
2020: END IF;
2021: --
2022: WHEN OTHERS THEN
2023: ROLLBACK TO SAVEPOINT lock_n_roll_sp;
2020: END IF;
2021: --
2022: WHEN OTHERS THEN
2023: ROLLBACK TO SAVEPOINT lock_n_roll_sp;
2024: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2025: wsh_util_core.default_handler('WSH_INBOUND_TXN_HISTORY_PKG.lock_n_roll',l_module_name);
2026: --
2027: -- Debug Statements
2028: --
2021: --
2022: WHEN OTHERS THEN
2023: ROLLBACK TO SAVEPOINT lock_n_roll_sp;
2024: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2025: wsh_util_core.default_handler('WSH_INBOUND_TXN_HISTORY_PKG.lock_n_roll',l_module_name);
2026: --
2027: -- Debug Statements
2028: --
2029: IF l_debug_on THEN
2072: --
2073: WSH_DEBUG_SV.log(l_module_name,'p_transactionType',p_transactionType);
2074: END IF;
2075: --
2076: x_return_status := wsh_util_core.g_ret_sts_success;
2077: --
2078: OPEN lookup_csr
2079: (
2080: p_lookupCode => p_transactionType,
2088: IF l_lookup_rec.meaning IS NULL
2089: THEN
2090: FND_MESSAGE.SET_NAME('WSH','WSH_IB_INVALID_TXN_TYPE');
2091: FND_MESSAGE.SET_TOKEN('TXN_TYPE',p_transactionType);
2092: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
2093: RAISE FND_API.G_EXC_ERROR;
2094: END IF;
2095: --
2096: --
2101: --}
2102: EXCEPTION
2103: --{
2104: WHEN FND_API.G_EXC_ERROR THEN
2105: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2106: --
2107: -- Debug Statements
2108: --
2109: IF l_debug_on THEN
2111: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2112: END IF;
2113: --
2114: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2115: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2116: --
2117: -- Debug Statements
2118: --
2119: IF l_debug_on THEN
2120: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2121: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2122: END IF;
2123: --
2124: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
2125: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2126: --
2127: -- Debug Statements
2128: --
2121: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2122: END IF;
2123: --
2124: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
2125: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2126: --
2127: -- Debug Statements
2128: --
2129: IF l_debug_on THEN
2126: --
2127: -- Debug Statements
2128: --
2129: IF l_debug_on THEN
2130: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2131: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
2132: END IF;
2133: --
2134: WHEN OTHERS THEN
2127: -- Debug Statements
2128: --
2129: IF l_debug_on THEN
2130: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2131: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
2132: END IF;
2133: --
2134: WHEN OTHERS THEN
2135: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2131: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
2132: END IF;
2133: --
2134: WHEN OTHERS THEN
2135: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2136: wsh_util_core.default_handler('WSH_INBOUND_TXN_HISTORY_PKG.getTransactionTypeMeaning',l_module_name);
2137: --
2138: -- Debug Statements
2139: --
2132: END IF;
2133: --
2134: WHEN OTHERS THEN
2135: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2136: wsh_util_core.default_handler('WSH_INBOUND_TXN_HISTORY_PKG.getTransactionTypeMeaning',l_module_name);
2137: --
2138: -- Debug Statements
2139: --
2140: IF l_debug_on THEN