[Home] [Help]
PACKAGE BODY: APPS.WSH_TPA_CONTAINER_PKG
Source
1 PACKAGE BODY WSH_TPA_CONTAINER_PKG AS
2 /* $Header: WSHTPCOB.pls 115.4 2003/08/12 01:30:38 lkuchibh ship $ */
3 --{
4 --
5 --
6 -- =================================================================
7 -- *** PLEASE DO NOT EDIT THIS FILE. ***
8 -- *** THIS FILE IS ALWAYS GENERATED BY TPA GENERATE UTILITY. ***
9 -- =================================================================
10 --
11 PROCEDURE Container_Tare_Weight_Self
12 (
13 p_container_instance_id IN NUMBER,
14 p_cont_item_id IN NUMBER,
15 p_wt_uom IN VARCHAR2,
16 p_organization_id IN NUMBER,
17 x_cont_tare_wt OUT NOCOPY NUMBER,
18 x_return_status OUT NOCOPY VARCHAR2
19 )
20 IS
21 --{
22 --
23 --
24 --
25 -- Internal Variables
26 --
27 k_program_unit_id CONSTANT NUMBER := 11329;
28 --
29 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
30 --
31 l_customization_level VARCHAR2(32767);
32 --
33 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
34 --
35 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
36 --
37 --
38 --
39 --}
40 BEGIN
41 --{
42 --
43 --
44 WSH_WV_UTILS.Container_Tare_Weight_Self
45 (
46 p_container_instance_id => p_container_instance_id,
47 p_cont_item_id => p_cont_item_id,
48 p_wt_uom => p_wt_uom,
49 p_organization_id => p_organization_id,
50 x_cont_tare_wt => x_cont_tare_wt,
51 x_return_status => x_return_status
52 )
53 ;
54 --
55 --
56 --}
57 EXCEPTION
58 --{
59 --
60 --
61 WHEN OTHERS THEN
62 RAISE ;
63 --
64 --
65 --}
66 END Container_Tare_Weight_Self;
67 --
68 --
69 PROCEDURE Calc_Cont_Fill_Pc
70 (
71 p_container_instance_id IN NUMBER,
72 p_update_flag IN VARCHAR2,
73 p_fill_pc_basis IN VARCHAR2,
74 x_fill_percent OUT NOCOPY NUMBER,
75 x_return_status OUT NOCOPY VARCHAR2
76 )
77 IS
78 --{
79 --
80 --
81 --
82 -- Internal Variables
83 --
84 k_program_unit_id CONSTANT NUMBER := 11299;
85 --
86 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
87 --
88 l_customization_level VARCHAR2(32767);
89 --
90 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
91 --
92 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
93 --
94 --
95 --
96 --}
97 BEGIN
98 --{
99 --
100 --
101 WSH_WV_UTILS.Calc_Cont_Fill_Pc
102 (
103 p_container_instance_id => p_container_instance_id,
104 p_update_flag => p_update_flag,
105 p_fill_pc_basis => p_fill_pc_basis,
106 x_fill_percent => x_fill_percent,
107 x_return_status => x_return_status
108 )
109 ;
110 --
111 --
112 --}
113 EXCEPTION
114 --{
115 --
116 --
117 WHEN OTHERS THEN
118 RAISE ;
119 --
120 --
121 --}
122 END Calc_Cont_Fill_Pc;
123 --
124 --
125 PROCEDURE Container_Weight_Volume
126 (
127 p_container_instance_id IN NUMBER,
128 p_override_flag IN VARCHAR2,
129 x_gross_weight OUT NOCOPY NUMBER,
130 x_net_weight OUT NOCOPY NUMBER,
131 x_volume OUT NOCOPY NUMBER,
132 p_fill_pc_flag IN VARCHAR2,
133 x_cont_fill_pc OUT NOCOPY NUMBER,
134 x_return_status OUT NOCOPY VARCHAR2,
135 p_calc_wv_if_frozen IN VARCHAR2 DEFAULT 'Y'
136 )
137 IS
138 --{
139 --
140 --
141 --
142 -- Internal Variables
143 --
144 k_program_unit_id CONSTANT NUMBER := 11298;
145 --
146 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
147 --
148 l_customization_level VARCHAR2(32767);
149 --
150 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
151 --
152 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
153 --
154 --
155 --
156 --}
157 BEGIN
158 --{
159 --
160 --
161 WSH_WV_UTILS.Container_Weight_Volume
162 (
163 p_container_instance_id => p_container_instance_id,
164 p_override_flag => p_override_flag,
165 x_gross_weight => x_gross_weight,
166 x_net_weight => x_net_weight,
167 x_volume => x_volume,
168 p_fill_pc_flag => p_fill_pc_flag,
169 x_cont_fill_pc => x_cont_fill_pc,
170 x_return_status => x_return_status,
171 p_calc_wv_if_frozen => p_calc_wv_if_frozen
172 )
173 ;
174 --
175 --
176 --}
177 EXCEPTION
178 --{
179 --
180 --
181 WHEN OTHERS THEN
182 RAISE ;
183 --
184 --
185 --}
186 END Container_Weight_Volume;
187 --
188 --
189 PROCEDURE Validate_Master_Serial_Number
190 (
191 p_master_serial_number IN VARCHAR2,
192 p_container_instance_id IN NUMBER,
193 x_return_status OUT NOCOPY VARCHAR2
194 )
195 IS
196 --{
197 --
198 --
199 --
200 -- Internal Variables
201 --
202 k_program_unit_id CONSTANT NUMBER := 11295;
203 --
204 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
205 --
206 l_customization_level VARCHAR2(32767);
207 --
208 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
209 --
210 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
211 --
212 --
213 --
214 --}
215 BEGIN
216 --{
217 --
218 --
219 WSH_CONTAINER_UTILITIES.Validate_Master_Serial_Number
220 (
221 p_master_serial_number => p_master_serial_number,
222 p_container_instance_id => p_container_instance_id,
223 x_return_status => x_return_status
224 )
225 ;
226 --
227 --
228 --}
229 EXCEPTION
230 --{
231 --
232 --
233 WHEN OTHERS THEN
234 RAISE ;
235 --
236 --
237 --}
238 END Validate_Master_Serial_Number;
239 --
240 --
241 PROCEDURE Estimate_Master_Containers
242 (
243 p_container_instance_id IN NUMBER,
244 x_mast_cont_item_id IN OUT NOCOPY NUMBER,
245 p_det_cont_item_id IN NUMBER,
246 p_organization_id IN NUMBER,
247 x_num_cont IN OUT NOCOPY NUMBER,
248 x_return_status OUT NOCOPY VARCHAR2
249 )
250 IS
251 --{
252 --
253 --
254 --
255 -- Internal Variables
256 --
257 k_program_unit_id CONSTANT NUMBER := 11294;
258 --
259 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
260 --
261 l_customization_level VARCHAR2(32767);
262 --
263 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
264 --
265 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
266 --
267 --
268 --
269 --}
270 BEGIN
271 --{
272 --
273 --
274 WSH_CONTAINER_UTILITIES.Estimate_Master_Containers
275 (
276 p_container_instance_id => p_container_instance_id,
277 x_mast_cont_item_id => x_mast_cont_item_id,
278 p_det_cont_item_id => p_det_cont_item_id,
279 p_organization_id => p_organization_id,
280 x_num_cont => x_num_cont,
281 x_return_status => x_return_status
282 )
283 ;
284 --
285 --
286 --}
287 EXCEPTION
288 --{
289 --
290 --
291 WHEN OTHERS THEN
292 RAISE ;
293 --
294 --
295 --}
296 END Estimate_Master_Containers;
297 --
298 --
299 PROCEDURE Estimate_Detail_Containers
300 (
301 p_container_instance_id IN NUMBER DEFAULT NULL,
302 x_container_item_id IN OUT NOCOPY NUMBER,
303 p_delivery_detail_id IN NUMBER,
304 p_organization_id IN NUMBER,
305 x_num_cont IN OUT NOCOPY NUMBER,
306 x_return_status OUT NOCOPY VARCHAR2
307 )
308 IS
309 --{
310 --
311 --
312 --
313 -- Internal Variables
314 --
315 k_program_unit_id CONSTANT NUMBER := 11293;
316 --
317 k_layer_provider_code CONSTANT VARCHAR2(32767) := 'ORCL';
318 --
319 l_customization_level VARCHAR2(32767);
320 --
321 l_layer_tbl vea_tpa_util_pvt.g_layer_tbl_type;
322 --
323 l_code_conversion_tbl vea_tpa_util_pvt.g_code_conversion_tbl_type;
324 --
325 --
326 --
327 --}
328 BEGIN
329 --{
330 --
331 --
332 WSH_CONTAINER_UTILITIES.Estimate_Detail_Containers
333 (
334 p_container_instance_id => p_container_instance_id,
335 x_container_item_id => x_container_item_id,
336 p_delivery_detail_id => p_delivery_detail_id,
337 p_organization_id => p_organization_id,
338 x_num_cont => x_num_cont,
339 x_return_status => x_return_status
340 )
341 ;
342 --
343 --
344 --}
345 EXCEPTION
346 --{
347 --
348 --
349 WHEN OTHERS THEN
350 RAISE ;
351 --
352 --
353 --}
354 END Estimate_Detail_Containers;
355 --
356 --
357 --
358 --}
359 END WSH_TPA_CONTAINER_PKG;
360 --