[Home] [Help]
1: PACKAGE BODY WMS_PUTAWAY_SUGGESTIONS AS
2: /* $Header: WMSPRGEB.pls 120.8.12010000.3 2008/10/08 13:20:14 ssrikaku ship $ */
3:
4: -- Global constant holding the package name
5: g_pkg_name constant varchar2(50) := 'WMS_PUTAWAY_SUGGESTIONS';
1: PACKAGE BODY WMS_PUTAWAY_SUGGESTIONS AS
2: /* $Header: WMSPRGEB.pls 120.8.12010000.3 2008/10/08 13:20:14 ssrikaku ship $ */
3:
4: -- Global constant holding the package name
5: g_pkg_name constant varchar2(50) := 'WMS_PUTAWAY_SUGGESTIONS';
6:
7: /*===========================================================================+
8: | Procedure: |
9: | conc_pre_generate |
8: | Procedure: |
9: | conc_pre_generate |
10: | |
11: | Description: |
12: | This is a wrapper API that calls WMS_PUTAWAY_SUGGESTIONS.PRE_GENERATE |
13: | API. It has the necessary parameters required for being a concurrent |
14: | program. |
15: | |
16: | Input Parameters: |
36: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
37: BEGIN
38: inv_mobile_helper_functions.tracelog
39: (p_err_msg => p_err_msg,
40: p_module => 'wms_putaway_suggestions',
41: p_level => p_level);
42:
43: END;
44:
69:
70: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
71: BEGIN
72: IF (l_debug = 1) THEN
73: print_debug('Entered WMS_PUTAWAY_SUGGESTIONS.conc_pre_generate');
74: print_debug('Org:'||p_organization_id);
75: print_debug('LPN:'||p_lpn_id);
76: print_debug('p_is_srs_call: '||p_is_srs_call);
77: END IF;
76: print_debug('p_is_srs_call: '||p_is_srs_call);
77: END IF;
78:
79:
80: WMS_PUTAWAY_SUGGESTIONS.pre_generate
81: (x_return_status => l_return_status,
82: x_msg_count => l_msg_count,
83: x_msg_data => l_msg_data,
84: x_partial_success => l_partial_success,
1282: fnd_file.put_line(fnd_file.log, sqlerrm);
1283:
1284: END print_message;
1285:
1286: END wms_putaway_suggestions;