[Home] [Help]
1: PACKAGE BODY WSH_DSNO as
2: /* $Header: WSHDSNOB.pls 120.3 2006/11/03 01:22:33 wrudge noship $ */
3:
4:
5: G_RLM_INSTALL_STATUS VARCHAR2(30);
7:
8: -- bug 1677940: add new parameter x_return_status
9:
10: --
11: G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_DSNO';
12: --
13: PROCEDURE ec_document_send (
14: p_trip_stop_id IN NUMBER,
15: x_return_status OUT NOCOPY VARCHAR2) IS
59: FETCH doc_num INTO l_doc_num;
60: CLOSE doc_num;
61:
62: --Following lines of code added as part of Bug 4255379
63: l_output_file_ext := FND_PROFILE.Value('WSH_DSNO_OUTPUT_FILE_EXT');
64: If l_output_file_ext IS NULL THEN
65: l_output_filename := 'DSNO' || to_char(l_doc_num);
66: Else
67: l_output_filename := 'DSNO' || to_char(l_doc_num) || '.' ||l_output_file_ext;
507: return;
508:
509: /* SELECT COUNT(*)
510: INTO l_delivery_count
511: FROM WSH_DSNO_DELIVERIES_V
512: WHERE PICK_UP_STOP_ID = p_trip_stop_id;
513:
514: IF(l_delivery_count = 0) THEN
515: wsh_util_core.println('No Eligible Delivery for the DSNO');
545: END IF;
546: --
547: EXCEPTION
548: WHEN OTHERS THEN
549: wsh_util_core.default_handler('WSH_DSNO.Submit');
550: x_completion_status := 'ERROR';
551:
552: --
553: -- Debug Statements
560: END Submit_Trip_Stop;
561: -- end bug 1578251: new procedure submit_trip_stop with x_completion_status
562:
563:
564: END WSH_DSNO;