62:
63: BEGIN
64:
65: /* Init Return Status */
66: x_return_status := FND_API.G_RET_STS_SUCCESS;
67:
68: GMI_Reservation_Util.PrintLn('In Get_Delivery_Details mo_line_id='||p_mo_line_id);
69:
70: OPEN c_delivery( p_mo_line_id);
75: THEN
76: FND_MESSAGE.SET_NAME('GMI','INV_DELIV_INFO_MISSING');
77: FND_MESSAGE.Set_Token('MO_LINE_ID',p_mo_line_id);
78: FND_MSG_PUB.Add;
79: RAISE FND_API.G_EXC_ERROR;
80: END IF;
81:
82: GMI_Reservation_Util.PrintLn('In Get_Delivery_Details NO Error');
83:
81:
82: GMI_Reservation_Util.PrintLn('In Get_Delivery_Details NO Error');
83:
84: EXCEPTION
85: WHEN FND_API.G_EXC_ERROR THEN
86: x_return_status := FND_API.G_RET_STS_ERROR;
87:
88: /* Get message count and data */
89: FND_MSG_PUB.count_and_get
82: GMI_Reservation_Util.PrintLn('In Get_Delivery_Details NO Error');
83:
84: EXCEPTION
85: WHEN FND_API.G_EXC_ERROR THEN
86: x_return_status := FND_API.G_RET_STS_ERROR;
87:
88: /* Get message count and data */
89: FND_MSG_PUB.count_and_get
90: ( p_count => x_msg_count
92: );
93:
94:
95: WHEN OTHERS THEN
96: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
97:
98: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
99: , l_api_name
100: );
112: ( p_mo_line_rec IN GMI_Move_Order_Global.mo_line_rec
113: , p_inv_delivery_details IN WSH_INV_DELIVERY_DETAILS_V%ROWTYPE
114: , p_pick_slip_mode IN VARCHAR2
115: , p_grouping_rule_id IN NUMBER
116: , p_allow_partial_pick IN VARCHAR2 DEFAULT FND_API.G_TRUE
117: , x_return_status OUT NOCOPY VARCHAR2
118: , x_msg_count OUT NOCOPY NUMBER
119: , x_msg_data OUT NOCOPY VARCHAR2
120: ) IS
252:
253: END IF; -- 2837671 End of checking release value
254:
255: GMI_Reservation_Util.PrintLn('In Create_Pick_Slip_and_Print pick_slip_number='||l_pick_slip_number||', ret_stat='||l_api_return_status);
256: IF (l_api_return_status <> FND_API.G_RET_STS_SUCCESS
257: OR l_pick_slip_number = -1)
258: THEN
259: GMI_Reservation_Util.PrintLn('In Create_Pick_Slip_and_Print Error returned by Get_Pick_Slip_Number, status='||l_api_return_status);
260: ROLLBACK TO Process_Pick_Slip_Number;
259: GMI_Reservation_Util.PrintLn('In Create_Pick_Slip_and_Print Error returned by Get_Pick_Slip_Number, status='||l_api_return_status);
260: ROLLBACK TO Process_Pick_Slip_Number;
261: FND_MESSAGE.SET_NAME('INV','INV_NO_PICK_SLIP_NUMBER');
262: FND_MSG_PUB.Add;
263: RAISE FND_API.G_EXC_ERROR;
264: END IF;
265:
266:
267:
278: GMI_Reservation_Util.PrintLn('(opm_dbg) In Create_Pick_Slip_and_Print ready_to_prt='||l_ready_to_print||', allow_partial_pick='||p_allow_partial_pick);
279:
280: -- HW BUG#:2296620 added a check for ship_set_id
281: GMI_Reservation_Util.PrintLn('(opm_dbg) In Create_Pick_Slip_and_Print ready_to_prt='||l_ready_to_print||', allow_partial_pick='||p_allow_partial_pick);
282: IF (l_ready_to_print = FND_API.G_TRUE
283: AND p_allow_partial_pick = FND_API.G_TRUE
284: AND p_mo_line_rec.ship_set_id IS NULL
285: AND l_call_mode is NULL )
286: THEN
279:
280: -- HW BUG#:2296620 added a check for ship_set_id
281: GMI_Reservation_Util.PrintLn('(opm_dbg) In Create_Pick_Slip_and_Print ready_to_prt='||l_ready_to_print||', allow_partial_pick='||p_allow_partial_pick);
282: IF (l_ready_to_print = FND_API.G_TRUE
283: AND p_allow_partial_pick = FND_API.G_TRUE
284: AND p_mo_line_rec.ship_set_id IS NULL
285: AND l_call_mode is NULL )
286: THEN
287: /* do I have to commit ? */
297: IF ( c_mo_header%NOTFOUND )
298: THEN
299: GMI_Reservation_Util.PrintLn('(opm_dbg) In Create_Pick_Slip_and_Print Request_number not found for header_id='||p_mo_line_rec.header_id);
300: CLOSE c_mo_header;
301: RAISE FND_API.G_EXC_ERROR;
302: END IF;
303: CLOSE c_mo_header;
304:
305: OPEN c_doc_set( l_request_number);
308: IF (c_doc_set%NOTFOUND)
309: THEN
310: GMI_Reservation_Util.PrintLn('(opm_dbg) In Create_Pick_Slip_and_Print doc_set_id not found for request_number='||l_request_number);
311: CLOSE c_doc_set;
312: RAISE FND_API.G_EXC_ERROR;
313: END IF;
314: CLOSE c_doc_set;
315:
316: GMI_Reservation_Util.PrintLn('In Create_Pick_Slip_and_Print call Print_Pick_Slip report_set_id='||l_report_set_id);
322: , p_organization_id => p_mo_line_rec.organization_id
323: , x_api_status => l_api_return_status
324: , x_error_message => l_api_error_msg);
325:
326: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
327: GMI_Reservation_Util.PrintLn('In Create_Pick_Slip_and_Print Error returned by Print_Pick_Slip, status='||l_api_return_status);
328: ROLLBACK TO Process_Pick_Slip_Number;
329: FND_MESSAGE.SET_NAME('INV','INV_PRINT_PICK_SLIP_FAILED');
330: FND_MESSAGE.SET_TOKEN('PICK_SLIP_NUM', to_char(l_pick_slip_number));
328: ROLLBACK TO Process_Pick_Slip_Number;
329: FND_MESSAGE.SET_NAME('INV','INV_PRINT_PICK_SLIP_FAILED');
330: FND_MESSAGE.SET_TOKEN('PICK_SLIP_NUM', to_char(l_pick_slip_number));
331: FND_MSG_PUB.Add;
332: RAISE FND_API.G_EXC_ERROR;
333: END IF;
334: END IF;
335: GMI_Reservation_Util.PrintLn('In Create_Pick_Slip_and_Print before loop');
336: END LOOP;
338:
339: GMI_Reservation_Util.PrintLn('In Create_Pick_Slip_and_Print NO Error');
340:
341: EXCEPTION
342: WHEN FND_API.G_EXC_ERROR THEN
343: x_return_status := FND_API.G_RET_STS_ERROR;
344:
345: /* Get message count and data */
346: FND_MSG_PUB.count_and_get
339: GMI_Reservation_Util.PrintLn('In Create_Pick_Slip_and_Print NO Error');
340:
341: EXCEPTION
342: WHEN FND_API.G_EXC_ERROR THEN
343: x_return_status := FND_API.G_RET_STS_ERROR;
344:
345: /* Get message count and data */
346: FND_MSG_PUB.count_and_get
347: ( p_count => x_msg_count
349: );
350:
351:
352: WHEN OTHERS THEN
353: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
354:
355: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
356: , l_api_name
357: );
513: , x_return_status => x_return_status
514: , x_msg_count => x_msg_count
515: , x_msg_data => x_msg_data);
516:
517: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
518: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
519: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Pick_Release_Util.Create_Pick_Slip_and_Print');
520: FND_MESSAGE.Set_Token('WHERE', 'GMI_Pick_Release_PVT.Process_Line');
521: FND_MSG_PUB.Add;
518: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
519: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Pick_Release_Util.Create_Pick_Slip_and_Print');
520: FND_MESSAGE.Set_Token('WHERE', 'GMI_Pick_Release_PVT.Process_Line');
521: FND_MSG_PUB.Add;
522: RAISE FND_API.G_EXC_ERROR;
523: END IF; */
524:
525: GMI_Reservation_Util.PrintLn(' Calling appropriate WSH or INV wrapper as to get the pick slip number ');
526: IF (wsh_code_control.get_code_release_level < '110509') THEN
563:
564: END IF; -- 2837671 End of checking release value
565:
566: GMI_Reservation_Util.PrintLn('In Create_Manual_alloc_pickslip pick_slip_number='||x_pick_slip_number||', ret_stat='||x_return_status);
567: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS
568: OR x_pick_slip_number = -1)
569: THEN
570: GMI_Reservation_Util.PrintLn('In Create_Manual_alloc_pickslip Error returned by Get_Pick_Slip_Number, status='||x_return_status);
571: ROLLBACK TO Process_Pick_Slip_Number;
570: GMI_Reservation_Util.PrintLn('In Create_Manual_alloc_pickslip Error returned by Get_Pick_Slip_Number, status='||x_return_status);
571: ROLLBACK TO Process_Pick_Slip_Number;
572: FND_MESSAGE.SET_NAME('INV','INV_NO_PICK_SLIP_NUMBER');
573: FND_MSG_PUB.Add;
574: RAISE FND_API.G_EXC_ERROR;
575: END IF;
576:
577: GMI_Reservation_Util.PrintLn('In Create_Manual_alloc_pickslip NO Error');
578:
577: GMI_Reservation_Util.PrintLn('In Create_Manual_alloc_pickslip NO Error');
578:
579:
580: EXCEPTION
581: WHEN FND_API.G_EXC_ERROR THEN
582: x_return_status := FND_API.G_RET_STS_ERROR;
583:
584: /* Get message count and data */
585: FND_MSG_PUB.count_and_get
578:
579:
580: EXCEPTION
581: WHEN FND_API.G_EXC_ERROR THEN
582: x_return_status := FND_API.G_RET_STS_ERROR;
583:
584: /* Get message count and data */
585: FND_MSG_PUB.count_and_get
586: ( p_count => x_msg_count
587: , p_data => x_msg_data
588: );
589:
590: WHEN OTHERS THEN
591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
592: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
593: , l_api_name
594: );
595:
690:
691: GMI_Reservation_Util.PrintLn('In UPDATE_TXN_WITH_PICK_SLIP NO Error');
692:
693: EXCEPTION
694: WHEN FND_API.G_EXC_ERROR THEN
695: x_return_status := FND_API.G_RET_STS_ERROR;
696:
697: /* Get message count and data */
698: FND_MSG_PUB.count_and_get
691: GMI_Reservation_Util.PrintLn('In UPDATE_TXN_WITH_PICK_SLIP NO Error');
692:
693: EXCEPTION
694: WHEN FND_API.G_EXC_ERROR THEN
695: x_return_status := FND_API.G_RET_STS_ERROR;
696:
697: /* Get message count and data */
698: FND_MSG_PUB.count_and_get
699: ( p_count => x_msg_count
700: , p_data => x_msg_data
701: );
702:
703: WHEN OTHERS THEN
704: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
705: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
706: , l_api_name
707: );
708: