eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.GMI_ALLOCATE_INVENTORY_PVT dependencies on GMI_RESERVATION_UTIL

Line 151: GMI_Reservation_Util.PrintLn('(Alloc PVT) GMIVALIB.pls Alloc Inventory Pvt');

147:
148: BEGIN
149: /*Initialize return status to success
150: ====================================*/
151: GMI_Reservation_Util.PrintLn('(Alloc PVT) GMIVALIB.pls Alloc Inventory Pvt');
152:
153: x_return_status := FND_API.G_RET_STS_SUCCESS;
154:
155: /*Standard Start OF API savepoint

Line 158: gmi_reservation_util.println('OPM Allocation Engine - start allocate line',1);

154:
155: /*Standard Start OF API savepoint
156: ================================*/
157: SAVEPOINT allocate_line;
158: gmi_reservation_util.println('OPM Allocation Engine - start allocate line',1);
159:
160: /*Get required system constants
161: ==============================*/
162: l_IC$DEFAULT_LOCT := FND_PROFILE.VALUE('IC$DEFAULT_LOCT');

Line 197: gmi_reservation_util.println

193: /* ('allocation horizon is set to '|| p_op_alot_prm.alloc_horizon); */
194: /* dbms_output.put_line */
195: /* ('trans date ' || p_allocation_rec.trans_date || ' vs system date ' || SYSDATE); */
196:
197: gmi_reservation_util.println
198: ('OPM Allocation Engine - allocation parameter used is ' || p_op_alot_prm.allocrule_id);
199: gmi_reservation_util.println
200: ('OPM Allocation Engine - allocation horizon is ' || p_op_alot_prm.alloc_horizon);
201:

Line 199: gmi_reservation_util.println

195: /* ('trans date ' || p_allocation_rec.trans_date || ' vs system date ' || SYSDATE); */
196:
197: gmi_reservation_util.println
198: ('OPM Allocation Engine - allocation parameter used is ' || p_op_alot_prm.allocrule_id);
199: gmi_reservation_util.println
200: ('OPM Allocation Engine - allocation horizon is ' || p_op_alot_prm.alloc_horizon);
201:
202: IF (l_override_rules = 0 AND p_op_alot_prm.alloc_horizon > 0) AND
203: (p_allocation_rec.trans_date > (SYSDATE + p_op_alot_prm.alloc_horizon)) THEN

Line 205: GMI_RESERVATION_UTIL.println('Allocation Horizon error: Scheduled ship date falls outside the allocation horizon');

201:
202: IF (l_override_rules = 0 AND p_op_alot_prm.alloc_horizon > 0) AND
203: (p_allocation_rec.trans_date > (SYSDATE + p_op_alot_prm.alloc_horizon)) THEN
204: /* dbms_output.put_line('allocation horizon is out - using '|| p_op_alot_prm.alloc_horizon); */
205: GMI_RESERVATION_UTIL.println('Allocation Horizon error: Scheduled ship date falls outside the allocation horizon');
206: FND_MESSAGE.SET_NAME('GML','SO_E_ALLOC_HORIZON_ERR');
207: FND_MSG_PUB.Add;
208: RAISE FND_API.G_EXC_ERROR;
209: END IF;

Line 230: gmi_reservation_util.println('OPM ALLOCATION ENGINE - build where clause',1);

226:
227:
228: /*Build WHERE clause according to the item/whse attributes
229: =========================================================*/
230: gmi_reservation_util.println('OPM ALLOCATION ENGINE - build where clause',1);
231: /* dbms_output.put_line('BUILD WHERE CLAUSE '); */
232: IF (l_override_rules = 1)
233: THEN
234: l_shelf_date := p_allocation_rec.trans_date;

