[Home] [Help]
115: BEGIN
116: /* =======================================================================
117: Init variables
118: ======================================================================= */
119: x_return_status := FND_API.G_RET_STS_SUCCESS;
120:
121: IF (p_event = 'QUERY') THEN
122: /* =======================================================================
123: At Query(Pub) we just need to check :
126: demand_source_line_id
127: ======================================================================= */
128: IF ( p_rec_to_check.organization_id IS NULL
129: OR p_rec_to_check.organization_id = 0
130: OR p_rec_to_check.organization_id = FND_API.G_MISS_NUM )
131: THEN
132: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(q): Error, organization_id missing ');
133: FND_MESSAGE.Set_Name('GMI','MISSING');
134: FND_MESSAGE.Set_Token('MISSING', 'Organization_id');
132: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(q): Error, organization_id missing ');
133: FND_MESSAGE.Set_Name('GMI','MISSING');
134: FND_MESSAGE.Set_Token('MISSING', 'Organization_id');
135: FND_MSG_PUB.Add;
136: raise FND_API.G_EXC_ERROR;
137: END IF;
138:
139: /* Begin - Bug 2418860 */
140: /*
139: /* Begin - Bug 2418860 */
140: /*
141: IF ( p_rec_to_check.demand_source_header_id IS NULL
142: OR p_rec_to_check.demand_source_header_id = 0
143: OR p_rec_to_check.demand_source_header_id = FND_API.G_MISS_NUM )
144: THEN
145: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(q): Error, demand_source_header_id missing ');
146: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
147: FND_MESSAGE.Set_Token('MISSING', 'demand_source_header_id');
145: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(q): Error, demand_source_header_id missing ');
146: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
147: FND_MESSAGE.Set_Token('MISSING', 'demand_source_header_id');
148: FND_MSG_PUB.Add;
149: raise FND_API.G_EXC_ERROR;
150: END IF;
151: */
152: /* End - Bug 2418860 */
153:
152: /* End - Bug 2418860 */
153:
154: IF ( p_rec_to_check.demand_source_line_id IS NULL
155: OR p_rec_to_check.demand_source_line_id = 0
156: OR p_rec_to_check.demand_source_line_id = FND_API.G_MISS_NUM )
157: THEN
158: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(q): Error, demand_source_line_id missing ');
159: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
160: FND_MESSAGE.Set_Token('MISSING', 'demand_source_line_id');
158: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(q): Error, demand_source_line_id missing ');
159: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
160: FND_MESSAGE.Set_Token('MISSING', 'demand_source_line_id');
161: FND_MSG_PUB.Add;
162: raise FND_API.G_EXC_ERROR;
163: END IF;
164: ELSIF p_event = 'CREATE' THEN
165: /* =======================================================================
166: At Create(Pub) we just need to check :
177:
178: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(c): Check organization_id ');
179: IF ( p_rec_to_check.organization_id IS NULL
180: OR p_rec_to_check.organization_id = 0
181: OR p_rec_to_check.organization_id = FND_API.G_MISS_NUM )
182: THEN
183: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
184: FND_MESSAGE.Set_Token('MISSING', 'Organization_id');
185: FND_MSG_PUB.Add;
182: THEN
183: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
184: FND_MESSAGE.Set_Token('MISSING', 'Organization_id');
185: FND_MSG_PUB.Add;
186: raise FND_API.G_EXC_ERROR;
187: END IF;
188:
189: /* Begin - Bug 2418860 */
190: /*
190: /*
191: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(c): Check demand_source_header_id ');
192: IF ( p_rec_to_check.demand_source_header_id IS NULL
193: OR p_rec_to_check.demand_source_header_id = 0
194: OR p_rec_to_check.demand_source_header_id = FND_API.G_MISS_NUM )
195: THEN
196: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
197: FND_MESSAGE.Set_Token('MISSING', 'demand_source_header_id');
198: FND_MSG_PUB.Add;
195: THEN
196: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
197: FND_MESSAGE.Set_Token('MISSING', 'demand_source_header_id');
198: FND_MSG_PUB.Add;
199: raise FND_API.G_EXC_ERROR;
200: END IF;
201: */
202: /* End - Bug 2418860 */
203:
203:
204: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(c): Check demand_source_line_id ');
205: IF ( p_rec_to_check.demand_source_line_id IS NULL
206: OR p_rec_to_check.demand_source_line_id = 0
207: OR p_rec_to_check.demand_source_line_id = FND_API.G_MISS_NUM )
208: THEN
209: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
210: FND_MESSAGE.Set_Token('MISSING', 'demand_source_line_id');
211: FND_MSG_PUB.Add;
208: THEN
209: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
210: FND_MESSAGE.Set_Token('MISSING', 'demand_source_line_id');
211: FND_MSG_PUB.Add;
212: raise FND_API.G_EXC_ERROR;
213: END IF;
214:
215: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(c): Check demand_source_type_id ');
216: IF ( p_rec_to_check.demand_source_type_id IS NULL
214:
215: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(c): Check demand_source_type_id ');
216: IF ( p_rec_to_check.demand_source_type_id IS NULL
217: OR p_rec_to_check.demand_source_type_id = 0
218: OR p_rec_to_check.demand_source_type_id = FND_API.G_MISS_NUM )
219: THEN
220: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
221: FND_MESSAGE.Set_Token('MISSING', 'demand_source_type_id');
222: FND_MSG_PUB.Add;
219: THEN
220: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
221: FND_MESSAGE.Set_Token('MISSING', 'demand_source_type_id');
222: FND_MSG_PUB.Add;
223: raise FND_API.G_EXC_ERROR;
224: END IF;
225:
226: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(c): Check inventory_item_id ');
227: IF ( p_rec_to_check.inventory_item_id IS NULL
225:
226: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(c): Check inventory_item_id ');
227: IF ( p_rec_to_check.inventory_item_id IS NULL
228: OR p_rec_to_check.inventory_item_id = 0
229: OR p_rec_to_check.inventory_item_id = FND_API.G_MISS_NUM )
230: THEN
231: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
232: FND_MESSAGE.Set_Token('MISSING', 'inventory_item_id');
233: FND_MSG_PUB.Add;
230: THEN
231: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
232: FND_MESSAGE.Set_Token('MISSING', 'inventory_item_id');
233: FND_MSG_PUB.Add;
234: raise FND_API.G_EXC_ERROR;
235: END IF;
236:
237: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(c): Check reservation_uom_code ');
238: IF ( p_rec_to_check.reservation_uom_code IS NULL
235: END IF;
236:
237: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(c): Check reservation_uom_code ');
238: IF ( p_rec_to_check.reservation_uom_code IS NULL
239: OR p_rec_to_check.reservation_uom_code = FND_API.G_MISS_CHAR )
240: THEN
241: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
242: FND_MESSAGE.Set_Token('MISSING', 'reservation_uom_code');
243: FND_MSG_PUB.Add;
240: THEN
241: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
242: FND_MESSAGE.Set_Token('MISSING', 'reservation_uom_code');
243: FND_MSG_PUB.Add;
244: raise FND_API.G_EXC_ERROR;
245: END IF;
246:
247: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(c): Check reservation_quantity ');
248: IF ( p_rec_to_check.reservation_quantity IS NULL
246:
247: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(c): Check reservation_quantity ');
248: IF ( p_rec_to_check.reservation_quantity IS NULL
249: OR p_rec_to_check.reservation_quantity = 0
250: OR p_rec_to_check.reservation_quantity = FND_API.G_MISS_NUM )
251: THEN
252: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
253: FND_MESSAGE.Set_Token('MISSING', 'reservation_quantity');
254: FND_MSG_PUB.Add;
251: THEN
252: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
253: FND_MESSAGE.Set_Token('MISSING', 'reservation_quantity');
254: FND_MSG_PUB.Add;
255: raise FND_API.G_EXC_ERROR;
256: END IF;
257:
258: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(c): Check requirement_date ');
259: IF ( p_rec_to_check.requirement_date IS NULL
256: END IF;
257:
258: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(c): Check requirement_date ');
259: IF ( p_rec_to_check.requirement_date IS NULL
260: OR p_rec_to_check.requirement_date = FND_API.G_MISS_DATE )
261: THEN
262: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
263: FND_MESSAGE.Set_Token('MISSING', 'requirement_date');
264: FND_MSG_PUB.Add;
261: THEN
262: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
263: FND_MESSAGE.Set_Token('MISSING', 'requirement_date');
264: FND_MSG_PUB.Add;
265: raise FND_API.G_EXC_ERROR;
266: END IF;
267: END IF;
268:
269: GMI_reservation_Util.PrintLn('(opm_dbg) end of Util.Check_Mising(q): No Error ');
267: END IF;
268:
269: GMI_reservation_Util.PrintLn('(opm_dbg) end of Util.Check_Mising(q): No Error ');
270: EXCEPTION
271: WHEN FND_API.G_EXC_ERROR THEN
272: x_return_status := FND_API.G_RET_STS_ERROR;
273:
274: /* Get message count and data */
275: FND_MSG_PUB.count_and_get
268:
269: GMI_reservation_Util.PrintLn('(opm_dbg) end of Util.Check_Mising(q): No Error ');
270: EXCEPTION
271: WHEN FND_API.G_EXC_ERROR THEN
272: x_return_status := FND_API.G_RET_STS_ERROR;
273:
274: /* Get message count and data */
275: FND_MSG_PUB.count_and_get
276: ( p_count => x_msg_count
279:
280: GMI_reservation_Util.PrintLn('(opm_dbg) end of Util.Check_Mising(q): EXP Error count='||x_msg_count);
281:
282: WHEN OTHERS THEN
283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
284:
285: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
286: , l_api_name
287: );
325: BEGIN
326: /* ======================================================================= */
327: /* Init variables */
328: /* ======================================================================= */
329: x_return_status := FND_API.G_RET_STS_SUCCESS;
330: x_error_code := 0; /* Bug2168710 */
331:
332: GMI_reservation_Util.PrintLn('(opm_dbg) in Util q: Entering Validation_For_Query. line_id='
333: ||p_query_input.demand_source_line_id);
347: /* ================================================================*/
348: /* FND_MESSAGE.Set_Name('GMI','SO_Not_Found'); */
349: /* FND_MESSAGE.Set_Token('LINE_ID', p_query_input.demand_source_line_id); */
350: /* FND_MSG_PUB.Add; */
351: /* RAISE FND_API.G_EXC_ERROR; */
352: ELSE
353: GMI_reservation_Util.PrintLn('(opm_dbg) in Util q: inv_item_id='||l_inventory_item_id||'.');
354:
355: /* ============================================================================================= */
364: , x_return_status => x_return_status
365: , x_msg_count => x_msg_count
366: , x_msg_data => x_msg_data);
367:
368: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
369: FND_MESSAGE.Set_Name('GMI','GMI_OPM_ITEM');
370: FND_MESSAGE.Set_Token('ORGANIZATION_ID', p_query_input.organization_id);
371: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', l_inventory_item_id);
372: FND_MSG_PUB.Add;
370: FND_MESSAGE.Set_Token('ORGANIZATION_ID', p_query_input.organization_id);
371: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', l_inventory_item_id);
372: FND_MSG_PUB.Add;
373: CLOSE c_sales_order; -- Bug 3598280
374: raise FND_API.G_EXC_ERROR;
375: END IF;
376:
377:
378:
388: , x_msg_count => x_msg_count
389: , x_msg_data => x_msg_data);
390:
391:
392: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
393: THEN
394: FND_MESSAGE.Set_Name('GMI','GMI_OPM_UOM_NOT_FOUND');
395: FND_MESSAGE.Set_Token('APPS_UOM_CODE', l_order_quantity_uom);
396: FND_MSG_PUB.Add;
394: FND_MESSAGE.Set_Name('GMI','GMI_OPM_UOM_NOT_FOUND');
395: FND_MESSAGE.Set_Token('APPS_UOM_CODE', l_order_quantity_uom);
396: FND_MSG_PUB.Add;
397: CLOSE c_sales_order; -- Bug 3598280
398: RAISE FND_API.G_EXC_ERROR;
399: ELSE
400: GMI_reservation_Util.PrintLn('(opm_dbg) in Util q: uom1='||x_opm_um||'.');
401: END IF;
402:
403: END IF;
404: CLOSE c_sales_order;
405:
406: EXCEPTION
407: WHEN FND_API.G_EXC_ERROR THEN
408: /* Begin - Bug 2168710 */
409: x_return_status := FND_API.G_RET_STS_ERROR;
410: x_error_code := SQLCODE;
411: /* End - Bug 2168710 */
405:
406: EXCEPTION
407: WHEN FND_API.G_EXC_ERROR THEN
408: /* Begin - Bug 2168710 */
409: x_return_status := FND_API.G_RET_STS_ERROR;
410: x_error_code := SQLCODE;
411: /* End - Bug 2168710 */
412:
413: /* Get message count and data */
449: BEGIN
450: /* ======================================================================= */
451: /* Init variables */
452: /* ======================================================================= */
453: x_return_status := FND_API.G_RET_STS_SUCCESS;
454: x_ic_tran_pnd_index := 0;
455:
456: GMI_reservation_Util.PrintLn('(opm_dbg) in Util Get_Default_Lot. default lot='
457: ||GMI_Reservation_Util.G_DEFAULT_LOCT||', ic_tran.COUNT='
486: END IF;
487: GMI_reservation_Util.PrintLn('(opm_dbg) end of Util Get_default_lot_qty NO Error.');
488:
489: EXCEPTION
490: WHEN FND_API.G_EXC_ERROR THEN
491: x_return_status := FND_API.G_RET_STS_ERROR;
492:
493: /* Get message count and data */
494: FND_MSG_PUB.count_and_get
487: GMI_reservation_Util.PrintLn('(opm_dbg) end of Util Get_default_lot_qty NO Error.');
488:
489: EXCEPTION
490: WHEN FND_API.G_EXC_ERROR THEN
491: x_return_status := FND_API.G_RET_STS_ERROR;
492:
493: /* Get message count and data */
494: FND_MSG_PUB.count_and_get
495: ( p_count => x_msg_count
496: , p_data => x_msg_data
497: );
498:
499: WHEN OTHERS THEN
500: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
501:
502: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
503: , l_api_name
504: );
545: BEGIN
546: /* ======================================================================= */
547: /* Init variables */
548: /* ======================================================================= */
549: x_return_status := FND_API.G_RET_STS_SUCCESS;
550:
551: GMI_reservation_Util.PrintLn('(opm_dbg) in Util Create_default_lot.');
552: /* Fill the ic_tran_pnd record type, and then insert into ic_tran_pnd */
553: l_ictran_rec.item_id := p_ic_item_mst_rec.item_id;
652: -- END - Bug 3216096
653:
654: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION
655: ( p_api_version => 1.0
656: , p_init_msg_list => FND_API.G_FALSE
657: , p_commit => FND_API.G_FALSE
658: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
659: , p_tran_rec => l_ictran_rec
660: , x_tran_row => l_tran_row
653:
654: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION
655: ( p_api_version => 1.0
656: , p_init_msg_list => FND_API.G_FALSE
657: , p_commit => FND_API.G_FALSE
658: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
659: , p_tran_rec => l_ictran_rec
660: , x_tran_row => l_tran_row
661: , x_return_status => x_return_status
654: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION
655: ( p_api_version => 1.0
656: , p_init_msg_list => FND_API.G_FALSE
657: , p_commit => FND_API.G_FALSE
658: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
659: , p_tran_rec => l_ictran_rec
660: , x_tran_row => l_tran_row
661: , x_return_status => x_return_status
662: , x_msg_count => x_msg_count
662: , x_msg_count => x_msg_count
663: , x_msg_data => x_msg_data
664: );
665:
666: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
667: GMI_reservation_Util.PrintLn('(opm_dbg) Error return by Create_Pending_Transaction,
668: return_status='|| x_return_status||', x_msg_count='|| x_msg_count||'.');
669: GMI_reservation_Util.PrintLn('Error Message '|| x_msg_data);
670: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
670: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
671: FND_MESSAGE.Set_Token('BY_PROC','GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION');
672: FND_MESSAGE.Set_Token('WHERE','Create_Default_Lot');
673: FND_MSG_PUB.Add;
674: raise FND_API.G_EXC_ERROR;
675: END IF;
676: ELSE
677: GMI_reservation_Util.PrintLn('(opm_dbg) Dont create the default lot again (Shouldnt be here) - 1 ! ');
678: END IF;
685: ||l_ictran_rec.trans_um2||', trans_id='||l_ictran_rec.trans_id);
686:
687: GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TRANSACTION
688: ( p_api_version => 1.0
689: , p_init_msg_list => FND_API.G_FALSE
690: , p_commit => FND_API.G_FALSE
691: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
692: , p_tran_rec => l_ictran_rec
693: , x_tran_row => l_tran_row
686:
687: GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TRANSACTION
688: ( p_api_version => 1.0
689: , p_init_msg_list => FND_API.G_FALSE
690: , p_commit => FND_API.G_FALSE
691: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
692: , p_tran_rec => l_ictran_rec
693: , x_tran_row => l_tran_row
694: , x_return_status => x_return_status
687: GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TRANSACTION
688: ( p_api_version => 1.0
689: , p_init_msg_list => FND_API.G_FALSE
690: , p_commit => FND_API.G_FALSE
691: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
692: , p_tran_rec => l_ictran_rec
693: , x_tran_row => l_tran_row
694: , x_return_status => x_return_status
695: , x_msg_count => x_msg_count
694: , x_return_status => x_return_status
695: , x_msg_count => x_msg_count
696: , x_msg_data => x_msg_data);
697:
698: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
699: THEN
700: GMI_reservation_Util.PrintLn('(opm_dbg) in Create_Default_Lot:
701: Error returned by GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TRANSACTION.' );
702: GMI_reservation_Util.PrintLn('Error Message '|| x_msg_data);
703: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
704: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TRANSACTION');
705: FND_MESSAGE.Set_Token('WHERE', 'Create_Default_Lot');
706: FND_MSG_PUB.Add;
707: RAISE FND_API.G_EXC_ERROR;
708: END IF;
709:
710: END IF;
711:
711:
712: GMI_reservation_Util.PrintLn('(opm_dbg) end of Util Create_default_lot x_return_status='
713: || x_return_status||', x_msg_count='|| x_msg_count||'.');
714: EXCEPTION
715: WHEN FND_API.G_EXC_ERROR THEN
716: x_return_status := FND_API.G_RET_STS_ERROR;
717:
718: /* Get message count and data */
719: FND_MSG_PUB.count_and_get
712: GMI_reservation_Util.PrintLn('(opm_dbg) end of Util Create_default_lot x_return_status='
713: || x_return_status||', x_msg_count='|| x_msg_count||'.');
714: EXCEPTION
715: WHEN FND_API.G_EXC_ERROR THEN
716: x_return_status := FND_API.G_RET_STS_ERROR;
717:
718: /* Get message count and data */
719: FND_MSG_PUB.count_and_get
720: ( p_count => x_msg_count
721: , p_data => x_msg_data
722: );
723:
724: WHEN OTHERS THEN
725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
726:
727: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
728: , l_api_name
729: );
776: BEGIN
777: /* ======================================================================= */
778: /* Init variables */
779: /* ======================================================================= */
780: x_return_status := FND_API.G_RET_STS_SUCCESS;
781:
782:
783: GMI_reservation_Util.PrintLn('(opm_dbg) Entering Util validation_before_allocate:');
784:
790: x_allocation_rec.line_id := p_mtl_rsv_rec.demand_source_line_id;
791: x_allocation_rec.trans_date := p_mtl_rsv_rec.requirement_date;
792: x_allocation_rec.prefqc_grade := p_mtl_rsv_rec.attribute1;
793: x_allocation_rec.order_qty1 := p_mtl_rsv_rec.reservation_quantity;
794: IF (p_mtl_rsv_rec.attribute4 = FND_API.G_MISS_CHAR) THEN
795: x_allocation_rec.line_detail_id := null;
796: ELSE
797: x_allocation_rec.line_detail_id := to_number(p_mtl_rsv_rec.attribute4);
798: END IF;
818: x_opm_co_code => g_co_code, -- B1731567
819: x_opm_orgn_code => x_orgn_code,
820: x_return_status => x_return_status );
821:
822: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
823: THEN
824: GMI_reservation_Util.PrintLn('(opm_dbg) in end of GMI_Reservation_Util.Validation_Before_Allocate
825: ERROR:Returned by Get_Process_Org.');
826: FND_MESSAGE.Set_Name('GMI','GMI_GET_PROCESS_ORG');
825: ERROR:Returned by Get_Process_Org.');
826: FND_MESSAGE.Set_Name('GMI','GMI_GET_PROCESS_ORG');
827: FND_MESSAGE.Set_Token('ORGANIZATION_ID', p_mtl_rsv_rec.organization_id);
828: FND_MSG_PUB.Add;
829: RAISE FND_API.G_EXC_ERROR;
830: END IF;
831:
832: x_allocation_rec.co_code := g_co_code;
833:
844:
845:
846: GMI_reservation_Util.PrintLn('(opm_dbg) in Util v: item_no='||x_ic_item_mst_rec.item_no);
847:
848: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
849: THEN
850: GMI_reservation_Util.PrintLn('(opm_dbg) in end of GMI_Reservation_Util.Validation_Before_Allocate
851: ERROR:Returned by Get_OPM_item_from_Apps.');
852: FND_MESSAGE.Set_Name('GMI','GMI_OPM_ITEM');
852: FND_MESSAGE.Set_Name('GMI','GMI_OPM_ITEM');
853: FND_MESSAGE.Set_Token('ORGANIZATION_ID', p_mtl_rsv_rec.organization_id);
854: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', p_mtl_rsv_rec.inventory_item_id);
855: FND_MSG_PUB.Add;
856: RAISE FND_API.G_EXC_ERROR;
857: ELSE
858: x_allocation_rec.item_no := x_ic_item_mst_rec.item_no;
859: END IF;
860:
880: GMI_reservation_Util.PrintLn('(opm_dbg) in Util v: cust_no=NOTFOUND');
881: FND_MESSAGE.Set_Name('GMI','GMI_CUST_INFO');
882: FND_MESSAGE.Set_Token('SO_LINE_ID', x_allocation_rec.line_id);
883: FND_MSG_PUB.Add;
884: RAISE FND_API.G_EXC_ERROR;
885: ELSE
886: GMI_reservation_Util.PrintLn('(opm_dbg) in Util v: cust_no='||x_allocation_rec.cust_no||',
887: doc_line='||x_allocation_rec.doc_line);
888: END IF;
905: , x_msg_count => x_msg_count
906: , x_msg_data => x_msg_data);
907:
908:
909: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
910: THEN
911: FND_MESSAGE.Set_Name('GMI','GMI_OPM_UOM_NOT_FOUND');
912: FND_MESSAGE.Set_Token('APPS_UOM_CODE', p_mtl_rsv_rec.reservation_uom_code);
913: FND_MSG_PUB.Add;
910: THEN
911: FND_MESSAGE.Set_Name('GMI','GMI_OPM_UOM_NOT_FOUND');
912: FND_MESSAGE.Set_Token('APPS_UOM_CODE', p_mtl_rsv_rec.reservation_uom_code);
913: FND_MSG_PUB.Add;
914: RAISE FND_API.G_EXC_ERROR;
915: ELSE
916: GMI_reservation_Util.PrintLn('(opm_dbg) in Util v: uom1='||x_allocation_rec.order_um1||'.');
917: END IF;
918:
981: GMI_reservation_Util.PrintLn('(opm_dbg) Exiting Util validation_before_allocate:');
982:
983:
984: EXCEPTION
985: WHEN FND_API.G_EXC_ERROR THEN
986: GMI_Reservation_Util.PrintLn('Exiting Util validation_before_allocate: Error');
987: x_return_status := FND_API.G_RET_STS_ERROR;
988:
989: /* Get message count and data */
983:
984: EXCEPTION
985: WHEN FND_API.G_EXC_ERROR THEN
986: GMI_Reservation_Util.PrintLn('Exiting Util validation_before_allocate: Error');
987: x_return_status := FND_API.G_RET_STS_ERROR;
988:
989: /* Get message count and data */
990: FND_MSG_PUB.count_and_get
991: ( p_count => x_msg_count
993: );
994:
995: WHEN OTHERS THEN
996: GMI_Reservation_Util.PrintLn('Exiting Util validation_before_allocate: ErrorOther');
997: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
998:
999: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1000: , l_api_name
1001: );
1024: BEGIN
1025: /* ======================================================================= */
1026: /* Init variables */
1027: /* ======================================================================= */
1028: x_return_status := FND_API.G_RET_STS_SUCCESS;
1029: x_ic_tran_pnd_index := 0;
1030:
1031: GMI_reservation_Util.PrintLn('(opm_dbg) in Util Get_Allocation.');
1032: IF GMI_Reservation_Util.ic_tran_rec_tbl.COUNT > 0
1056: END IF;
1057: GMI_reservation_Util.PrintLn('(opm_dbg) end of Util Get_Allocation.');
1058:
1059: EXCEPTION
1060: WHEN FND_API.G_EXC_ERROR THEN
1061: x_return_status := FND_API.G_RET_STS_ERROR;
1062:
1063: /* Get message count and data */
1064: FND_MSG_PUB.count_and_get
1057: GMI_reservation_Util.PrintLn('(opm_dbg) end of Util Get_Allocation.');
1058:
1059: EXCEPTION
1060: WHEN FND_API.G_EXC_ERROR THEN
1061: x_return_status := FND_API.G_RET_STS_ERROR;
1062:
1063: /* Get message count and data */
1064: FND_MSG_PUB.count_and_get
1065: ( p_count => x_msg_count
1066: , p_data => x_msg_data
1067: );
1068:
1069: WHEN OTHERS THEN
1070: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1071:
1072: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1073: , l_api_name
1074: );
1113: BEGIN
1114: /* ======================================================================= */
1115: /* Init variables */
1116: /* ======================================================================= */
1117: x_return_status := FND_API.G_RET_STS_SUCCESS;
1118:
1119:
1120: OPEN c_uom(p_Apps_UOM);
1121: FETCH c_uom
1125: FND_MESSAGE.Set_Name('GMI','GMI_OPM_UOM_NOT_FOUND');
1126: FND_MESSAGE.Set_Token('APPS_UOM_CODE', p_Apps_UOM);
1127: FND_MSG_PUB.Add;
1128: CLOSE c_uom; -- Bug 3598280
1129: RAISE FND_API.G_EXC_ERROR;
1130: END IF;
1131: CLOSE c_uom;
1132:
1133:
1131: CLOSE c_uom;
1132:
1133:
1134: EXCEPTION
1135: WHEN FND_API.G_EXC_ERROR THEN
1136: x_return_status := FND_API.G_RET_STS_ERROR;
1137:
1138: /* Get message count and data */
1139: FND_MSG_PUB.count_and_get
1132:
1133:
1134: EXCEPTION
1135: WHEN FND_API.G_EXC_ERROR THEN
1136: x_return_status := FND_API.G_RET_STS_ERROR;
1137:
1138: /* Get message count and data */
1139: FND_MSG_PUB.count_and_get
1140: ( p_count => x_msg_count
1141: , p_data => x_msg_data
1142: );
1143:
1144: WHEN OTHERS THEN
1145: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1146:
1147: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1148: , l_api_name
1149: );
1190: BEGIN
1191: /* ======================================================================= */
1192: /* Init variables */
1193: /* ======================================================================= */
1194: x_return_status := FND_API.G_RET_STS_SUCCESS;
1195:
1196:
1197: OPEN c_uom(p_OPM_UOM);
1198: FETCH c_uom
1202: FND_MESSAGE.Set_Name('GMI','GMI_APPS_UOM_NOT_FOUND');
1203: FND_MESSAGE.Set_Token('OPM_UOM_CODE', p_OPM_UOM);
1204: FND_MSG_PUB.Add;
1205: CLOSE c_uom; -- Bug 3598280
1206: RAISE FND_API.G_EXC_ERROR;
1207: END IF;
1208: CLOSE c_uom;
1209:
1210:
1208: CLOSE c_uom;
1209:
1210:
1211: EXCEPTION
1212: WHEN FND_API.G_EXC_ERROR THEN
1213: x_return_status := FND_API.G_RET_STS_ERROR;
1214:
1215: /* Get message count and data */
1216: FND_MSG_PUB.count_and_get
1209:
1210:
1211: EXCEPTION
1212: WHEN FND_API.G_EXC_ERROR THEN
1213: x_return_status := FND_API.G_RET_STS_ERROR;
1214:
1215: /* Get message count and data */
1216: FND_MSG_PUB.count_and_get
1217: ( p_count => x_msg_count
1218: , p_data => x_msg_data
1219: );
1220:
1221: WHEN OTHERS THEN
1222: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1223:
1224: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1225: , l_api_name
1226: );
1251: BEGIN
1252: /* ======================================================================= */
1253: /* Init variables */
1254: /* ======================================================================= */
1255: x_return_status := FND_API.G_RET_STS_SUCCESS;
1256:
1257: GMI_reservation_Util.PrintLn('(opm_dbg) in Util Get_org line_id='||p_oe_line_id);
1258:
1259: OPEN c_org(p_oe_line_id);
1264: FND_MESSAGE.Set_Name('GMI','GMI_ORG_NOT_FOUND_IN_OE');
1265: FND_MESSAGE.Set_Token('SO_LINE_ID', p_oe_line_id);
1266: FND_MSG_PUB.Add;
1267: CLOSE c_org; -- Bug 3598280
1268: RAISE FND_API.G_EXC_ERROR;
1269: END IF;
1270: CLOSE c_org;
1271:
1272: GMI_reservation_Util.PrintLn('(opm_dbg) in Util Get_org org_id='||x_organization_id);
1271:
1272: GMI_reservation_Util.PrintLn('(opm_dbg) in Util Get_org org_id='||x_organization_id);
1273:
1274: EXCEPTION
1275: WHEN FND_API.G_EXC_ERROR THEN
1276: x_return_status := FND_API.G_RET_STS_ERROR;
1277:
1278: /* Get message count and data */
1279: FND_MSG_PUB.count_and_get
1272: GMI_reservation_Util.PrintLn('(opm_dbg) in Util Get_org org_id='||x_organization_id);
1273:
1274: EXCEPTION
1275: WHEN FND_API.G_EXC_ERROR THEN
1276: x_return_status := FND_API.G_RET_STS_ERROR;
1277:
1278: /* Get message count and data */
1279: FND_MSG_PUB.count_and_get
1280: ( p_count => x_msg_count
1281: , p_data => x_msg_data
1282: );
1283:
1284: WHEN OTHERS THEN
1285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1286:
1287: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1288: , l_api_name
1289: );
1336: BEGIN
1337: /* ======================================================================= */
1338: /* Init variables */
1339: /* ======================================================================= */
1340: x_return_status := FND_API.G_RET_STS_SUCCESS;
1341:
1342: OPEN c_item( p_organization_id
1343: , p_inventory_item_id);
1344: FETCH c_item
1351: FND_MESSAGE.Set_Token('ORGANIZATION_ID', p_organization_id);
1352: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', p_inventory_item_id);
1353: FND_MSG_PUB.Add;
1354: CLOSE c_item; -- Bug 3598280
1355: RAISE FND_API.G_EXC_ERROR;
1356: ELSE
1357: GMI_reservation_Util.PrintLn('(opm_dbg) in Util q: item_no='||x_ic_item_mst_rec.item_no||'.');
1358: END IF;
1359: CLOSE c_item;
1359: CLOSE c_item;
1360:
1361:
1362: EXCEPTION
1363: WHEN FND_API.G_EXC_ERROR THEN
1364: x_return_status := FND_API.G_RET_STS_ERROR;
1365:
1366: /* Get message count and data */
1367: FND_MSG_PUB.count_and_get
1360:
1361:
1362: EXCEPTION
1363: WHEN FND_API.G_EXC_ERROR THEN
1364: x_return_status := FND_API.G_RET_STS_ERROR;
1365:
1366: /* Get message count and data */
1367: FND_MSG_PUB.count_and_get
1368: ( p_count => x_msg_count
1369: , p_data => x_msg_data
1370: );
1371:
1372: WHEN OTHERS THEN
1373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1374:
1375: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1376: , l_api_name
1377: );
1395:
1396: l_api_name CONSTANT VARCHAR2 (30) := 'Reallocate';
1397:
1398: l_serial_number inv_reservation_global.serial_number_tbl_type;
1399: l_partial_reservation_flag VARCHAR2(2) := FND_API.G_FALSE;
1400: l_quantity_reserved NUMBER(19,9);
1401: l_reservation_id NUMBER;
1402: l_mtl_reservation_tbl inv_reservation_global.mtl_reservation_tbl_type;
1403: l_mtl_reservation_rec inv_reservation_global.mtl_reservation_rec_type;
1445:
1446: /* ======================================================================= */
1447: /* Init variables */
1448: /* ======================================================================= */
1449: x_return_status := FND_API.G_RET_STS_SUCCESS;
1450:
1451: SAVEPOINT Reallocate_Transactions;
1452:
1453:
1470: FND_MESSAGE.Set_Token('SO_LINE_ID', p_query_input.demand_source_line_id);
1471: FND_MESSAGE.Set_Token('WHERE', l_api_name);
1472: FND_MSG_PUB.Add;
1473: CLOSE c_sales_order_line; -- Bug 3598280
1474: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1475: END IF;
1476: CLOSE c_sales_order_line;
1477:
1478:
1539: um='||l_mtl_reservation_rec.reservation_uom_code||',
1540: qty2='||l_mtl_reservation_rec.attribute2||', um2='||l_mtl_reservation_rec.attribute3);
1541: GMI_Reservation_PUB.Create_Reservation
1542: ( p_api_version_number => 1.0
1543: , p_init_msg_lst => FND_API.G_FALSE
1544: , x_return_status => x_return_status
1545: , x_msg_count => x_msg_count
1546: , x_msg_data => x_msg_data
1547: , p_rsv_rec => l_mtl_reservation_rec
1547: , p_rsv_rec => l_mtl_reservation_rec
1548: , p_serial_number => l_serial_number
1549: , x_serial_number => l_serial_number
1550: , p_partial_reservation_flag => l_partial_reservation_flag
1551: , p_force_reservation_flag => FND_API.G_TRUE
1552: , x_quantity_reserved => l_quantity_reserved
1553: , x_reservation_id => l_reservation_id
1554: );
1555: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1551: , p_force_reservation_flag => FND_API.G_TRUE
1552: , x_quantity_reserved => l_quantity_reserved
1553: , x_reservation_id => l_reservation_id
1554: );
1555: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1556: THEN
1557: GMI_reservation_Util.PrintLn('(opm_dbg) before Transfer_Msg_Stack');
1558: RAISE FND_API.G_EXC_ERROR;
1559: END IF;
1554: );
1555: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1556: THEN
1557: GMI_reservation_Util.PrintLn('(opm_dbg) before Transfer_Msg_Stack');
1558: RAISE FND_API.G_EXC_ERROR;
1559: END IF;
1560: /* At this stage, the Reallocation is done. */
1561: ELSE
1562: GMI_Reservation_Util.printLn(' (opm_dbg) Nothing to Auto-Detail.');
1573: , x_msg_data => x_msg_data
1574: );
1575:
1576: /* Return an error if the query reservations call failed */
1577: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS )
1578: THEN
1579: GMI_Reservation_Util.printLn('return error from query reservation');
1580: FND_MESSAGE.Set_Name('GMI','GMI_QRY_RSV_FAILED');
1581: FND_MESSAGE.Set_Token('SO_LINE_ID', p_query_input.demand_source_line_id);
1580: FND_MESSAGE.Set_Name('GMI','GMI_QRY_RSV_FAILED');
1581: FND_MESSAGE.Set_Token('SO_LINE_ID', p_query_input.demand_source_line_id);
1582: FND_MESSAGE.Set_Token('WHERE', l_api_name);
1583: FND_MSG_PUB.Add;
1584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1585: END IF;
1586:
1587: GMI_Reservation_Util.printLn('After Query_Res, count='||l_reservation_count);
1588: IF (l_reservation_count <= 0)
1591: THEN
1592: GMI_Reservation_Util.printLn('Invalid value for reservation_count='||l_reservation_count);
1593: FND_MESSAGE.Set_Name('INV','INV_INVALID_COUNT');
1594: FND_MSG_PUB.Add;
1595: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1596: END IF;
1597:
1598: GMI_Reservation_Util.printLn('As nothing reserved, need to build the default_lot rec_type,
1599: by querying the sales order, then populate the mtl rec_type');
1622: x_ic_tran_pnd_index => l_default_lot_index
1623: , x_return_status => x_return_status
1624: , x_msg_count => x_msg_count
1625: , x_msg_data => x_msg_data);
1626: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1627: THEN
1628: GMI_reservation_Util.PrintLn('(opm_dbg) in Reallocate, ERROR:Returned by Get_Default_Lot.');
1629: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
1630: FND_MESSAGE.Set_Token('BY_PROC','GMI_Reservation_Util.Get_Default_Lot');
1629: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
1630: FND_MESSAGE.Set_Token('BY_PROC','GMI_Reservation_Util.Get_Default_Lot');
1631: FND_MESSAGE.Set_Token('WHERE','Reallocate');
1632: FND_MSG_PUB.Add;
1633: RAISE FND_API.G_EXC_ERROR;
1634: END IF;
1635:
1636: GMI_reservation_Util.PrintLn('(opm_dbg) in Reallocate, qty='
1637: ||GMI_Reservation_Util.ic_tran_rec_tbl(1).trans_qty||',
1691: GMI_Reservation_Util.printLn('End of GMI_Reservation.Reallocate. No Error, Allocated_qty='||x_allocated_qty);
1692: GMI_Reservation_Util.printLn('End of GMI_Reservation.Reallocate. No Error, Allocated_transactions='||x_allocated_trans);
1693:
1694: EXCEPTION
1695: WHEN FND_API.G_EXC_ERROR THEN
1696: ROLLBACK TO SAVEPOINT Reallocate_Transactions;
1697: GMI_Reservation_Util.printLn('End of GMI_Reservation.Reallocate. Error');
1698: x_return_status := FND_API.G_RET_STS_ERROR;
1699:
1694: EXCEPTION
1695: WHEN FND_API.G_EXC_ERROR THEN
1696: ROLLBACK TO SAVEPOINT Reallocate_Transactions;
1697: GMI_Reservation_Util.printLn('End of GMI_Reservation.Reallocate. Error');
1698: x_return_status := FND_API.G_RET_STS_ERROR;
1699:
1700: /* Get message count and data */
1701: FND_MSG_PUB.count_and_get
1702: ( p_count => x_msg_count
1705:
1706: WHEN OTHERS THEN
1707: ROLLBACK TO SAVEPOINT Reallocate_Transactions;
1708: GMI_Reservation_Util.printLn('End of GMI_Reservation.Reallocate. ErrorOthers');
1709: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1710:
1711: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1712: , l_api_name
1713: );
1753:
1754: /* ======================================================================= */
1755: /* Init variables */
1756: /* ======================================================================= */
1757: x_return_status := FND_API.G_RET_STS_SUCCESS;
1758:
1759: /* Get the Default Lot, and default lot quantity */
1760: /* Retrieve the default lot in the transaction */
1761: GMI_Reservation_Util.Get_Default_Lot(
1763: , x_return_status => x_return_status
1764: , x_msg_count => x_msg_count
1765: , x_msg_data => x_msg_data);
1766:
1767: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1768: THEN
1769: GMI_reservation_Util.PrintLn('(opm_dbg) in Get_DefaultLot_from_ItemCtl, ERROR:Returned by Get_Default_Lot.');
1770: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
1771: FND_MESSAGE.Set_Token('BY_PROC','GMI_Reservation_Util.Get_Default_Lot');
1770: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
1771: FND_MESSAGE.Set_Token('BY_PROC','GMI_Reservation_Util.Get_Default_Lot');
1772: FND_MESSAGE.Set_Token('WHERE','Get_DefaultLot_from_ItemCtl');
1773: FND_MSG_PUB.Add;
1774: RAISE FND_API.G_EXC_ERROR;
1775: END IF;
1776:
1777: /* ============================================================================================= */
1778: /* Get Item details */
1787:
1788:
1789: GMI_Reservation_Util.printLn('After Get_OPM_Item : item_no='||l_ic_item_mst_rec.item_no);
1790:
1791: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1792: THEN
1793: GMI_Reservation_Util.printLn('(opm_dbg) in end of Get_DefaultLot_from_ItemCtl ERROR:Returned by Get_OPM_item_from_Apps.');
1794: FND_MESSAGE.Set_Name('GMI','GMI_OPM_ITEM');
1795: FND_MESSAGE.Set_Token('ORGANIZATION_ID', p_organization_id);
1794: FND_MESSAGE.Set_Name('GMI','GMI_OPM_ITEM');
1795: FND_MESSAGE.Set_Token('ORGANIZATION_ID', p_organization_id);
1796: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', p_inventory_item_id);
1797: FND_MSG_PUB.Add;
1798: RAISE FND_API.G_EXC_ERROR;
1799: END IF;
1800:
1801:
1802: /* ============================================================================================= */
1824:
1825: GMI_Reservation_Util.printLn('(opm_dbg) x_default_lot_index='||x_default_lot_index);
1826:
1827: EXCEPTION
1828: WHEN FND_API.G_EXC_ERROR THEN
1829: GMI_Reservation_Util.printLn('End of Get_DefaultLot_from_ItemCtl. Error');
1830: x_return_status := FND_API.G_RET_STS_ERROR;
1831:
1832: /* Get message count and data */
1826:
1827: EXCEPTION
1828: WHEN FND_API.G_EXC_ERROR THEN
1829: GMI_Reservation_Util.printLn('End of Get_DefaultLot_from_ItemCtl. Error');
1830: x_return_status := FND_API.G_RET_STS_ERROR;
1831:
1832: /* Get message count and data */
1833: FND_MSG_PUB.count_and_get
1834: ( p_count => x_msg_count
1836: );
1837:
1838: WHEN OTHERS THEN
1839: GMI_Reservation_Util.printLn('End of Get_DefaultLot_from_ItemCtl. ErrorOthers');
1840: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1841:
1842: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1843: , l_api_name
1844: );
1957:
1958: /* ======================================================================= */
1959: /* Init variables */
1960: /* ======================================================================= */
1961: x_return_status := FND_API.G_RET_STS_SUCCESS;
1962:
1963: x_ic_tran_rec := p_ic_tran_rec;
1964:
1965: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: trans_id='||p_ic_tran_rec.trans_id, 'pick_lots.log');
1994:
1995: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check trans_id ', 'pick_lots.log');
1996: IF ( p_ic_tran_rec.trans_id = 0
1997: OR p_ic_tran_rec.trans_id IS NULL
1998: OR p_ic_tran_rec.trans_id = FND_API.G_MISS_NUM)
1999: THEN
2000: x_ic_tran_rec.trans_id := 0;
2001: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Set trans_id=0 ', 'pick_lots.log');
2002: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2001: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Set trans_id=0 ', 'pick_lots.log');
2002: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2003: FND_MESSAGE.Set_Token('MISSING', 'trans_id');
2004: FND_MSG_PUB.Add;
2005: /* raise FND_API.G_EXC_ERROR; */
2006: END IF;
2007:
2008: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check item_id ', 'pick_lots.log');
2009: IF ( p_ic_tran_rec.item_id = 0
2007:
2008: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check item_id ', 'pick_lots.log');
2009: IF ( p_ic_tran_rec.item_id = 0
2010: OR p_ic_tran_rec.item_id IS NULL
2011: OR p_ic_tran_rec.item_id = FND_API.G_MISS_NUM)
2012: THEN
2013: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2014: FND_MESSAGE.Set_Token('MISSING', 'item_id');
2015: FND_MSG_PUB.Add;
2012: THEN
2013: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2014: FND_MESSAGE.Set_Token('MISSING', 'item_id');
2015: FND_MSG_PUB.Add;
2016: /* raise FND_API.G_EXC_ERROR; */
2017: END IF;
2018:
2019: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check line_id ', 'pick_lots.log');
2020: IF ( p_ic_tran_rec.line_id = 0
2018:
2019: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check line_id ', 'pick_lots.log');
2020: IF ( p_ic_tran_rec.line_id = 0
2021: OR p_ic_tran_rec.line_id IS NULL
2022: OR p_ic_tran_rec.line_id = FND_API.G_MISS_NUM)
2023: THEN
2024: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2025: FND_MESSAGE.Set_Token('MISSING', 'line_id');
2026: FND_MSG_PUB.Add;
2023: THEN
2024: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2025: FND_MESSAGE.Set_Token('MISSING', 'line_id');
2026: FND_MSG_PUB.Add;
2027: /* raise FND_API.G_EXC_ERROR; */
2028: END IF;
2029:
2030: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check whse_code ', 'pick_lots.log');
2031: IF ( p_ic_tran_rec.whse_code = ''
2029:
2030: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check whse_code ', 'pick_lots.log');
2031: IF ( p_ic_tran_rec.whse_code = ''
2032: OR p_ic_tran_rec.whse_code IS NULL
2033: OR p_ic_tran_rec.whse_code = FND_API.G_MISS_CHAR)
2034: THEN
2035: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2036: FND_MESSAGE.Set_Token('MISSING', 'whse_code');
2037: FND_MSG_PUB.Add;
2034: THEN
2035: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2036: FND_MESSAGE.Set_Token('MISSING', 'whse_code');
2037: FND_MSG_PUB.Add;
2038: raise FND_API.G_EXC_ERROR;
2039: END IF;
2040:
2041: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check co_code/orgn_code ', 'pick_lots.log');
2042:
2041: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check co_code/orgn_code ', 'pick_lots.log');
2042:
2043: IF ( p_ic_tran_rec.co_code = ''
2044: OR p_ic_tran_rec.co_code IS NULL
2045: OR p_ic_tran_rec.co_code = FND_API.G_MISS_CHAR)
2046: OR ( p_ic_tran_rec.orgn_code = ''
2047: OR p_ic_tran_rec.orgn_code IS NULL
2048: OR p_ic_tran_rec.orgn_code = FND_API.G_MISS_CHAR)
2049: THEN
2044: OR p_ic_tran_rec.co_code IS NULL
2045: OR p_ic_tran_rec.co_code = FND_API.G_MISS_CHAR)
2046: OR ( p_ic_tran_rec.orgn_code = ''
2047: OR p_ic_tran_rec.orgn_code IS NULL
2048: OR p_ic_tran_rec.orgn_code = FND_API.G_MISS_CHAR)
2049: THEN
2050: OPEN Get_Orgn_Co_from_Whse(p_ic_tran_rec.whse_code);
2051: FETCH Get_Orgn_Co_from_Whse
2052: INTO x_ic_tran_rec.co_code,
2057: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2058: FND_MESSAGE.Set_Token('MISSING', 'NOTFOUND co_code/orgn_code');
2059: FND_MSG_PUB.Add;
2060: CLOSE Get_Orgn_Co_from_Whse;
2061: raise FND_API.G_EXC_ERROR;
2062: END IF;
2063: CLOSE Get_Orgn_Co_from_Whse;
2064:
2065: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2064:
2065: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2066: FND_MESSAGE.Set_Token('MISSING', 'co_code/orgn_code');
2067: FND_MSG_PUB.Add;
2068: /* raise FND_API.G_EXC_ERROR; */
2069: END IF;
2070:
2071:
2072: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check lot_id ', 'pick_lots.log');
2071:
2072: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check lot_id ', 'pick_lots.log');
2073: IF ( p_ic_tran_rec.lot_id = 0
2074: OR p_ic_tran_rec.lot_id IS NULL
2075: OR p_ic_tran_rec.lot_id = FND_API.G_MISS_NUM)
2076: THEN
2077: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2078: FND_MESSAGE.Set_Token('MISSING', 'lot_id');
2079: FND_MSG_PUB.Add;
2076: THEN
2077: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2078: FND_MESSAGE.Set_Token('MISSING', 'lot_id');
2079: FND_MSG_PUB.Add;
2080: /* raise FND_API.G_EXC_ERROR; */
2081: END IF;
2082:
2083: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check location ', 'pick_lots.log');
2084: IF ( p_ic_tran_rec.location = ''
2082:
2083: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check location ', 'pick_lots.log');
2084: IF ( p_ic_tran_rec.location = ''
2085: OR p_ic_tran_rec.location IS NULL
2086: OR p_ic_tran_rec.location = FND_API.G_MISS_CHAR)
2087: THEN
2088: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2089: FND_MESSAGE.Set_Token('MISSING', 'location');
2090: FND_MSG_PUB.Add;
2087: THEN
2088: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2089: FND_MESSAGE.Set_Token('MISSING', 'location');
2090: FND_MSG_PUB.Add;
2091: /* raise FND_API.G_EXC_ERROR; */
2092: END IF;
2093:
2094: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check doc_id ', 'pick_lots.log');
2095: IF ( p_ic_tran_rec.doc_id = 0
2093:
2094: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check doc_id ', 'pick_lots.log');
2095: IF ( p_ic_tran_rec.doc_id = 0
2096: OR p_ic_tran_rec.doc_id IS NULL
2097: OR p_ic_tran_rec.doc_id = FND_API.G_MISS_NUM)
2098: THEN
2099: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2100: FND_MESSAGE.Set_Token('MISSING', 'doc_id');
2101: FND_MSG_PUB.Add;
2098: THEN
2099: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2100: FND_MESSAGE.Set_Token('MISSING', 'doc_id');
2101: FND_MSG_PUB.Add;
2102: /* raise FND_API.G_EXC_ERROR; */
2103: END IF;
2104:
2105: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check doc_type ', 'pick_lots.log');
2106: IF ( p_ic_tran_rec.doc_type = ''
2104:
2105: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check doc_type ', 'pick_lots.log');
2106: IF ( p_ic_tran_rec.doc_type = ''
2107: OR p_ic_tran_rec.doc_type IS NULL
2108: OR p_ic_tran_rec.doc_type = FND_API.G_MISS_CHAR)
2109: THEN
2110: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2111: FND_MESSAGE.Set_Token('MISSING', 'doc_type');
2112: FND_MSG_PUB.Add;
2109: THEN
2110: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2111: FND_MESSAGE.Set_Token('MISSING', 'doc_type');
2112: FND_MSG_PUB.Add;
2113: /* raise FND_API.G_EXC_ERROR; */
2114: END IF;
2115:
2116: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check doc_line ', 'pick_lots.log');
2117: IF ( p_ic_tran_rec.doc_line = 0
2115:
2116: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check doc_line ', 'pick_lots.log');
2117: IF ( p_ic_tran_rec.doc_line = 0
2118: OR p_ic_tran_rec.doc_line IS NULL
2119: OR p_ic_tran_rec.doc_line = FND_API.G_MISS_NUM)
2120: THEN
2121: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2122: FND_MESSAGE.Set_Token('MISSING', 'doc_line');
2123: FND_MSG_PUB.Add;
2120: THEN
2121: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2122: FND_MESSAGE.Set_Token('MISSING', 'doc_line');
2123: FND_MSG_PUB.Add;
2124: /* raise FND_API.G_EXC_ERROR; */
2125: END IF;
2126:
2127: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check line_type ', 'pick_lots.log');
2128: IF ( p_ic_tran_rec.line_type = 0
2126:
2127: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check line_type ', 'pick_lots.log');
2128: IF ( p_ic_tran_rec.line_type = 0
2129: OR p_ic_tran_rec.line_type IS NULL
2130: OR p_ic_tran_rec.line_type = FND_API.G_MISS_NUM)
2131: THEN
2132: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2133: FND_MESSAGE.Set_Token('MISSING', 'line_type');
2134: FND_MSG_PUB.Add;
2131: THEN
2132: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2133: FND_MESSAGE.Set_Token('MISSING', 'line_type');
2134: FND_MSG_PUB.Add;
2135: /* raise FND_API.G_EXC_ERROR; */
2136: END IF;
2137:
2138: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check trans_qty ', 'pick_lots.log');
2139: IF ( p_ic_tran_rec.trans_qty = 0
2137:
2138: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check trans_qty ', 'pick_lots.log');
2139: IF ( p_ic_tran_rec.trans_qty = 0
2140: OR p_ic_tran_rec.trans_qty IS NULL
2141: OR p_ic_tran_rec.trans_qty = FND_API.G_MISS_NUM)
2142: THEN
2143: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2144: FND_MESSAGE.Set_Token('MISSING', 'trans_qty');
2145: FND_MSG_PUB.Add;
2142: THEN
2143: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2144: FND_MESSAGE.Set_Token('MISSING', 'trans_qty');
2145: FND_MSG_PUB.Add;
2146: /* raise FND_API.G_EXC_ERROR; */
2147: END IF;
2148:
2149: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check trans_qty2 ', 'pick_lots.log');
2150: IF ( p_ic_tran_rec.trans_qty2 = 0
2148:
2149: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check trans_qty2 ', 'pick_lots.log');
2150: IF ( p_ic_tran_rec.trans_qty2 = 0
2151: OR p_ic_tran_rec.trans_qty2 IS NULL
2152: OR p_ic_tran_rec.trans_qty2 = FND_API.G_MISS_NUM)
2153: THEN
2154: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2155: FND_MESSAGE.Set_Token('MISSING', 'trans_qty2');
2156: FND_MSG_PUB.Add;
2153: THEN
2154: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2155: FND_MESSAGE.Set_Token('MISSING', 'trans_qty2');
2156: FND_MSG_PUB.Add;
2157: /* raise FND_API.G_EXC_ERROR; */
2158: END IF;
2159:
2160: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check trans_um ', 'pick_lots.log');
2161: IF ( p_ic_tran_rec.trans_um = ''
2159:
2160: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check trans_um ', 'pick_lots.log');
2161: IF ( p_ic_tran_rec.trans_um = ''
2162: OR p_ic_tran_rec.trans_um IS NULL
2163: OR p_ic_tran_rec.trans_um = FND_API.G_MISS_CHAR)
2164: THEN
2165: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2166: FND_MESSAGE.Set_Token('MISSING', 'trans_um');
2167: FND_MSG_PUB.Add;
2164: THEN
2165: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2166: FND_MESSAGE.Set_Token('MISSING', 'trans_um');
2167: FND_MSG_PUB.Add;
2168: /* raise FND_API.G_EXC_ERROR; */
2169: END IF;
2170:
2171: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check trans_um2 ', 'pick_lots.log');
2172: IF ( p_ic_tran_rec.trans_um2 = ''
2170:
2171: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check trans_um2 ', 'pick_lots.log');
2172: IF ( p_ic_tran_rec.trans_um2 = ''
2173: OR p_ic_tran_rec.trans_um2 IS NULL
2174: OR p_ic_tran_rec.trans_um2 = FND_API.G_MISS_CHAR)
2175: THEN
2176: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2177: FND_MESSAGE.Set_Token('MISSING', 'trans_um2');
2178: FND_MSG_PUB.Add;
2175: THEN
2176: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2177: FND_MESSAGE.Set_Token('MISSING', 'trans_um2');
2178: FND_MSG_PUB.Add;
2179: /* raise FND_API.G_EXC_ERROR; */
2180: END IF;
2181:
2182: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check trans_date ', 'pick_lots.log');
2183: IF ( p_ic_tran_rec.trans_date IS NULL
2180: END IF;
2181:
2182: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check trans_date ', 'pick_lots.log');
2183: IF ( p_ic_tran_rec.trans_date IS NULL
2184: OR p_ic_tran_rec.trans_date = FND_API.G_MISS_DATE)
2185: THEN
2186: /* x_ic_tran_rec.trans_date := sysdate; */
2187: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2188: FND_MESSAGE.Set_Token('MISSING', 'trans_date');
2186: /* x_ic_tran_rec.trans_date := sysdate; */
2187: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2188: FND_MESSAGE.Set_Token('MISSING', 'trans_date');
2189: FND_MSG_PUB.Add;
2190: /* raise FND_API.G_EXC_ERROR; */
2191: END IF;
2192:
2193:
2194:
2216: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: trans_um2='||x_ic_tran_rec.trans_um2, 'pick_lots.log');
2217: /* GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: staged_ind='||x_ic_tran_rec.staged_ind, 'pick_lots.log'); */
2218:
2219: EXCEPTION
2220: WHEN FND_API.G_EXC_ERROR THEN
2221: GMI_Reservation_Util.printLn('End of Validation_ic_tran_rec. Error', 'pick_lots.log');
2222: x_return_status := FND_API.G_RET_STS_ERROR;
2223:
2224: /* Get message count and data */
2218:
2219: EXCEPTION
2220: WHEN FND_API.G_EXC_ERROR THEN
2221: GMI_Reservation_Util.printLn('End of Validation_ic_tran_rec. Error', 'pick_lots.log');
2222: x_return_status := FND_API.G_RET_STS_ERROR;
2223:
2224: /* Get message count and data */
2225: FND_MSG_PUB.count_and_get
2226: ( p_count => x_msg_count
2228: );
2229:
2230: WHEN OTHERS THEN
2231: GMI_Reservation_Util.printLn('End of Validation_ic_tran_rec. ErrorOthers', 'pick_lots.log');
2232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2233:
2234: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
2235: , l_api_name
2236: );
2268: /* ======================================================================== */
2269: PROCEDURE Set_Pick_Lots
2270: ( p_ic_tran_rec IN OUT NOCOPY GMI_TRANS_ENGINE_PUB.ictran_rec
2271: , p_mo_line_id IN NUMBER
2272: , p_commit IN VARCHAR2 DEFAULT FND_API.G_TRUE
2273: , x_return_status OUT NOCOPY VARCHAR2
2274: , x_msg_count OUT NOCOPY NUMBER
2275: , x_msg_data OUT NOCOPY VARCHAR2
2276: ) IS
2279: l_api_name CONSTANT VARCHAR2(30) := 'Set_Pick_Lots';
2280: l_api_version CONSTANT VARCHAR2(10) := '1.0';
2281:
2282: l_whse_code VARCHAR2(4);
2283: l_commit VARCHAR2(5) := FND_API.G_FALSE;
2284: l_validation_level VARCHAR2(4) := FND_API.G_VALID_LEVEL_FULL;
2285: l_validation_flag VARCHAR2(10) := FND_API.G_TRUE;
2286: l_rsv_rec inv_reservation_global.mtl_reservation_rec_type;
2287: l_serial_number inv_reservation_global.serial_number_tbl_type;
2280: l_api_version CONSTANT VARCHAR2(10) := '1.0';
2281:
2282: l_whse_code VARCHAR2(4);
2283: l_commit VARCHAR2(5) := FND_API.G_FALSE;
2284: l_validation_level VARCHAR2(4) := FND_API.G_VALID_LEVEL_FULL;
2285: l_validation_flag VARCHAR2(10) := FND_API.G_TRUE;
2286: l_rsv_rec inv_reservation_global.mtl_reservation_rec_type;
2287: l_serial_number inv_reservation_global.serial_number_tbl_type;
2288: l_mtl_reservation_tbl inv_reservation_global.mtl_reservation_tbl_type;
2281:
2282: l_whse_code VARCHAR2(4);
2283: l_commit VARCHAR2(5) := FND_API.G_FALSE;
2284: l_validation_level VARCHAR2(4) := FND_API.G_VALID_LEVEL_FULL;
2285: l_validation_flag VARCHAR2(10) := FND_API.G_TRUE;
2286: l_rsv_rec inv_reservation_global.mtl_reservation_rec_type;
2287: l_serial_number inv_reservation_global.serial_number_tbl_type;
2288: l_mtl_reservation_tbl inv_reservation_global.mtl_reservation_tbl_type;
2289: l_mtl_reservation_tbl_count NUMBER;
2381:
2382: /* ======================================================================= */
2383: /* Init variables */
2384: /* ======================================================================= */
2385: x_return_status := FND_API.G_RET_STS_SUCCESS;
2386: SAVEPOINT Accept_Pick_Lots;
2387:
2388: l_need_update_default_lot := TRUE;
2389: l_change_lot := FALSE;
2405: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2406: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Validation_ictran_rec');
2407: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2408: FND_MSG_PUB.ADD;
2409: RAISE FND_API.G_EXC_ERROR;
2410: ELSE
2411: /* ================================================================ */
2412: /* Init variables before calling QueryReservation: */
2413: /* ================================================================ */
2429: FND_MESSAGE.Set_Name('GMI','GMI_QRY_SO_FAILED');
2430: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2431: FND_MESSAGE.Set_Token('SO_LINE_ID', ll_ic_tran_rec.line_id);
2432: FND_MSG_PUB.Add;
2433: RAISE FND_API.G_EXC_ERROR;
2434: ELSE
2435: GMI_reservation_Util.PrintLn('(opm_dbg) in Set_Pick_Lots FOUND: line_id='||ll_ic_tran_rec.line_id||'.', 'pick_lots.log');
2436: END IF;
2437: CLOSE c_sales_order_info;
2455: x_opm_co_code => ll_ic_tran_rec.co_code,
2456: x_opm_orgn_code => ll_ic_tran_rec.orgn_code,
2457: x_return_status => x_return_status );
2458:
2459: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2460: OR (l_whse_code <> ll_ic_tran_rec.whse_code)
2461: THEN
2462: GMI_reservation_Util.PrintLn('(opm_dbg) in end of GMI_Reservation_Util.Set_Pick_Lots ERROR:Returned by Get_Process_Org.');
2463: FND_MESSAGE.Set_Name('GMI','GMI_GET_PROCESS_ORG');
2462: GMI_reservation_Util.PrintLn('(opm_dbg) in end of GMI_Reservation_Util.Set_Pick_Lots ERROR:Returned by Get_Process_Org.');
2463: FND_MESSAGE.Set_Name('GMI','GMI_GET_PROCESS_ORG');
2464: FND_MESSAGE.Set_Token('ORGANIZATION_ID', l_organization_id);
2465: FND_MSG_PUB.Add;
2466: RAISE FND_API.G_EXC_ERROR;
2467: END IF;
2468:
2469: l_co_code := ll_ic_tran_rec.co_code;
2470: /* ============================================================================================= */
2478: , x_return_status => x_return_status
2479: , x_msg_count => x_msg_count
2480: , x_msg_data => x_msg_data);
2481:
2482: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2483: FND_MESSAGE.Set_Name('GMI','GMI_OPM_ITEM');
2484: FND_MESSAGE.Set_Token('ORGANIZATION_ID', l_organization_id);
2485: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', l_inventory_item_id);
2486: FND_MSG_PUB.Add;
2483: FND_MESSAGE.Set_Name('GMI','GMI_OPM_ITEM');
2484: FND_MESSAGE.Set_Token('ORGANIZATION_ID', l_organization_id);
2485: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', l_inventory_item_id);
2486: FND_MSG_PUB.Add;
2487: raise FND_API.G_EXC_ERROR;
2488: END IF;
2489:
2490: /* B1390816, odaboval 16-Nov-2000 : Added a check on the Horizon period. */
2491: /* ======================================================================= */
2518: GMI_Reservation_Util.PrintLn('(opm_dbg) allocation - Error missing allocation parms',1);
2519: FND_MESSAGE.SET_NAME('GML','GML_NO_ALLOCATION_PARMS');
2520: FND_MESSAGE.SET_TOKEN('ALLOC_CLASS', l_ic_item_mst_rec.alloc_class);
2521: FND_MSG_PUB.Add;
2522: RAISE FND_API.G_EXC_ERROR;
2523: END IF;
2524:
2525: /* It is not possible to allocate (create/update) if the period between */
2526: /* trans_date and sysdate is greater than the Horizon period. */
2532: GMI_Reservation_Util.PrintLn('(opm_dbg) do allocate from sysdate > ' || (p_ic_tran_rec.trans_date + l_op_alot_prm_rec.alloc_horizon));
2533: GMI_Reservation_Util.PrintLn('(opm_dbg) or choose trans_date < '|| (SYSDATE + l_op_alot_prm_rec.alloc_horizon));
2534: FND_MESSAGE.SET_NAME('GML','SO_E_ALLOC_HORIZON_ERR');
2535: FND_MSG_PUB.Add;
2536: RAISE FND_API.G_EXC_ERROR;
2537: END IF;
2538:
2539: /* ==================================================================== */
2540: /* End of check : trans_date validity */
2582: l_rsv_rec.organization_id := l_organization_id;
2583: l_rsv_rec.demand_source_header_id := l_demand_source_header_id;
2584: l_rsv_rec.demand_source_line_id := l_demand_source_line_id;
2585:
2586: l_validation_flag := FND_API.G_FALSE;
2587:
2588: GMI_reservation_pub.Query_reservation
2589: ( p_api_version_number => 1.0
2590: , p_init_msg_lst => FND_API.G_FALSE
2586: l_validation_flag := FND_API.G_FALSE;
2587:
2588: GMI_reservation_pub.Query_reservation
2589: ( p_api_version_number => 1.0
2590: , p_init_msg_lst => FND_API.G_FALSE
2591: , x_return_status => x_return_status
2592: , x_msg_count => x_msg_count
2593: , x_msg_data => x_msg_data
2594: , p_validation_flag => l_validation_flag
2596: , p_cancel_order_mode => INV_RESERVATION_GLOBAL.G_CANCEL_ORDER_YES
2597: , x_mtl_reservation_tbl => l_mtl_reservation_tbl
2598: , x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count
2599: , x_error_code => l_error_code
2600: , p_lock_records => FND_API.G_FALSE
2601: , p_sort_by_req_date => INV_RESERVATION_GLOBAL.G_QUERY_NO_SORT
2602: );
2603:
2604: /* ======================================================================================= */
2616: , x_return_status => x_return_status
2617: , x_msg_count => x_msg_count
2618: , x_msg_data => x_msg_data);
2619:
2620: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2621: GMI_reservation_Util.PrintLn('(opm_dbg) in Set_Pick_Lots: Error Returned by Create_Empty_Default_Lot(1).', 'pick_lots.log');
2622: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2623: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Create_Empty_Default_Lot');
2624: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2622: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2623: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Create_Empty_Default_Lot');
2624: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2625: FND_MSG_PUB.ADD;
2626: RAISE FND_API.G_EXC_ERROR;
2627: END IF;
2628: l_need_update_default_lot := FALSE;
2629:
2630: /* ======================================================================================= */
2634:
2635: END IF;
2636:
2637: /* There may have been a problem getting the rows */
2638: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2639: THEN
2640: GMI_reservation_Util.PrintLn('(opm_dbg) in Set_Pick_Lots: Error Returned by Query_Reservation.', 'pick_lots.log');
2641: FND_MESSAGE.SET_NAME('GMI','GMI_QRY_RSV_FAILED');
2642: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2641: FND_MESSAGE.SET_NAME('GMI','GMI_QRY_RSV_FAILED');
2642: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2643: FND_MESSAGE.Set_Token('SO_LINE_ID', l_rsv_rec.demand_source_line_id);
2644: FND_MSG_PUB.ADD;
2645: RAISE FND_API.G_EXC_ERROR;
2646: END IF;
2647:
2648: /* At this point the table should have rows */
2649: IF (GMI_Reservation_Util.ic_tran_rec_tbl.COUNT > 0)
2655: , x_return_status => x_return_status
2656: , x_msg_count => x_msg_count
2657: , x_msg_data => x_msg_data);
2658:
2659: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2660: GMI_reservation_Util.PrintLn('(opm_dbg) in Set_Pick_Lots: Error Returned by Get_Default_Lot.', 'pick_lots.log');
2661: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2662: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Get_Default_Lot');
2663: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2661: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2662: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Get_Default_Lot');
2663: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2664: FND_MSG_PUB.ADD;
2665: RAISE FND_API.G_EXC_ERROR;
2666: END IF;
2667:
2668: /* ============================================================================================= */
2669: /* Lock rows in ic_loct_inv. */
2681: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
2682: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Locks.Lock_Inventory');
2683: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2684: FND_MSG_PUB.Add;
2685: RAISE FND_API.G_EXC_ERROR;
2686: END IF;
2687: */
2688: GMI_reservation_Util.PrintLn('(opm_dbg) in Set_Pick_Lots: default_lot_index='||l_default_lot_index, 'pick_lots.log');
2689: /* ======================================================================================= */
2699: , x_return_status => x_return_status
2700: , x_msg_count => x_msg_count
2701: , x_msg_data => x_msg_data);
2702:
2703: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2704: GMI_reservation_Util.PrintLn('(opm_dbg) in Set_Pick_Lots: Error Returned by Create_Empty_Default_Lot(2).', 'pick_lots.log');
2705: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2706: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Create_Empty_Default_Lot');
2707: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2705: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2706: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Create_Empty_Default_Lot');
2707: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2708: FND_MSG_PUB.ADD;
2709: RAISE FND_API.G_EXC_ERROR;
2710: END IF;
2711: l_need_update_default_lot := FALSE;
2712:
2713: /* ======================================================================================= */
2746: ,x_return_status => x_return_status
2747: ,x_msg_count => x_msg_count
2748: ,x_msg_data => x_msg_data);
2749:
2750: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2751: GMI_reservation_Util.PrintLn('(opm_dbg) in Set_Pick_Lots: Error Returned by Get_Allocation.', 'pick_lots.log');
2752: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2753: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Get_Allocation');
2754: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2752: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2753: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Get_Allocation');
2754: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2755: FND_MSG_PUB.ADD;
2756: RAISE FND_API.G_EXC_ERROR;
2757: END IF;
2758:
2759: GMI_reservation_Util.PrintLn('(opm_dbg) in Set_Pick_Lots: Not updating the default, save orig trans to local rec.', 'pick_lots.log');
2760: l_original_tran_rec := GMI_Reservation_Util.ic_tran_rec_tbl(l_original_tran_index);
2774: ,x_return_status => x_return_status
2775: ,x_msg_count => x_msg_count
2776: ,x_msg_data => x_msg_data);
2777:
2778: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2779: GMI_reservation_Util.PrintLn('(opm_dbg) in Set_Pick_Lots: Error Returned by Validation_ictran_rec.', 'pick_lots.log');
2780: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2781: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Validation_ictran_rec');
2782: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2780: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2781: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Validation_ictran_rec');
2782: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2783: FND_MSG_PUB.ADD;
2784: RAISE FND_API.G_EXC_ERROR;
2785: END IF;
2786:
2787: l_ic_tran_rec.doc_id := l_demand_source_header_id;
2788: l_ic_tran_rec.line_id := l_demand_source_line_id;
2833: l_original_tran_rec.reason_code := ll_ic_tran_rec.reason_code;
2834: GMI_reservation_Util.PrintLn('(opm_dbg)in Set_Pick_Lots: Update the transaction qty to:' || l_original_tran_rec.trans_qty , 'pick_lots.log');
2835: GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TRANSACTION(
2836: p_api_version => 1.0
2837: ,p_init_msg_list => FND_API.G_FALSE
2838: ,p_commit => l_commit
2839: ,p_validation_level => l_validation_level
2840: ,p_tran_rec => l_original_tran_rec
2841: ,x_tran_row => l_temp_tran_row
2842: ,x_return_status => x_return_status
2843: ,x_msg_count => x_msg_count
2844: ,x_msg_data => x_msg_data);
2845:
2846: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2847: THEN
2848: GMI_reservation_Util.PrintLn('(opm_dbg) in Set_Pick_Lots: Error returned by GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TRANSACTION.', 'pick_lots.log');
2849: GMI_reservation_Util.PrintLn('Error Message '|| x_msg_data);
2850: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2850: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2851: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TRANSACTION');
2852: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2853: FND_MSG_PUB.Add;
2854: RAISE FND_API.G_EXC_ERROR;
2855: END IF;
2856: ELSE
2857: /* Need to delete the Original transaction, and then create a new one. */
2858: GMI_reservation_Util.PrintLn('(opm_dbg) in Set_Pick_Lots: Change of Lot...', 'pick_lots.log');
2881: , p_rsv_rec => l_rsv_rec
2882: , p_serial_number => l_serial_number
2883: );
2884:
2885: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2886: THEN
2887: GMI_Reservation_Util.PrintLn('(opm_dbg) In Set_Pick_Lots, Error returned by Delete_Reservation, Error='||x_return_status, 'pick_lots.log');
2888: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2889: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_PVT.Delete_Reservation');
2888: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2889: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_PVT.Delete_Reservation');
2890: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2891: FND_MSG_PUB.Add;
2892: RAISE FND_API.G_EXC_ERROR;
2893: END IF;
2894:
2895: END IF;
2896:
2931: gmi_reservation_util.println('Value of l_original_tran_rec.trans_um2 is '|| l_original_tran_rec.trans_um2);
2932: GMI_reservation_Util.PrintLn('(opm_dbg)in Set_Pick_Lots: Create the new transaction :', 'pick_lots.log');
2933: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION(
2934: p_api_version => 1.0
2935: ,p_init_msg_list => FND_API.G_FALSE
2936: ,p_commit => l_commit
2937: ,p_validation_level => l_validation_level
2938: ,p_tran_rec => l_original_tran_rec
2939: ,x_tran_row => l_temp_tran_row
2940: ,x_return_status => x_return_status
2941: ,x_msg_count => x_msg_count
2942: ,x_msg_data => x_msg_data);
2943:
2944: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2945: THEN
2946: GMI_reservation_Util.PrintLn('(opm_dbg) in Set_Pick_lots: Error returned by GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION.', 'pick_lots.log');
2947: GMI_reservation_Util.PrintLn('Error Message '|| x_msg_data);
2948: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2948: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2949: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION');
2950: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2951: FND_MSG_PUB.Add;
2952: RAISE FND_API.G_EXC_ERROR;
2953: END IF;
2954:
2955: /* Begin enhancement 1928979 - lakshmi swamy */
2956:
2957: IF (p_mo_line_id is NOT NULL) THEN
2958: GMI_Pick_Release_Util.Create_Manual_Alloc_Pickslip ( l_organization_id , p_mo_line_id,
2959: x_return_status, x_msg_count, x_msg_data, l_pick_slip_number);
2960:
2961: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2962: THEN
2963: GMI_reservation_Util.PrintLn('(opm_dbg) in Set_Pick_lots: Error returned by GMI_Pick_Release_Util.Create_Manual_Alloc_Pickslip.', 'pick_lots.log');
2964: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2965: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Pick_Release_Util.Create_Manual_Alloc_Pickslip');
2964: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2965: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Pick_Release_Util.Create_Manual_Alloc_Pickslip');
2966: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2967: FND_MSG_PUB.Add;
2968: RAISE FND_API.G_EXC_ERROR;
2969: END IF;
2970:
2971: UPDATE ic_tran_pnd
2972: SET pick_slip_number = l_pick_slip_number
3069: /* NC - 11/13/01 changed IF(FND_GLOBAL.user_id > 0) to IF(FND_GLOBAL.user_id >= 0).
3070: User_id 0 is a valid one( sysadmin). Bug#2108143 .This issue caused problems at numerous customers'.*/
3071: IF (FND_GLOBAL.user_id >= 0)
3072: THEN
3073: IF ( p_commit = FND_API.G_TRUE)
3074: THEN
3075: GMI_Reservation_Util.printLn('End of Set_Pick_Lots. No Error (COMMIT)', 'pick_lots.log');
3076: COMMIT;
3077: ELSE
3084:
3085: GMI_Reservation_Util.PrintLn('(opm_dbg) END of Set_Pick_Lots', 'pick_lots.log');
3086:
3087: EXCEPTION
3088: WHEN FND_API.G_EXC_ERROR THEN
3089: ROLLBACK TO SAVEPOINT Accept_Pick_Lots;
3090:
3091: GMI_Reservation_Util.printLn('End of Set_Pick_Lots. Error (Rollback)');
3092: FND_MESSAGE.Set_Name('GMI','UNEXPECTED_ERROR');
3092: FND_MESSAGE.Set_Name('GMI','UNEXPECTED_ERROR');
3093: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
3094: FND_MESSAGE.Set_Token('WHAT', 'ExpectedError');
3095: FND_MSG_PUB.Add;
3096: x_return_status := FND_API.G_RET_STS_ERROR;
3097:
3098: /* Get message count and data */
3099: FND_MSG_PUB.count_and_get
3100: ( p_count => x_msg_count
3108: FND_MESSAGE.Set_Name('GMI','UNEXPECTED_ERROR');
3109: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
3110: FND_MESSAGE.Set_Token('WHAT', 'LockError');
3111: FND_MSG_PUB.Add;
3112: x_return_status := FND_API.G_RET_STS_ERROR;
3113:
3114: WHEN OTHERS THEN
3115: ROLLBACK TO SAVEPOINT Accept_Pick_Lots;
3116:
3114: WHEN OTHERS THEN
3115: ROLLBACK TO SAVEPOINT Accept_Pick_Lots;
3116:
3117: GMI_Reservation_Util.printLn('End of Set_Pick_Lots. ErrorOthers (Rollback)');
3118: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3119:
3120: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
3121: , l_api_name
3122: );
3143: l_order_uom VARCHAR2(5);
3144: l_whse_code VARCHAR2(5);
3145: l_trans_qty NUMBER;
3146: l_trans_qty2 NUMBER;
3147: l_commit VARCHAR2(5) := FND_API.G_FALSE;
3148: l_validation_level VARCHAR2(4) := FND_API.G_VALID_LEVEL_FULL;
3149: l_ic_tran_rec GMI_TRANS_ENGINE_PUB.ictran_rec;
3150: l_temp_tran_row ic_tran_pnd%ROWTYPE;
3151: l_organization_id NUMBER;
3144: l_whse_code VARCHAR2(5);
3145: l_trans_qty NUMBER;
3146: l_trans_qty2 NUMBER;
3147: l_commit VARCHAR2(5) := FND_API.G_FALSE;
3148: l_validation_level VARCHAR2(4) := FND_API.G_VALID_LEVEL_FULL;
3149: l_ic_tran_rec GMI_TRANS_ENGINE_PUB.ictran_rec;
3150: l_temp_tran_row ic_tran_pnd%ROWTYPE;
3151: l_organization_id NUMBER;
3152: l_inventory_item_id NUMBER;
3323: GMI_reservation_Util.PrintLn(' old item_id '||l_opm_item_id);
3324: GMI_reservation_Util.PrintLn(' new item_id '||l_ic_tran_rec.item_id);
3325: GMI_TRANS_ENGINE_PUB.DELETE_PENDING_TRANSACTION(
3326: p_api_version => 1.0
3327: ,p_init_msg_list => fnd_api.g_false
3328: ,p_commit => l_commit
3329: ,p_validation_level => l_validation_level
3330: ,p_tran_rec => l_ic_tran_rec
3331: ,x_tran_row => l_temp_tran_row
3332: ,x_return_status => x_return_status
3333: ,x_msg_count => x_msg_count
3334: ,x_msg_data => x_msg_data);
3335: GMI_reservation_Util.PrintLn('(opm_dbg) in PVT d After DELETE_PENDING_TRANSACTION.');
3336: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
3337: THEN
3338: GMI_reservation_Util.PrintLn('(opm_dbg) in PVT d ERROR: Returned by Delete_Transaction().');
3339: GMI_reservation_Util.PrintLn('Error Message '|| x_msg_data);
3340: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
3340: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
3341: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_TRANS_ENGINE_PUB.DELETE_PENDING_TRANSACTION');
3342: FND_MESSAGE.Set_Token('WHERE', 'Delete_Reservation');
3343: FND_MSG_PUB.Add;
3344: RAISE FND_API.G_EXC_ERROR;
3345: END IF;
3346:
3347: l_ic_tran_rec.trans_id := null;
3348: l_ic_tran_rec.whse_code := l_whse_code;
3352: l_ic_tran_rec.trans_um2 := l_trans_um2;
3353:
3354: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION(
3355: p_api_version => 1.0
3356: ,p_init_msg_list => FND_API.G_FALSE
3357: ,p_commit => l_commit
3358: ,p_validation_level => l_validation_level
3359: ,p_tran_rec => l_ic_tran_rec
3360: ,x_tran_row => l_temp_tran_row
3361: ,x_return_status => x_return_status
3362: ,x_msg_count => x_msg_count
3363: ,x_msg_data => x_msg_data);
3364:
3365: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
3366: THEN
3367: GMI_reservation_Util.PrintLn('(opm_dbg) in Create_Empty_Default_Lot (Create DefaultLot): Error returned by GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION.', 'pick_lots.log');
3368: GMI_reservation_Util.PrintLn('Error Message '|| x_msg_data);
3369: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
3369: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
3370: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION');
3371: FND_MESSAGE.Set_Token('WHERE', 'Create_Empty_Default_Lot');
3372: FND_MSG_PUB.Add;
3373: RAISE FND_API.G_EXC_ERROR;
3374: END IF;
3375: /* cancel all the reservations for GME */
3376: GMI_reservation_Util.PrintLn('(opm_dbg)in balancing the default lot, cancel reservation for line_id '||l_ic_tran_rec.line_id);
3377: GML_BATCH_OM_RES_PVT.cancel_res_for_so_line
3386: GMI_reservation_Util.PrintLn('(opm_dbg)in balancing the default lot, update pending trans');
3387: GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TRANSACTION
3388: (
3389: p_api_version => 1.0
3390: ,p_init_msg_list => FND_API.G_FALSE
3391: ,p_commit => l_commit
3392: ,p_validation_level => l_validation_level
3393: ,p_tran_rec => l_ic_tran_rec
3394: ,x_tran_row => l_temp_tran_row
3395: ,x_return_status => x_return_status
3396: ,x_msg_count => x_msg_count
3397: ,x_msg_data => x_msg_data
3398: );
3399: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3400: GMI_reservation_Util.PrintLn('(opm_dbg)in balancing the default lot: ERROR');
3401: GMI_reservation_Util.PrintLn('Error Message '|| x_msg_data);
3402: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
3403: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TRANSACTION');
3402: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
3403: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TRANSACTION');
3404: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
3405: FND_MSG_PUB.Add;
3406: RAISE FND_API.G_EXC_ERROR;
3407: END IF;
3408: END IF;
3409: /* if the trans_qty is 0, remove all the outstand GME reservations as well */
3410: /* cancel all the reservations for GME */
3419: ) ;
3420: END IF;
3421: */
3422: EXCEPTION
3423: WHEN FND_API.G_EXC_ERROR THEN
3424: /* Get message count and data*/
3425: GMI_RESERVATION_UTIL.println('sqlerror'|| SUBSTRB(SQLERRM, 1, 100));
3426: WHEN OTHERS THEN
3427: GMI_RESERVATION_UTIL.println('sqlerror'|| SUBSTRB(SQLERRM, 1, 100));
3440: l_api_name CONSTANT VARCHAR2(30) := 'Create_Empty_Default_Lot';
3441: l_api_version CONSTANT VARCHAR2(10) := '1.0';
3442:
3443: l_lock_status BOOLEAN;
3444: l_validation_flag VARCHAR2(10) := FND_API.G_TRUE;
3445: l_commit VARCHAR2(5) := FND_API.G_FALSE;
3446: l_validation_level VARCHAR2(4) := FND_API.G_VALID_LEVEL_FULL;
3447:
3448: l_temp_tran_row ic_tran_pnd%ROWTYPE;
3441: l_api_version CONSTANT VARCHAR2(10) := '1.0';
3442:
3443: l_lock_status BOOLEAN;
3444: l_validation_flag VARCHAR2(10) := FND_API.G_TRUE;
3445: l_commit VARCHAR2(5) := FND_API.G_FALSE;
3446: l_validation_level VARCHAR2(4) := FND_API.G_VALID_LEVEL_FULL;
3447:
3448: l_temp_tran_row ic_tran_pnd%ROWTYPE;
3449: l_original_tran_rec GMI_TRANS_ENGINE_PUB.ictran_rec;
3442:
3443: l_lock_status BOOLEAN;
3444: l_validation_flag VARCHAR2(10) := FND_API.G_TRUE;
3445: l_commit VARCHAR2(5) := FND_API.G_FALSE;
3446: l_validation_level VARCHAR2(4) := FND_API.G_VALID_LEVEL_FULL;
3447:
3448: l_temp_tran_row ic_tran_pnd%ROWTYPE;
3449: l_original_tran_rec GMI_TRANS_ENGINE_PUB.ictran_rec;
3450: l_rsv_rec inv_reservation_global.mtl_reservation_rec_type;
3457: BEGIN
3458: /* ======================================================================= */
3459: /* Init variables */
3460: /* ======================================================================= */
3461: x_return_status := FND_API.G_RET_STS_SUCCESS;
3462:
3463:
3464: SAVEPOINT Empty_Default_lot;
3465:
3482: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
3483: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Locks.Lock_Inventory');
3484: FND_MESSAGE.Set_Token('WHERE', 'Create_Empty_Default_Lot');
3485: FND_MSG_PUB.Add;
3486: RAISE FND_API.G_EXC_ERROR;
3487: END IF;
3488:
3489: /* ============================================================================================= */
3490: /* No default lot exist AND MANUAL Allocation. Then create the default lot */
3542: IF (ll_trans_id is NULL)
3543: THEN
3544: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION(
3545: p_api_version => 1.0
3546: ,p_init_msg_list => FND_API.G_FALSE
3547: ,p_commit => l_commit
3548: ,p_validation_level => l_validation_level
3549: ,p_tran_rec => l_original_tran_rec
3550: ,x_tran_row => l_temp_tran_row
3551: ,x_return_status => x_return_status
3552: ,x_msg_count => x_msg_count
3553: ,x_msg_data => x_msg_data);
3554:
3555: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
3556: THEN
3557: GMI_reservation_Util.PrintLn('(opm_dbg) in Create_Empty_Default_Lot (Create DefaultLot): Error returned by GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION.', 'pick_lots.log');
3558: GMI_reservation_Util.PrintLn('Error Message '|| x_msg_data);
3559: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
3559: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
3560: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION');
3561: FND_MESSAGE.Set_Token('WHERE', 'Create_Empty_Default_Lot');
3562: FND_MSG_PUB.Add;
3563: RAISE FND_API.G_EXC_ERROR;
3564: END IF;
3565: ELSE
3566: GMI_reservation_Util.PrintLn('(opm_dbg) Dont create the default lot again (Shouldnt be here) - 2 ! ');
3567: END IF;
3574: l_rsv_rec.organization_id := p_organization_id;
3575: l_rsv_rec.demand_source_header_id := p_ic_tran_rec.doc_id;
3576: l_rsv_rec.demand_source_line_id := p_ic_tran_rec.line_id;
3577:
3578: l_validation_flag := FND_API.G_FALSE;
3579:
3580: GMI_reservation_pub.Query_reservation
3581: ( p_api_version_number => 1.0
3582: , p_init_msg_lst => FND_API.G_FALSE
3578: l_validation_flag := FND_API.G_FALSE;
3579:
3580: GMI_reservation_pub.Query_reservation
3581: ( p_api_version_number => 1.0
3582: , p_init_msg_lst => FND_API.G_FALSE
3583: , x_return_status => x_return_status
3584: , x_msg_count => x_msg_count
3585: , x_msg_data => x_msg_data
3586: , p_validation_flag => l_validation_flag
3588: , p_cancel_order_mode => INV_RESERVATION_GLOBAL.G_CANCEL_ORDER_YES
3589: , x_mtl_reservation_tbl => l_mtl_reservation_tbl
3590: , x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count
3591: , x_error_code => l_error_code
3592: , p_lock_records => FND_API.G_FALSE
3593: , p_sort_by_req_date => INV_RESERVATION_GLOBAL.G_QUERY_NO_SORT
3594: );
3595:
3596: /* There may not be any rows, and it should be possible ! (if not auto-allocate before) */
3600: FND_MESSAGE.SET_NAME('GMI','GMI_QRY_RSV_FAILED');
3601: FND_MESSAGE.Set_Token('WHERE', 'Create_Empty_Default_Lot');
3602: FND_MESSAGE.Set_Token('SO_LINE_ID', l_rsv_rec.demand_source_line_id);
3603: FND_MSG_PUB.ADD;
3604: RAISE FND_API.G_EXC_ERROR;
3605: END IF;
3606:
3607: /* There may have been a problem getting the rows */
3608: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
3604: RAISE FND_API.G_EXC_ERROR;
3605: END IF;
3606:
3607: /* There may have been a problem getting the rows */
3608: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
3609: THEN
3610: GMI_reservation_Util.PrintLn('(opm_dbg) in Create_Empty_Default_Lot: Error Returned by Query_Reservation(2).', 'pick_lots.log');
3611: FND_MESSAGE.SET_NAME('GMI','GMI_QRY_RSV_FAILED');
3612: FND_MESSAGE.Set_Token('WHERE', 'Create_Empty_Default_Lot');
3611: FND_MESSAGE.SET_NAME('GMI','GMI_QRY_RSV_FAILED');
3612: FND_MESSAGE.Set_Token('WHERE', 'Create_Empty_Default_Lot');
3613: FND_MESSAGE.Set_Token('SO_LINE_ID', l_rsv_rec.demand_source_line_id);
3614: FND_MSG_PUB.ADD;
3615: RAISE FND_API.G_EXC_ERROR;
3616: END IF;
3617:
3618: GMI_reservation_Util.PrintLn('(opm_dbg) in Create_Empty_Default_Lot: we have rows now calling Get_Default_Lot.', 'pick_lots.log');
3619: GMI_Reservation_Util.Get_Default_Lot(
3621: , x_return_status => x_return_status
3622: , x_msg_count => x_msg_count
3623: , x_msg_data => x_msg_data);
3624:
3625: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3626: GMI_reservation_Util.PrintLn('(opm_dbg) in Create_Empty_Default_Lot: Error Returned by Get_Default_Lot.', 'pick_lots.log');
3627: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
3628: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Get_Default_Lot');
3629: FND_MESSAGE.Set_Token('WHERE', 'Create_Empty_Default_Lot');
3627: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
3628: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Get_Default_Lot');
3629: FND_MESSAGE.Set_Token('WHERE', 'Create_Empty_Default_Lot');
3630: FND_MSG_PUB.ADD;
3631: RAISE FND_API.G_EXC_ERROR;
3632: END IF;
3633:
3634: GMI_reservation_Util.PrintLn('(opm_dbg) in Create_Empty_Default_Lot: default_lot_index='||x_default_lot_index, 'pick_lots.log');
3635: IF (x_default_lot_index=0)
3638: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
3639: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Get_Default_Lot');
3640: FND_MESSAGE.Set_Token('WHERE', 'Create_Empty_Default_Lot');
3641: FND_MSG_PUB.ADD;
3642: RAISE FND_API.G_EXC_ERROR;
3643: END IF;
3644:
3645: EXCEPTION
3646: WHEN FND_API.G_EXC_ERROR THEN
3642: RAISE FND_API.G_EXC_ERROR;
3643: END IF;
3644:
3645: EXCEPTION
3646: WHEN FND_API.G_EXC_ERROR THEN
3647: ROLLBACK TO SAVEPOINT Empty_Default_lot;
3648:
3649: GMI_Reservation_Util.printLn('End of Create_Empty_Default_Lot. Error');
3650: FND_MESSAGE.Set_Name('GMI','UNEXPECTED_ERROR');
3650: FND_MESSAGE.Set_Name('GMI','UNEXPECTED_ERROR');
3651: FND_MESSAGE.Set_Token('WHERE', 'Create_Empty_Default_Lot');
3652: FND_MESSAGE.Set_Token('WHAT', 'ExpectedError');
3653: FND_MSG_PUB.Add;
3654: x_return_status := FND_API.G_RET_STS_ERROR;
3655:
3656: /* Get message count and data */
3657: FND_MSG_PUB.count_and_get
3658: ( p_count => x_msg_count
3662: WHEN OTHERS THEN
3663: ROLLBACK TO SAVEPOINT Empty_Default_lot;
3664:
3665: GMI_Reservation_Util.printLn('End of Create_Empty_Default_Lot. ErrorOthers');
3666: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3667:
3668: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
3669: , l_api_name
3670: );
3704: BEGIN
3705: /* ======================================================================= */
3706: /* Init variables */
3707: /* ======================================================================= */
3708: x_return_status := FND_API.G_RET_STS_SUCCESS;
3709:
3710: OPEN c_default_exist( p_line_id, p_item_id);
3711: FETCH c_default_exist
3712: INTO x_trans_id;
3720: CLOSE c_default_exist;
3721:
3722:
3723: EXCEPTION
3724: WHEN FND_API.G_EXC_ERROR THEN
3725: GMI_Reservation_Util.printLn('End of Default_Lot_Exist. Error');
3726: FND_MESSAGE.Set_Name('GMI','UNEXPECTED_ERROR');
3727: FND_MESSAGE.Set_Token('WHERE', 'Default_Lot_Exist');
3728: FND_MESSAGE.Set_Token('WHAT', 'ExpectedError');
3726: FND_MESSAGE.Set_Name('GMI','UNEXPECTED_ERROR');
3727: FND_MESSAGE.Set_Token('WHERE', 'Default_Lot_Exist');
3728: FND_MESSAGE.Set_Token('WHAT', 'ExpectedError');
3729: FND_MSG_PUB.Add;
3730: x_return_status := FND_API.G_RET_STS_ERROR;
3731:
3732: /* Get message count and data */
3733: FND_MSG_PUB.count_and_get
3734: ( p_count => x_msg_count
3736: );
3737:
3738: WHEN OTHERS THEN
3739: GMI_Reservation_Util.printLn('End of Default_Lot_Exist. ErrorOthers');
3740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3741:
3742: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
3743: , l_api_name
3744: );
3856: l_ictran_rec.create_lot_index := NULL;
3857:
3858: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION
3859: ( p_api_version => 1.0
3860: , p_init_msg_list => FND_API.G_FALSE
3861: , p_commit => FND_API.G_FALSE
3862: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3863: , p_tran_rec => l_ictran_rec
3864: , x_tran_row => l_tran_row
3857:
3858: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION
3859: ( p_api_version => 1.0
3860: , p_init_msg_list => FND_API.G_FALSE
3861: , p_commit => FND_API.G_FALSE
3862: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3863: , p_tran_rec => l_ictran_rec
3864: , x_tran_row => l_tran_row
3865: , x_return_status => x_return_status
3858: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION
3859: ( p_api_version => 1.0
3860: , p_init_msg_list => FND_API.G_FALSE
3861: , p_commit => FND_API.G_FALSE
3862: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3863: , p_tran_rec => l_ictran_rec
3864: , x_tran_row => l_tran_row
3865: , x_return_status => x_return_status
3866: , x_msg_count => x_msg_count
3866: , x_msg_count => x_msg_count
3867: , x_msg_data => x_msg_data
3868: );
3869:
3870: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3871: GMI_reservation_Util.PrintLn('(opm_dbg) Error return by Create_Pending_Transaction,
3872: return_status='|| x_return_status||', x_msg_count='|| x_msg_count||'.');
3873: GMI_reservation_Util.PrintLn('Error Message '|| x_msg_data);
3874: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
3874: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
3875: FND_MESSAGE.Set_Token('BY_PROC','GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION');
3876: FND_MESSAGE.Set_Token('WHERE','Create_Default_Lot');
3877: FND_MSG_PUB.Add;
3878: raise FND_API.G_EXC_ERROR;
3879: END IF;
3880: END create_dflt_lot_from_scratch;
3881:
3882: Procedure create_transaction_for_rcv
3994: -- END Bug 3558787
3995:
3996: Begin
3997:
3998: x_return_status := FND_API.G_RET_STS_SUCCESS;
3999:
4000: GMI_reservation_Util.PrintLn('(opm_dbg) entering the trans for rcv ');
4001: Open get_uom;
4002: Fetch get_uom
4142: GMI_RESERVATION_UTIL.println('lot_status '||l_ictran_rec.lot_status);
4143:
4144: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION
4145: ( p_api_version => 1.0
4146: , p_init_msg_list => FND_API.G_FALSE
4147: , p_commit => FND_API.G_FALSE
4148: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
4149: , p_tran_rec => l_ictran_rec
4150: , x_tran_row => l_tran_row
4143:
4144: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION
4145: ( p_api_version => 1.0
4146: , p_init_msg_list => FND_API.G_FALSE
4147: , p_commit => FND_API.G_FALSE
4148: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
4149: , p_tran_rec => l_ictran_rec
4150: , x_tran_row => l_tran_row
4151: , x_return_status => x_return_status
4144: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION
4145: ( p_api_version => 1.0
4146: , p_init_msg_list => FND_API.G_FALSE
4147: , p_commit => FND_API.G_FALSE
4148: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
4149: , p_tran_rec => l_ictran_rec
4150: , x_tran_row => l_tran_row
4151: , x_return_status => x_return_status
4152: , x_msg_count => x_msg_count
4152: , x_msg_count => x_msg_count
4153: , x_msg_data => x_msg_data
4154: );
4155:
4156: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4157: GMI_reservation_Util.PrintLn('(opm_dbg) Error in creating transaction for receiving');
4158: GMI_reservation_Util.PrintLn('(opm_dbg) Error return by Create_Pending_Transaction,
4159: return_status='|| x_return_status||', x_msg_count='|| x_msg_count||'.');
4160: GMI_reservation_Util.PrintLn('Error Message '|| x_msg_data);
4161: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
4162: FND_MESSAGE.Set_Token('BY_PROC','GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION');
4163: FND_MESSAGE.Set_Token('WHERE','create_transaction_for_rcv');
4164: FND_MSG_PUB.Add;
4165: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4166: END IF;
4167:
4168: l_ictran_rec.trans_id := l_tran_row.trans_id;
4169: GMI_RESERVATION_UTIL.println('trans_id '||l_ictran_rec.trans_id);
4171: GMI_RESERVATION_UTIL.println('after create pending transaction ');
4172: GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TO_COMPLETED
4173: (
4174: p_api_version => 1
4175: ,p_init_msg_list => FND_API.G_FALSE
4176: ,p_commit => FND_API.G_FALSE
4177: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
4178: ,p_tran_rec => l_ictran_rec
4179: ,x_tran_row => l_tran_row
4172: GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TO_COMPLETED
4173: (
4174: p_api_version => 1
4175: ,p_init_msg_list => FND_API.G_FALSE
4176: ,p_commit => FND_API.G_FALSE
4177: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
4178: ,p_tran_rec => l_ictran_rec
4179: ,x_tran_row => l_tran_row
4180: ,x_return_status => x_return_status
4173: (
4174: p_api_version => 1
4175: ,p_init_msg_list => FND_API.G_FALSE
4176: ,p_commit => FND_API.G_FALSE
4177: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
4178: ,p_tran_rec => l_ictran_rec
4179: ,x_tran_row => l_tran_row
4180: ,x_return_status => x_return_status
4181: ,x_msg_count => x_msg_count
4181: ,x_msg_count => x_msg_count
4182: ,x_msg_data => x_msg_data
4183: );
4184:
4185: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
4186: THEN
4187:
4188: GMI_reservation_Util.PrintLn('(opm_dbg) Error return by UPDATE_PENDING_TO_COMPLETED,
4189: return_status='|| x_return_status||', x_msg_count='|| x_msg_count||'.');
4191: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
4192: FND_MESSAGE.Set_Token('BY_PROC','GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TO_COMPLETED');
4193: FND_MESSAGE.Set_Token('WHERE','create_transaction_for_rcv');
4194: FND_MSG_PUB.Add;
4195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4196: END IF;
4197:
4198: EXCEPTION
4199: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4196: END IF;
4197:
4198: EXCEPTION
4199: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4200: x_return_status := FND_API.G_RET_STS_ERROR;
4201:
4202: /* Get message count and data */
4203: FND_MSG_PUB.count_and_get
4196: END IF;
4197:
4198: EXCEPTION
4199: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4200: x_return_status := FND_API.G_RET_STS_ERROR;
4201:
4202: /* Get message count and data */
4203: FND_MSG_PUB.count_and_get
4204: ( p_encoded=> FND_API.G_FALSE
4200: x_return_status := FND_API.G_RET_STS_ERROR;
4201:
4202: /* Get message count and data */
4203: FND_MSG_PUB.count_and_get
4204: ( p_encoded=> FND_API.G_FALSE
4205: , p_count => x_msg_count
4206: , p_data => x_msg_data
4207: );
4208: for l_cnt in 1..x_msg_count loop
4211: end loop;
4212: GMI_reservation_Util.PrintLn('for rcv:EXP Error count='||x_msg_count);
4213:
4214: WHEN OTHERS THEN
4215: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4216:
4217: FND_MSG_PUB.Add_Exc_Msg ( 'RESERVATION_UTIL'
4218: , 'create_trans_for_rcv'
4219: );
4352: IS
4353: l_count number := 0;
4354:
4355: BEGIN
4356: x_return_status := FND_API.G_RET_STS_SUCCESS;
4357:
4358: Select count(*)
4359: INTO l_count
4360: From ic_tran_pnd
4427: x_return_status => l_return_status,
4428: x_msg_count => l_msg_count,
4429: x_msg_data => l_msg_data);
4430:
4431: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4432: RAISE FND_API.G_EXC_ERROR;
4433: END IF;
4434:
4435: GMI_RESERVATION_UTIL.Get_OPMUOM_from_AppsUOM(
4428: x_msg_count => l_msg_count,
4429: x_msg_data => l_msg_data);
4430:
4431: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4432: RAISE FND_API.G_EXC_ERROR;
4433: END IF;
4434:
4435: GMI_RESERVATION_UTIL.Get_OPMUOM_from_AppsUOM(
4436: p_apps_uom =>p_apps_from_uom,
4437: x_opm_uom =>l_opm_from_uom,
4438: x_return_status =>l_return_status,
4439: x_msg_count =>l_msg_count,
4440: x_msg_data =>l_msg_data);
4441: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4442: FND_MESSAGE.Set_Name('GMI','GMI_OPM_UOM_NOT_FOUND');
4443: FND_MESSAGE.Set_Token('APPS_UOM_CODE', p_apps_from_uom);
4444: FND_MSG_PUB.Add;
4445: RAISE FND_API.G_EXC_ERROR;
4441: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4442: FND_MESSAGE.Set_Name('GMI','GMI_OPM_UOM_NOT_FOUND');
4443: FND_MESSAGE.Set_Token('APPS_UOM_CODE', p_apps_from_uom);
4444: FND_MSG_PUB.Add;
4445: RAISE FND_API.G_EXC_ERROR;
4446: END IF;
4447: GMI_reservation_Util.PrintLn('from uom (OPM) '||l_opm_from_uom);
4448: GMI_RESERVATION_UTIL.Get_OPMUOM_from_AppsUOM(
4449: p_apps_uom =>p_apps_to_uom,
4450: x_opm_uom =>l_opm_to_uom,
4451: x_return_status =>l_return_status,
4452: x_msg_count =>l_msg_count,
4453: x_msg_data =>l_msg_data);
4454: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4455: FND_MESSAGE.Set_Name('GMI','GMI_OPM_UOM_NOT_FOUND');
4456: FND_MESSAGE.Set_Token('APPS_UOM_CODE', p_apps_to_uom);
4457: FND_MSG_PUB.Add;
4458: RAISE FND_API.G_EXC_ERROR;
4454: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4455: FND_MESSAGE.Set_Name('GMI','GMI_OPM_UOM_NOT_FOUND');
4456: FND_MESSAGE.Set_Token('APPS_UOM_CODE', p_apps_to_uom);
4457: FND_MSG_PUB.Add;
4458: RAISE FND_API.G_EXC_ERROR;
4459: END IF;
4460: GMI_reservation_Util.PrintLn('to uom (OPM) '||l_opm_to_uom);
4461:
4462: GMICUOM.icuomcv(
4470: GMI_reservation_Util.PrintLn('conversion error code'|| l_converted_qty);
4471: FND_MESSAGE.Set_Name('GMI','GMICUOM.icuomcv');
4472: FND_MESSAGE.Set_Token('CONVERSION_ERROR', p_apps_to_uom);
4473: FND_MSG_PUB.Add;
4474: RAISE FND_API.G_EXC_ERROR;
4475: END IF;
4476:
4477: --
4478: -- BUG 3581429 Added the following anonymous block
4512: x_staged_flag OUT NOCOPY VARCHAR2,
4513: p_reservation_id IN NUMBER) IS
4514: l_staged_flag NUMBER;
4515: BEGIN
4516: x_return_status := FND_API.G_RET_STS_SUCCESS;
4517:
4518: GMI_reservation_Util.PrintLn('(opm_dbg) trans_id '|| p_reservation_id);
4519: Select staged_ind
4520: Into l_staged_flag
4545: And staged_ind = 0
4546: And (lot_id = 0
4547: AND location = GMI_RESERVATION_UTIL.G_DEFAULT_LOCT);
4548: BEGIN
4549: x_return_status := FND_API.G_RET_STS_SUCCESS;
4550: GMI_reservation_Util.PrintLn('(opm_dbg) in find_default_lot defaultloc '
4551: || GMI_RESERVATION_UTIL.G_DEFAULT_LOCT);
4552: GMI_reservation_Util.PrintLn('(opm_dbg) in find_default_lot line_id '|| p_line_id);
4553: Open find_trans;
4737: p_line_id => p_old_source_line_id
4738: );
4739: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4740: GMI_RESERVATION_UTIL.println('Error returned by find default lot');
4741: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4742: END IF;
4743: IF l_trans_id > 0 THEN
4744: oe_debug_pub.add('Going to find default lot in for new line ',2);
4745: GMI_RESERVATION_UTIL.find_default_lot
4765:
4766: GMI_RESERVATION_UTIL.PrintLn('creating the default trans for the new line');
4767: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION
4768: ( p_api_version => 1
4769: , p_init_msg_list => FND_API.G_FALSE
4770: , p_commit => FND_API.G_FALSE
4771: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
4772: , p_tran_rec => l_new_transaction_rec
4773: , x_tran_row => l_new_transaction_row
4766: GMI_RESERVATION_UTIL.PrintLn('creating the default trans for the new line');
4767: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION
4768: ( p_api_version => 1
4769: , p_init_msg_list => FND_API.G_FALSE
4770: , p_commit => FND_API.G_FALSE
4771: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
4772: , p_tran_rec => l_new_transaction_rec
4773: , x_tran_row => l_new_transaction_row
4774: , x_return_status => x_return_status
4767: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION
4768: ( p_api_version => 1
4769: , p_init_msg_list => FND_API.G_FALSE
4770: , p_commit => FND_API.G_FALSE
4771: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
4772: , p_tran_rec => l_new_transaction_rec
4773: , x_tran_row => l_new_transaction_row
4774: , x_return_status => x_return_status
4775: , x_msg_count => x_msg_count
4775: , x_msg_count => x_msg_count
4776: , x_msg_data => x_msg_data
4777: );
4778:
4779: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
4780: THEN
4781: GMI_reservation_Util.PrintLn('(opm_dbg) Error in creating default transaction ');
4782: GMI_reservation_Util.PrintLn('(opm_dbg) Error return by Create_Pending_Transaction,
4783: return_status='|| x_return_status||', x_msg_count='|| x_msg_count||'.');
4785: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
4786: FND_MESSAGE.Set_Token('BY_PROC','GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION');
4787: FND_MESSAGE.Set_Token('WHERE','split_trans_from_om');
4788: FND_MSG_PUB.Add;
4789: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4790: END IF;
4791: END IF;
4792: END IF;
4793: END IF;
4829: l_new_transaction_rec.line_id := p_new_source_line_id;
4830:
4831: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION
4832: ( p_api_version => 1
4833: , p_init_msg_list => FND_API.G_FALSE
4834: , p_commit => FND_API.G_FALSE
4835: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
4836: , p_tran_rec => l_new_transaction_rec
4837: , x_tran_row => l_new_transaction_row
4830:
4831: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION
4832: ( p_api_version => 1
4833: , p_init_msg_list => FND_API.G_FALSE
4834: , p_commit => FND_API.G_FALSE
4835: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
4836: , p_tran_rec => l_new_transaction_rec
4837: , x_tran_row => l_new_transaction_row
4838: , x_return_status => x_return_status
4831: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION
4832: ( p_api_version => 1
4833: , p_init_msg_list => FND_API.G_FALSE
4834: , p_commit => FND_API.G_FALSE
4835: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
4836: , p_tran_rec => l_new_transaction_rec
4837: , x_tran_row => l_new_transaction_row
4838: , x_return_status => x_return_status
4839: , x_msg_count => x_msg_count
4839: , x_msg_count => x_msg_count
4840: , x_msg_data => x_msg_data
4841: );
4842:
4843: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
4844: THEN
4845: GMI_reservation_Util.PrintLn('(opm_dbg) Error in creating transaction ');
4846: GMI_reservation_Util.PrintLn('(opm_dbg) Error return by Create_Pending_Transaction,
4847: return_status='|| x_return_status||', x_msg_count='|| x_msg_count||'.');
4850: FND_MESSAGE.Set_Token('BY_PROC','GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION');
4851: FND_MESSAGE.Set_Token('WHERE','split_trans_from_om');
4852: FND_MSG_PUB.Add;
4853:
4854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4855: END IF;
4856: /* no more fulfilment */
4857: l_qty_to_fulfil := 0;
4858: l_qty2_to_fulfil := 0;
4884: , x_return_status => x_return_status
4885: , x_msg_count => x_msg_count
4886: , x_msg_data => x_msg_data
4887: );
4888: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
4889: THEN
4890: GMI_RESERVATION_UTIL.PrintLn('Error returned by balancing default lot');
4891: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4892: END IF;
4887: );
4888: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
4889: THEN
4890: GMI_RESERVATION_UTIL.PrintLn('Error returned by balancing default lot');
4891: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4892: END IF;
4893: END IF;
4894: END IF;
4895: GMI_RESERVATION_UTIL.find_default_lot
4913: , x_return_status => x_return_status
4914: , x_msg_count => x_msg_count
4915: , x_msg_data => x_msg_data
4916: );
4917: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
4918: THEN
4919: GMI_RESERVATION_UTIL.PrintLn('Error returned by balancing default lot');
4920: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4921: END IF;
4916: );
4917: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
4918: THEN
4919: GMI_RESERVATION_UTIL.PrintLn('Error returned by balancing default lot');
4920: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4921: END IF;
4922: END IF;
4923: END IF;
4924: /* split the reservations if necessary */
4981:
4982: l_ctl_ind VARCHAR2(1);
4983: BEGIN
4984:
4985: x_return_status := FND_API.G_RET_STS_SUCCESS;
4986:
4987:
4988: /* see if item is a ctl item */
4989: GMI_RESERVATION_UTIL.check_lot_loct_ctl
4999: FETCH get_opm_txn_cntl into l_old_transaction_rec.trans_id;
5000: IF get_opm_txn_cntl%NOTFOUND THEN
5001: CLOSE get_opm_txn_cntl;
5002: gmi_reservation_util.println('Failed to fetch trans_id in update_opm_trxns for lot/location item= '||p_trans_id);
5003: x_return_status := FND_API.G_RET_STS_ERROR;
5004: RETURN;
5005: END IF;
5006: CLOSE get_opm_txn_cntl;
5007:
5011: FETCH get_opm_txn_non_cntl into l_old_transaction_rec.trans_id;
5012: IF get_opm_txn_non_cntl%NOTFOUND THEN
5013: CLOSE get_opm_txn_non_cntl;
5014: gmi_reservation_util.println('Failed to fetch trans_id in update_opm_trxns for non-lot/non location= '||p_trans_id);
5015: x_return_status := FND_API.G_RET_STS_ERROR;
5016: RETURN;
5017: END IF;
5018: CLOSE get_opm_txn_non_cntl;
5019: END IF;
5028: l_old_transaction_rec.line_detail_id := -999;
5029: GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TO_COMPLETED
5030: (
5031: p_api_version => 1
5032: ,p_init_msg_list => FND_API.G_FALSE
5033: ,p_commit => FND_API.G_FALSE
5034: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5035: ,p_tran_rec => l_old_transaction_rec
5036: ,x_tran_row => l_old_transaction_row
5029: GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TO_COMPLETED
5030: (
5031: p_api_version => 1
5032: ,p_init_msg_list => FND_API.G_FALSE
5033: ,p_commit => FND_API.G_FALSE
5034: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5035: ,p_tran_rec => l_old_transaction_rec
5036: ,x_tran_row => l_old_transaction_row
5037: ,x_return_status => x_return_status
5030: (
5031: p_api_version => 1
5032: ,p_init_msg_list => FND_API.G_FALSE
5033: ,p_commit => FND_API.G_FALSE
5034: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5035: ,p_tran_rec => l_old_transaction_rec
5036: ,x_tran_row => l_old_transaction_row
5037: ,x_return_status => x_return_status
5038: ,x_msg_count => x_msg_count
5038: ,x_msg_count => x_msg_count
5039: ,x_msg_data => x_msg_data
5040: );
5041:
5042: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5043: GMI_reservation_Util.PrintLn('(opm_dbg) Error in updating transaction ');
5044: GMI_reservation_Util.PrintLn('(opm_dbg) Error return by UPDATE_PENDING_TO_COMPLETED,
5045: return_status='|| x_return_status||', x_msg_count='|| x_msg_count||'.');
5046: GMI_reservation_Util.PrintLn('Error Message '|| x_msg_data);
5047: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
5048: FND_MESSAGE.Set_Token('BY_PROC','GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TO_COMPLETED');
5049: FND_MESSAGE.Set_Token('WHERE','update_opm_trxns');
5050: FND_MSG_PUB.Add;
5051: x_return_status := FND_API.G_RET_STS_ERROR;
5052: RETURN;
5053: END IF; -- of update
5054:
5055: ELSE -- of fetching trxn
5053: END IF; -- of update
5054:
5055: ELSE -- of fetching trxn
5056: gmi_reservation_util.println('Failed to fetch opm trxn in update_opm_trxns for trans_id:'||p_trans_id);
5057: x_return_status := FND_API.G_RET_STS_ERROR;
5058: RETURN;
5059: END IF; -- of fetching OPM trx
5060:
5061: gmi_reservation_util.println('Done upating ic_tran_pnd in update_opm_trxns.');
5085: x_lot_id NUMBER;
5086:
5087: BEGIN
5088:
5089: x_return_status := FND_API.G_RET_STS_SUCCESS;
5090: gmi_reservation_util.println('In GMI_reservation_util.find_lot_id');
5091: OPEN lot_info ;
5092: FETCH lot_info into x_lot_id ;
5093: IF lot_info%NOTFOUND THEN
5092: FETCH lot_info into x_lot_id ;
5093: IF lot_info%NOTFOUND THEN
5094: CLOSE lot_info ;
5095: gmi_reservation_util.println('Failed to fetch lot_id in in find_lot_id for trans _id= '||p_trans_id);
5096: x_return_status := FND_API.G_RET_STS_ERROR;
5097: RETURN;
5098: END IF;
5099:
5100: CLOSE lot_info;
5131:
5132: BEGIN
5133:
5134: -- Get OPM item information
5135: x_return_status := FND_API.G_RET_STS_SUCCESS;
5136: GMI_RESERVATION_UTIL.Get_OPM_Item_From_Apps(
5137: p_organization_id =>p_organization_id,
5138: p_inventory_item_id => p_inventory_item_id,
5139: x_ic_item_mst_rec => l_ic_item_mst_rec,
5140: x_return_status => l_return_status,
5141: x_msg_count => l_msg_count,
5142: x_msg_data => l_msg_data);
5143:
5144: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5145: raise FND_API.G_EXC_ERROR;
5146: RETURN;
5147: END IF;
5148:
5141: x_msg_count => l_msg_count,
5142: x_msg_data => l_msg_data);
5143:
5144: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5145: raise FND_API.G_EXC_ERROR;
5146: RETURN;
5147: END IF;
5148:
5149: opm_item_id := l_ic_item_mst_rec.item_id ;
5152: FETCH get_lot_no into l_lot_number;
5153: IF get_lot_no%NOTFOUND THEN
5154: CLOSE get_lot_no ;
5155: gmi_reservation_util.println('Failed to fetch lot_no in validate_lot_no');
5156: x_return_status := FND_API.G_RET_STS_ERROR;
5157: RETURN;
5158: END IF;
5159:
5160: CLOSE get_lot_no;
5158: END IF;
5159:
5160: CLOSE get_lot_no;
5161:
5162: x_return_status := FND_API.G_RET_STS_SUCCESS;
5163:
5164:
5165: EXCEPTION
5166: WHEN FND_API.G_EXC_ERROR THEN
5162: x_return_status := FND_API.G_RET_STS_SUCCESS;
5163:
5164:
5165: EXCEPTION
5166: WHEN FND_API.G_EXC_ERROR THEN
5167:
5168: x_return_status := FND_API.G_RET_STS_ERROR;
5169:
5170: FND_MSG_Pub.count_and_get
5164:
5165: EXCEPTION
5166: WHEN FND_API.G_EXC_ERROR THEN
5167:
5168: x_return_status := FND_API.G_RET_STS_ERROR;
5169:
5170: FND_MSG_Pub.count_and_get
5171: ( p_count => x_msg_count
5172: , p_data => x_msg_data
5173: );
5174:
5175: GMI_reservation_Util.PrintLn('(opm_dbg) in Util q: Exp_Error ');
5176:
5177: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5178: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5179: FND_MSG_PUB.Count_And_Get
5180: (
5181: p_count => x_msg_count,
5174:
5175: GMI_reservation_Util.PrintLn('(opm_dbg) in Util q: Exp_Error ');
5176:
5177: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5178: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5179: FND_MSG_PUB.Count_And_Get
5180: (
5181: p_count => x_msg_count,
5182: p_data => x_msg_data,
5179: FND_MSG_PUB.Count_And_Get
5180: (
5181: p_count => x_msg_count,
5182: p_data => x_msg_data,
5183: p_encoded => FND_API.G_FALSE
5184: );
5185:
5186: WHEN OTHERS THEN
5187: GMI_reservation_Util.PrintLn('(opm_dbg) in Util q: Error in Select='||SQLCODE||'.');
5252: l_api_name CONSTANT VARCHAR2 (30) := 'line_allocated';
5253:
5254: BEGIN
5255:
5256: x_return_status := FND_API.G_RET_STS_SUCCESS;
5257:
5258:
5259: /* see if item is a ctl item */
5260: GMI_RESERVATION_UTIL.check_lot_loct_ctl
5291: END IF;
5292:
5293:
5294: EXCEPTION
5295: WHEN FND_API.G_EXC_ERROR THEN
5296:
5297: x_return_status := FND_API.G_RET_STS_ERROR;
5298:
5299: FND_MSG_Pub.count_and_get
5293:
5294: EXCEPTION
5295: WHEN FND_API.G_EXC_ERROR THEN
5296:
5297: x_return_status := FND_API.G_RET_STS_ERROR;
5298:
5299: FND_MSG_Pub.count_and_get
5300: ( p_count => x_msg_count
5301: , p_data => x_msg_data
5302: );
5303:
5304: GMI_reservation_Util.PrintLn('(opm_dbg) in Util q: Exp_Error ');
5305:
5306: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5307: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5308: FND_MSG_PUB.Count_And_Get
5309: (
5310: p_count => x_msg_count,
5303:
5304: GMI_reservation_Util.PrintLn('(opm_dbg) in Util q: Exp_Error ');
5305:
5306: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5307: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5308: FND_MSG_PUB.Count_And_Get
5309: (
5310: p_count => x_msg_count,
5311: p_data => x_msg_data,
5308: FND_MSG_PUB.Count_And_Get
5309: (
5310: p_count => x_msg_count,
5311: p_data => x_msg_data,
5312: p_encoded => FND_API.G_FALSE
5313: );
5314:
5315: WHEN OTHERS THEN
5316: GMI_reservation_Util.PrintLn('(opm_dbg) in Util q: Error in Select='||SQLCODE||'.');
5382: return_status VARCHAR2(10);
5383:
5384: BEGIN
5385:
5386: x_return_status := FND_API.G_RET_STS_SUCCESS;
5387:
5388: gmi_reservation_util.println('In procedure is_line_allocated');
5389:
5390: -- Get item info
5396: , x_return_status => return_status
5397: , x_msg_count => x_msg_count
5398: , x_msg_data => x_msg_data);
5399:
5400: IF (return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5401: FND_MESSAGE.Set_Name('GMI','GMI_OPM_ITEM');
5402: FND_MESSAGE.Set_Token('ORGANIZATION_ID', p_organization_id);
5403: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', p_inventory_item_id);
5404: FND_MSG_PUB.Add;
5401: FND_MESSAGE.Set_Name('GMI','GMI_OPM_ITEM');
5402: FND_MESSAGE.Set_Token('ORGANIZATION_ID', p_organization_id);
5403: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', p_inventory_item_id);
5404: FND_MSG_PUB.Add;
5405: raise FND_API.G_EXC_ERROR;
5406: END IF;
5407:
5408: IF ( l_ic_item_mst_rec.lot_indivisible = 1 ) THEN
5409: /* see if item is a ctl item */
5446: END IF; -- of lot_ind
5447:
5448:
5449: EXCEPTION
5450: WHEN FND_API.G_EXC_ERROR THEN
5451:
5452: x_return_status := FND_API.G_RET_STS_ERROR;
5453:
5454: FND_MSG_Pub.count_and_get
5448:
5449: EXCEPTION
5450: WHEN FND_API.G_EXC_ERROR THEN
5451:
5452: x_return_status := FND_API.G_RET_STS_ERROR;
5453:
5454: FND_MSG_Pub.count_and_get
5455: ( p_count => x_msg_count
5456: , p_data => x_msg_data
5457: );
5458:
5459: GMI_reservation_Util.PrintLn('(opm_dbg) in Util q: Exp_Error ');
5460:
5461: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5462: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5463: FND_MSG_PUB.Count_And_Get
5464: (
5465: p_count => x_msg_count,
5458:
5459: GMI_reservation_Util.PrintLn('(opm_dbg) in Util q: Exp_Error ');
5460:
5461: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5462: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5463: FND_MSG_PUB.Count_And_Get
5464: (
5465: p_count => x_msg_count,
5466: p_data => x_msg_data,
5463: FND_MSG_PUB.Count_And_Get
5464: (
5465: p_count => x_msg_count,
5466: p_data => x_msg_data,
5467: p_encoded => FND_API.G_FALSE
5468: );
5469:
5470: WHEN OTHERS THEN
5471: GMI_reservation_Util.PrintLn('(opm_dbg) in Util q: Error in Select='||SQLCODE||'.');
5539: -- If both are populated then get lot_id from lot_no and sublot_no. If lot not found use lot_id = 0
5540: -- Call dev_validation API. If valid return success if not return exception.
5541: -- x_check_status 1- Success 2- Required field not populated 3- IC_DEVIATION_HI_ERR 4- IC_DEVIATION_LO_ERR
5542: --
5543: x_return_status := FND_API.G_RET_STS_SUCCESS;
5544: x_check_status := 1;
5545: gmi_reservation_util.println('Calling Get_OPM_item_from_Apps from validate_opm_quantities');
5546: Get_OPM_item_from_Apps(
5547: p_organization_id => p_organization_id
5551: , x_msg_count => x_msg_count
5552: , x_msg_data => x_msg_data);
5553: gmi_reservation_util.println('BaCK FROM Get_OPM_item_from_Apps IN validate_opm_quantities');
5554:
5555: IF (return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5556: FND_MESSAGE.Set_Name('GMI','GMI_OPM_ITEM');
5557: FND_MESSAGE.Set_Token('ORGANIZATION_ID', p_organization_id);
5558: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', p_inventory_item_id);
5559: FND_MSG_PUB.Add;
5557: FND_MESSAGE.Set_Token('ORGANIZATION_ID', p_organization_id);
5558: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', p_inventory_item_id);
5559: FND_MSG_PUB.Add;
5560: x_check_status := 0;
5561: raise FND_API.G_EXC_ERROR;
5562: END IF;
5563:
5564: IF ( l_ic_item_mst_rec.dualum_ind > 0 ) THEN
5565: IF (nvl(p_quantity,fnd_api.g_miss_num) = fnd_api.g_miss_num ) THEN
5561: raise FND_API.G_EXC_ERROR;
5562: END IF;
5563:
5564: IF ( l_ic_item_mst_rec.dualum_ind > 0 ) THEN
5565: IF (nvl(p_quantity,fnd_api.g_miss_num) = fnd_api.g_miss_num ) THEN
5566: gmi_reservation_util.println('Item Dual Control. Field not populated Qty1= '||p_quantity);
5567: x_check_status := 2;
5568: x_return_status := FND_API.G_RET_STS_ERROR;
5569: RETURN;
5564: IF ( l_ic_item_mst_rec.dualum_ind > 0 ) THEN
5565: IF (nvl(p_quantity,fnd_api.g_miss_num) = fnd_api.g_miss_num ) THEN
5566: gmi_reservation_util.println('Item Dual Control. Field not populated Qty1= '||p_quantity);
5567: x_check_status := 2;
5568: x_return_status := FND_API.G_RET_STS_ERROR;
5569: RETURN;
5570: ELSIF ( nvl(p_quantity2,fnd_api.g_miss_num) = fnd_api.g_miss_num) THEN
5571: gmi_reservation_util.println('Item Dual Control. Field not populated Qty2= '||p_quantity2);
5572: x_check_status := 5;
5566: gmi_reservation_util.println('Item Dual Control. Field not populated Qty1= '||p_quantity);
5567: x_check_status := 2;
5568: x_return_status := FND_API.G_RET_STS_ERROR;
5569: RETURN;
5570: ELSIF ( nvl(p_quantity2,fnd_api.g_miss_num) = fnd_api.g_miss_num) THEN
5571: gmi_reservation_util.println('Item Dual Control. Field not populated Qty2= '||p_quantity2);
5572: x_check_status := 5;
5573: x_return_status := FND_API.G_RET_STS_ERROR;
5574: RETURN;
5569: RETURN;
5570: ELSIF ( nvl(p_quantity2,fnd_api.g_miss_num) = fnd_api.g_miss_num) THEN
5571: gmi_reservation_util.println('Item Dual Control. Field not populated Qty2= '||p_quantity2);
5572: x_check_status := 5;
5573: x_return_status := FND_API.G_RET_STS_ERROR;
5574: RETURN;
5575: END IF;
5576: ELSE -- Item is Not dual control No need to check
5577: IF (nvl(p_quantity,fnd_api.g_miss_num) = fnd_api.g_miss_num) THEN
5573: x_return_status := FND_API.G_RET_STS_ERROR;
5574: RETURN;
5575: END IF;
5576: ELSE -- Item is Not dual control No need to check
5577: IF (nvl(p_quantity,fnd_api.g_miss_num) = fnd_api.g_miss_num) THEN
5578: x_check_status := 2;
5579: x_return_status := FND_API.G_RET_STS_ERROR;
5580: RETURN;
5581: ELSE
5575: END IF;
5576: ELSE -- Item is Not dual control No need to check
5577: IF (nvl(p_quantity,fnd_api.g_miss_num) = fnd_api.g_miss_num) THEN
5578: x_check_status := 2;
5579: x_return_status := FND_API.G_RET_STS_ERROR;
5580: RETURN;
5581: ELSE
5582: GMI_reservation_Util.PrintLn('(opm_dbg) in Util validate_opm_quantities: Item Not dualUM. No need to check ');
5583: x_check_status := 1;
5620:
5621: IF(l_return = -68) THEN
5622: -- 'IC_DEVIATION_HI_ERR'
5623: x_check_status := 3;
5624: x_return_status := FND_API.G_RET_STS_ERROR;
5625: ELSIF (l_return = -69) THEN
5626: -- 'IC_DEVIATION_LO_ERR'
5627: x_check_status := 4;
5628: x_return_status := FND_API.G_RET_STS_ERROR;
5624: x_return_status := FND_API.G_RET_STS_ERROR;
5625: ELSIF (l_return = -69) THEN
5626: -- 'IC_DEVIATION_LO_ERR'
5627: x_check_status := 4;
5628: x_return_status := FND_API.G_RET_STS_ERROR;
5629: ELSE
5630: x_check_status := 1;
5631: END IF;
5632:
5631: END IF;
5632:
5633:
5634: EXCEPTION
5635: WHEN FND_API.G_EXC_ERROR THEN
5636:
5637: x_return_status := FND_API.G_RET_STS_ERROR;
5638:
5639: FND_MSG_Pub.count_and_get
5633:
5634: EXCEPTION
5635: WHEN FND_API.G_EXC_ERROR THEN
5636:
5637: x_return_status := FND_API.G_RET_STS_ERROR;
5638:
5639: FND_MSG_Pub.count_and_get
5640: ( p_count => x_msg_count
5641: , p_data => x_msg_data