PACKAGE BODY: APPS.WMS_CARTONIZATION_USER_PUB

Source

1 PACKAGE BODY WMS_CARTONIZATION_USER_PUB AS
2 /* $Header: WMSCRTUB.pls 120.2 2008/04/16 19:24:38 rsagar noship $*/
3 
4  PROCEDURE log_event(
5                       p_message VARCHAR2)
6   IS
7 
8      l_module VARCHAR2(255);
9      l_mesg VARCHAR2(255);
10     l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
11  BEGIN
12 
13    l_module := 'wms.plsql.' || 'wms_cartnzn_pub' || '.' || 'cartonization';
14 
15    --inv_pick_wave_pick_confirm_pub.TraceLog(err_msg => p_message,
16    --                                      module => 'WMS_CARTNZN_PUB'
17    --                                      );
18 
19 
20    l_mesg := to_char(sysdate, 'YYYY-MM-DD HH:DD:SS') || p_message;
21 
22    IF (l_debug = 1) THEN
23       -- dbms_output.put_line(l_mesg);
24       inv_trx_util_pub.trace(l_mesg, 'WMS_CARTNZN_PUB');
25    END IF;
26 
27 
28  END log_event;
29 
30    PROCEDURE cartonize
31                   ( x_return_status    OUT NOCOPY VARCHAR2,
32                     x_msg_count        OUT NOCOPY NUMBER,
33                     x_msg_data         OUT NOCOPY VARCHAR2,
34                     x_task_table       OUT NOCOPY mmtt_type,
35                     p_organization_id  IN  NUMBER,
36                     p_task_table       IN  mmtt_type
37                     )
38    IS
39       l_return_status VARCHAR2(1) := 'E';
40       l_to_lpn_id  NUMBER;
41       l_process_id NUMBER;
42       l_to_lpn  VARCHAR2(400);
43       l_msg_count                    NUMBER;
44       l_msg_data                     VARCHAR2(5000);
45    BEGIN
46         log_event(' Inside customer code WMS_CARTONIZATION_USER_PUB.CARTONIZE()');
47          -- Customer code.
48 
49          log_event('p_task_table.COUNT : '|| p_task_table.COUNT);
50 
51 /*         FOR i IN p_task_table.FIRST .. p_task_table.LAST LOOP
52             x_task_table(i) := p_task_table(i);
53          END LOOP;
54 
55         log_event('x_task_table := p_task_table');
56 
57          FOR i IN x_task_table.FIRST .. x_task_table.LAST
58          LOOP
59 
60         log_event(' Inside for loop');
61 
62          WMS_CONTAINER_PUB.GENERATE_LPN
63            (p_api_version  => 1.0,
64             x_return_status => l_return_status,
65             x_msg_count => l_msg_count,
66             x_msg_data => l_msg_data,
67             p_organization_id => p_organization_id,
68             p_lpn_out => l_to_lpn,
69             p_lpn_id_out => l_to_lpn_id,
70             p_process_id => l_process_id,
71             p_validation_level => FND_API.G_VALID_LEVEL_NONE);
72 
73             log_event(' Generated LPN_ID :'||l_to_lpn_id || ' LPN : '|| l_to_lpn);
74 
75             log_event(' Inside Loop i : '|| i);
76 
77             x_task_table(i).cartonization_id := l_to_lpn_id;
78             x_task_table(i).container_item_id := 262907;
79 
80          END LOOP;
81 
82 
83          FOR i IN x_task_table.FIRST .. x_task_table.LAST
84          LOOP
85             log_event(' Inside x_task_table Loop i : '|| i);
86             log_event(' p_task_table(i).cartonization_id: '|| x_task_table(i).cartonization_id);
87             log_event(' p_task_table(i).container_item_id: '|| x_task_table(i).container_item_id);
88          END LOOP;
89 
90 */
91          x_return_status := 'S';
92 EXCEPTION  -- Bug : 6962305
93 WHEN OTHERS THEN
94    log_event('Unexpected Error in  WMS_CARTONIZATION_USER_PUB.CARTONIZE()');
95    log_event('SQLERRM : ' || SQLERRM);
96    log_event('SQLERRM : ' || SQLCODE);
97    x_return_status := 'E';
98 END;
99 
100 END WMS_CARTONIZATION_USER_PUB;