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,
157: wip_constants.repetitive,
158: wip_constants.flow,
159: wip_constants.eam)) then
160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
161: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
162: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.Incorrect Entity type passed');
163: x_msg_data := fnd_message.get;
164: return ;
165: end if ;
158: wip_constants.flow,
159: wip_constants.eam)) then
160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
161: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
162: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.Incorrect Entity type passed');
163: x_msg_data := fnd_message.get;
164: return ;
165: end if ;
166:
159: wip_constants.eam)) then
160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
161: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
162: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.Incorrect Entity type passed');
163: x_msg_data := fnd_message.get;
164: return ;
165: end if ;
166:
167: SAVEPOINT WIP_CANCEL_ALLOCS_START;
248: close c_flowLines;
249: end if;
250: ROLLBACK TO WIP_CANCEL_ALLOCS_START;
251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
252: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
253: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.cancel_allocations: ' || SQLERRM);
254: x_msg_data := fnd_message.get;
255: end cancel_allocations;
256:
249: end if;
250: ROLLBACK TO WIP_CANCEL_ALLOCS_START;
251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
252: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
253: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.cancel_allocations: ' || SQLERRM);
254: x_msg_data := fnd_message.get;
255: end cancel_allocations;
256:
257:
250: ROLLBACK TO WIP_CANCEL_ALLOCS_START;
251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
252: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
253: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.cancel_allocations: ' || SQLERRM);
254: x_msg_data := fnd_message.get;
255: end cancel_allocations;
256:
257:
258: Procedure cancel_comp_allocations(p_wip_entity_id NUMBER,
389: close c_repLines;
390: end if;
391: ROLLBACK TO WIP_CANCEL_COMP_ALLOCS_START;
392: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
393: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
394: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.cancel_comp_allocations: ' || SQLERRM);
395: x_msg_data := fnd_message.get;
396: END cancel_comp_allocations;
397:
390: end if;
391: ROLLBACK TO WIP_CANCEL_COMP_ALLOCS_START;
392: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
393: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
394: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.cancel_comp_allocations: ' || SQLERRM);
395: x_msg_data := fnd_message.get;
396: END cancel_comp_allocations;
397:
398: Procedure cancel_MO_line(p_lineId IN NUMBER,
391: ROLLBACK TO WIP_CANCEL_COMP_ALLOCS_START;
392: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
393: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
394: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.cancel_comp_allocations: ' || SQLERRM);
395: x_msg_data := fnd_message.get;
396: END cancel_comp_allocations;
397:
398: Procedure cancel_MO_line(p_lineId IN NUMBER,
399: p_rowId ROWID,
526: end Loop; /* End of MO lines loop */
527:
528: if(l_reductionQty <> 0) then /* if requested quantity is more than total allocated quantity */
529: x_return_status := 'P'; /*then, return a warning message that only allocated quantity has been reduced*/
530: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_REDUCTION');
531: x_msg_data := fnd_message.get;
532: end if;
533:
534: if(c_discLines%ISOPEN) then
527:
528: if(l_reductionQty <> 0) then /* if requested quantity is more than total allocated quantity */
529: x_return_status := 'P'; /*then, return a warning message that only allocated quantity has been reduced*/
530: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_REDUCTION');
531: x_msg_data := fnd_message.get;
532: end if;
533:
534: if(c_discLines%ISOPEN) then
535: close c_discLines;
566: close c_repLines;
567: end if;
568: ROLLBACK TO WIP_REDUCE_COMP_ALLOCS_START;
569: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
570: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
571: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.cancel_allocations: ' || SQLERRM);
572: x_msg_data := fnd_message.get;
573: END reduce_comp_allocations;
574:
567: end if;
568: ROLLBACK TO WIP_REDUCE_COMP_ALLOCS_START;
569: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
570: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
571: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.cancel_allocations: ' || SQLERRM);
572: x_msg_data := fnd_message.get;
573: END reduce_comp_allocations;
574:
575:
568: ROLLBACK TO WIP_REDUCE_COMP_ALLOCS_START;
569: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
570: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
571: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.cancel_allocations: ' || SQLERRM);
572: x_msg_data := fnd_message.get;
573: END reduce_comp_allocations;
574:
575:
576:
673: close c_repLines;
674: end if;
675: ROLLBACK TO WIP_UPDATE_ALLOCS_START;
676: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
677: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
678: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.update_allocation_op_seqs: ' || SQLERRM);
679: end update_allocation_op_seqs;
680:
681: /* Starting for p_index element of p_alloc_tbl, find number of consective flow schedules
674: end if;
675: ROLLBACK TO WIP_UPDATE_ALLOCS_START;
676: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
677: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
678: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.update_allocation_op_seqs: ' || SQLERRM);
679: end update_allocation_op_seqs;
680:
681: /* Starting for p_index element of p_alloc_tbl, find number of consective flow schedules
682: that contain the same assembly, assembly qty, and required date. This number allows
1320: end if;
1321:
1322: else -- if(p_wip_entity_type = l_disc)
1323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1324: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
1325: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pvt.allocate: invalid entity_type' );
1326: x_msg_data := fnd_message.get;
1327: return;
1328: end if;
1321:
1322: else -- if(p_wip_entity_type = l_disc)
1323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1324: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
1325: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pvt.allocate: invalid entity_type' );
1326: x_msg_data := fnd_message.get;
1327: return;
1328: end if;
1329:
1322: else -- if(p_wip_entity_type = l_disc)
1323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1324: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
1325: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pvt.allocate: invalid entity_type' );
1326: x_msg_data := fnd_message.get;
1327: return;
1328: end if;
1329:
1330: /* Added as part of Enhancement#2578514*/
1580: || x_msg_data, l_dummy2);
1581: end if;
1582:
1583: if(nvl(p_print_pick_slip,'T') = 'T') then
1584: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
1585: fnd_message.set_token('REQ_NUMBER',x_conc_req_id);
1586: l_string2 := fnd_message.get;
1587: else
1588: l_string2 := ' ';
1581: end if;
1582:
1583: if(nvl(p_print_pick_slip,'T') = 'T') then
1584: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
1585: fnd_message.set_token('REQ_NUMBER',x_conc_req_id);
1586: l_string2 := fnd_message.get;
1587: else
1588: l_string2 := ' ';
1589: end if;
1582:
1583: if(nvl(p_print_pick_slip,'T') = 'T') then
1584: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
1585: fnd_message.set_token('REQ_NUMBER',x_conc_req_id);
1586: l_string2 := fnd_message.get;
1587: else
1588: l_string2 := ' ';
1589: end if;
1590: 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
1588: l_string2 := ' ';
1589: end if;
1590: 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
1591: x_return_status := 'P'; --return partial status
1592: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
1593: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
1594: l_string1 := fnd_message.get;
1595: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOCATION');
1596: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
1589: end if;
1590: 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
1591: x_return_status := 'P'; --return partial status
1592: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
1593: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
1594: l_string1 := fnd_message.get;
1595: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOCATION');
1596: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
1597: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
1590: 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
1591: x_return_status := 'P'; --return partial status
1592: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
1593: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
1594: l_string1 := fnd_message.get;
1595: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOCATION');
1596: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
1597: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
1598: x_msg_data := fnd_message.get;
1591: x_return_status := 'P'; --return partial status
1592: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
1593: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
1594: l_string1 := fnd_message.get;
1595: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOCATION');
1596: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
1597: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
1598: x_msg_data := fnd_message.get;
1599: elsif (l_pickStatus = 'N') then
1592: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
1593: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
1594: l_string1 := fnd_message.get;
1595: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOCATION');
1596: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
1597: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
1598: x_msg_data := fnd_message.get;
1599: elsif (l_pickStatus = 'N') then
1600: -- 'N' could also result from l_lineCount = 0, and inv_wip_picking_pvt.release_pick_batch
1593: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
1594: l_string1 := fnd_message.get;
1595: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOCATION');
1596: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
1597: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
1598: x_msg_data := fnd_message.get;
1599: elsif (l_pickStatus = 'N') then
1600: -- 'N' could also result from l_lineCount = 0, and inv_wip_picking_pvt.release_pick_batch
1601: -- was never called
1594: l_string1 := fnd_message.get;
1595: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOCATION');
1596: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
1597: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
1598: x_msg_data := fnd_message.get;
1599: elsif (l_pickStatus = 'N') then
1600: -- 'N' could also result from l_lineCount = 0, and inv_wip_picking_pvt.release_pick_batch
1601: -- was never called
1602: x_return_status := 'N';
1599: elsif (l_pickStatus = 'N') then
1600: -- 'N' could also result from l_lineCount = 0, and inv_wip_picking_pvt.release_pick_batch
1601: -- was never called
1602: x_return_status := 'N';
1603: fnd_message.set_name('WIP','WIP_PICKING_NO_ALLOCATION');
1604: x_msg_data := fnd_message.get;
1605: else
1606: x_return_status := fnd_api.g_ret_sts_success; --above ifs test for other return statuses from inv call
1607: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
1600: -- 'N' could also result from l_lineCount = 0, and inv_wip_picking_pvt.release_pick_batch
1601: -- was never called
1602: x_return_status := 'N';
1603: fnd_message.set_name('WIP','WIP_PICKING_NO_ALLOCATION');
1604: x_msg_data := fnd_message.get;
1605: else
1606: x_return_status := fnd_api.g_ret_sts_success; --above ifs test for other return statuses from inv call
1607: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
1608: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
1603: fnd_message.set_name('WIP','WIP_PICKING_NO_ALLOCATION');
1604: x_msg_data := fnd_message.get;
1605: else
1606: x_return_status := fnd_api.g_ret_sts_success; --above ifs test for other return statuses from inv call
1607: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
1608: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
1609: l_string1 := fnd_message.get;
1610: fnd_message.set_name('WIP','WIP_PICKING_SUCCESS_ALLOCATION');
1611: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
1604: x_msg_data := fnd_message.get;
1605: else
1606: x_return_status := fnd_api.g_ret_sts_success; --above ifs test for other return statuses from inv call
1607: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
1608: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
1609: l_string1 := fnd_message.get;
1610: fnd_message.set_name('WIP','WIP_PICKING_SUCCESS_ALLOCATION');
1611: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
1612: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
1605: else
1606: x_return_status := fnd_api.g_ret_sts_success; --above ifs test for other return statuses from inv call
1607: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
1608: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
1609: l_string1 := fnd_message.get;
1610: fnd_message.set_name('WIP','WIP_PICKING_SUCCESS_ALLOCATION');
1611: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
1612: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
1613: x_msg_data := fnd_message.get;
1606: x_return_status := fnd_api.g_ret_sts_success; --above ifs test for other return statuses from inv call
1607: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
1608: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
1609: l_string1 := fnd_message.get;
1610: fnd_message.set_name('WIP','WIP_PICKING_SUCCESS_ALLOCATION');
1611: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
1612: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
1613: x_msg_data := fnd_message.get;
1614: end if;
1607: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
1608: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
1609: l_string1 := fnd_message.get;
1610: fnd_message.set_name('WIP','WIP_PICKING_SUCCESS_ALLOCATION');
1611: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
1612: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
1613: x_msg_data := fnd_message.get;
1614: end if;
1615: x_mo_req_number := l_hdrRec.request_number; /* Added as part of enhancement 2478446 */
1608: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
1609: l_string1 := fnd_message.get;
1610: fnd_message.set_name('WIP','WIP_PICKING_SUCCESS_ALLOCATION');
1611: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
1612: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
1613: x_msg_data := fnd_message.get;
1614: end if;
1615: x_mo_req_number := l_hdrRec.request_number; /* Added as part of enhancement 2478446 */
1616:
1609: l_string1 := fnd_message.get;
1610: fnd_message.set_name('WIP','WIP_PICKING_SUCCESS_ALLOCATION');
1611: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
1612: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
1613: x_msg_data := fnd_message.get;
1614: end if;
1615: x_mo_req_number := l_hdrRec.request_number; /* Added as part of enhancement 2478446 */
1616:
1617: if (l_logLevel <= wip_constants.trace_logging) then
1627: end if;
1628: when RECORDS_LOCKED then
1629: -- ROLLBACK TO WIP_ALLOCATE_PVT_START; -- Fix bug 4341138
1630: x_return_status := 'L';
1631: fnd_message.set_name('FND', 'FORM_UNABLE_TO_RESERVE_RECORD');
1632: x_msg_data := fnd_message.get;
1633: if (l_logLevel <= wip_constants.trace_logging) then
1634: wip_logger.log(x_msg_data, l_dummy2);
1635: wip_logger.cleanup(l_dummy2);
1628: when RECORDS_LOCKED then
1629: -- ROLLBACK TO WIP_ALLOCATE_PVT_START; -- Fix bug 4341138
1630: x_return_status := 'L';
1631: fnd_message.set_name('FND', 'FORM_UNABLE_TO_RESERVE_RECORD');
1632: x_msg_data := fnd_message.get;
1633: if (l_logLevel <= wip_constants.trace_logging) then
1634: wip_logger.log(x_msg_data, l_dummy2);
1635: wip_logger.cleanup(l_dummy2);
1636: end if;
1636: end if;
1637: when others then
1638: -- ROLLBACK TO WIP_ALLOCATE_PVT_START; -- Fix bug 4341138
1639: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1640: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
1641: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pvt.allocate: ' || SQLERRM);
1642: x_msg_data := fnd_message.get;
1643: if (l_logLevel <= wip_constants.trace_logging) then
1644: wip_logger.log(x_msg_data, l_dummy2);
1637: when others then
1638: -- ROLLBACK TO WIP_ALLOCATE_PVT_START; -- Fix bug 4341138
1639: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1640: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
1641: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pvt.allocate: ' || SQLERRM);
1642: x_msg_data := fnd_message.get;
1643: if (l_logLevel <= wip_constants.trace_logging) then
1644: wip_logger.log(x_msg_data, l_dummy2);
1645: wip_logger.cleanup(l_dummy2);
1638: -- ROLLBACK TO WIP_ALLOCATE_PVT_START; -- Fix bug 4341138
1639: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1640: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
1641: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pvt.allocate: ' || SQLERRM);
1642: x_msg_data := fnd_message.get;
1643: if (l_logLevel <= wip_constants.trace_logging) then
1644: wip_logger.log(x_msg_data, l_dummy2);
1645: wip_logger.cleanup(l_dummy2);
1646: end if;
1713: from wip_parameters
1714: where organization_id = p_organization_id;
1715:
1716: if(l_pick_grouping_rule_id IS NULL) then
1717: fnd_message.set_name('WIP','WIP_PICKING_EAM_PICKSLIP_ERROR');
1718: x_msg_data := fnd_message.get;
1719: x_return_status := FND_API.G_RET_STS_ERROR;
1720: raise FND_API.G_EXC_ERROR;
1721: else
1714: where organization_id = p_organization_id;
1715:
1716: if(l_pick_grouping_rule_id IS NULL) then
1717: fnd_message.set_name('WIP','WIP_PICKING_EAM_PICKSLIP_ERROR');
1718: x_msg_data := fnd_message.get;
1719: x_return_status := FND_API.G_RET_STS_ERROR;
1720: raise FND_API.G_EXC_ERROR;
1721: else
1722: p_hdrRec.grouping_rule_id := l_pick_grouping_rule_id;
1805: ROLLBACK TO GET_HDR_LINES_START;
1806: when others then
1807: ROLLBACK TO GET_HDR_LINES_START;
1808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1809: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
1810: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pvt.get_HdrLinesRec: ' || SQLERRM);
1811: x_msg_data := fnd_message.get;
1812:
1813:
1806: when others then
1807: ROLLBACK TO GET_HDR_LINES_START;
1808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1809: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
1810: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pvt.get_HdrLinesRec: ' || SQLERRM);
1811: x_msg_data := fnd_message.get;
1812:
1813:
1814: end get_HdrLinesRec;
1807: ROLLBACK TO GET_HDR_LINES_START;
1808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1809: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
1810: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pvt.get_HdrLinesRec: ' || SQLERRM);
1811: x_msg_data := fnd_message.get;
1812:
1813:
1814: end get_HdrLinesRec;
1815:
2083: raise FND_API.G_EXC_ERROR;
2084: end if;
2085: if (p_alloc_comp_tbl(i).requested_quantity IS NOT NULL) then
2086: if(p_alloc_comp_tbl(i).requested_quantity > l_linesRec.quantity) then /* Do not allow overpick */
2087: fnd_message.set_name('WIP','WIP_PICKING_OVERPICK_ERROR');
2088: x_msg_data := fnd_message.get;
2089: x_return_status := FND_API.G_RET_STS_ERROR;
2090: raise FND_API.G_EXC_ERROR;
2091: else
2084: end if;
2085: if (p_alloc_comp_tbl(i).requested_quantity IS NOT NULL) then
2086: if(p_alloc_comp_tbl(i).requested_quantity > l_linesRec.quantity) then /* Do not allow overpick */
2087: fnd_message.set_name('WIP','WIP_PICKING_OVERPICK_ERROR');
2088: x_msg_data := fnd_message.get;
2089: x_return_status := FND_API.G_RET_STS_ERROR;
2090: raise FND_API.G_EXC_ERROR;
2091: else
2092: l_linesRec.quantity := p_alloc_comp_tbl(i).requested_quantity;
2133: end if;
2134: end if;
2135:
2136: if(nvl(p_print_pick_slip,'T') = 'T') then
2137: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
2138: fnd_message.set_token('REQ_NUMBER',x_conc_req_id);
2139: l_string2 := fnd_message.get;
2140: else
2141: l_string2 := ' ';
2134: end if;
2135:
2136: if(nvl(p_print_pick_slip,'T') = 'T') then
2137: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
2138: fnd_message.set_token('REQ_NUMBER',x_conc_req_id);
2139: l_string2 := fnd_message.get;
2140: else
2141: l_string2 := ' ';
2142: end if;
2135:
2136: if(nvl(p_print_pick_slip,'T') = 'T') then
2137: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
2138: fnd_message.set_token('REQ_NUMBER',x_conc_req_id);
2139: l_string2 := fnd_message.get;
2140: else
2141: l_string2 := ' ';
2142: end if;
2143:
2142: end if;
2143:
2144: if(l_pickStatus = 'P') then --if either the issue or backflush partially allocated
2145: x_return_status := 'P'; --return partial status
2146: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2147: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
2148: l_string1 := fnd_message.get;
2149: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOCATION');
2150: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
2143:
2144: if(l_pickStatus = 'P') then --if either the issue or backflush partially allocated
2145: x_return_status := 'P'; --return partial status
2146: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2147: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
2148: l_string1 := fnd_message.get;
2149: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOCATION');
2150: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
2151: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
2144: if(l_pickStatus = 'P') then --if either the issue or backflush partially allocated
2145: x_return_status := 'P'; --return partial status
2146: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2147: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
2148: l_string1 := fnd_message.get;
2149: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOCATION');
2150: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
2151: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
2152: x_msg_data := fnd_message.get;
2145: x_return_status := 'P'; --return partial status
2146: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2147: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
2148: l_string1 := fnd_message.get;
2149: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOCATION');
2150: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
2151: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
2152: x_msg_data := fnd_message.get;
2153: elsif (l_pickStatus = 'N') then
2146: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2147: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
2148: l_string1 := fnd_message.get;
2149: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOCATION');
2150: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
2151: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
2152: x_msg_data := fnd_message.get;
2153: elsif (l_pickStatus = 'N') then
2154: -- 'N' could also result from l_lineCount = 0, and inv_wip_picking_pvt.release_pick_batch
2147: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
2148: l_string1 := fnd_message.get;
2149: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOCATION');
2150: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
2151: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
2152: x_msg_data := fnd_message.get;
2153: elsif (l_pickStatus = 'N') then
2154: -- 'N' could also result from l_lineCount = 0, and inv_wip_picking_pvt.release_pick_batch
2155: -- was never called
2148: l_string1 := fnd_message.get;
2149: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOCATION');
2150: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
2151: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
2152: x_msg_data := fnd_message.get;
2153: elsif (l_pickStatus = 'N') then
2154: -- 'N' could also result from l_lineCount = 0, and inv_wip_picking_pvt.release_pick_batch
2155: -- was never called
2156: x_return_status := 'N';
2153: elsif (l_pickStatus = 'N') then
2154: -- 'N' could also result from l_lineCount = 0, and inv_wip_picking_pvt.release_pick_batch
2155: -- was never called
2156: x_return_status := 'N';
2157: fnd_message.set_name('WIP','WIP_PICKING_NO_ALLOCATION');
2158: x_msg_data := fnd_message.get;
2159: else
2160: x_return_status := fnd_api.g_ret_sts_success; --above ifs test for other return statuses from inv call
2161: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2154: -- 'N' could also result from l_lineCount = 0, and inv_wip_picking_pvt.release_pick_batch
2155: -- was never called
2156: x_return_status := 'N';
2157: fnd_message.set_name('WIP','WIP_PICKING_NO_ALLOCATION');
2158: x_msg_data := fnd_message.get;
2159: else
2160: x_return_status := fnd_api.g_ret_sts_success; --above ifs test for other return statuses from inv call
2161: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2162: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
2157: fnd_message.set_name('WIP','WIP_PICKING_NO_ALLOCATION');
2158: x_msg_data := fnd_message.get;
2159: else
2160: x_return_status := fnd_api.g_ret_sts_success; --above ifs test for other return statuses from inv call
2161: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2162: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
2163: l_string1 := fnd_message.get;
2164: fnd_message.set_name('WIP','WIP_PICKING_SUCCESS_ALLOCATION');
2165: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
2158: x_msg_data := fnd_message.get;
2159: else
2160: x_return_status := fnd_api.g_ret_sts_success; --above ifs test for other return statuses from inv call
2161: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2162: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
2163: l_string1 := fnd_message.get;
2164: fnd_message.set_name('WIP','WIP_PICKING_SUCCESS_ALLOCATION');
2165: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
2166: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
2159: else
2160: x_return_status := fnd_api.g_ret_sts_success; --above ifs test for other return statuses from inv call
2161: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2162: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
2163: l_string1 := fnd_message.get;
2164: fnd_message.set_name('WIP','WIP_PICKING_SUCCESS_ALLOCATION');
2165: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
2166: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
2167: x_msg_data := fnd_message.get;
2160: x_return_status := fnd_api.g_ret_sts_success; --above ifs test for other return statuses from inv call
2161: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2162: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
2163: l_string1 := fnd_message.get;
2164: fnd_message.set_name('WIP','WIP_PICKING_SUCCESS_ALLOCATION');
2165: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
2166: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
2167: x_msg_data := fnd_message.get;
2168: end if;
2161: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2162: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
2163: l_string1 := fnd_message.get;
2164: fnd_message.set_name('WIP','WIP_PICKING_SUCCESS_ALLOCATION');
2165: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
2166: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
2167: x_msg_data := fnd_message.get;
2168: end if;
2169: x_mo_req_number := l_hdrRec.request_number; /* Added as part of enhancement 2478446 */
2162: fnd_message.set_token('MO_NUMBER',l_hdrRec.request_number);
2163: l_string1 := fnd_message.get;
2164: fnd_message.set_name('WIP','WIP_PICKING_SUCCESS_ALLOCATION');
2165: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
2166: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
2167: x_msg_data := fnd_message.get;
2168: end if;
2169: x_mo_req_number := l_hdrRec.request_number; /* Added as part of enhancement 2478446 */
2170: exception
2163: l_string1 := fnd_message.get;
2164: fnd_message.set_name('WIP','WIP_PICKING_SUCCESS_ALLOCATION');
2165: fnd_message.set_token('WIP_PICKING_MO_NUMBER', l_string1);
2166: fnd_message.set_token('WIP_PICKING_PRINT_SLIP', l_string2);
2167: x_msg_data := fnd_message.get;
2168: end if;
2169: x_mo_req_number := l_hdrRec.request_number; /* Added as part of enhancement 2478446 */
2170: exception
2171: when FND_API.G_EXC_ERROR then --msg_data, return_status set by inventory calls
2172: ROLLBACK TO WIP_ALLOCATE_COMP_PVT_START;
2173: when RECORDS_LOCKED then
2174: ROLLBACK TO WIP_ALLOCATE_COMP_PVT_START;
2175: x_return_status := 'L';
2176: fnd_message.set_name('FND', 'FORM_UNABLE_TO_RESERVE_RECORD');
2177: x_msg_data := fnd_message.get;
2178: when others then
2179: ROLLBACK TO WIP_ALLOCATE_COMP_PVT_START;
2180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2173: when RECORDS_LOCKED then
2174: ROLLBACK TO WIP_ALLOCATE_COMP_PVT_START;
2175: x_return_status := 'L';
2176: fnd_message.set_name('FND', 'FORM_UNABLE_TO_RESERVE_RECORD');
2177: x_msg_data := fnd_message.get;
2178: when others then
2179: ROLLBACK TO WIP_ALLOCATE_COMP_PVT_START;
2180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2181: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
2177: x_msg_data := fnd_message.get;
2178: when others then
2179: ROLLBACK TO WIP_ALLOCATE_COMP_PVT_START;
2180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2181: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
2182: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pvt.allocate: ' || SQLERRM);
2183: x_msg_data := fnd_message.get;
2184: end allocate_comp;
2185:
2178: when others then
2179: ROLLBACK TO WIP_ALLOCATE_COMP_PVT_START;
2180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2181: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
2182: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pvt.allocate: ' || SQLERRM);
2183: x_msg_data := fnd_message.get;
2184: end allocate_comp;
2185:
2186: --this version is used in the concurrent request
2179: ROLLBACK TO WIP_ALLOCATE_COMP_PVT_START;
2180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2181: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
2182: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pvt.allocate: ' || SQLERRM);
2183: x_msg_data := fnd_message.get;
2184: end allocate_comp;
2185:
2186: --this version is used in the concurrent request
2187: --note the commit at the end of this procedure
2415: else
2416: l_plan_tasks:= FALSE;
2417: end if;
2418:
2419: fnd_message.set_name('FND', 'CONC-PARAMETERS');
2420: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2421:
2422:
2423: select meaning
2416: l_plan_tasks:= FALSE;
2417: end if;
2418:
2419: fnd_message.set_name('FND', 'CONC-PARAMETERS');
2420: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2421:
2422:
2423: select meaning
2424: into l_outBuffer
2425: from mfg_lookups
2426: where lookup_type = 'SYS_YES_NO'
2427: and lookup_code = p_use_pickset_indicator;
2428:
2429: fnd_message.set_name('WIP', 'WIP_PICKING_USE_PICKSETS');
2430: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || l_outBuffer);
2431: /* Added as part of Enhancement#2578514*/
2432: select meaning
2433: into l_outBuffer
2426: where lookup_type = 'SYS_YES_NO'
2427: and lookup_code = p_use_pickset_indicator;
2428:
2429: fnd_message.set_name('WIP', 'WIP_PICKING_USE_PICKSETS');
2430: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || l_outBuffer);
2431: /* Added as part of Enhancement#2578514*/
2432: select meaning
2433: into l_outBuffer
2434: from mfg_lookups
2434: from mfg_lookups
2435: where lookup_type = 'SYS_YES_NO'
2436: and lookup_code = p_print_pickslips;
2437:
2438: fnd_message.set_name('WIP', 'WIP_PICKING_PRINT_PICKSLIPS');
2439: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || l_outBuffer);
2440: /* Added as part of Enhancement#2578514*/
2441: if(p_pick_grouping_rule_id IS NOT NULL) then
2442: select name
2435: where lookup_type = 'SYS_YES_NO'
2436: and lookup_code = p_print_pickslips;
2437:
2438: fnd_message.set_name('WIP', 'WIP_PICKING_PRINT_PICKSLIPS');
2439: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || l_outBuffer);
2440: /* Added as part of Enhancement#2578514*/
2441: if(p_pick_grouping_rule_id IS NOT NULL) then
2442: select name
2443: into l_outBuffer
2443: into l_outBuffer
2444: from wsh_pick_grouping_rules
2445: where pick_grouping_rule_id = p_pick_grouping_rule_id;
2446:
2447: fnd_message.set_name('WIP', 'WIP_PICKING_PICK_GROUPING_RULE');
2448: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || l_outBuffer);
2449: end if;
2450:
2451: /* Added as part of Enhancement#2578514*/
2444: from wsh_pick_grouping_rules
2445: where pick_grouping_rule_id = p_pick_grouping_rule_id;
2446:
2447: fnd_message.set_name('WIP', 'WIP_PICKING_PICK_GROUPING_RULE');
2448: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || l_outBuffer);
2449: end if;
2450:
2451: /* Added as part of Enhancement#2578514*/
2452: select meaning
2454: from mfg_lookups
2455: where lookup_type = 'SYS_YES_NO'
2456: and lookup_code = p_plan_tasks;
2457:
2458: fnd_message.set_name('WIP', 'WIP_PICKING_PLAN_TASKS');
2459: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || l_outBuffer);
2460:
2461: /* Fixed bug 4890898 Changed table from org_organization_definitions to MTL_PARAMETERS */
2462: select organization_code
2455: where lookup_type = 'SYS_YES_NO'
2456: and lookup_code = p_plan_tasks;
2457:
2458: fnd_message.set_name('WIP', 'WIP_PICKING_PLAN_TASKS');
2459: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || l_outBuffer);
2460:
2461: /* Fixed bug 4890898 Changed table from org_organization_definitions to MTL_PARAMETERS */
2462: select organization_code
2463: into l_outBuffer
2463: into l_outBuffer
2464: from MTL_PARAMETERS
2465: where organization_id = p_organization_id;
2466:
2467: fnd_message.set_name('WIP', 'WIP_PICKING_ORG');
2468: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || l_outBuffer);
2469:
2470: fnd_message.set_name('WIP', 'WIP_PICKING_DAYS_FORWARD');
2471: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || p_days_forward);
2464: from MTL_PARAMETERS
2465: where organization_id = p_organization_id;
2466:
2467: fnd_message.set_name('WIP', 'WIP_PICKING_ORG');
2468: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || l_outBuffer);
2469:
2470: fnd_message.set_name('WIP', 'WIP_PICKING_DAYS_FORWARD');
2471: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || p_days_forward);
2472:
2466:
2467: fnd_message.set_name('WIP', 'WIP_PICKING_ORG');
2468: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || l_outBuffer);
2469:
2470: fnd_message.set_name('WIP', 'WIP_PICKING_DAYS_FORWARD');
2471: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || p_days_forward);
2472:
2473: select meaning
2474: into l_outBuffer
2467: fnd_message.set_name('WIP', 'WIP_PICKING_ORG');
2468: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || l_outBuffer);
2469:
2470: fnd_message.set_name('WIP', 'WIP_PICKING_DAYS_FORWARD');
2471: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || p_days_forward);
2472:
2473: select meaning
2474: into l_outBuffer
2475: from mfg_lookups
2475: from mfg_lookups
2476: where lookup_type = 'WIP_ENTITY'
2477: and lookup_code = p_wip_entity_type;
2478:
2479: fnd_message.set_name('WIP', 'WIP_PICKING_MFG_MODE');
2480: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || l_outBuffer);
2481:
2482: /* Bug 6046963: Added below if to print job type parameter in case of Discrete Job Comp Pick Release request only*/
2483: if(p_wip_entity_type = wip_constants.discrete) then
2476: where lookup_type = 'WIP_ENTITY'
2477: and lookup_code = p_wip_entity_type;
2478:
2479: fnd_message.set_name('WIP', 'WIP_PICKING_MFG_MODE');
2480: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || l_outBuffer);
2481:
2482: /* Bug 6046963: Added below if to print job type parameter in case of Discrete Job Comp Pick Release request only*/
2483: if(p_wip_entity_type = wip_constants.discrete) then
2484: /*Start - Bug 5932126 (FP of 5880558): Added following code to print new parameter for job type*/
2487: from mfg_lookups
2488: where lookup_type = 'WIP_ENTITIES'
2489: and lookup_code = p_job_type ;
2490:
2491: fnd_message.set_name('WIP', 'WIP_PICKING_JOB_TYPE');
2492: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || l_outBuffer);
2493: /*End - Bug 5932126 (FP of 5880558): Added code to print new parameter for job type*/
2494: end if;
2495:
2488: where lookup_type = 'WIP_ENTITIES'
2489: and lookup_code = p_job_type ;
2490:
2491: fnd_message.set_name('WIP', 'WIP_PICKING_JOB_TYPE');
2492: fnd_file.put_line(which => fnd_file.output, buff => ' ' || fnd_message.get || ' ' || l_outBuffer);
2493: /*End - Bug 5932126 (FP of 5880558): Added code to print new parameter for job type*/
2494: end if;
2495:
2496: fnd_file.put_line(which => fnd_file.output, buff => '');
2553: x_return_status => l_returnStatus,
2554: x_msg_data => errbuf);
2555:
2556: if(l_returnStatus = 'P') then
2557: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2558: fnd_message.set_token('MO_NUMBER',l_mo_req_number);
2559: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2560: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOC_CONC');
2561: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2554: x_msg_data => errbuf);
2555:
2556: if(l_returnStatus = 'P') then
2557: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2558: fnd_message.set_token('MO_NUMBER',l_mo_req_number);
2559: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2560: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOC_CONC');
2561: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2562: if(l_print_pickslips = 'T') then
2555:
2556: if(l_returnStatus = 'P') then
2557: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2558: fnd_message.set_token('MO_NUMBER',l_mo_req_number);
2559: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2560: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOC_CONC');
2561: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2562: if(l_print_pickslips = 'T') then
2563: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
2556: if(l_returnStatus = 'P') then
2557: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2558: fnd_message.set_token('MO_NUMBER',l_mo_req_number);
2559: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2560: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOC_CONC');
2561: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2562: if(l_print_pickslips = 'T') then
2563: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
2564: fnd_message.set_token('REQ_NUMBER',l_conc_req_id);
2557: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2558: fnd_message.set_token('MO_NUMBER',l_mo_req_number);
2559: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2560: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOC_CONC');
2561: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2562: if(l_print_pickslips = 'T') then
2563: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
2564: fnd_message.set_token('REQ_NUMBER',l_conc_req_id);
2565: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2559: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2560: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOC_CONC');
2561: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2562: if(l_print_pickslips = 'T') then
2563: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
2564: fnd_message.set_token('REQ_NUMBER',l_conc_req_id);
2565: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2566: end if;
2567:
2560: fnd_message.set_name('WIP', 'WIP_PICKING_PARTIAL_ALLOC_CONC');
2561: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2562: if(l_print_pickslips = 'T') then
2563: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
2564: fnd_message.set_token('REQ_NUMBER',l_conc_req_id);
2565: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2566: end if;
2567:
2568: elsif(l_returnStatus = 'S') then
2561: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2562: if(l_print_pickslips = 'T') then
2563: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
2564: fnd_message.set_token('REQ_NUMBER',l_conc_req_id);
2565: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2566: end if;
2567:
2568: elsif(l_returnStatus = 'S') then
2569: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2565: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2566: end if;
2567:
2568: elsif(l_returnStatus = 'S') then
2569: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2570: fnd_message.set_token('MO_NUMBER',l_mo_req_number);
2571: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2572: if(l_print_pickslips = 'T') then
2573: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
2566: end if;
2567:
2568: elsif(l_returnStatus = 'S') then
2569: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2570: fnd_message.set_token('MO_NUMBER',l_mo_req_number);
2571: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2572: if(l_print_pickslips = 'T') then
2573: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
2574: fnd_message.set_token('REQ_NUMBER',l_conc_req_id);
2567:
2568: elsif(l_returnStatus = 'S') then
2569: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2570: fnd_message.set_token('MO_NUMBER',l_mo_req_number);
2571: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2572: if(l_print_pickslips = 'T') then
2573: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
2574: fnd_message.set_token('REQ_NUMBER',l_conc_req_id);
2575: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2569: fnd_message.set_name('WIP','WIP_PICKING_MO_NUMBER');
2570: fnd_message.set_token('MO_NUMBER',l_mo_req_number);
2571: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2572: if(l_print_pickslips = 'T') then
2573: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
2574: fnd_message.set_token('REQ_NUMBER',l_conc_req_id);
2575: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2576: end if;
2577: fnd_message.set_name('WIP', 'WIP_TXN_COMPLETED');
2570: fnd_message.set_token('MO_NUMBER',l_mo_req_number);
2571: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2572: if(l_print_pickslips = 'T') then
2573: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
2574: fnd_message.set_token('REQ_NUMBER',l_conc_req_id);
2575: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2576: end if;
2577: fnd_message.set_name('WIP', 'WIP_TXN_COMPLETED');
2578: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2571: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2572: if(l_print_pickslips = 'T') then
2573: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
2574: fnd_message.set_token('REQ_NUMBER',l_conc_req_id);
2575: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2576: end if;
2577: fnd_message.set_name('WIP', 'WIP_TXN_COMPLETED');
2578: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2579:
2573: fnd_message.set_name('WIP','WIP_PICKING_PRINT_SLIP');
2574: fnd_message.set_token('REQ_NUMBER',l_conc_req_id);
2575: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2576: end if;
2577: fnd_message.set_name('WIP', 'WIP_TXN_COMPLETED');
2578: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2579:
2580: elsif(l_returnStatus = 'N') then
2581: fnd_message.set_name('WIP','WIP_PICKING_NO_ALLOCATION_CONC');
2574: fnd_message.set_token('REQ_NUMBER',l_conc_req_id);
2575: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2576: end if;
2577: fnd_message.set_name('WIP', 'WIP_TXN_COMPLETED');
2578: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2579:
2580: elsif(l_returnStatus = 'N') then
2581: fnd_message.set_name('WIP','WIP_PICKING_NO_ALLOCATION_CONC');
2582: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2577: fnd_message.set_name('WIP', 'WIP_TXN_COMPLETED');
2578: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2579:
2580: elsif(l_returnStatus = 'N') then
2581: fnd_message.set_name('WIP','WIP_PICKING_NO_ALLOCATION_CONC');
2582: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2583:
2584: else
2585: fnd_file.put_line(which => fnd_file.output, buff => '');
2578: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2579:
2580: elsif(l_returnStatus = 'N') then
2581: fnd_message.set_name('WIP','WIP_PICKING_NO_ALLOCATION_CONC');
2582: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2583:
2584: else
2585: fnd_file.put_line(which => fnd_file.output, buff => '');
2586: fnd_message.set_name('WIP', 'ERROR_DIALOG_TITLE');
2582: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2583:
2584: else
2585: fnd_file.put_line(which => fnd_file.output, buff => '');
2586: fnd_message.set_name('WIP', 'ERROR_DIALOG_TITLE');
2587: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2588: fnd_file.put_line(which => fnd_file.output,
2589: buff => 'Returned status: ' || l_returnStatus);
2590: fnd_file.put_line(which => fnd_file.output,
2583:
2584: else
2585: fnd_file.put_line(which => fnd_file.output, buff => '');
2586: fnd_message.set_name('WIP', 'ERROR_DIALOG_TITLE');
2587: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2588: fnd_file.put_line(which => fnd_file.output,
2589: buff => 'Returned status: ' || l_returnStatus);
2590: fnd_file.put_line(which => fnd_file.output,
2591: buff => 'Returned message: ' || errbuf);
2608: errbuf := SQLERRM;
2609: retcode := 2;
2610: fnd_file.put_line(which => fnd_file.output, buff => '');
2611: fnd_file.put_line(which => fnd_file.output, buff => '');
2612: fnd_message.set_name('WIP', 'ERROR_DIALOG_TITLE');
2613: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2614: for i in 1..l_msgCount loop
2615: 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));
2616: end loop;
2609: retcode := 2;
2610: fnd_file.put_line(which => fnd_file.output, buff => '');
2611: fnd_file.put_line(which => fnd_file.output, buff => '');
2612: fnd_message.set_name('WIP', 'ERROR_DIALOG_TITLE');
2613: fnd_file.put_line(which => fnd_file.output, buff => fnd_message.get);
2614: for i in 1..l_msgCount loop
2615: 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));
2616: end loop;
2617: rollback to wip_allocate_concurrent;
2845:
2846: EXCEPTION
2847: when RECORDS_LOCKED then
2848: x_return_status := 'L';
2849: fnd_message.set_name('FND', 'FORM_UNABLE_TO_RESERVE_RECORD');
2850: x_msg_data := fnd_message.get;
2851: if (l_logLevel <= wip_constants.trace_logging) then
2852: wip_logger.log( x_msg_data, l_dummy2);
2853: wip_logger.cleanup(l_dummy2);
2846: EXCEPTION
2847: when RECORDS_LOCKED then
2848: x_return_status := 'L';
2849: fnd_message.set_name('FND', 'FORM_UNABLE_TO_RESERVE_RECORD');
2850: x_msg_data := fnd_message.get;
2851: if (l_logLevel <= wip_constants.trace_logging) then
2852: wip_logger.log( x_msg_data, l_dummy2);
2853: wip_logger.cleanup(l_dummy2);
2854: end if;
2853: wip_logger.cleanup(l_dummy2);
2854: end if;
2855: when others then
2856: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2857: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
2858: fnd_message.set_token('ERROR_TEXT', 'WIP_EXPLODER_UTITLITIES.Post_Explosion_CleanUp:'
2859: || SQLERRM);
2860: x_msg_data := fnd_message.get;
2861: if (l_logLevel <= wip_constants.trace_logging) then
2854: end if;
2855: when others then
2856: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2857: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
2858: fnd_message.set_token('ERROR_TEXT', 'WIP_EXPLODER_UTITLITIES.Post_Explosion_CleanUp:'
2859: || SQLERRM);
2860: x_msg_data := fnd_message.get;
2861: if (l_logLevel <= wip_constants.trace_logging) then
2862: wip_logger.log( x_msg_data, l_dummy2);
2856: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2857: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
2858: fnd_message.set_token('ERROR_TEXT', 'WIP_EXPLODER_UTITLITIES.Post_Explosion_CleanUp:'
2859: || SQLERRM);
2860: x_msg_data := fnd_message.get;
2861: if (l_logLevel <= wip_constants.trace_logging) then
2862: wip_logger.log( x_msg_data, l_dummy2);
2863: wip_logger.cleanup(l_dummy2);
2864: end if;