Line 273: GMI_RESERVATION_UTIL.PrintLn('loct ctl set to ' || l_loct_ctl || ' from ' || p_ic_item_mst.loct_ctl

269:
270: /*Overall location control is determined by looking at both the item and whse
271: =============================================================================*/
272: l_loct_ctl := p_ic_item_mst.loct_ctl * p_ic_whse_mst.loct_ctl;
273: GMI_RESERVATION_UTIL.PrintLn('loct ctl set to ' || l_loct_ctl || ' from ' || p_ic_item_mst.loct_ctl
274: || ' and ' || p_ic_whse_mst.loct_ctl );
275:
276: IF l_loct_ctl = 0 THEN
277: l_where_clause := l_where_clause || ' AND location = ';

Line 290: GMI_RESERVATION_UTIL.println('(ALLOC PVT) :l_allocation_rec.prefqc_grade'|| l_allocation_rec.prefqc_grade);

286: END IF;
287:
288: /*Apply preferred QC grade if appropriate
289: ========================================*/
290: GMI_RESERVATION_UTIL.println('(ALLOC PVT) :l_allocation_rec.prefqc_grade'|| l_allocation_rec.prefqc_grade);
291: GMI_Reservation_Util.PrintLn('(Alloc PVT) p_allocation_rec.prefqc_grade = ' || p_allocation_rec.prefqc_grade);
292: GMI_Reservation_Util.PrintLn('(Alloc PVT) p_op_alot_prm.prefqc_grade = ' || p_op_alot_prm.prefqc_grade);
293:
294: --2722339 EMC Auto Alloc QC Spec Match Project

Line 291: GMI_Reservation_Util.PrintLn('(Alloc PVT) p_allocation_rec.prefqc_grade = ' || p_allocation_rec.prefqc_grade);

287:
288: /*Apply preferred QC grade if appropriate
289: ========================================*/
290: GMI_RESERVATION_UTIL.println('(ALLOC PVT) :l_allocation_rec.prefqc_grade'|| l_allocation_rec.prefqc_grade);
291: GMI_Reservation_Util.PrintLn('(Alloc PVT) p_allocation_rec.prefqc_grade = ' || p_allocation_rec.prefqc_grade);
292: GMI_Reservation_Util.PrintLn('(Alloc PVT) p_op_alot_prm.prefqc_grade = ' || p_op_alot_prm.prefqc_grade);
293:
294: --2722339 EMC Auto Alloc QC Spec Match Project
295: --If matching on Grade, preference is given to grade taken from sales order

Line 292: GMI_Reservation_Util.PrintLn('(Alloc PVT) p_op_alot_prm.prefqc_grade = ' || p_op_alot_prm.prefqc_grade);

288: /*Apply preferred QC grade if appropriate
289: ========================================*/
290: GMI_RESERVATION_UTIL.println('(ALLOC PVT) :l_allocation_rec.prefqc_grade'|| l_allocation_rec.prefqc_grade);
291: GMI_Reservation_Util.PrintLn('(Alloc PVT) p_allocation_rec.prefqc_grade = ' || p_allocation_rec.prefqc_grade);
292: GMI_Reservation_Util.PrintLn('(Alloc PVT) p_op_alot_prm.prefqc_grade = ' || p_op_alot_prm.prefqc_grade);
293:
294: --2722339 EMC Auto Alloc QC Spec Match Project
295: --If matching on Grade, preference is given to grade taken from sales order
296: --line. Otherwise, grade is taken from Sales Order/Shipping Parameter form.

Line 310: GMI_RESERVATION_UTIL.println('Im here :l_allocation_rec.prefqc_grade'|| l_allocation_rec.prefqc_grade);

306: END IF;
307:
308:
309: l_allocation_rec.prefqc_grade := p_allocation_rec.prefqc_grade;
310: GMI_RESERVATION_UTIL.println('Im here :l_allocation_rec.prefqc_grade'|| l_allocation_rec.prefqc_grade);
311:
312: IF (NVL(l_grade_or_qcmatch_flag,0) = 0) THEN
313: IF (l_override_rules = 1) THEN
314: l_allocation_rec.prefqc_grade := null;

Line 320: GMI_Reservation_Util.PrintLn('(Alloc PVT) l_where_clause 1= ' || l_where_clause);

316: IF p_ic_item_mst.grade_ctl = 1 AND
317: l_allocation_rec.prefqc_grade is NOT NULL THEN
318: l_where_clause := l_where_clause || ' and qc_grade = :v_qc_grade ';
319: l_allocation_rec.prefqc_grade := p_allocation_rec.prefqc_grade;
320: GMI_Reservation_Util.PrintLn('(Alloc PVT) l_where_clause 1= ' || l_where_clause);
321: ELSIF p_ic_item_mst.grade_ctl = 1 AND
322: l_prm_prefqc_grade IS NOT NULL THEN
323: l_where_clause := l_where_clause || ' and qc_grade = :v_qc_grade ';
324: l_allocation_rec.prefqc_grade := l_prm_prefqc_grade;

Line 325: GMI_Reservation_Util.PrintLn('(Alloc PVT) l_where_clause 2= ' || l_where_clause);

321: ELSIF p_ic_item_mst.grade_ctl = 1 AND
322: l_prm_prefqc_grade IS NOT NULL THEN
323: l_where_clause := l_where_clause || ' and qc_grade = :v_qc_grade ';
324: l_allocation_rec.prefqc_grade := l_prm_prefqc_grade;
325: GMI_Reservation_Util.PrintLn('(Alloc PVT) l_where_clause 2= ' || l_where_clause);
326: END IF;
327: END IF;
328: END IF;
329:

Line 341: GMI_RESERVATION_UTIL.println('l_allocation_rec.prefqc_grade'|| l_allocation_rec.prefqc_grade);

337: THEN
338: l_allocation_rec.prefqc_grade := l_prm_prefqc_grade;
339: END IF;
340:
341: GMI_RESERVATION_UTIL.println('l_allocation_rec.prefqc_grade'|| l_allocation_rec.prefqc_grade);
342:
343: l_where_clause := l_where_clause || ' and qc_grade = ';
344: l_where_clause := l_where_clause || '''' ;
345: l_where_clause := l_where_clause || l_allocation_rec.prefqc_grade;

Line 348: GMI_Reservation_Util.PrintLn('(Alloc PVT) l_where_clause 1= ' || l_where_clause);

344: l_where_clause := l_where_clause || '''' ;
345: l_where_clause := l_where_clause || l_allocation_rec.prefqc_grade;
346: l_where_clause := l_where_clause || '''';
347:
348: GMI_Reservation_Util.PrintLn('(Alloc PVT) l_where_clause 1= ' || l_where_clause);
349: END IF;
350: */
351:
352: GMI_RESERVATION_UTIL.PrintLn('(Auto_Alloc) 1 WHERE clause is now '|| l_where_clause);

Line 352: GMI_RESERVATION_UTIL.PrintLn('(Auto_Alloc) 1 WHERE clause is now '|| l_where_clause);

348: GMI_Reservation_Util.PrintLn('(Alloc PVT) l_where_clause 1= ' || l_where_clause);
349: END IF;
350: */
351:
352: GMI_RESERVATION_UTIL.PrintLn('(Auto_Alloc) 1 WHERE clause is now '|| l_where_clause);
353: GMI_RESERVATION_UTIL.PrintLn('WHSE IS '|| p_ic_whse_mst.whse_code);
354: GMI_RESERVATION_UTIL.PrintLn('item_no item_id: ' ||p_ic_item_mst.item_no ||' '|| p_ic_item_mst.item_id);
355: GMI_RESERVATION_UTIL.PrintLn('QC Grade to be used is '|| p_allocation_rec.prefqc_grade);
356:

Line 353: GMI_RESERVATION_UTIL.PrintLn('WHSE IS '|| p_ic_whse_mst.whse_code);

349: END IF;
350: */
351:
352: GMI_RESERVATION_UTIL.PrintLn('(Auto_Alloc) 1 WHERE clause is now '|| l_where_clause);
353: GMI_RESERVATION_UTIL.PrintLn('WHSE IS '|| p_ic_whse_mst.whse_code);
354: GMI_RESERVATION_UTIL.PrintLn('item_no item_id: ' ||p_ic_item_mst.item_no ||' '|| p_ic_item_mst.item_id);
355: GMI_RESERVATION_UTIL.PrintLn('QC Grade to be used is '|| p_allocation_rec.prefqc_grade);
356:
357: GMI_RESERVATION_UTIL.PrintLn('Using a shelf date of '|| l_shelf_date );

Line 354: GMI_RESERVATION_UTIL.PrintLn('item_no item_id: ' ||p_ic_item_mst.item_no ||' '|| p_ic_item_mst.item_id);

350: */
351:
352: GMI_RESERVATION_UTIL.PrintLn('(Auto_Alloc) 1 WHERE clause is now '|| l_where_clause);
353: GMI_RESERVATION_UTIL.PrintLn('WHSE IS '|| p_ic_whse_mst.whse_code);
354: GMI_RESERVATION_UTIL.PrintLn('item_no item_id: ' ||p_ic_item_mst.item_no ||' '|| p_ic_item_mst.item_id);
355: GMI_RESERVATION_UTIL.PrintLn('QC Grade to be used is '|| p_allocation_rec.prefqc_grade);
356:
357: GMI_RESERVATION_UTIL.PrintLn('Using a shelf date of '|| l_shelf_date );
358:

Line 355: GMI_RESERVATION_UTIL.PrintLn('QC Grade to be used is '|| p_allocation_rec.prefqc_grade);

351:
352: GMI_RESERVATION_UTIL.PrintLn('(Auto_Alloc) 1 WHERE clause is now '|| l_where_clause);
353: GMI_RESERVATION_UTIL.PrintLn('WHSE IS '|| p_ic_whse_mst.whse_code);
354: GMI_RESERVATION_UTIL.PrintLn('item_no item_id: ' ||p_ic_item_mst.item_no ||' '|| p_ic_item_mst.item_id);
355: GMI_RESERVATION_UTIL.PrintLn('QC Grade to be used is '|| p_allocation_rec.prefqc_grade);
356:
357: GMI_RESERVATION_UTIL.PrintLn('Using a shelf date of '|| l_shelf_date );
358:
359: IF(l_batch_rec.from_lot_no <> FND_API.G_MISS_CHAR AND

Line 357: GMI_RESERVATION_UTIL.PrintLn('Using a shelf date of '|| l_shelf_date );

353: GMI_RESERVATION_UTIL.PrintLn('WHSE IS '|| p_ic_whse_mst.whse_code);
354: GMI_RESERVATION_UTIL.PrintLn('item_no item_id: ' ||p_ic_item_mst.item_no ||' '|| p_ic_item_mst.item_id);
355: GMI_RESERVATION_UTIL.PrintLn('QC Grade to be used is '|| p_allocation_rec.prefqc_grade);
356:
357: GMI_RESERVATION_UTIL.PrintLn('Using a shelf date of '|| l_shelf_date );
358:
359: IF(l_batch_rec.from_lot_no <> FND_API.G_MISS_CHAR AND
360: nvl (l_batch_rec.from_lot_no,'%$%') <> '%$%')
361: THEN

Line 394: GMI_RESERVATION_UTIL.PrintLn('(Auto_Alloc) 2 WHERE clause is now '|| l_where_clause);

390: l_lots_specified := 1;
391: END IF;
392: END IF;
393:
394: GMI_RESERVATION_UTIL.PrintLn('(Auto_Alloc) 2 WHERE clause is now '|| l_where_clause);
395:
396: IF ( (l_lots_specified = 0 OR l_lots_specified = 2) AND l_batch_rec.alloc_all_lot_flag = 'Y'
397: AND l_override_rules <> 1 AND l_lot_qty = 1)
398: THEN

Line 399: GMI_RESERVATION_UTIL.PrintLn('WARNING! Allocation Parameters Conflict with Allocation Criteria on the form...');

395:
396: IF ( (l_lots_specified = 0 OR l_lots_specified = 2) AND l_batch_rec.alloc_all_lot_flag = 'Y'
397: AND l_override_rules <> 1 AND l_lot_qty = 1)
398: THEN
399: GMI_RESERVATION_UTIL.PrintLn('WARNING! Allocation Parameters Conflict with Allocation Criteria on the form...');
400: GMI_RESERVATION_UTIL.PrintLn('Allocation Parametrs require that allocation is made from a single lot. Allocate All Specified Lots is chosen on the screen and No Lots/Multiple Lots are specified; Returning........');
401: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
402: RETURN;
403: END IF;

Line 400: GMI_RESERVATION_UTIL.PrintLn('Allocation Parametrs require that allocation is made from a single lot. Allocate All Specified Lots is chosen on the screen and No Lots/Multiple Lots are specified; Returning........');

396: IF ( (l_lots_specified = 0 OR l_lots_specified = 2) AND l_batch_rec.alloc_all_lot_flag = 'Y'
397: AND l_override_rules <> 1 AND l_lot_qty = 1)
398: THEN
399: GMI_RESERVATION_UTIL.PrintLn('WARNING! Allocation Parameters Conflict with Allocation Criteria on the form...');
400: GMI_RESERVATION_UTIL.PrintLn('Allocation Parametrs require that allocation is made from a single lot. Allocate All Specified Lots is chosen on the screen and No Lots/Multiple Lots are specified; Returning........');
401: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
402: RETURN;
403: END IF;
404:

Line 424: GMI_RESERVATION_UTIL.PrintLn('From creation date'|| l_batch_rec.from_creation_date);

420: l_where_clause := l_where_clause || l_batch_rec.to_sublot_no ;
421: l_where_clause := l_where_clause || '''';
422: END IF;
423:
424: GMI_RESERVATION_UTIL.PrintLn('From creation date'|| l_batch_rec.from_creation_date);
425: GMI_RESERVATION_UTIL.PrintLn('to_char(from creation date)'|| to_char(l_batch_rec.from_creation_date));
426: GMI_RESERVATION_UTIL.PrintLn('(Auto_Alloc) 3 WHERE clause is now '|| l_where_clause);
427:
428: IF ( TO_CHAR(l_batch_rec.from_creation_date) <> FND_API.G_MISS_CHAR AND

Line 425: GMI_RESERVATION_UTIL.PrintLn('to_char(from creation date)'|| to_char(l_batch_rec.from_creation_date));

421: l_where_clause := l_where_clause || '''';
422: END IF;
423:
424: GMI_RESERVATION_UTIL.PrintLn('From creation date'|| l_batch_rec.from_creation_date);
425: GMI_RESERVATION_UTIL.PrintLn('to_char(from creation date)'|| to_char(l_batch_rec.from_creation_date));
426: GMI_RESERVATION_UTIL.PrintLn('(Auto_Alloc) 3 WHERE clause is now '|| l_where_clause);
427:
428: IF ( TO_CHAR(l_batch_rec.from_creation_date) <> FND_API.G_MISS_CHAR AND
429: TO_CHAR(l_batch_rec.from_creation_date, 'DD-MON-YYYY') <> ' ')

Line 426: GMI_RESERVATION_UTIL.PrintLn('(Auto_Alloc) 3 WHERE clause is now '|| l_where_clause);

422: END IF;
423:
424: GMI_RESERVATION_UTIL.PrintLn('From creation date'|| l_batch_rec.from_creation_date);
425: GMI_RESERVATION_UTIL.PrintLn('to_char(from creation date)'|| to_char(l_batch_rec.from_creation_date));
426: GMI_RESERVATION_UTIL.PrintLn('(Auto_Alloc) 3 WHERE clause is now '|| l_where_clause);
427:
428: IF ( TO_CHAR(l_batch_rec.from_creation_date) <> FND_API.G_MISS_CHAR AND
429: TO_CHAR(l_batch_rec.from_creation_date, 'DD-MON-YYYY') <> ' ')
430: THEN

Line 445: GMI_RESERVATION_UTIL.PrintLn('(Auto_alloc)4 WHERE clause is now '|| l_where_clause);

441: l_where_clause := l_where_clause || '''';
442: l_where_clause := l_where_clause || ')';
443: END IF;
444:
445: GMI_RESERVATION_UTIL.PrintLn('(Auto_alloc)4 WHERE clause is now '|| l_where_clause);
446:
447: IF ( TO_CHAR(l_batch_rec.to_creation_date) <> FND_API.G_MISS_CHAR AND
448: TO_CHAR(l_batch_rec.to_creation_date, 'DD-MON-YYYY') <> ' ')
449: THEN

Line 482: GMI_RESERVATION_UTIL.PrintLn('(Auto_Alloc) 5 WHERE clause is now '|| l_where_clause);

478: l_where_clause := l_where_clause || ')';
479:
480: END IF;
481:
482: GMI_RESERVATION_UTIL.PrintLn('(Auto_Alloc) 5 WHERE clause is now '|| l_where_clause);
483:
484: IF ( TO_CHAR(l_batch_rec.to_expiration_date) <> FND_API.G_MISS_CHAR AND
485: TO_CHAR(l_batch_rec.to_expiration_date, 'DD-MON-YYYY') <> ' ')
486: THEN

Line 519: GMI_RESERVATION_UTIL.PrintLn('(Auto_Alloc) 6 WHERE clause is now '|| l_where_clause);

515: l_where_clause := l_where_clause || '''' ;
516: l_where_clause := l_where_clause || l_batch_rec.location;
517: l_where_clause := l_where_clause || '''';
518: END IF;
519: GMI_RESERVATION_UTIL.PrintLn('(Auto_Alloc) 6 WHERE clause is now '|| l_where_clause);
520:
521: /*Order rows according to the allocation method chosen
522: =====================================================*/
523: IF ( l_override_rules = 0 ) THEN

Line 533: GMI_Reservation_Util.PrintLn('About to open cursor for dynamic SQL');

529: ELSE
530: l_order_by := ' NULL';
531: END IF;
532:
533: GMI_Reservation_Util.PrintLn('About to open cursor for dynamic SQL');
534: gmi_reservation_util.println('OPM ALLOCATION ENGINE - open cursor for dynamic SQL',1);
535:
536: GMI_Reservation_Util.PrintLn('(Alloc PVT) l_grade_or_qcmatch_flag = ' || l_grade_or_qcmatch_flag);
537: GMI_Reservation_Util.PrintLn('(Alloc PVT) p_ic_item_mst.grade_ctl = ' || p_ic_item_mst.grade_ctl);

Line 534: gmi_reservation_util.println('OPM ALLOCATION ENGINE - open cursor for dynamic SQL',1);

530: l_order_by := ' NULL';
531: END IF;
532:
533: GMI_Reservation_Util.PrintLn('About to open cursor for dynamic SQL');
534: gmi_reservation_util.println('OPM ALLOCATION ENGINE - open cursor for dynamic SQL',1);
535:
536: GMI_Reservation_Util.PrintLn('(Alloc PVT) l_grade_or_qcmatch_flag = ' || l_grade_or_qcmatch_flag);
537: GMI_Reservation_Util.PrintLn('(Alloc PVT) p_ic_item_mst.grade_ctl = ' || p_ic_item_mst.grade_ctl);
538:

Line 536: GMI_Reservation_Util.PrintLn('(Alloc PVT) l_grade_or_qcmatch_flag = ' || l_grade_or_qcmatch_flag);

532:
533: GMI_Reservation_Util.PrintLn('About to open cursor for dynamic SQL');
534: gmi_reservation_util.println('OPM ALLOCATION ENGINE - open cursor for dynamic SQL',1);
535:
536: GMI_Reservation_Util.PrintLn('(Alloc PVT) l_grade_or_qcmatch_flag = ' || l_grade_or_qcmatch_flag);
537: GMI_Reservation_Util.PrintLn('(Alloc PVT) p_ic_item_mst.grade_ctl = ' || p_ic_item_mst.grade_ctl);
538:
539: --2722339 EMC Auto Alloc QC Spec Match Project
540: --When Customer Spec is indicated on OPALOTED.fmb, grade is not used

Line 537: GMI_Reservation_Util.PrintLn('(Alloc PVT) p_ic_item_mst.grade_ctl = ' || p_ic_item_mst.grade_ctl);

533: GMI_Reservation_Util.PrintLn('About to open cursor for dynamic SQL');
534: gmi_reservation_util.println('OPM ALLOCATION ENGINE - open cursor for dynamic SQL',1);
535:
536: GMI_Reservation_Util.PrintLn('(Alloc PVT) l_grade_or_qcmatch_flag = ' || l_grade_or_qcmatch_flag);
537: GMI_Reservation_Util.PrintLn('(Alloc PVT) p_ic_item_mst.grade_ctl = ' || p_ic_item_mst.grade_ctl);
538:
539: --2722339 EMC Auto Alloc QC Spec Match Project
540: --When Customer Spec is indicated on OPALOTED.fmb, grade is not used
541: --in select. When Grade is specified and a grade is specified on the

Line 546: GMI_Reservation_Util.PrintLn('(Alloc PVT) Select A ') ;

542: --sales order line and/or OPALOTED.fmb, grade is used as part of the select
543: --criteria. When either item is not grade controlled or no grade is
544: --specified on so line or form,no grade is used as part of select.
545: IF (NVL(l_grade_or_qcmatch_flag,0) = 1 ) THEN
546: GMI_Reservation_Util.PrintLn('(Alloc PVT) Select A ') ;
547:
548: OPEN ic_inventory_view_c1 for
549: 'SELECT sum(loct_onhand),sum(loct_onhand2),
550: sum(commit_qty),sum(commit_qty2),

Line 566: GMI_Reservation_Util.PrintLn('(Alloc PVT) Select B ') ;

562: p_ic_item_mst.grade_ctl = 1 AND
563: l_allocation_rec.prefqc_grade is NOT NULL) THEN
564: BEGIN
565:
566: GMI_Reservation_Util.PrintLn('(Alloc PVT) Select B ') ;
567: GMI_RESERVATION_UTIL.PRINTLN('where clause B'|| l_where_clause);
568: GMI_RESERVATION_UTIL.PRINTLN('l_order_by'|| l_order_by);
569:
570: OPEN ic_inventory_view_c1 for

Line 567: GMI_RESERVATION_UTIL.PRINTLN('where clause B'|| l_where_clause);

563: l_allocation_rec.prefqc_grade is NOT NULL) THEN
564: BEGIN
565:
566: GMI_Reservation_Util.PrintLn('(Alloc PVT) Select B ') ;
567: GMI_RESERVATION_UTIL.PRINTLN('where clause B'|| l_where_clause);
568: GMI_RESERVATION_UTIL.PRINTLN('l_order_by'|| l_order_by);
569:
570: OPEN ic_inventory_view_c1 for
571: 'SELECT sum(loct_onhand),sum(loct_onhand2),

