26: WHERE PLL.po_line_id = X_po_line_id
27: AND PLL.shipment_type = X_shipment_type;
28:
29: IF (g_po_pdoi_write_to_file = 'Y') THEN
30: po_debug.put_line ('Number Shipments = '||X_number_shipments);
31: END IF;
32:
33: RETURN(X_number_shipments);
34:
34:
35: EXCEPTION
36: when others then
37: IF (g_po_pdoi_write_to_file = 'Y') THEN
38: po_debug.put_line('In exception');
39: END IF;
40: po_message_s.sql_error('get_number_shipments', X_progress, sqlcode);
41: raise;
42: END get_number_shipments;
68:
69: If (X_number_shipments is null OR
70: X_number_shipments = 0) THEN
71: IF (g_po_pdoi_write_to_file = 'Y') THEN
72: po_debug.put_line ('Returned FALSE - No Shipments');
73: END IF;
74: return(FALSE);
75: ELSE
76: IF (g_po_pdoi_write_to_file = 'Y') THEN
73: END IF;
74: return(FALSE);
75: ELSE
76: IF (g_po_pdoi_write_to_file = 'Y') THEN
77: po_debug.put_line ('Returned TRUE - Shipments');
78: END IF;
79: return(TRUE);
80: END IF;
81:
81:
82: EXCEPTION
83: when others then
84: IF (g_po_pdoi_write_to_file = 'Y') THEN
85: po_debug.put_line('In exception');
86: END IF;
87: po_message_s.sql_error('val_release_shipments', X_progress, sqlcode);
88: raise;
89: END val_release_shipments;
117:
118: BEGIN
119:
120: IF (g_po_pdoi_write_to_file = 'Y') THEN
121: po_debug.put_line('Before open cursor');
122: END IF;
123:
124: if (X_line_location_id is not null) then
125: if (X_shipment_type is not null) then
135:
136: CLOSE C;
137:
138: IF (g_po_pdoi_write_to_file = 'Y') THEN
139: po_debug.put_line('Line Location Id : '|| X_line_location_id);
140: po_debug.put_line('Approved Flag = '||X_approved_flag);
141: po_debug.put_line('Encumbered Flag = '||X_encumbered_flag);
142: po_debug.put_line('Closed Code = '||X_closed_code);
143: po_debug.put_line('Canclled_flag = '||X_cancelled_flag);
136: CLOSE C;
137:
138: IF (g_po_pdoi_write_to_file = 'Y') THEN
139: po_debug.put_line('Line Location Id : '|| X_line_location_id);
140: po_debug.put_line('Approved Flag = '||X_approved_flag);
141: po_debug.put_line('Encumbered Flag = '||X_encumbered_flag);
142: po_debug.put_line('Closed Code = '||X_closed_code);
143: po_debug.put_line('Canclled_flag = '||X_cancelled_flag);
144: END IF;
137:
138: IF (g_po_pdoi_write_to_file = 'Y') THEN
139: po_debug.put_line('Line Location Id : '|| X_line_location_id);
140: po_debug.put_line('Approved Flag = '||X_approved_flag);
141: po_debug.put_line('Encumbered Flag = '||X_encumbered_flag);
142: po_debug.put_line('Closed Code = '||X_closed_code);
143: po_debug.put_line('Canclled_flag = '||X_cancelled_flag);
144: END IF;
145:
138: IF (g_po_pdoi_write_to_file = 'Y') THEN
139: po_debug.put_line('Line Location Id : '|| X_line_location_id);
140: po_debug.put_line('Approved Flag = '||X_approved_flag);
141: po_debug.put_line('Encumbered Flag = '||X_encumbered_flag);
142: po_debug.put_line('Closed Code = '||X_closed_code);
143: po_debug.put_line('Canclled_flag = '||X_cancelled_flag);
144: END IF;
145:
146: else
139: po_debug.put_line('Line Location Id : '|| X_line_location_id);
140: po_debug.put_line('Approved Flag = '||X_approved_flag);
141: po_debug.put_line('Encumbered Flag = '||X_encumbered_flag);
142: po_debug.put_line('Closed Code = '||X_closed_code);
143: po_debug.put_line('Canclled_flag = '||X_cancelled_flag);
144: END IF;
145:
146: else
147: X_progress := '025';
157:
158: EXCEPTION
159: when others then
160: IF (g_po_pdoi_write_to_file = 'Y') THEN
161: po_debug.put_line('In exception');
162: END IF;
163: po_message_s.sql_error('get_shipment_status', X_progress, sqlcode);
164: raise;
165: END get_shipment_status;
185:
186: X_progress := '010';
187:
188: IF (g_po_pdoi_write_to_file = 'Y') THEN
189: po_debug.put_line('Before get who information');
190: END IF;
191: /*
192: ** Get the who information
193: */
194: X_login_id := fnd_global.login_id;
195: X_last_updated_by := fnd_global.user_id;
196:
197: IF (g_po_pdoi_write_to_file = 'Y') THEN
198: po_debug.put_line('Before update statement');
199: END IF;
200: /*
201: ** Update the purchase order shipment quantity to the lines qty.
202: */
215: WHEN NO_DATA_FOUND THEN
216: null;
217: WHEN OTHERS THEN
218: IF (g_po_pdoi_write_to_file = 'Y') THEN
219: po_debug.put_line('In UPDATE exception');
220: END IF;
221: po_message_s.sql_error('update_shipment_qty', X_progress, sqlcode);
222: raise;
223: END update_shipment_qty;
269: X_number_shipments := po_shipments_sv2.get_number_shipments(X_po_line_id,
270: X_shipment_type);
271:
272: IF (g_po_pdoi_write_to_file = 'Y') THEN
273: po_debug.put_line('X_number_shipments = '||X_number_shipments);
274: END IF;
275:
276: /*
277: ** If the number of shipment is 1, then continue. Otherwise,
282: X_line_location_id := po_shipments_sv3.get_line_location_id(X_po_line_id,
283: X_shipment_type);
284:
285: IF (g_po_pdoi_write_to_file = 'Y') THEN
286: po_debug.put_line('X_line_location_id = '||X_line_location_id);
287: END IF;
288:
289: /*
290: ** Get the line_location_id and status of the single shipment.
297: X_closed_code,
298: X_cancelled_flag);
299:
300: IF (g_po_pdoi_write_to_file = 'Y') THEN
301: po_debug.put_line('X_encumbered_flag = '||X_encumbered_flag);
302: po_debug.put_line('X_cancelled_flag = '||X_cancelled_flag);
303: END IF;
304:
305: /*
298: X_cancelled_flag);
299:
300: IF (g_po_pdoi_write_to_file = 'Y') THEN
301: po_debug.put_line('X_encumbered_flag = '||X_encumbered_flag);
302: po_debug.put_line('X_cancelled_flag = '||X_cancelled_flag);
303: END IF;
304:
305: /*
306: ** Allow the quantity to be updated if the shipment is
328:
329: EXCEPTION
330: when others then
331: IF (g_po_pdoi_write_to_file = 'Y') THEN
332: po_debug.put_line('In exception');
333: END IF;
334: po_message_s.sql_error('val_ship_qty', X_progress, sqlcode);
335: raise;
336: END val_ship_qty;
359: */
360: IF (X_shipment_type = 'STANDARD' OR X_shipment_type = 'PLANNED') THEN
361: null;
362: IF (g_po_pdoi_write_to_file = 'Y') THEN
363: po_debug.put_line('It is STANDARD or PLANNED');
364: END IF;
365: ELSE
366: IF (g_po_pdoi_write_to_file = 'Y') THEN
367: po_debug.put_line('It is not STANDARD or PLANNED');
363: po_debug.put_line('It is STANDARD or PLANNED');
364: END IF;
365: ELSE
366: IF (g_po_pdoi_write_to_file = 'Y') THEN
367: po_debug.put_line('It is not STANDARD or PLANNED');
368: END IF;
369: return(FALSE);
370: END IF;
371:
369: return(FALSE);
370: END IF;
371:
372: IF (g_po_pdoi_write_to_file = 'Y') THEN
373: po_debug.put_line('Before If');
374: END IF;
375: IF po_shipments_sv2.update_shipment_price (X_po_line_id,
376: X_shipment_type,
377: X_unit_price) THEN
375: IF po_shipments_sv2.update_shipment_price (X_po_line_id,
376: X_shipment_type,
377: X_unit_price) THEN
378: IF (g_po_pdoi_write_to_file = 'Y') THEN
379: po_debug.put_line('Returned TRUE');
380: END IF;
381: return(TRUE);
382: ELSE
383: IF (g_po_pdoi_write_to_file = 'Y') THEN
380: END IF;
381: return(TRUE);
382: ELSE
383: IF (g_po_pdoi_write_to_file = 'Y') THEN
384: po_debug.put_line('Returned FALSE');
385: END IF;
386: return(FALSE);
387: END IF;
388: IF (g_po_pdoi_write_to_file = 'Y') THEN
385: END IF;
386: return(FALSE);
387: END IF;
388: IF (g_po_pdoi_write_to_file = 'Y') THEN
389: po_debug.put_line('After If');
390: END IF;
391:
392:
393: EXCEPTION
392:
393: EXCEPTION
394: when others then
395: IF (g_po_pdoi_write_to_file = 'Y') THEN
396: po_debug.put_line('In VAL exception');
397: END IF;
398: po_message_s.sql_error('val_ship_price', X_progress, sqlcode);
399: raise;
400: END val_ship_price;
421:
422: X_progress := '010';
423:
424: IF (g_po_pdoi_write_to_file = 'Y') THEN
425: po_debug.put_line('Before get who information');
426: END IF;
427: /*
428: ** Get the who information
429: */
430: X_login_id := fnd_global.login_id;
431: X_last_updated_by := fnd_global.user_id;
432:
433: IF (g_po_pdoi_write_to_file = 'Y') THEN
434: po_debug.put_line('Before update statement');
435: END IF;
436: /*
437: ** Update the purchase order shipment price to the lines unit
438: ** price for all shipments that are not cancelled.
454: WHEN NO_DATA_FOUND THEN
455: null;
456: WHEN OTHERS THEN
457: IF (g_po_pdoi_write_to_file = 'Y') THEN
458: po_debug.put_line('In UPDATE exception');
459: END IF;
460: po_message_s.sql_error('update_shipment_price', X_progress, sqlcode);
461: raise;
462: END update_shipment_price;