66: exception
67: when RECORDS_LOCKED then
68: ROLLBACK TO WIP_EXPLODE_START;
69: x_return_status := 'L';
70: fnd_message.set_name('FND', 'FORM_UNABLE_TO_RESERVE_RECORD');
71: x_msg_data := fnd_message.get;
72: when others then
73: if(c_lock%ISOPEN) then
74: close c_lock;
67: when RECORDS_LOCKED then
68: ROLLBACK TO WIP_EXPLODE_START;
69: x_return_status := 'L';
70: fnd_message.set_name('FND', 'FORM_UNABLE_TO_RESERVE_RECORD');
71: x_msg_data := fnd_message.get;
72: when others then
73: if(c_lock%ISOPEN) then
74: close c_lock;
75: end if;
74: close c_lock;
75: end if;
76: ROLLBACK TO WIP_EXPLODE_START;
77: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
78: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
79: fnd_message.set_token('ERROR_TEXT', SQLERRM);
80: /*This line is added as a fix for bug#2629809*/
81: x_msg_data := fnd_message.get;
82: end explode;
75: end if;
76: ROLLBACK TO WIP_EXPLODE_START;
77: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
78: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
79: fnd_message.set_token('ERROR_TEXT', SQLERRM);
80: /*This line is added as a fix for bug#2629809*/
81: x_msg_data := fnd_message.get;
82: end explode;
83:
77: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
78: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
79: fnd_message.set_token('ERROR_TEXT', SQLERRM);
80: /*This line is added as a fix for bug#2629809*/
81: x_msg_data := fnd_message.get;
82: end explode;
83:
84: procedure cancel_allocations(p_wip_entity_id NUMBER,
85: p_wip_entity_type NUMBER,
155: wip_constants.repetitive,
156: wip_constants.flow,
157: wip_constants.eam)) then
158: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
159: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
160: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.Incorrect Entity type passed');
161: x_msg_data := fnd_message.get;
162: return ;
163: end if ;
156: wip_constants.flow,
157: wip_constants.eam)) then
158: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
159: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
160: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.Incorrect Entity type passed');
161: x_msg_data := fnd_message.get;
162: return ;
163: end if ;
164:
157: wip_constants.eam)) then
158: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
159: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
160: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.Incorrect Entity type passed');
161: x_msg_data := fnd_message.get;
162: return ;
163: end if ;
164:
165: SAVEPOINT WIP_CANCEL_ALLOCS_START;
234: close c_flowLines;
235: end if;
236: ROLLBACK TO WIP_CANCEL_ALLOCS_START;
237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
238: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
239: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.cancel_allocations: ' || SQLERRM);
240: x_msg_data := fnd_message.get;
241: end cancel_allocations;
242:
235: end if;
236: ROLLBACK TO WIP_CANCEL_ALLOCS_START;
237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
238: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
239: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.cancel_allocations: ' || SQLERRM);
240: x_msg_data := fnd_message.get;
241: end cancel_allocations;
242:
243:
236: ROLLBACK TO WIP_CANCEL_ALLOCS_START;
237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
238: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
239: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.cancel_allocations: ' || SQLERRM);
240: x_msg_data := fnd_message.get;
241: end cancel_allocations;
242:
243:
244: Procedure cancel_comp_allocations(p_wip_entity_id NUMBER,
375: close c_repLines;
376: end if;
377: ROLLBACK TO WIP_CANCEL_COMP_ALLOCS_START;
378: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
379: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
380: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.cancel_comp_allocations: ' || SQLERRM);
381: x_msg_data := fnd_message.get;
382: END cancel_comp_allocations;
383:
376: end if;
377: ROLLBACK TO WIP_CANCEL_COMP_ALLOCS_START;
378: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
379: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
380: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.cancel_comp_allocations: ' || SQLERRM);
381: x_msg_data := fnd_message.get;
382: END cancel_comp_allocations;
383:
384: Procedure cancel_MO_line(p_lineId IN NUMBER,
377: ROLLBACK TO WIP_CANCEL_COMP_ALLOCS_START;
378: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
379: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
380: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.cancel_comp_allocations: ' || SQLERRM);
381: x_msg_data := fnd_message.get;
382: END cancel_comp_allocations;
383:
384: Procedure cancel_MO_line(p_lineId IN NUMBER,
385: p_rowId ROWID,
512: end Loop; /* End of MO lines loop */
513:
514: if(l_reductionQty <> 0) then /* if requested quantity is more than total allocated quantity */
515: x_return_status := 'P'; /*then, return a warning message that only allocated quantity has been reduced*/
516: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_REDUCTION');
517: x_msg_data := fnd_message.get;
518: end if;
519:
520: if(c_discLines%ISOPEN) then
513:
514: if(l_reductionQty <> 0) then /* if requested quantity is more than total allocated quantity */
515: x_return_status := 'P'; /*then, return a warning message that only allocated quantity has been reduced*/
516: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_REDUCTION');
517: x_msg_data := fnd_message.get;
518: end if;
519:
520: if(c_discLines%ISOPEN) then
521: close c_discLines;
552: close c_repLines;
553: end if;
554: ROLLBACK TO WIP_REDUCE_COMP_ALLOCS_START;
555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
556: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
557: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.cancel_allocations: ' || SQLERRM);
558: x_msg_data := fnd_message.get;
559: END reduce_comp_allocations;
560:
553: end if;
554: ROLLBACK TO WIP_REDUCE_COMP_ALLOCS_START;
555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
556: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
557: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.cancel_allocations: ' || SQLERRM);
558: x_msg_data := fnd_message.get;
559: END reduce_comp_allocations;
560:
561:
554: ROLLBACK TO WIP_REDUCE_COMP_ALLOCS_START;
555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
556: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
557: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.cancel_allocations: ' || SQLERRM);
558: x_msg_data := fnd_message.get;
559: END reduce_comp_allocations;
560:
561:
562:
651: close c_repLines;
652: end if;
653: ROLLBACK TO WIP_UPDATE_ALLOCS_START;
654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
655: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
656: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.update_allocation_op_seqs: ' || SQLERRM);
657: end update_allocation_op_seqs;
658:
659: /* Starting for p_index element of p_alloc_tbl, find number of consective flow schedules
652: end if;
653: ROLLBACK TO WIP_UPDATE_ALLOCS_START;
654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
655: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
656: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.update_allocation_op_seqs: ' || SQLERRM);
657: end update_allocation_op_seqs;
658:
659: /* Starting for p_index element of p_alloc_tbl, find number of consective flow schedules
660: that contain the same assembly, assembly qty, and required date. This number allows
1295: end if;
1296:
1297: else -- if(p_wip_entity_type = l_disc)
1298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1299: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
1300: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pvt.allocate: invalid entity_type' );
1301: x_msg_data := fnd_message.get;
1302: return;
1303: end if;
1296:
1297: else -- if(p_wip_entity_type = l_disc)
1298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1299: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
1300: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pvt.allocate: invalid entity_type' );
1301: x_msg_data := fnd_message.get;
1302: return;
1303: end if;
1304:
1297: else -- if(p_wip_entity_type = l_disc)
1298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1299: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
1300: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pvt.allocate: invalid entity_type' );
1301: x_msg_data := fnd_message.get;
1302: return;
1303: end if;
1304:
1305: /* Added as part of Enhancement#2578514*/
1555: || x_msg_data, l_dummy2);
1556: end if;
1557:
1558: if(nvl(p_print_pick_slip,'T') = 'T') then
1559: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
1560: fnd_message.set_token('REQ_NUMBER',x_conc_req_id);
1561: l_string2 := fnd_message.get;
1562: else
1563: l_string2 := ' ';
1556: end if;
1557:
1558: if(nvl(p_print_pick_slip,'T') = 'T') then
1559: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
1560: fnd_message.set_token('REQ_NUMBER',x_conc_req_id);
1561: l_string2 := fnd_message.get;
1562: else
1563: l_string2 := ' ';
1564: end if;
1557:
1558: if(nvl(p_print_pick_slip,'T') = 'T') then
1559: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
1560: fnd_message.set_token('REQ_NUMBER',x_conc_req_id);
1561: l_string2 := fnd_message.get;
1562: else
1563: l_string2 := ' ';
1564: end if;
1565: if((l_pickStatus = 'P') OR l_explodeStatus <> fnd_api.g_ret_sts_success) then --if either the issue or backflush partially allocated, or one or more flow assemblies' bill could not be exploded
1563: l_string2 := ' ';
1564: end if;
1565: if((l_pickStatus = 'P') OR l_explodeStatus <> fnd_api.g_ret_sts_success) then --if either the issue or backflush partially allocated, or one or more flow assemblies' bill could not be exploded
1566: x_return_status := 'P'; --return partial status
1567: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
1568: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
1569: l_string1 := fnd_message.get;
1570: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOCATION');
1571: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
1564: end if;
1565: if((l_pickStatus = 'P') OR l_explodeStatus <> fnd_api.g_ret_sts_success) then --if either the issue or backflush partially allocated, or one or more flow assemblies' bill could not be exploded
1566: x_return_status := 'P'; --return partial status
1567: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
1568: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
1569: l_string1 := fnd_message.get;
1570: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOCATION');
1571: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
1572: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
1565: if((l_pickStatus = 'P') OR l_explodeStatus <> fnd_api.g_ret_sts_success) then --if either the issue or backflush partially allocated, or one or more flow assemblies' bill could not be exploded
1566: x_return_status := 'P'; --return partial status
1567: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
1568: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
1569: l_string1 := fnd_message.get;
1570: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOCATION');
1571: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
1572: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
1573: x_msg_data := fnd_message.get;
1566: x_return_status := 'P'; --return partial status
1567: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
1568: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
1569: l_string1 := fnd_message.get;
1570: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOCATION');
1571: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
1572: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
1573: x_msg_data := fnd_message.get;
1574: elsif (l_pickStatus = 'N') then
1567: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
1568: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
1569: l_string1 := fnd_message.get;
1570: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOCATION');
1571: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
1572: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
1573: x_msg_data := fnd_message.get;
1574: elsif (l_pickStatus = 'N') then
1575: -- 'N' could also result from l_lineCount = 0, and inv_wip_picking_pvt.release_pick_batch
1568: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
1569: l_string1 := fnd_message.get;
1570: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOCATION');
1571: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
1572: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
1573: x_msg_data := fnd_message.get;
1574: elsif (l_pickStatus = 'N') then
1575: -- 'N' could also result from l_lineCount = 0, and inv_wip_picking_pvt.release_pick_batch
1576: -- was never called
1569: l_string1 := fnd_message.get;
1570: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOCATION');
1571: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
1572: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
1573: x_msg_data := fnd_message.get;
1574: elsif (l_pickStatus = 'N') then
1575: -- 'N' could also result from l_lineCount = 0, and inv_wip_picking_pvt.release_pick_batch
1576: -- was never called
1577: x_return_status := 'N';
1574: elsif (l_pickStatus = 'N') then
1575: -- 'N' could also result from l_lineCount = 0, and inv_wip_picking_pvt.release_pick_batch
1576: -- was never called
1577: x_return_status := 'N';
1578: fnd_message.set_name('WIP','WIP_PICKING_NO_ALLOCATION');
1579: x_msg_data := fnd_message.get;
1580: else
1581: x_return_status := fnd_api.g_ret_sts_success; --above ifs test for other return statuses from inv call
1582: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
1575: -- 'N' could also result from l_lineCount = 0, and inv_wip_picking_pvt.release_pick_batch
1576: -- was never called
1577: x_return_status := 'N';
1578: fnd_message.set_name('WIP','WIP_PICKING_NO_ALLOCATION');
1579: x_msg_data := fnd_message.get;
1580: else
1581: x_return_status := fnd_api.g_ret_sts_success; --above ifs test for other return statuses from inv call
1582: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
1583: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
1578: fnd_message.set_name('WIP','WIP_PICKING_NO_ALLOCATION');
1579: x_msg_data := fnd_message.get;
1580: else
1581: x_return_status := fnd_api.g_ret_sts_success; --above ifs test for other return statuses from inv call
1582: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
1583: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
1584: l_string1 := fnd_message.get;
1585: fnd_message.set_name('WIP','WIP_PICKING_SUCCESS_ALLOCATION');
1586: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
1579: x_msg_data := fnd_message.get;
1580: else
1581: x_return_status := fnd_api.g_ret_sts_success; --above ifs test for other return statuses from inv call
1582: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
1583: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
1584: l_string1 := fnd_message.get;
1585: fnd_message.set_name('WIP','WIP_PICKING_SUCCESS_ALLOCATION');
1586: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
1587: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
1580: else
1581: x_return_status := fnd_api.g_ret_sts_success; --above ifs test for other return statuses from inv call
1582: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
1583: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
1584: l_string1 := fnd_message.get;
1585: fnd_message.set_name('WIP','WIP_PICKING_SUCCESS_ALLOCATION');
1586: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
1587: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
1588: x_msg_data := fnd_message.get;
1581: x_return_status := fnd_api.g_ret_sts_success; --above ifs test for other return statuses from inv call
1582: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
1583: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
1584: l_string1 := fnd_message.get;
1585: fnd_message.set_name('WIP','WIP_PICKING_SUCCESS_ALLOCATION');
1586: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
1587: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
1588: x_msg_data := fnd_message.get;
1589: end if;
1582: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
1583: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
1584: l_string1 := fnd_message.get;
1585: fnd_message.set_name('WIP','WIP_PICKING_SUCCESS_ALLOCATION');
1586: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
1587: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
1588: x_msg_data := fnd_message.get;
1589: end if;
1590: x_mo_req_number := l_hdrRec.request_number; /* Added as part of enhancement 2478446 */
1583: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
1584: l_string1 := fnd_message.get;
1585: fnd_message.set_name('WIP','WIP_PICKING_SUCCESS_ALLOCATION');
1586: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
1587: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
1588: x_msg_data := fnd_message.get;
1589: end if;
1590: x_mo_req_number := l_hdrRec.request_number; /* Added as part of enhancement 2478446 */
1591:
1584: l_string1 := fnd_message.get;
1585: fnd_message.set_name('WIP','WIP_PICKING_SUCCESS_ALLOCATION');
1586: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
1587: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
1588: x_msg_data := fnd_message.get;
1589: end if;
1590: x_mo_req_number := l_hdrRec.request_number; /* Added as part of enhancement 2478446 */
1591:
1592: if (l_logLevel <= wip_constants.trace_logging) then
1602: end if;
1603: when RECORDS_LOCKED then
1604: -- ROLLBACK TO WIP_ALLOCATE_PVT_START; -- Fix bug 4341138
1605: x_return_status := 'L';
1606: fnd_message.set_name('FND', 'FORM_UNABLE_TO_RESERVE_RECORD');
1607: x_msg_data := fnd_message.get;
1608: if (l_logLevel <= wip_constants.trace_logging) then
1609: wip_logger.log(x_msg_data, l_dummy2);
1610: wip_logger.cleanup(l_dummy2);
1603: when RECORDS_LOCKED then
1604: -- ROLLBACK TO WIP_ALLOCATE_PVT_START; -- Fix bug 4341138
1605: x_return_status := 'L';
1606: fnd_message.set_name('FND', 'FORM_UNABLE_TO_RESERVE_RECORD');
1607: x_msg_data := fnd_message.get;
1608: if (l_logLevel <= wip_constants.trace_logging) then
1609: wip_logger.log(x_msg_data, l_dummy2);
1610: wip_logger.cleanup(l_dummy2);
1611: end if;
1611: end if;
1612: when others then
1613: -- ROLLBACK TO WIP_ALLOCATE_PVT_START; -- Fix bug 4341138
1614: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1615: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
1616: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pvt.allocate: ' || SQLERRM);
1617: x_msg_data := fnd_message.get;
1618: if (l_logLevel <= wip_constants.trace_logging) then
1619: wip_logger.log(x_msg_data, l_dummy2);
1612: when others then
1613: -- ROLLBACK TO WIP_ALLOCATE_PVT_START; -- Fix bug 4341138
1614: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1615: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
1616: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pvt.allocate: ' || SQLERRM);
1617: x_msg_data := fnd_message.get;
1618: if (l_logLevel <= wip_constants.trace_logging) then
1619: wip_logger.log(x_msg_data, l_dummy2);
1620: wip_logger.cleanup(l_dummy2);
1613: -- ROLLBACK TO WIP_ALLOCATE_PVT_START; -- Fix bug 4341138
1614: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1615: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
1616: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pvt.allocate: ' || SQLERRM);
1617: x_msg_data := fnd_message.get;
1618: if (l_logLevel <= wip_constants.trace_logging) then
1619: wip_logger.log(x_msg_data, l_dummy2);
1620: wip_logger.cleanup(l_dummy2);
1621: end if;
1688: from wip_parameters
1689: where organization_id = p_organization_id;
1690:
1691: if(l_pick_grouping_rule_id IS NULL) then
1692: fnd_message.set_name('WIP','WIP_PICKING_EAM_PICKSLIP_ERROR');
1693: x_msg_data := fnd_message.get;
1694: x_return_status := FND_API.G_RET_STS_ERROR;
1695: raise FND_API.G_EXC_ERROR;
1696: else
1689: where organization_id = p_organization_id;
1690:
1691: if(l_pick_grouping_rule_id IS NULL) then
1692: fnd_message.set_name('WIP','WIP_PICKING_EAM_PICKSLIP_ERROR');
1693: x_msg_data := fnd_message.get;
1694: x_return_status := FND_API.G_RET_STS_ERROR;
1695: raise FND_API.G_EXC_ERROR;
1696: else
1697: p_hdrRec.grouping_rule_id := l_pick_grouping_rule_id;
1767: ROLLBACK TO GET_HDR_LINES_START;
1768: when others then
1769: ROLLBACK TO GET_HDR_LINES_START;
1770: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1771: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
1772: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pvt.get_HdrLinesRec: ' || SQLERRM);
1773: x_msg_data := fnd_message.get;
1774:
1775:
1768: when others then
1769: ROLLBACK TO GET_HDR_LINES_START;
1770: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1771: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
1772: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pvt.get_HdrLinesRec: ' || SQLERRM);
1773: x_msg_data := fnd_message.get;
1774:
1775:
1776: end get_HdrLinesRec;
1769: ROLLBACK TO GET_HDR_LINES_START;
1770: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1771: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
1772: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pvt.get_HdrLinesRec: ' || SQLERRM);
1773: x_msg_data := fnd_message.get;
1774:
1775:
1776: end get_HdrLinesRec;
1777:
2045: raise FND_API.G_EXC_ERROR;
2046: end if;
2047: if (p_alloc_comp_tbl(i).requested_quantity IS NOT NULL) then
2048: if(p_alloc_comp_tbl(i).requested_quantity > l_linesRec.quantity) then /* Do not allow overpick */
2049: fnd_message.set_name('WIP','WIP_PICKING_OVERPICK_ERROR');
2050: x_msg_data := fnd_message.get;
2051: x_return_status := FND_API.G_RET_STS_ERROR;
2052: raise FND_API.G_EXC_ERROR;
2053: else
2046: end if;
2047: if (p_alloc_comp_tbl(i).requested_quantity IS NOT NULL) then
2048: if(p_alloc_comp_tbl(i).requested_quantity > l_linesRec.quantity) then /* Do not allow overpick */
2049: fnd_message.set_name('WIP','WIP_PICKING_OVERPICK_ERROR');
2050: x_msg_data := fnd_message.get;
2051: x_return_status := FND_API.G_RET_STS_ERROR;
2052: raise FND_API.G_EXC_ERROR;
2053: else
2054: l_linesRec.quantity := p_alloc_comp_tbl(i).requested_quantity;
2095: end if;
2096: end if;
2097:
2098: if(nvl(p_print_pick_slip,'T') = 'T') then
2099: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
2100: fnd_message.set_token('REQ_NUMBER',x_conc_req_id);
2101: l_string2 := fnd_message.get;
2102: else
2103: l_string2 := ' ';
2096: end if;
2097:
2098: if(nvl(p_print_pick_slip,'T') = 'T') then
2099: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
2100: fnd_message.set_token('REQ_NUMBER',x_conc_req_id);
2101: l_string2 := fnd_message.get;
2102: else
2103: l_string2 := ' ';
2104: end if;
2097:
2098: if(nvl(p_print_pick_slip,'T') = 'T') then
2099: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
2100: fnd_message.set_token('REQ_NUMBER',x_conc_req_id);
2101: l_string2 := fnd_message.get;
2102: else
2103: l_string2 := ' ';
2104: end if;
2105:
2104: end if;
2105:
2106: if(l_pickStatus = 'P') then --if either the issue or backflush partially allocated
2107: x_return_status := 'P'; --return partial status
2108: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2109: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
2110: l_string1 := fnd_message.get;
2111: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOCATION');
2112: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
2105:
2106: if(l_pickStatus = 'P') then --if either the issue or backflush partially allocated
2107: x_return_status := 'P'; --return partial status
2108: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2109: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
2110: l_string1 := fnd_message.get;
2111: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOCATION');
2112: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
2113: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
2106: if(l_pickStatus = 'P') then --if either the issue or backflush partially allocated
2107: x_return_status := 'P'; --return partial status
2108: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2109: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
2110: l_string1 := fnd_message.get;
2111: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOCATION');
2112: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
2113: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
2114: x_msg_data := fnd_message.get;
2107: x_return_status := 'P'; --return partial status
2108: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2109: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
2110: l_string1 := fnd_message.get;
2111: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOCATION');
2112: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
2113: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
2114: x_msg_data := fnd_message.get;
2115: elsif (l_pickStatus = 'N') then
2108: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2109: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
2110: l_string1 := fnd_message.get;
2111: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOCATION');
2112: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
2113: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
2114: x_msg_data := fnd_message.get;
2115: elsif (l_pickStatus = 'N') then
2116: -- 'N' could also result from l_lineCount = 0, and inv_wip_picking_pvt.release_pick_batch
2109: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
2110: l_string1 := fnd_message.get;
2111: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOCATION');
2112: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
2113: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
2114: x_msg_data := fnd_message.get;
2115: elsif (l_pickStatus = 'N') then
2116: -- 'N' could also result from l_lineCount = 0, and inv_wip_picking_pvt.release_pick_batch
2117: -- was never called
2110: l_string1 := fnd_message.get;
2111: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOCATION');
2112: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
2113: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
2114: x_msg_data := fnd_message.get;
2115: elsif (l_pickStatus = 'N') then
2116: -- 'N' could also result from l_lineCount = 0, and inv_wip_picking_pvt.release_pick_batch
2117: -- was never called
2118: x_return_status := 'N';
2115: elsif (l_pickStatus = 'N') then
2116: -- 'N' could also result from l_lineCount = 0, and inv_wip_picking_pvt.release_pick_batch
2117: -- was never called
2118: x_return_status := 'N';
2119: fnd_message.set_name('WIP','WIP_PICKING_NO_ALLOCATION');
2120: x_msg_data := fnd_message.get;
2121: else
2122: x_return_status := fnd_api.g_ret_sts_success; --above ifs test for other return statuses from inv call
2123: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2116: -- 'N' could also result from l_lineCount = 0, and inv_wip_picking_pvt.release_pick_batch
2117: -- was never called
2118: x_return_status := 'N';
2119: fnd_message.set_name('WIP','WIP_PICKING_NO_ALLOCATION');
2120: x_msg_data := fnd_message.get;
2121: else
2122: x_return_status := fnd_api.g_ret_sts_success; --above ifs test for other return statuses from inv call
2123: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2124: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
2119: fnd_message.set_name('WIP','WIP_PICKING_NO_ALLOCATION');
2120: x_msg_data := fnd_message.get;
2121: else
2122: x_return_status := fnd_api.g_ret_sts_success; --above ifs test for other return statuses from inv call
2123: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2124: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
2125: l_string1 := fnd_message.get;
2126: fnd_message.set_name('WIP','WIP_PICKING_SUCCESS_ALLOCATION');
2127: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
2120: x_msg_data := fnd_message.get;
2121: else
2122: x_return_status := fnd_api.g_ret_sts_success; --above ifs test for other return statuses from inv call
2123: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2124: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
2125: l_string1 := fnd_message.get;
2126: fnd_message.set_name('WIP','WIP_PICKING_SUCCESS_ALLOCATION');
2127: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
2128: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
2121: else
2122: x_return_status := fnd_api.g_ret_sts_success; --above ifs test for other return statuses from inv call
2123: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2124: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
2125: l_string1 := fnd_message.get;
2126: fnd_message.set_name('WIP','WIP_PICKING_SUCCESS_ALLOCATION');
2127: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
2128: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
2129: x_msg_data := fnd_message.get;
2122: x_return_status := fnd_api.g_ret_sts_success; --above ifs test for other return statuses from inv call
2123: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2124: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
2125: l_string1 := fnd_message.get;
2126: fnd_message.set_name('WIP','WIP_PICKING_SUCCESS_ALLOCATION');
2127: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
2128: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
2129: x_msg_data := fnd_message.get;
2130: end if;
2123: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2124: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
2125: l_string1 := fnd_message.get;
2126: fnd_message.set_name('WIP','WIP_PICKING_SUCCESS_ALLOCATION');
2127: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
2128: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
2129: x_msg_data := fnd_message.get;
2130: end if;
2131: x_mo_req_number := l_hdrRec.request_number; /* Added as part of enhancement 2478446 */
2124: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
2125: l_string1 := fnd_message.get;
2126: fnd_message.set_name('WIP','WIP_PICKING_SUCCESS_ALLOCATION');
2127: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
2128: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
2129: x_msg_data := fnd_message.get;
2130: end if;
2131: x_mo_req_number := l_hdrRec.request_number; /* Added as part of enhancement 2478446 */
2132: exception
2125: l_string1 := fnd_message.get;
2126: fnd_message.set_name('WIP','WIP_PICKING_SUCCESS_ALLOCATION');
2127: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
2128: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
2129: x_msg_data := fnd_message.get;
2130: end if;
2131: x_mo_req_number := l_hdrRec.request_number; /* Added as part of enhancement 2478446 */
2132: exception
2133: when FND_API.G_EXC_ERROR then --msg_data, return_status set by inventory calls
2134: ROLLBACK TO WIP_ALLOCATE_COMP_PVT_START;
2135: when RECORDS_LOCKED then
2136: ROLLBACK TO WIP_ALLOCATE_COMP_PVT_START;
2137: x_return_status := 'L';
2138: fnd_message.set_name('FND', 'FORM_UNABLE_TO_RESERVE_RECORD');
2139: x_msg_data := fnd_message.get;
2140: when others then
2141: ROLLBACK TO WIP_ALLOCATE_COMP_PVT_START;
2142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2135: when RECORDS_LOCKED then
2136: ROLLBACK TO WIP_ALLOCATE_COMP_PVT_START;
2137: x_return_status := 'L';
2138: fnd_message.set_name('FND', 'FORM_UNABLE_TO_RESERVE_RECORD');
2139: x_msg_data := fnd_message.get;
2140: when others then
2141: ROLLBACK TO WIP_ALLOCATE_COMP_PVT_START;
2142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2143: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
2139: x_msg_data := fnd_message.get;
2140: when others then
2141: ROLLBACK TO WIP_ALLOCATE_COMP_PVT_START;
2142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2143: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
2144: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pvt.allocate: ' || SQLERRM);
2145: x_msg_data := fnd_message.get;
2146: end allocate_comp;
2147:
2140: when others then
2141: ROLLBACK TO WIP_ALLOCATE_COMP_PVT_START;
2142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2143: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
2144: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pvt.allocate: ' || SQLERRM);
2145: x_msg_data := fnd_message.get;
2146: end allocate_comp;
2147:
2148: --this version is used in the concurrent request
2141: ROLLBACK TO WIP_ALLOCATE_COMP_PVT_START;
2142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2143: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
2144: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pvt.allocate: ' || SQLERRM);
2145: x_msg_data := fnd_message.get;
2146: end allocate_comp;
2147:
2148: --this version is used in the concurrent request
2149: --note the commit at the end of this procedure
2319: else
2320: l_plan_tasks:= FALSE;
2321: end if;
2322:
2323: fnd_message.set_name('FND', 'CONC-PARAMETERS');
2324: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2325:
2326:
2327: select meaning
2320: l_plan_tasks:= FALSE;
2321: end if;
2322:
2323: fnd_message.set_name('FND', 'CONC-PARAMETERS');
2324: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2325:
2326:
2327: select meaning
2328: into l_outBuffer
2329: from mfg_lookups
2330: where lookup_type = 'SYS_YES_NO'
2331: and lookup_code = p_use_pickset_indicator;
2332:
2333: fnd_message.set_name('WIP', 'WIP_PICKING_USE_PICKSETS');
2334: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || l_outBuffer);
2335: /* Added as part of Enhancement#2578514*/
2336: select meaning
2337: into l_outBuffer
2330: where lookup_type = 'SYS_YES_NO'
2331: and lookup_code = p_use_pickset_indicator;
2332:
2333: fnd_message.set_name('WIP', 'WIP_PICKING_USE_PICKSETS');
2334: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || l_outBuffer);
2335: /* Added as part of Enhancement#2578514*/
2336: select meaning
2337: into l_outBuffer
2338: from mfg_lookups
2338: from mfg_lookups
2339: where lookup_type = 'SYS_YES_NO'
2340: and lookup_code = p_print_pickslips;
2341:
2342: fnd_message.set_name('WIP', 'WIP_PICKING_PRINT_PICKSLIPS');
2343: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || l_outBuffer);
2344: /* Added as part of Enhancement#2578514*/
2345: if(p_pick_grouping_rule_id IS NOT NULL) then
2346: select name
2339: where lookup_type = 'SYS_YES_NO'
2340: and lookup_code = p_print_pickslips;
2341:
2342: fnd_message.set_name('WIP', 'WIP_PICKING_PRINT_PICKSLIPS');
2343: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || l_outBuffer);
2344: /* Added as part of Enhancement#2578514*/
2345: if(p_pick_grouping_rule_id IS NOT NULL) then
2346: select name
2347: into l_outBuffer
2347: into l_outBuffer
2348: from wsh_pick_grouping_rules
2349: where pick_grouping_rule_id = p_pick_grouping_rule_id;
2350:
2351: fnd_message.set_name('WIP', 'WIP_PICKING_PICK_GROUPING_RULE');
2352: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || l_outBuffer);
2353: end if;
2354:
2355: /* Added as part of Enhancement#2578514*/
2348: from wsh_pick_grouping_rules
2349: where pick_grouping_rule_id = p_pick_grouping_rule_id;
2350:
2351: fnd_message.set_name('WIP', 'WIP_PICKING_PICK_GROUPING_RULE');
2352: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || l_outBuffer);
2353: end if;
2354:
2355: /* Added as part of Enhancement#2578514*/
2356: select meaning
2358: from mfg_lookups
2359: where lookup_type = 'SYS_YES_NO'
2360: and lookup_code = p_plan_tasks;
2361:
2362: fnd_message.set_name('WIP', 'WIP_PICKING_PLAN_TASKS');
2363: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || l_outBuffer);
2364:
2365: /* Fixed bug 4890898 Changed table from org_organization_definitions to MTL_PARAMETERS */
2366: select organization_code
2359: where lookup_type = 'SYS_YES_NO'
2360: and lookup_code = p_plan_tasks;
2361:
2362: fnd_message.set_name('WIP', 'WIP_PICKING_PLAN_TASKS');
2363: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || l_outBuffer);
2364:
2365: /* Fixed bug 4890898 Changed table from org_organization_definitions to MTL_PARAMETERS */
2366: select organization_code
2367: into l_outBuffer
2367: into l_outBuffer
2368: from MTL_PARAMETERS
2369: where organization_id = p_organization_id;
2370:
2371: fnd_message.set_name('WIP', 'WIP_PICKING_ORG');
2372: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || l_outBuffer);
2373:
2374: fnd_message.set_name('WIP', 'WIP_PICKING_DAYS_FORWARD');
2375: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || p_days_forward);
2368: from MTL_PARAMETERS
2369: where organization_id = p_organization_id;
2370:
2371: fnd_message.set_name('WIP', 'WIP_PICKING_ORG');
2372: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || l_outBuffer);
2373:
2374: fnd_message.set_name('WIP', 'WIP_PICKING_DAYS_FORWARD');
2375: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || p_days_forward);
2376:
2370:
2371: fnd_message.set_name('WIP', 'WIP_PICKING_ORG');
2372: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || l_outBuffer);
2373:
2374: fnd_message.set_name('WIP', 'WIP_PICKING_DAYS_FORWARD');
2375: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || p_days_forward);
2376:
2377: select meaning
2378: into l_outBuffer
2371: fnd_message.set_name('WIP', 'WIP_PICKING_ORG');
2372: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || l_outBuffer);
2373:
2374: fnd_message.set_name('WIP', 'WIP_PICKING_DAYS_FORWARD');
2375: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || p_days_forward);
2376:
2377: select meaning
2378: into l_outBuffer
2379: from mfg_lookups
2379: from mfg_lookups
2380: where lookup_type = 'WIP_ENTITY'
2381: and lookup_code = p_wip_entity_type;
2382:
2383: fnd_message.set_name('WIP', 'WIP_PICKING_MFG_MODE');
2384: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || l_outBuffer);
2385:
2386: /* Bug 6046963: Added below if to print job type parameter in case of Discrete Job Comp Pick Release request only*/
2387: if(p_wip_entity_type = wip_constants.discrete) then
2380: where lookup_type = 'WIP_ENTITY'
2381: and lookup_code = p_wip_entity_type;
2382:
2383: fnd_message.set_name('WIP', 'WIP_PICKING_MFG_MODE');
2384: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || l_outBuffer);
2385:
2386: /* Bug 6046963: Added below if to print job type parameter in case of Discrete Job Comp Pick Release request only*/
2387: if(p_wip_entity_type = wip_constants.discrete) then
2388: /*Start - Bug 5932126 (FP of 5880558): Added following code to print new parameter for job type*/
2391: from mfg_lookups
2392: where lookup_type = 'WIP_ENTITIES'
2393: and lookup_code = p_job_type ;
2394:
2395: fnd_message.set_name('WIP', 'WIP_PICKING_JOB_TYPE');
2396: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || l_outBuffer);
2397: /*End - Bug 5932126 (FP of 5880558): Added code to print new parameter for job type*/
2398: end if;
2399:
2392: where lookup_type = 'WIP_ENTITIES'
2393: and lookup_code = p_job_type ;
2394:
2395: fnd_message.set_name('WIP', 'WIP_PICKING_JOB_TYPE');
2396: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || l_outBuffer);
2397: /*End - Bug 5932126 (FP of 5880558): Added code to print new parameter for job type*/
2398: end if;
2399:
2400: fnd_file.put_line(which => fnd_file.output, buff => '');
2448: x_return_status => l_returnStatus,
2449: x_msg_data => errbuf);
2450:
2451: if(l_returnStatus = 'P') then
2452: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2453: fnd_message.set_token('MO_NUMBER',l_mo_req_number);
2454: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2455: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOC_CONC');
2456: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2449: x_msg_data => errbuf);
2450:
2451: if(l_returnStatus = 'P') then
2452: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2453: fnd_message.set_token('MO_NUMBER',l_mo_req_number);
2454: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2455: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOC_CONC');
2456: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2457: if(l_print_pickslips = 'T') then
2450:
2451: if(l_returnStatus = 'P') then
2452: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2453: fnd_message.set_token('MO_NUMBER',l_mo_req_number);
2454: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2455: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOC_CONC');
2456: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2457: if(l_print_pickslips = 'T') then
2458: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
2451: if(l_returnStatus = 'P') then
2452: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2453: fnd_message.set_token('MO_NUMBER',l_mo_req_number);
2454: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2455: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOC_CONC');
2456: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2457: if(l_print_pickslips = 'T') then
2458: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
2459: fnd_message.set_token('REQ_NUMBER',l_conc_req_id);
2452: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2453: fnd_message.set_token('MO_NUMBER',l_mo_req_number);
2454: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2455: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOC_CONC');
2456: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2457: if(l_print_pickslips = 'T') then
2458: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
2459: fnd_message.set_token('REQ_NUMBER',l_conc_req_id);
2460: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2454: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2455: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOC_CONC');
2456: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2457: if(l_print_pickslips = 'T') then
2458: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
2459: fnd_message.set_token('REQ_NUMBER',l_conc_req_id);
2460: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2461: end if;
2462:
2455: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOC_CONC');
2456: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2457: if(l_print_pickslips = 'T') then
2458: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
2459: fnd_message.set_token('REQ_NUMBER',l_conc_req_id);
2460: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2461: end if;
2462:
2463: elsif(l_returnStatus = 'S') then
2456: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2457: if(l_print_pickslips = 'T') then
2458: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
2459: fnd_message.set_token('REQ_NUMBER',l_conc_req_id);
2460: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2461: end if;
2462:
2463: elsif(l_returnStatus = 'S') then
2464: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2460: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2461: end if;
2462:
2463: elsif(l_returnStatus = 'S') then
2464: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2465: fnd_message.set_token('MO_NUMBER',l_mo_req_number);
2466: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2467: if(l_print_pickslips = 'T') then
2468: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
2461: end if;
2462:
2463: elsif(l_returnStatus = 'S') then
2464: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2465: fnd_message.set_token('MO_NUMBER',l_mo_req_number);
2466: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2467: if(l_print_pickslips = 'T') then
2468: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
2469: fnd_message.set_token('REQ_NUMBER',l_conc_req_id);
2462:
2463: elsif(l_returnStatus = 'S') then
2464: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2465: fnd_message.set_token('MO_NUMBER',l_mo_req_number);
2466: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2467: if(l_print_pickslips = 'T') then
2468: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
2469: fnd_message.set_token('REQ_NUMBER',l_conc_req_id);
2470: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2464: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2465: fnd_message.set_token('MO_NUMBER',l_mo_req_number);
2466: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2467: if(l_print_pickslips = 'T') then
2468: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
2469: fnd_message.set_token('REQ_NUMBER',l_conc_req_id);
2470: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2471: end if;
2472: fnd_message.set_name('WIP', 'WIP_TXN_COMPLETED');
2465: fnd_message.set_token('MO_NUMBER',l_mo_req_number);
2466: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2467: if(l_print_pickslips = 'T') then
2468: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
2469: fnd_message.set_token('REQ_NUMBER',l_conc_req_id);
2470: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2471: end if;
2472: fnd_message.set_name('WIP', 'WIP_TXN_COMPLETED');
2473: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2466: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2467: if(l_print_pickslips = 'T') then
2468: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
2469: fnd_message.set_token('REQ_NUMBER',l_conc_req_id);
2470: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2471: end if;
2472: fnd_message.set_name('WIP', 'WIP_TXN_COMPLETED');
2473: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2474:
2468: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
2469: fnd_message.set_token('REQ_NUMBER',l_conc_req_id);
2470: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2471: end if;
2472: fnd_message.set_name('WIP', 'WIP_TXN_COMPLETED');
2473: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2474:
2475: elsif(l_returnStatus = 'N') then
2476: fnd_message.set_name('WIP','WIP_PICKING_NO_ALLOCATION_CONC');
2469: fnd_message.set_token('REQ_NUMBER',l_conc_req_id);
2470: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2471: end if;
2472: fnd_message.set_name('WIP', 'WIP_TXN_COMPLETED');
2473: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2474:
2475: elsif(l_returnStatus = 'N') then
2476: fnd_message.set_name('WIP','WIP_PICKING_NO_ALLOCATION_CONC');
2477: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2472: fnd_message.set_name('WIP', 'WIP_TXN_COMPLETED');
2473: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2474:
2475: elsif(l_returnStatus = 'N') then
2476: fnd_message.set_name('WIP','WIP_PICKING_NO_ALLOCATION_CONC');
2477: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2478:
2479: else
2480: fnd_file.put_line(which => fnd_file.output, buff => '');
2473: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2474:
2475: elsif(l_returnStatus = 'N') then
2476: fnd_message.set_name('WIP','WIP_PICKING_NO_ALLOCATION_CONC');
2477: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2478:
2479: else
2480: fnd_file.put_line(which => fnd_file.output, buff => '');
2481: fnd_message.set_name('WIP', 'ERROR_DIALOG_TITLE');
2477: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2478:
2479: else
2480: fnd_file.put_line(which => fnd_file.output, buff => '');
2481: fnd_message.set_name('WIP', 'ERROR_DIALOG_TITLE');
2482: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2483: fnd_file.put_line(which => fnd_file.output,
2484: buff => 'Returned status: ' || l_returnStatus);
2485: fnd_file.put_line(which => fnd_file.output,
2478:
2479: else
2480: fnd_file.put_line(which => fnd_file.output, buff => '');
2481: fnd_message.set_name('WIP', 'ERROR_DIALOG_TITLE');
2482: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2483: fnd_file.put_line(which => fnd_file.output,
2484: buff => 'Returned status: ' || l_returnStatus);
2485: fnd_file.put_line(which => fnd_file.output,
2486: buff => 'Returned message: ' || errbuf);
2503: errbuf := SQLERRM;
2504: retcode := 2;
2505: fnd_file.put_line(which => fnd_file.output, buff => '');
2506: fnd_file.put_line(which => fnd_file.output, buff => '');
2507: fnd_message.set_name('WIP', 'ERROR_DIALOG_TITLE');
2508: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2509: for i in 1..l_msgCount loop
2510: fnd_file.put_line(which => fnd_file.output, buff => fnd_msg_pub.get(p_msg_index => l_msgCount - i + 1, p_encoded => fnd_api.g_false));
2511: end loop;
2504: retcode := 2;
2505: fnd_file.put_line(which => fnd_file.output, buff => '');
2506: fnd_file.put_line(which => fnd_file.output, buff => '');
2507: fnd_message.set_name('WIP', 'ERROR_DIALOG_TITLE');
2508: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2509: for i in 1..l_msgCount loop
2510: fnd_file.put_line(which => fnd_file.output, buff => fnd_msg_pub.get(p_msg_index => l_msgCount - i + 1, p_encoded => fnd_api.g_false));
2511: end loop;
2512: rollback to wip_allocate_concurrent;
2740:
2741: EXCEPTION
2742: when RECORDS_LOCKED then
2743: x_return_status := 'L';
2744: fnd_message.set_name('FND', 'FORM_UNABLE_TO_RESERVE_RECORD');
2745: x_msg_data := fnd_message.get;
2746: if (l_logLevel <= wip_constants.trace_logging) then
2747: wip_logger.log( x_msg_data, l_dummy2);
2748: wip_logger.cleanup(l_dummy2);
2741: EXCEPTION
2742: when RECORDS_LOCKED then
2743: x_return_status := 'L';
2744: fnd_message.set_name('FND', 'FORM_UNABLE_TO_RESERVE_RECORD');
2745: x_msg_data := fnd_message.get;
2746: if (l_logLevel <= wip_constants.trace_logging) then
2747: wip_logger.log( x_msg_data, l_dummy2);
2748: wip_logger.cleanup(l_dummy2);
2749: end if;
2748: wip_logger.cleanup(l_dummy2);
2749: end if;
2750: when others then
2751: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2752: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
2753: fnd_message.set_token('ERROR_TEXT', 'WIP_EXPLODER_UTITLITIES.Post_Explosion_CleanUp:'
2754: || SQLERRM);
2755: x_msg_data := fnd_message.get;
2756: if (l_logLevel <= wip_constants.trace_logging) then
2749: end if;
2750: when others then
2751: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2752: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
2753: fnd_message.set_token('ERROR_TEXT', 'WIP_EXPLODER_UTITLITIES.Post_Explosion_CleanUp:'
2754: || SQLERRM);
2755: x_msg_data := fnd_message.get;
2756: if (l_logLevel <= wip_constants.trace_logging) then
2757: wip_logger.log( x_msg_data, l_dummy2);
2751: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2752: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
2753: fnd_message.set_token('ERROR_TEXT', 'WIP_EXPLODER_UTITLITIES.Post_Explosion_CleanUp:'
2754: || SQLERRM);
2755: x_msg_data := fnd_message.get;
2756: if (l_logLevel <= wip_constants.trace_logging) then
2757: wip_logger.log( x_msg_data, l_dummy2);
2758: wip_logger.cleanup(l_dummy2);
2759: end if;