Line 568: GMI_RESERVATION_UTIL.PRINTLN('l_order_by'|| l_order_by);

564: BEGIN
565:
566: GMI_Reservation_Util.PrintLn('(Alloc PVT) Select B ') ;
567: GMI_RESERVATION_UTIL.PRINTLN('where clause B'|| l_where_clause);
568: GMI_RESERVATION_UTIL.PRINTLN('l_order_by'|| l_order_by);
569:
570: OPEN ic_inventory_view_c1 for
571: 'SELECT sum(loct_onhand),sum(loct_onhand2),
572: sum(commit_qty),sum(commit_qty2),

Line 586: GMI_RESERVATION_UTIL.println('sqlerror'|| SUBSTRB(SQLERRM, 1, 100));

582: using l_allocation_rec.prefqc_grade;
583:
584: EXCEPTION
585: WHEN OTHERS THEN
586: GMI_RESERVATION_UTIL.println('sqlerror'|| SUBSTRB(SQLERRM, 1, 100));
587: END;
588: GMI_Reservation_Util.PrintLn('(Alloc PVT) Select B after query') ;
589: ELSIF
590: (NVL(l_grade_or_qcmatch_flag,0) = 0 AND

Line 588: GMI_Reservation_Util.PrintLn('(Alloc PVT) Select B after query') ;

584: EXCEPTION
585: WHEN OTHERS THEN
586: GMI_RESERVATION_UTIL.println('sqlerror'|| SUBSTRB(SQLERRM, 1, 100));
587: END;
588: GMI_Reservation_Util.PrintLn('(Alloc PVT) Select B after query') ;
589: ELSIF
590: (NVL(l_grade_or_qcmatch_flag,0) = 0 AND
591: (p_ic_item_mst.grade_ctl <> 1 OR
592: l_allocation_rec.prefqc_grade is NULL)) THEN

Line 593: GMI_Reservation_Util.PrintLn('(Alloc PVT) Select C ') ;

589: ELSIF
590: (NVL(l_grade_or_qcmatch_flag,0) = 0 AND
591: (p_ic_item_mst.grade_ctl <> 1 OR
592: l_allocation_rec.prefqc_grade is NULL)) THEN
593: GMI_Reservation_Util.PrintLn('(Alloc PVT) Select C ') ;
594: GMI_Reservation_Util.PrintLn('(Alloc PVT) where clause' ||l_where_clause) ;
595:
596: OPEN ic_inventory_view_c1 for
597: 'SELECT sum(loct_onhand),sum(loct_onhand2),

Line 594: GMI_Reservation_Util.PrintLn('(Alloc PVT) where clause' ||l_where_clause) ;

590: (NVL(l_grade_or_qcmatch_flag,0) = 0 AND
591: (p_ic_item_mst.grade_ctl <> 1 OR
592: l_allocation_rec.prefqc_grade is NULL)) THEN
593: GMI_Reservation_Util.PrintLn('(Alloc PVT) Select C ') ;
594: GMI_Reservation_Util.PrintLn('(Alloc PVT) where clause' ||l_where_clause) ;
595:
596: OPEN ic_inventory_view_c1 for
597: 'SELECT sum(loct_onhand),sum(loct_onhand2),
598: sum(commit_qty),sum(commit_qty2),

Line 612: GMI_RESERVATION_UTIL.println('Alloc PVT after the cursor IF');

608: END IF;
609:
610: --2722339 EMC Auto Alloc QC Spec Match Project
611: --Call GMD_QC_SPEC_MATCH logic to determine whether spec_hdr_id exists.
612: GMI_RESERVATION_UTIL.println('Alloc PVT after the cursor IF');
613:
614: IF (NVL(l_grade_or_qcmatch_flag,0) = 1) THEN
615: OPEN Get_order_line_info;
616: FETCH Get_order_line_info INTO

Line 639: GMI_Reservation_Util.PrintLn('(Alloc PVT) Calling GMD_SPEC_MATCH_GRP.find_customer_spec ') ;

635: find_cust_spec_rec.order_line_id :=p_allocation_rec.line_id;
636: find_cust_spec_rec.look_in_other_orgn := 'Y';
637: find_cust_spec_rec.exact_match := 'N';
638:
639: GMI_Reservation_Util.PrintLn('(Alloc PVT) Calling GMD_SPEC_MATCH_GRP.find_customer_spec ') ;
640: l_out_rec := GMD_SPEC_MATCH_GRP.find_customer_spec
641: (p_customer_spec_rec => find_cust_spec_rec
642: ,x_spec_id => l_spec_hdr_id
643: ,x_spec_vr_id => l_spec_vr_id

Line 647: GMI_Reservation_Util.PrintLn('(Alloc PVT) l_spec_hdr_id = ' || nvl(l_spec_hdr_id,0));

643: ,x_spec_vr_id => l_spec_vr_id
644: ,x_return_status => l_spec_return_status
645: ,x_message_data => l_message_data );
646: END IF;
647: GMI_Reservation_Util.PrintLn('(Alloc PVT) l_spec_hdr_id = ' || nvl(l_spec_hdr_id,0));
648:
649:
650: --If spec_hdr_id exists, determine whether a customer match exists.
651: --Otherwise, go through regular allocation code.

Line 654: GMI_Reservation_Util.PrintLn('(Alloc PVT) l_allocated_qty1 = ' || l_allocated_qty1) ;

650: --If spec_hdr_id exists, determine whether a customer match exists.
651: --Otherwise, go through regular allocation code.
652:
653: LOOP
654: GMI_Reservation_Util.PrintLn('(Alloc PVT) l_allocated_qty1 = ' || l_allocated_qty1) ;
655: GMI_Reservation_Util.PrintLn('(Alloc PVT) l_inventory_qty1 = ' || l_inventory_qty1) ;
656:
657: IF (p_batch_id IS NULL OR l_batch_rec.alloc_all_lot_flag <> 'Y' OR
658: l_overpick_enabled = 'N')

Line 655: GMI_Reservation_Util.PrintLn('(Alloc PVT) l_inventory_qty1 = ' || l_inventory_qty1) ;

651: --Otherwise, go through regular allocation code.
652:
653: LOOP
654: GMI_Reservation_Util.PrintLn('(Alloc PVT) l_allocated_qty1 = ' || l_allocated_qty1) ;
655: GMI_Reservation_Util.PrintLn('(Alloc PVT) l_inventory_qty1 = ' || l_inventory_qty1) ;
656:
657: IF (p_batch_id IS NULL OR l_batch_rec.alloc_all_lot_flag <> 'Y' OR
658: l_overpick_enabled = 'N')
659: THEN

Line 671: GMI_Reservation_Util.PrintLn('(Alloc PVT) Inside LOOP no rows bailing') ;

667: l_lot_no,l_sublot_no,l_lot_id,l_lot_status,
668: l_lot_created,l_location,l_expire_date,l_qc_grade;
669:
670: IF ic_inventory_view_c1%NOTFOUND THEN
671: GMI_Reservation_Util.PrintLn('(Alloc PVT) Inside LOOP no rows bailing') ;
672: gmi_reservation_util.println('OPM ALLOCATION ENGINE - no inventory rows found',1);
673: END IF;
674:
675: EXIT WHEN ic_inventory_view_c1%NOTFOUND;

Line 672: gmi_reservation_util.println('OPM ALLOCATION ENGINE - no inventory rows found',1);

668: l_lot_created,l_location,l_expire_date,l_qc_grade;
669:
670: IF ic_inventory_view_c1%NOTFOUND THEN
671: GMI_Reservation_Util.PrintLn('(Alloc PVT) Inside LOOP no rows bailing') ;
672: gmi_reservation_util.println('OPM ALLOCATION ENGINE - no inventory rows found',1);
673: END IF;
674:
675: EXIT WHEN ic_inventory_view_c1%NOTFOUND;
676:

Line 689: GMI_Reservation_Util.PrintLn('(Alloc PVT) calling GMD_SPEC_MATCH_GRP.get_spec_match');

685: result_lot_match_tbl(1).whse_code := p_ic_whse_mst.whse_code;
686: result_lot_match_tbl(1).location := l_location;
687: */
688:
689: GMI_Reservation_Util.PrintLn('(Alloc PVT) calling GMD_SPEC_MATCH_GRP.get_spec_match');
690:
691: GMD_SPEC_MATCH_GRP.get_result_match_for_spec
692: ( p_spec_id => l_spec_hdr_id
693: , p_lots => result_lot_match_tbl

Line 697: GMI_Reservation_Util.PrintLn('(Alloc PVT) result_lot_match_tbl.COUNT = ' || nvl(result_lot_match_tbl.COUNT,0));

693: , p_lots => result_lot_match_tbl
694: , x_return_status => x2_return_status
695: , x_message_data => x2_message_data) ;
696:
697: GMI_Reservation_Util.PrintLn('(Alloc PVT) result_lot_match_tbl.COUNT = ' || nvl(result_lot_match_tbl.COUNT,0));
698: GMI_Reservation_Util.PrintLn('(Alloc PVT) result_lot_match_tbl(1).spec_match_type = ' || result_lot_match_tbl(1).spec_match_type);
699:
700:
701: IF (x2_return_status = 'S' AND result_lot_match_tbl.COUNT >0) THEN

Line 698: GMI_Reservation_Util.PrintLn('(Alloc PVT) result_lot_match_tbl(1).spec_match_type = ' || result_lot_match_tbl(1).spec_match_type);

694: , x_return_status => x2_return_status
695: , x_message_data => x2_message_data) ;
696:
697: GMI_Reservation_Util.PrintLn('(Alloc PVT) result_lot_match_tbl.COUNT = ' || nvl(result_lot_match_tbl.COUNT,0));
698: GMI_Reservation_Util.PrintLn('(Alloc PVT) result_lot_match_tbl(1).spec_match_type = ' || result_lot_match_tbl(1).spec_match_type);
699:
700:
701: IF (x2_return_status = 'S' AND result_lot_match_tbl.COUNT >0) THEN
702: IF (result_lot_match_tbl(1).spec_match_type = 'A') THEN

