[Home] [Help]
PACKAGE BODY: APPS.PO_SHIPMENTS_SV9
Source
1 PACKAGE BODY PO_SHIPMENTS_SV9 as
2 /* $Header: POXPOS9B.pls 120.2 2006/07/27 23:49:37 dreddy noship $*/
3
4 /*===========================================================================
5
6 PROCEDURE NAME: test_get_shipment_num
7
8 ===========================================================================*/
9 PROCEDURE test_get_shipment_num (X_po_release_id IN NUMBER,
10 X_po_line_id IN NUMBER) IS
11
12 X_shipment_num NUMBER;
13
14 BEGIN
15
16 dbms_output.put_line('before call');
17
18 po_shipments_sv1.get_shipment_num(X_po_release_id,
19 X_po_line_id,
20 X_shipment_num);
21
22 dbms_output.put_line('after call');
23 dbms_output.put_line(X_shipment_num);
24
25 END test_get_shipment_num;
26
27 /*===========================================================================
28
29 PROCEDURE NAME: test_get_planned_ship_info
30
31 ===========================================================================*/
32 PROCEDURE test_get_planned_ship_info (X_source_shipment_id IN NUMBER,
33 X_set_of_books_id IN NUMBER) IS
34
35 /** PO UTF8 Column Expansion Project 9/23/2002 tpoon **/
36 /** Changed X_ship_to_location_code to use %TYPE **/
37 -- X_ship_to_location_code VARCHAR2(20) := '';
38 X_ship_to_location_code hr_locations_all.location_code%TYPE := '';
39
40 X_ship_to_location_id NUMBER := '';
41 X_ship_to_org_code VARCHAR2(3) := '';
42 X_ship_to_organization_id NUMBER := '';
43 X_quantity NUMBER := '';
44 X_price_override NUMBER := '';
45 X_promised_date DATE := '';
46 X_need_by_date DATE := '';
47 X_taxable_flag VARCHAR2(1) := '';
48 X_tax_name zx_id_tcc_mapping.TAX_CLASSIFICATION_CODE%type:='';
49 X_enforce_ship_to_location varchar2(25) := '';
50 X_allow_substitute_receipts VARCHAR2(1) := '';
51 X_receiving_routing_id NUMBER := '';
52 X_qty_rcv_tolerance NUMBER := '';
53 X_qty_rcv_exception_code varchar2(25) := '';
54 X_days_early_receipt_allowed NUMBER := '';
55 X_last_accept_date DATE := '';
56 X_days_late_receipt_allowed NUMBER := '';
57 X_receipt_days_exception_code varchar2(25) := '';
58 X_invoice_close_tolerance NUMBER := '';
59 X_receive_close_tolerance NUMBER := '';
60 X_accrue_on_receipt_flag VARCHAR2(1) := '';
61 X_receipt_required_flag VARCHAR2(1) := '';
62 X_inspection_required_flag VARCHAR2(1) := '';
63
64 BEGIN
65
66 dbms_output.put_line('before call');
67
68 po_shipments_sv1.get_planned_ship_info(
69 X_source_shipment_id,
70 X_set_of_books_id ,
71 X_ship_to_location_code,
72 X_ship_to_location_id,
73 X_ship_to_org_code,
74 X_ship_to_organization_id,
75 X_quantity,
76 X_price_override,
77 X_promised_date,
78 X_need_by_date,
79 X_taxable_flag,
80 X_tax_name,
81 X_enforce_ship_to_location ,
82 X_allow_substitute_receipts ,
83 X_receiving_routing_id,
84 X_qty_rcv_tolerance ,
85 X_qty_rcv_exception_code ,
86 X_days_early_receipt_allowed ,
87 X_last_accept_date,
88 X_days_late_receipt_allowed ,
89 X_receipt_days_exception_code ,
90 X_invoice_close_tolerance,
91 X_receive_close_tolerance,
92 X_accrue_on_receipt_flag,
93 X_receipt_required_flag,
94 X_inspection_required_flag);
95
96 dbms_output.put_line('after call');
97 dbms_output.put_line('Location Code = '||X_ship_to_location_code);
98 dbms_output.put_line('Location Id = '||X_ship_to_location_id);
99 dbms_output.put_line('Org Code = '||X_ship_to_org_code);
100 dbms_output.put_line('Org Id = '||X_ship_to_organization_id);
101 dbms_output.put_line('Quantity = '||X_quantity);
102
103 END test_get_planned_ship_info;
104
105
106 /*===========================================================================
107
108 PROCEDURE NAME: test_get_sched_released_qty
109
110 ===========================================================================*/
111 PROCEDURE test_get_sched_released_qty (X_source_id IN NUMBER,
112 X_entity_level IN VARCHAR2,
113 X_shipment_type IN VARCHAR2) IS
114
115 X_quantity_released NUMBER := '';
116
117 BEGIN
118
119 dbms_output.put_line('before call');
120
121 X_quantity_released := po_shipments_sv1.get_sched_released_qty(X_source_id,
122 X_entity_level, X_shipment_type);
123
124 dbms_output.put_line('Return Value is = '||X_quantity_released);
125
126 END test_get_sched_released_qty;
127
128
129 /*===========================================================================
130
131 PROCEDURE NAME: test_get_number_shipments
132
133 ===========================================================================*/
134 PROCEDURE test_get_number_shipments (X_po_line_id IN NUMBER,
135 X_shipment_type IN VARCHAR2) IS
136
137 X_number_shipments NUMBER := '';
138
139 BEGIN
140
141 dbms_output.put_line('before call');
142
143 X_number_shipments := po_shipments_sv2.get_number_shipments(X_po_line_id,
144 X_shipment_type);
145
146 dbms_output.put_line('Return Value is = '||X_number_shipments);
147
148 END test_get_number_shipments;
149
150 /*===========================================================================
151
152 PROCEDURE NAME: test_val_release_shipments
153
154 ===========================================================================*/
155 PROCEDURE test_val_release_shipments(X_po_line_id IN NUMBER,
156 X_shipment_type IN VARCHAR2) IS
157
158 BEGIN
159
160 dbms_output.put_line('before call');
161
162 IF po_shipments_sv2.val_release_shipments(X_po_line_id, X_shipment_type) THEN
163 dbms_output.put_line('Return TRUE');
164 ELSE
165 dbms_output.put_line('Return FALSE');
166
167 END IF;
168 END test_val_release_shipments;
169
170 /*===========================================================================
171
172 PROCEDURE NAME: test_get_line_location_id
173
174 ===========================================================================*/
175 PROCEDURE test_get_line_location_id (X_po_line_id IN NUMBER,
176 X_shipment_type IN VARCHAR2) IS
177
178 X_line_location_id NUMBER := '';
179
180 BEGIN
181
182 dbms_output.put_line('before call');
183
184 X_line_location_id := po_shipments_sv3.get_line_location_id(X_po_line_id,
185 X_shipment_type);
186
187 dbms_output.put_line('Return Value is = '||X_line_location_id);
188
189 END test_get_line_location_id;
190
191
192
193 /*===========================================================================
194
195 PROCEDURE NAME: test_get_shipment_status
196
197 ===========================================================================*/
198 PROCEDURE test_get_shipment_status (X_po_line_id IN NUMBER,
199 X_shipment_type IN VARCHAR2) IS
200
201 X_line_location_id number;
202 X_approved_flag VARCHAR2(1) := '';
203 X_encumbered_flag VARCHAR2(1) := '';
204 X_closed_code VARCHAR2(25) := '';
205 X_cancelled_flag VARCHAR2(1) := '';
206
207 BEGIN
208
209 dbms_output.put_line('before call');
210
211 po_shipments_sv2.get_shipment_status(X_po_line_id,
212 X_shipment_type,
213 X_line_location_id,
214 X_approved_flag,
215 X_encumbered_flag,
216 X_closed_code,
217 X_cancelled_flag);
218
219 dbms_output.put_line('Approved Value is = '||X_approved_flag);
220 dbms_output.put_line('Encumbered Value is = '||X_encumbered_flag);
221 dbms_output.put_line('Closed Code is = '||X_closed_code);
222 dbms_output.put_line('Cancelled_flag is = '||X_cancelled_flag);
223
224 END test_get_shipment_status;
225
226 /*===========================================================================
227
228 PROCEDURE NAME: test_val_ship_qty
229
230 ===========================================================================*/
231 PROCEDURE test_val_ship_qty(X_po_line_id IN NUMBER,
232 X_shipment_type IN VARCHAR2,
233 X_line_quantity IN NUMBER) IS
234
235 X_Ship_Val_For_Update BOOLEAN;
236
237 BEGIN
238
239 dbms_output.put_line('before call');
240
241 IF po_shipments_sv2.val_ship_qty(X_po_line_id,
242 X_shipment_type,
243 X_line_quantity) THEN
244 dbms_output.put_line('TRUE');
245 ELSE
246 dbms_output.put_line('FALSE');
247 END IF;
248
249 END test_val_ship_qty;
250
251
252 /*===========================================================================
253
254 PROCEDURE NAME: test_val_ship_price
255
256 ===========================================================================*/
257 PROCEDURE test_val_ship_price(X_po_line_id IN NUMBER,
258 X_shipment_type IN VARCHAR2,
259 X_unit_price IN NUMBER) IS
260
261 X_Ship_Val_For_Update BOOLEAN;
262
263 BEGIN
264
265 dbms_output.put_line('before call');
266
267 IF po_shipments_sv2.val_ship_price(X_po_line_id,
268 X_shipment_type,
269 X_unit_price) THEN
270 dbms_output.put_line('TRUE');
271 ELSE
272 dbms_output.put_line('FALSE');
273 END IF;
274
275 END test_val_ship_price;
276
277
278
279 /*===========================================================================
280
281 PROCEDURE NAME: test_val_approval_status
282
283 ===========================================================================*/
284 PROCEDURE test_val_approval_status(
285 X_shipment_id IN NUMBER,
286 X_shipment_type IN VARCHAR2,
287 X_quantity IN NUMBER,
288 X_ship_to_location_id IN NUMBER,
289 X_promised_date IN DATE,
290 X_need_by_date IN DATE,
291 X_shipment_num IN NUMBER,
292 X_last_accept_date IN DATE,
293 X_taxable_flag IN VARCHAR2,
294 X_ship_to_organization_id IN NUMBER,
295 X_price_discount IN NUMBER,
296 X_price_override IN NUMBER,
297 X_tax_code_id IN NUMBER) IS
298
299 X_need_to_approve number;
300
301 BEGIN
302
303 dbms_output.put_line('before call');
304
305 X_need_to_approve := po_shipments_sv10.val_approval_status(
306 X_shipment_id ,
307 X_shipment_type ,
308 X_quantity ,
309 NULL,
310 X_ship_to_location_id ,
311 X_promised_date ,
312 X_need_by_date ,
313 X_shipment_num ,
314 X_last_accept_date ,
315 X_taxable_flag ,
316 X_ship_to_organization_id ,
317 X_price_discount ,
318 X_price_override ,
319 X_tax_code_id ,
320 NULL, -- <INBOUND LOGISTICS FPJ>
321 NULL, -- <INBOUND LOGISTICS FPJ>
322 NULL); -- <INBOUND LOGISTICS FPJ>
323
324 IF ((X_need_to_approve = 1) or
325 (X_need_to_approve = 2) ) THEN
326 dbms_output.put_line('TRUE');
327 ELSE
328 dbms_output.put_line('FALSE');
329 END IF;
330
331 END test_val_approval_status;
332
333
334 /*===========================================================================
335
336 PROCEDURE NAME: test_source_line_server_cover
337
338 ===========================================================================*/
339 PROCEDURE test_source_line_server_cover
340 (X_entity_level IN VARCHAR2,
341 X_po_line_id IN NUMBER,
342 X_line_location_id IN NUMBER,
343 X_shipment_type IN VARCHAR2,
344 X_quantity_ordered IN NUMBER,
345 X_line_type_id IN NUMBER,
346 X_item_id IN NUMBER,
347 X_inventory_org_id IN NUMBER) IS
348
349 X_out_quantity_ordered number;
350 X_OUTSIDE_OP_LINE_TYPE varchar2(25);
351 X_category_id NUMBER := '';
352 X_item_revision VARCHAR2(3) := '';
353 X_item_description VARCHAR2(24) := '';
354 X_unit_meas_lookup_code VARCHAR2(25) := '';
355 X_unit_price NUMBER := '';
356 X_not_to_exceed_price NUMBER := '';
357 X_allow_price_override_flag VARCHAR2(1) := '';
358 X_vendor_product_num VARCHAR2(25) := '';
359 X_from_header_id NUMBER := '';
360 X_from_line_id NUMBER := '';
361 X_price_break_lookup_code VARCHAR2(25) := '';
362 X_taxable_flag VARCHAR2(1) := '';
363 X_outside_operation_flag VARCHAR2(1) := '';
364 X_receiving_flag VARCHAR2(1) := '';
365 X_line_type VARCHAR2(25) := '';
366 X_item_num VARCHAR2(40) := '';
367 X_planned_item_flag VARCHAR2(1) := '';
368 X_outside_op_uom_type VARCHAR2(25) := '';
369 X_invoice_close_tolerance NUMBER := '';
370 X_receive_close_tolerance NUMBER := '';
371 X_receipt_required_flag VARCHAR2(1) := '';
372 X_stock_enabled_flag VARCHAR2(1) := '';
373 X_category VARCHAR2(40) := '';
374 X_val_sched_released_qty VARCHAR2(1) := '';
375 X_total_line_quantity NUMBER;
376
377 BEGIN
378
379 dbms_output.put_line('before call');
380
381 po_shipments_sv5.val_source_line_num
382 (X_entity_level ,
383 X_po_line_id ,
384 X_line_location_id ,
385 X_shipment_type ,
386 X_item_id ,
387 X_inventory_org_id ,
388 X_line_type_id ,
389 X_out_quantity_ordered ,
390 X_line_type ,
391 X_outside_operation_flag ,
392 X_receiving_flag ,
393 X_planned_item_flag ,
394 X_outside_op_uom_type ,
395 X_invoice_close_tolerance ,
396 X_receive_close_tolerance ,
397 X_receipt_required_flag ,
398 X_stock_enabled_flag ,
399 X_total_line_quantity );
400
401 dbms_output.put_line('X_val_sched_released_qty = '||X_val_sched_released_qty);
402 dbms_output.put_line('X_item_id = '||X_item_id);
403 dbms_output.put_line('X_category_id = '||X_category_id);
404
405
406 END test_source_line_server_cover;
407
408 /*===========================================================================
409
410 PROCEDURE NAME: test_val_start_dates()
411
412 ===========================================================================*/
413
414 PROCEDURE test_val_start_dates
415 (X_start_date IN DATE,
416 X_po_header_id IN NUMBER) IS
417
418 BEGIN
419
420 dbms_output.put_line('Before_call');
421
422 /* IF po_rfqqt_s.val_start_dates(X_start_date, X_po_header_id) THEN
423 dbms_output.put_line('Return TRUE');
424 ELSE
425 dbms_output.put_line('Return FALSE');
426 END IF;*/
427
428 /* There is no server pkg by the name po_rfqqt_s. */
429 null;
430
431
432 END test_val_start_dates;
433
434
435 /*===========================================================================
436
437 PROCEDURE NAME: test_val_end_dates()
438
439 ===========================================================================*/
440
441 PROCEDURE test_val_end_dates
442 (X_end_date IN DATE,
443 X_po_header_id IN NUMBER) IS
444
445 BEGIN
446
447 dbms_output.put_line('Before_call');
448
449 /* IF po_rfqqt_s.val_end_dates(X_end_date, X_po_header_id) THEN
450 dbms_output.put_line('Return TRUE');
451 ELSE
452 dbms_output.put_line('Return FALSE');
453 END IF;*/
454
455 /* There is no server pkg by the name po_rfqqt_s. */
456 null;
457
458
459 END test_val_end_dates;
460
461 END PO_SHIPMENTS_SV9;