327: END IF;
328:
329: /*
330: ** Call maintain_supply to set:
331: ** 1. Req header: quantity in mtl_supply to 0 for a given req header
332: ** 2. Req line: quantity in mtl_supply to 0 for a given req line.
333: **
334: ** DEBUG: The maintain_supply used in this server package is
335: ** for testing. It should be moved to the maintain_supply server
328:
329: /*
330: ** Call maintain_supply to set:
331: ** 1. Req header: quantity in mtl_supply to 0 for a given req header
332: ** 2. Req line: quantity in mtl_supply to 0 for a given req line.
333: **
334: ** DEBUG: The maintain_supply used in this server package is
335: ** for testing. It should be moved to the maintain_supply server
336: ** package when it is ready.
545: IF X_supply_action = 'Remove_Req_Supply' THEN
546: X_progress := '005';
547:
548: /*
549: ** Sets the req quantity in mtl_supply to 0 for a given req header.
550: */
551:
552: UPDATE MTL_SUPPLY
553: SET quantity = 0,
548: /*
549: ** Sets the req quantity in mtl_supply to 0 for a given req header.
550: */
551:
552: UPDATE MTL_SUPPLY
553: SET quantity = 0,
554: change_flag = 'Y'
555: WHERE supply_type_code = 'REQ'
556: AND req_header_id = X_supply_id;
554: change_flag = 'Y'
555: WHERE supply_type_code = 'REQ'
556: AND req_header_id = X_supply_id;
557:
558: /* bug 404433: - Update the MTL_SUPPLY table in two steps to keep
559: ** the code compatible as in R10 userexit.
560: ** The delete step is to fire the MRP triggers.
561: */
562:
559: ** the code compatible as in R10 userexit.
560: ** The delete step is to fire the MRP triggers.
561: */
562:
563: DELETE FROM MTL_SUPPLY
564: WHERE supply_type_code = 'REQ'
565: AND quantity = 0
566: AND change_flag = 'Y'
567: AND req_header_id = X_supply_id;
576: ELSIF X_supply_action = 'Remove_Req_Line_Supply' THEN
577: X_progress := '010';
578:
579: /*
580: ** Sets the req quantity in mtl_supply to 0 for a given req line.
581: */
582:
583: UPDATE MTL_SUPPLY
584: SET quantity = 0,
579: /*
580: ** Sets the req quantity in mtl_supply to 0 for a given req line.
581: */
582:
583: UPDATE MTL_SUPPLY
584: SET quantity = 0,
585: change_flag = 'Y'
586: WHERE supply_type_code = 'REQ'
587: AND req_line_id = X_supply_id;
586: WHERE supply_type_code = 'REQ'
587: AND req_line_id = X_supply_id;
588:
589:
590: DELETE FROM MTL_SUPPLY
591: WHERE supply_type_code = 'REQ'
592: AND quantity = 0
593: AND change_flag = 'Y'
594: AND req_line_id = X_supply_id;