[Home] [Help]
PACKAGE BODY: APPS.WMS_INSERT_WDTH_PVT
Source
1 PACKAGE BODY wms_insert_wdth_pvt AS
2 /* $Header: WMSWDTHB.pls 120.2 2006/12/05 06:38:35 vpushpa noship $ */
3
4 g_pkg_body_ver CONSTANT VARCHAR2(100) := '$Header: WMSWDTHB.pls 120.2 2006/12/05 06:38:35 vpushpa noship $';
5 g_newline CONSTANT VARCHAR2(10) := fnd_global.newline;
6
7 PROCEDURE print_debug
8 ( p_msg IN VARCHAR2
9 , p_api_name IN VARCHAR2
10 ) IS
11 BEGIN
12 inv_log_util.trace
13 ( p_message => p_msg
14 , p_module => g_pkg_name || '.' || p_api_name
15 , p_level => 4
16 );
17 END print_debug;
18
19
20
21 PROCEDURE print_version_info
22 IS
23 BEGIN
24 print_debug ('Spec:: ' || g_pkg_spec_ver, 'print_version_info');
25 print_debug ('Body:: ' || g_pkg_body_ver, 'print_version_info');
26 END print_version_info;
27
28 PROCEDURE insert_into_wdth
29 ( x_return_status OUT NOCOPY VARCHAR2,
30 p_txn_header_id IN NUMBER,
31 p_transaction_temp_id IN NUMBER,
32 p_transaction_batch_id IN NUMBER,
33 p_transaction_batch_seq IN NUMBER,
34 p_transfer_lpn_id IN NUMBER) IS
35 BEGIN
36 insert_into_wdth
37 (x_return_status => x_return_status,
38 p_txn_header_id => p_txn_header_id,
39 p_transaction_temp_id => p_transaction_temp_id,
40 p_transaction_batch_id => p_transaction_batch_id,
41 p_transaction_batch_seq => p_transaction_batch_seq,
42 p_transfer_lpn_id => p_transfer_lpn_id,
43 p_status => 6);
44 END;
45
46
47 PROCEDURE insert_into_wdth
48 ( x_return_status OUT NOCOPY VARCHAR2,
49 p_txn_header_id IN NUMBER,
50 p_transaction_temp_id IN NUMBER,
51 p_transaction_batch_id IN NUMBER,
52 p_transaction_batch_seq IN NUMBER,
53 p_transfer_lpn_id IN NUMBER,
54 p_status IN NUMBER) IS
55
56 l_api_name VARCHAR2(30) := 'insert_into_wdth';
57 l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
58
59 BEGIN
60 x_return_status := fnd_api.g_ret_sts_success;
61
62 IF l_debug = 1 THEN
63 print_version_info;
64 print_debug
65 ( 'Entered with parameters: ' || g_newline ||
66 'p_txn_header_id => ' || to_char(p_txn_header_id) || g_newline ||
67 'p_transaction_temp_id => ' || to_char(p_transaction_temp_id) || g_newline ||
68 'p_transaction_batch_id => ' || to_char(p_transaction_batch_id) || g_newline ||
69 'p_transaction_batch_seq => ' || to_char(p_transaction_batch_seq) || g_newline ||
70 'p_transfer_lpn_id => ' || to_char(p_transfer_lpn_id)
71 , l_api_name
72 );
73 END IF;
74
75 INSERT INTO wms_dispatched_tasks_history
76 ( task_id
77 , transaction_id
78 , organization_id
79 , transaction_batch_id
80 , transaction_batch_seq
81 , user_task_type
82 , person_id
83 , effective_start_date
84 , effective_end_date
85 , equipment_id
86 , equipment_instance
87 , person_resource_id
88 , machine_resource_id
89 , status
90 , dispatched_time
91 , last_update_date
92 , last_updated_by
93 , creation_date
94 , created_by
95 , task_type
96 , loaded_time
97 , drop_off_time
98 , suggested_dest_subinventory
99 , suggested_dest_locator_id
100 , operation_plan_id
101 , move_order_line_id
102 , transfer_lpn_id
103 , inventory_item_id
104 , revision
105 , transaction_type_id
106 , transaction_source_type_id
107 , transaction_action_id
108 , source_subinventory_code
109 , source_locator_id
110 , dest_subinventory_code
111 , dest_locator_id
112 , lpn_id
113 , content_lpn_id
114 , transaction_temp_id
115 , priority -- For bug 5401222
116 )
117 (SELECT wdt.task_id
118 , p_txn_header_id
119 , wdt.organization_id
120 , p_transaction_batch_id
121 , p_transaction_batch_seq
122 , wdt.user_task_type
123 , wdt.person_id
124 , SYSDATE -- wdt.effective_start_date (for bug#5412974)
125 , SYSDATE -- wdt.effective_end_date (for bug#5412974)
126 , wdt.equipment_id
127 , wdt.equipment_instance
128 , wdt.person_resource_id
129 , wdt.machine_resource_id
130 , p_status
131 , wdt.dispatched_time
132 , SYSDATE
133 , fnd_global.user_id
134 , SYSDATE
135 , fnd_global.user_id
136 , wdt.task_type
137 , wdt.loaded_time
138 , SYSDATE
139 , wdt.suggested_dest_subinventory
140 , wdt.suggested_dest_locator_id
141 , wdt.operation_plan_id
142 , wdt.move_order_line_id
143 , p_transfer_lpn_id
144 , mmtt.inventory_item_id
145 , mmtt.revision
146 , mmtt.transaction_type_id
147 , mmtt.transaction_source_type_id
148 , mmtt.transaction_action_id
149 , mmtt.subinventory_code
150 , mmtt.locator_id
151 , mmtt.transfer_subinventory
152 , mmtt.transfer_to_location
153 , mmtt.lpn_id
154 , mmtt.content_lpn_id
155 , mmtt.transaction_temp_id
156 , nvl(wdt.priority,mmtt.task_priority) -- For bug 5401222
157 FROM wms_dispatched_tasks wdt
158 , mtl_material_transactions_temp mmtt
159 WHERE wdt.transaction_temp_id = p_transaction_temp_id
160 AND wdt.transaction_temp_id = mmtt.transaction_temp_id
161 );
162 EXCEPTION
163 WHEN OTHERS THEN
164 x_return_status := fnd_api.g_ret_sts_unexp_error;
165
166 IF l_debug = 1 THEN
167 print_debug ('Other error: ' || sqlerrm, l_api_name);
168 END IF;
169
170 END insert_into_wdth;
171
172 END wms_insert_wdth_pvt;