Line 704: GMI_Reservation_Util.PrintLn('(Alloc PVT) result_flag = ' || result_flag);

700:
701: IF (x2_return_status = 'S' AND result_lot_match_tbl.COUNT >0) THEN
702: IF (result_lot_match_tbl(1).spec_match_type = 'A') THEN
703: result_flag := 1;
704: GMI_Reservation_Util.PrintLn('(Alloc PVT) result_flag = ' || result_flag);
705: END IF;
706: END IF;
707: END IF; /*end l_spec_hdr_id >0 condition 1 */
708:

Line 711: GMI_RESERVATION_UTIL.PrintLn('examining whse/lot_no/id/location/grade '

707: END IF; /*end l_spec_hdr_id >0 condition 1 */
708:
709: /*Interpret the rules on spliting the lot
710: ========================================*/
711: GMI_RESERVATION_UTIL.PrintLn('examining whse/lot_no/id/location/grade '
712: || p_ic_whse_mst.whse_code || '/' || l_lot_no || '/' ||
713: l_lot_id || '/' || l_location || '/' || l_qc_grade );
714:
715: gmi_reservation_util.println('examining whse/lot_no/id/location/grade '

Line 715: gmi_reservation_util.println('examining whse/lot_no/id/location/grade '

711: GMI_RESERVATION_UTIL.PrintLn('examining whse/lot_no/id/location/grade '
712: || p_ic_whse_mst.whse_code || '/' || l_lot_no || '/' ||
713: l_lot_id || '/' || l_location || '/' || l_qc_grade );
714:
715: gmi_reservation_util.println('examining whse/lot_no/id/location/grade '
716: || p_ic_whse_mst.whse_code || '/' || l_lot_no || '/' ||
717: l_lot_id || '/' || l_location || '/' || l_qc_grade );
718:
719: GMI_RESERVATION_UTIL.PrintLn('onhand is ' || l_loct_onhand);

Line 719: GMI_RESERVATION_UTIL.PrintLn('onhand is ' || l_loct_onhand);

715: gmi_reservation_util.println('examining whse/lot_no/id/location/grade '
716: || p_ic_whse_mst.whse_code || '/' || l_lot_no || '/' ||
717: l_lot_id || '/' || l_location || '/' || l_qc_grade );
718:
719: GMI_RESERVATION_UTIL.PrintLn('onhand is ' || l_loct_onhand);
720: GMI_RESERVATION_UTIL.PrintLn('committed is ' || l_commit_qty );
721: GMI_RESERVATION_UTIL.PrintLn('available is ' || l_available_inventory1);
722: GMI_RESERVATION_UTIL.PrintLn('what is lot_qty config '|| p_op_alot_prm.lot_qty);
723:

Line 720: GMI_RESERVATION_UTIL.PrintLn('committed is ' || l_commit_qty );

716: || p_ic_whse_mst.whse_code || '/' || l_lot_no || '/' ||
717: l_lot_id || '/' || l_location || '/' || l_qc_grade );
718:
719: GMI_RESERVATION_UTIL.PrintLn('onhand is ' || l_loct_onhand);
720: GMI_RESERVATION_UTIL.PrintLn('committed is ' || l_commit_qty );
721: GMI_RESERVATION_UTIL.PrintLn('available is ' || l_available_inventory1);
722: GMI_RESERVATION_UTIL.PrintLn('what is lot_qty config '|| p_op_alot_prm.lot_qty);
723:
724:

Line 721: GMI_RESERVATION_UTIL.PrintLn('available is ' || l_available_inventory1);

717: l_lot_id || '/' || l_location || '/' || l_qc_grade );
718:
719: GMI_RESERVATION_UTIL.PrintLn('onhand is ' || l_loct_onhand);
720: GMI_RESERVATION_UTIL.PrintLn('committed is ' || l_commit_qty );
721: GMI_RESERVATION_UTIL.PrintLn('available is ' || l_available_inventory1);
722: GMI_RESERVATION_UTIL.PrintLn('what is lot_qty config '|| p_op_alot_prm.lot_qty);
723:
724:
725: --2722339 EMC Auto Alloc QC Spec Match Project

Line 722: GMI_RESERVATION_UTIL.PrintLn('what is lot_qty config '|| p_op_alot_prm.lot_qty);

718:
719: GMI_RESERVATION_UTIL.PrintLn('onhand is ' || l_loct_onhand);
720: GMI_RESERVATION_UTIL.PrintLn('committed is ' || l_commit_qty );
721: GMI_RESERVATION_UTIL.PrintLn('available is ' || l_available_inventory1);
722: GMI_RESERVATION_UTIL.PrintLn('what is lot_qty config '|| p_op_alot_prm.lot_qty);
723:
724:
725: --2722339 EMC Auto Alloc QC Spec Match Project
726: --If Customer Spec indicated, allocate only to matched result rows

Line 728: GMI_Reservation_Util.PrintLn('(Alloc PVT) result flag : ' ||result_flag ) ;

724:
725: --2722339 EMC Auto Alloc QC Spec Match Project
726: --If Customer Spec indicated, allocate only to matched result rows
727:
728: GMI_Reservation_Util.PrintLn('(Alloc PVT) result flag : ' ||result_flag ) ;
729: -- Bug 3180256 (adding NVL below)
730: IF (result_flag = 1 OR NVL(l_grade_or_qcmatch_flag,0) = 0) THEN
731: GMI_Reservation_Util.PrintLn('(Alloc PVT) Following regular logic flow.') ;
732: l_lot_indivisible := p_ic_item_mst.lot_indivisible;

Line 731: GMI_Reservation_Util.PrintLn('(Alloc PVT) Following regular logic flow.') ;

727:
728: GMI_Reservation_Util.PrintLn('(Alloc PVT) result flag : ' ||result_flag ) ;
729: -- Bug 3180256 (adding NVL below)
730: IF (result_flag = 1 OR NVL(l_grade_or_qcmatch_flag,0) = 0) THEN
731: GMI_Reservation_Util.PrintLn('(Alloc PVT) Following regular logic flow.') ;
732: l_lot_indivisible := p_ic_item_mst.lot_indivisible;
733: IF( l_batch_rec.alloc_all_lot_flag = 'Y' OR
734: l_batch_rec.lots_indivisible_flag = 'Y')
735: THEN

Line 745: GMI_RESERVATION_UTIL.PrintLn('lot_indivisible is off');

741: l_lot_qty := 0;
742: END IF;
743: IF (l_lot_indivisible = 0)
744: THEN /* lot can be split */
745: GMI_RESERVATION_UTIL.PrintLn('lot_indivisible is off');
746: IF (l_available_inventory1 >= l_unallocated_qty1) THEN
747: l_trans_qty1 := l_unallocated_qty1;
748: l_allocated_qty1 := l_allocated_qty1 + l_unallocated_qty1;
749: l_unallocated_qty1 := 0;

Line 755: GMI_RESERVATION_UTIL.PrintLn('any number of lots ');

751: l_allocation_successful := 'Y';
752: ELSIF (l_lot_qty = 0 )
753: /* Use any number of lots */
754: THEN
755: GMI_RESERVATION_UTIL.PrintLn('any number of lots ');
756: GMI_RESERVATION_UTIL.PrintLn('available is less than required ' ||
757: l_available_inventory1 || ' ' || l_unallocated_qty1);
758: l_trans_qty1 := l_available_inventory1;
759: l_allocated_qty1 := l_allocated_qty1 + l_available_inventory1;

Line 756: GMI_RESERVATION_UTIL.PrintLn('available is less than required ' ||

752: ELSIF (l_lot_qty = 0 )
753: /* Use any number of lots */
754: THEN
755: GMI_RESERVATION_UTIL.PrintLn('any number of lots ');
756: GMI_RESERVATION_UTIL.PrintLn('available is less than required ' ||
757: l_available_inventory1 || ' ' || l_unallocated_qty1);
758: l_trans_qty1 := l_available_inventory1;
759: l_allocated_qty1 := l_allocated_qty1 + l_available_inventory1;
760: l_unallocated_qty1 := l_inventory_qty1 - l_allocated_qty1;

Line 770: GMI_RESERVATION_UTIL.PrintLn('lot_indivisible is ON');

766: ========================================*/
767: IF (l_lot_indivisible = 1)
768: /* lot must not be split */
769: THEN
770: GMI_RESERVATION_UTIL.PrintLn('lot_indivisible is ON');
771: IF (l_available_inventory1 <= l_unallocated_qty1) THEN
772: GMI_RESERVATION_UTIL.PrintLn('less inventory than we need'
773: || l_available_inventory1 || ' versus ' || l_unallocated_qty1);
774: l_trans_qty1 := l_available_inventory1;

Line 772: GMI_RESERVATION_UTIL.PrintLn('less inventory than we need'

768: /* lot must not be split */
769: THEN
770: GMI_RESERVATION_UTIL.PrintLn('lot_indivisible is ON');
771: IF (l_available_inventory1 <= l_unallocated_qty1) THEN
772: GMI_RESERVATION_UTIL.PrintLn('less inventory than we need'
773: || l_available_inventory1 || ' versus ' || l_unallocated_qty1);
774: l_trans_qty1 := l_available_inventory1;
775: l_allocated_qty1 := l_allocated_qty1 + l_available_inventory1;
776: l_unallocated_qty1 := l_inventory_qty1 - l_allocated_qty1;

Line 781: GMI_RESERVATION_UTIL.PrintLn('Lot indivisible is On or Alloc_all_lot_flag = Y');

777: /* invoke transaction processor */
778: l_allocation_successful := 'Y';
779:
780: ELSIF (l_overpick_enabled = 'Y')THEN
781: GMI_RESERVATION_UTIL.PrintLn('Lot indivisible is On or Alloc_all_lot_flag = Y');
782: GMI_RESERVATION_UTIL.PrintLn('Allocating all the available inv for this row');
783: l_trans_qty1 := l_available_inventory1;
784: l_allocated_qty1 := l_allocated_qty1 + l_available_inventory1;
785: l_unallocated_qty1 := l_inventory_qty1 - l_allocated_qty1;

Line 782: GMI_RESERVATION_UTIL.PrintLn('Allocating all the available inv for this row');

778: l_allocation_successful := 'Y';
779:
780: ELSIF (l_overpick_enabled = 'Y')THEN
781: GMI_RESERVATION_UTIL.PrintLn('Lot indivisible is On or Alloc_all_lot_flag = Y');
782: GMI_RESERVATION_UTIL.PrintLn('Allocating all the available inv for this row');
783: l_trans_qty1 := l_available_inventory1;
784: l_allocated_qty1 := l_allocated_qty1 + l_available_inventory1;
785: l_unallocated_qty1 := l_inventory_qty1 - l_allocated_qty1;
786: l_allocation_successful := 'Y';

Line 792: GMI_Reservation_Util.PrintLn('(Alloc PVT) l_allocation_successful = ' || l_allocation_successful);

788: END IF;
789:
790: /*If suitable stock has been located, write a transaction to ic_tran_pnd
791: =======================================================================*/
792: GMI_Reservation_Util.PrintLn('(Alloc PVT) l_allocation_successful = ' || l_allocation_successful);
793: If l_allocation_successful = 'Y' THEN
794: /*Convert allocated qty to secondary UM where appropriate
795: ========================================================*/
796: GMI_RESERVATION_UTIL.PrintLn('secondary UM conv');

Line 796: GMI_RESERVATION_UTIL.PrintLn('secondary UM conv');

792: GMI_Reservation_Util.PrintLn('(Alloc PVT) l_allocation_successful = ' || l_allocation_successful);
793: If l_allocation_successful = 'Y' THEN
794: /*Convert allocated qty to secondary UM where appropriate
795: ========================================================*/
796: GMI_RESERVATION_UTIL.PrintLn('secondary UM conv');
797: IF p_ic_item_mst.dualum_ind > 0 THEN
798: GMICUOM.icuomcv(pitem_id => p_ic_item_mst.item_id,
799: plot_id => l_lot_id,
800: pcur_qty => l_trans_qty1,

Line 805: GMI_RESERVATION_UTIL.PrintLn('invoke txn engine');

801: pcur_uom => p_ic_item_mst.item_um,
802: pnew_uom => p_ic_item_mst.item_um2,
803: onew_qty => l_trans_qty2);
804: END IF;
805: GMI_RESERVATION_UTIL.PrintLn('invoke txn engine');
806: GMI_RESERVATION_UTIL.PrintLn('write txn for qty ' || l_trans_qty1);
807: gmi_reservation_util.println('OPM ALLOCATION ENGINE - invoke transaction engine',1);
808: /*Set up parameters in readiness for writing a pending transaction
809: =================================================================*/

Line 806: GMI_RESERVATION_UTIL.PrintLn('write txn for qty ' || l_trans_qty1);

802: pnew_uom => p_ic_item_mst.item_um2,
803: onew_qty => l_trans_qty2);
804: END IF;
805: GMI_RESERVATION_UTIL.PrintLn('invoke txn engine');
806: GMI_RESERVATION_UTIL.PrintLn('write txn for qty ' || l_trans_qty1);
807: gmi_reservation_util.println('OPM ALLOCATION ENGINE - invoke transaction engine',1);
808: /*Set up parameters in readiness for writing a pending transaction
809: =================================================================*/
810: l_tran_rec.trans_id := NULL;

Line 807: gmi_reservation_util.println('OPM ALLOCATION ENGINE - invoke transaction engine',1);

803: onew_qty => l_trans_qty2);
804: END IF;
805: GMI_RESERVATION_UTIL.PrintLn('invoke txn engine');
806: GMI_RESERVATION_UTIL.PrintLn('write txn for qty ' || l_trans_qty1);
807: gmi_reservation_util.println('OPM ALLOCATION ENGINE - invoke transaction engine',1);
808: /*Set up parameters in readiness for writing a pending transaction
809: =================================================================*/
810: l_tran_rec.trans_id := NULL;
811: l_tran_rec.item_id := p_ic_item_mst.item_id;

Line 850: GMI_Reservation_Util.PrintLn('(Alloc PVT) inserting trans ' );

846: l_tran_rec.text_code := NULL;
847: l_tran_rec.user_id := p_allocation_rec.user_id;
848: l_tran_rec.line_detail_id := p_allocation_rec.line_detail_id;
849:
850: GMI_Reservation_Util.PrintLn('(Alloc PVT) inserting trans ' );
851: GMI_SHIPPING_UTIL.print_debug(l_tran_rec,'inserting');
852: GMI_TRANS_ENGINE_PUB.create_pending_transaction
853: (p_api_version => 1.0,
854: p_init_msg_list => FND_API.G_TRUE,

Line 876: GMI_Reservation_Util.PrintLn('(Alloc PVT) end of try, result_flag = ' || result_flag);

872: END IF; /* ===== END OF ALLOCATION */
873: END IF; /* result_flag = 1 OR l_grade_qcmatch_flag = 0*/
874: --2722339 EMC Auto Alloc QC Spec Match Project
875: result_flag :=0;
876: GMI_Reservation_Util.PrintLn('(Alloc PVT) end of try, result_flag = ' || result_flag);
877: END LOOP;
878: CLOSE ic_inventory_view_c1;
879:
880:

Line 894: GMI_Reservation_Util.PrintLn('(Alloc PVT) partial not allowed, roll back ');

890: OR (l_unallocated_qty1 > 0 and p_ic_item_mst.lot_ctl = 0 AND l_loct_ctl = 0)
891: THEN
892: /* dbms_output.put_line */
893: /* ('Demand not fully met and partial alloc not allowed - special rollback'); */
894: GMI_Reservation_Util.PrintLn('(Alloc PVT) partial not allowed, roll back ');
895: GMI_Reservation_Util.PrintLn('(Alloc PVT) partial _ind'|| p_op_alot_prm.partial_ind);
896: GMI_Reservation_Util.PrintLn('(Alloc PVT) lot_ctl '|| p_ic_item_mst.lot_ctl);
897: GMI_Reservation_Util.PrintLn('(Alloc PVT) loct_ctl '|| l_loct_ctl);
898: ROLLBACK to allocate_line;

Line 895: GMI_Reservation_Util.PrintLn('(Alloc PVT) partial _ind'|| p_op_alot_prm.partial_ind);

891: THEN
892: /* dbms_output.put_line */
893: /* ('Demand not fully met and partial alloc not allowed - special rollback'); */
894: GMI_Reservation_Util.PrintLn('(Alloc PVT) partial not allowed, roll back ');
895: GMI_Reservation_Util.PrintLn('(Alloc PVT) partial _ind'|| p_op_alot_prm.partial_ind);
896: GMI_Reservation_Util.PrintLn('(Alloc PVT) lot_ctl '|| p_ic_item_mst.lot_ctl);
897: GMI_Reservation_Util.PrintLn('(Alloc PVT) loct_ctl '|| l_loct_ctl);
898: ROLLBACK to allocate_line;
899: l_allocated_qty1 := 0;

Line 896: GMI_Reservation_Util.PrintLn('(Alloc PVT) lot_ctl '|| p_ic_item_mst.lot_ctl);

892: /* dbms_output.put_line */
893: /* ('Demand not fully met and partial alloc not allowed - special rollback'); */
894: GMI_Reservation_Util.PrintLn('(Alloc PVT) partial not allowed, roll back ');
895: GMI_Reservation_Util.PrintLn('(Alloc PVT) partial _ind'|| p_op_alot_prm.partial_ind);
896: GMI_Reservation_Util.PrintLn('(Alloc PVT) lot_ctl '|| p_ic_item_mst.lot_ctl);
897: GMI_Reservation_Util.PrintLn('(Alloc PVT) loct_ctl '|| l_loct_ctl);
898: ROLLBACK to allocate_line;
899: l_allocated_qty1 := 0;
900: l_allocated_qty2 := 0;

Line 897: GMI_Reservation_Util.PrintLn('(Alloc PVT) loct_ctl '|| l_loct_ctl);

893: /* ('Demand not fully met and partial alloc not allowed - special rollback'); */
894: GMI_Reservation_Util.PrintLn('(Alloc PVT) partial not allowed, roll back ');
895: GMI_Reservation_Util.PrintLn('(Alloc PVT) partial _ind'|| p_op_alot_prm.partial_ind);
896: GMI_Reservation_Util.PrintLn('(Alloc PVT) lot_ctl '|| p_ic_item_mst.lot_ctl);
897: GMI_Reservation_Util.PrintLn('(Alloc PVT) loct_ctl '|| l_loct_ctl);
898: ROLLBACK to allocate_line;
899: l_allocated_qty1 := 0;
900: l_allocated_qty2 := 0;
901: l_unallocated_qty1 := l_inventory_qty1;

Line 960: GMI_Reservation_Util.PrintLn('(Alloc PVT) exiting, x_allocated_qty1 '|| x_allocated_qty1);

956: x_msg_count => l_msg_count,
957: x_msg_data => l_msg_data
958: );
959:
960: GMI_Reservation_Util.PrintLn('(Alloc PVT) exiting, x_allocated_qty1 '|| x_allocated_qty1);
961: GMI_Reservation_Util.PrintLn('(Alloc PVT) exiting, x_allocated_qty2 '|| x_allocated_qty2);
962: /* EXCEPTION HANDLING
963: ====================*/
964:

Line 961: GMI_Reservation_Util.PrintLn('(Alloc PVT) exiting, x_allocated_qty2 '|| x_allocated_qty2);

957: x_msg_data => l_msg_data
958: );
959:
960: GMI_Reservation_Util.PrintLn('(Alloc PVT) exiting, x_allocated_qty1 '|| x_allocated_qty1);
961: GMI_Reservation_Util.PrintLn('(Alloc PVT) exiting, x_allocated_qty2 '|| x_allocated_qty2);
962: /* EXCEPTION HANDLING
963: ====================*/
964:
965: EXCEPTION