[Home] [Help]
111: BEGIN
112: /* =======================================================================
113: Init variables
114: ======================================================================= */
115: x_return_status := FND_API.G_RET_STS_SUCCESS;
116:
117: IF (p_event = 'QUERY') THEN
118: /* =======================================================================
119: At Query(Pub) we just need to check :
122: demand_source_line_id
123: ======================================================================= */
124: IF ( p_rec_to_check.organization_id IS NULL
125: OR p_rec_to_check.organization_id = 0
126: OR p_rec_to_check.organization_id = FND_API.G_MISS_NUM )
127: THEN
128: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(q): Error, organization_id missing ');
129: FND_MESSAGE.Set_Name('GMI','MISSING');
130: FND_MESSAGE.Set_Token('MISSING', 'Organization_id');
128: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(q): Error, organization_id missing ');
129: FND_MESSAGE.Set_Name('GMI','MISSING');
130: FND_MESSAGE.Set_Token('MISSING', 'Organization_id');
131: FND_MSG_PUB.Add;
132: raise FND_API.G_EXC_ERROR;
133: END IF;
134:
135: /* Begin - Bug 2418860 */
136: /*
135: /* Begin - Bug 2418860 */
136: /*
137: IF ( p_rec_to_check.demand_source_header_id IS NULL
138: OR p_rec_to_check.demand_source_header_id = 0
139: OR p_rec_to_check.demand_source_header_id = FND_API.G_MISS_NUM )
140: THEN
141: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(q): Error, demand_source_header_id missing ');
142: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
143: FND_MESSAGE.Set_Token('MISSING', 'demand_source_header_id');
141: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(q): Error, demand_source_header_id missing ');
142: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
143: FND_MESSAGE.Set_Token('MISSING', 'demand_source_header_id');
144: FND_MSG_PUB.Add;
145: raise FND_API.G_EXC_ERROR;
146: END IF;
147: */
148: /* End - Bug 2418860 */
149:
148: /* End - Bug 2418860 */
149:
150: IF ( p_rec_to_check.demand_source_line_id IS NULL
151: OR p_rec_to_check.demand_source_line_id = 0
152: OR p_rec_to_check.demand_source_line_id = FND_API.G_MISS_NUM )
153: THEN
154: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(q): Error, demand_source_line_id missing ');
155: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
156: FND_MESSAGE.Set_Token('MISSING', 'demand_source_line_id');
154: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(q): Error, demand_source_line_id missing ');
155: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
156: FND_MESSAGE.Set_Token('MISSING', 'demand_source_line_id');
157: FND_MSG_PUB.Add;
158: raise FND_API.G_EXC_ERROR;
159: END IF;
160: ELSIF p_event = 'CREATE' THEN
161: /* =======================================================================
162: At Create(Pub) we just need to check :
173:
174: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(c): Check organization_id ');
175: IF ( p_rec_to_check.organization_id IS NULL
176: OR p_rec_to_check.organization_id = 0
177: OR p_rec_to_check.organization_id = FND_API.G_MISS_NUM )
178: THEN
179: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
180: FND_MESSAGE.Set_Token('MISSING', 'Organization_id');
181: FND_MSG_PUB.Add;
178: THEN
179: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
180: FND_MESSAGE.Set_Token('MISSING', 'Organization_id');
181: FND_MSG_PUB.Add;
182: raise FND_API.G_EXC_ERROR;
183: END IF;
184:
185: /* Begin - Bug 2418860 */
186: /*
186: /*
187: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(c): Check demand_source_header_id ');
188: IF ( p_rec_to_check.demand_source_header_id IS NULL
189: OR p_rec_to_check.demand_source_header_id = 0
190: OR p_rec_to_check.demand_source_header_id = FND_API.G_MISS_NUM )
191: THEN
192: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
193: FND_MESSAGE.Set_Token('MISSING', 'demand_source_header_id');
194: FND_MSG_PUB.Add;
191: THEN
192: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
193: FND_MESSAGE.Set_Token('MISSING', 'demand_source_header_id');
194: FND_MSG_PUB.Add;
195: raise FND_API.G_EXC_ERROR;
196: END IF;
197: */
198: /* End - Bug 2418860 */
199:
199:
200: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(c): Check demand_source_line_id ');
201: IF ( p_rec_to_check.demand_source_line_id IS NULL
202: OR p_rec_to_check.demand_source_line_id = 0
203: OR p_rec_to_check.demand_source_line_id = FND_API.G_MISS_NUM )
204: THEN
205: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
206: FND_MESSAGE.Set_Token('MISSING', 'demand_source_line_id');
207: FND_MSG_PUB.Add;
204: THEN
205: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
206: FND_MESSAGE.Set_Token('MISSING', 'demand_source_line_id');
207: FND_MSG_PUB.Add;
208: raise FND_API.G_EXC_ERROR;
209: END IF;
210:
211: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(c): Check demand_source_type_id ');
212: IF ( p_rec_to_check.demand_source_type_id IS NULL
210:
211: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(c): Check demand_source_type_id ');
212: IF ( p_rec_to_check.demand_source_type_id IS NULL
213: OR p_rec_to_check.demand_source_type_id = 0
214: OR p_rec_to_check.demand_source_type_id = FND_API.G_MISS_NUM )
215: THEN
216: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
217: FND_MESSAGE.Set_Token('MISSING', 'demand_source_type_id');
218: FND_MSG_PUB.Add;
215: THEN
216: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
217: FND_MESSAGE.Set_Token('MISSING', 'demand_source_type_id');
218: FND_MSG_PUB.Add;
219: raise FND_API.G_EXC_ERROR;
220: END IF;
221:
222: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(c): Check inventory_item_id ');
223: IF ( p_rec_to_check.inventory_item_id IS NULL
221:
222: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(c): Check inventory_item_id ');
223: IF ( p_rec_to_check.inventory_item_id IS NULL
224: OR p_rec_to_check.inventory_item_id = 0
225: OR p_rec_to_check.inventory_item_id = FND_API.G_MISS_NUM )
226: THEN
227: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
228: FND_MESSAGE.Set_Token('MISSING', 'inventory_item_id');
229: FND_MSG_PUB.Add;
226: THEN
227: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
228: FND_MESSAGE.Set_Token('MISSING', 'inventory_item_id');
229: FND_MSG_PUB.Add;
230: raise FND_API.G_EXC_ERROR;
231: END IF;
232:
233: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(c): Check reservation_uom_code ');
234: IF ( p_rec_to_check.reservation_uom_code IS NULL
231: END IF;
232:
233: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(c): Check reservation_uom_code ');
234: IF ( p_rec_to_check.reservation_uom_code IS NULL
235: OR p_rec_to_check.reservation_uom_code = FND_API.G_MISS_CHAR )
236: THEN
237: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
238: FND_MESSAGE.Set_Token('MISSING', 'reservation_uom_code');
239: FND_MSG_PUB.Add;
236: THEN
237: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
238: FND_MESSAGE.Set_Token('MISSING', 'reservation_uom_code');
239: FND_MSG_PUB.Add;
240: raise FND_API.G_EXC_ERROR;
241: END IF;
242:
243: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(c): Check reservation_quantity ');
244: IF ( p_rec_to_check.reservation_quantity IS NULL
242:
243: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(c): Check reservation_quantity ');
244: IF ( p_rec_to_check.reservation_quantity IS NULL
245: OR p_rec_to_check.reservation_quantity = 0
246: OR p_rec_to_check.reservation_quantity = FND_API.G_MISS_NUM )
247: THEN
248: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
249: FND_MESSAGE.Set_Token('MISSING', 'reservation_quantity');
250: FND_MSG_PUB.Add;
247: THEN
248: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
249: FND_MESSAGE.Set_Token('MISSING', 'reservation_quantity');
250: FND_MSG_PUB.Add;
251: raise FND_API.G_EXC_ERROR;
252: END IF;
253:
254: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(c): Check requirement_date ');
255: IF ( p_rec_to_check.requirement_date IS NULL
252: END IF;
253:
254: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Check_Mising(c): Check requirement_date ');
255: IF ( p_rec_to_check.requirement_date IS NULL
256: OR p_rec_to_check.requirement_date = FND_API.G_MISS_DATE )
257: THEN
258: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
259: FND_MESSAGE.Set_Token('MISSING', 'requirement_date');
260: FND_MSG_PUB.Add;
257: THEN
258: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
259: FND_MESSAGE.Set_Token('MISSING', 'requirement_date');
260: FND_MSG_PUB.Add;
261: raise FND_API.G_EXC_ERROR;
262: END IF;
263: END IF;
264:
265: GMI_reservation_Util.PrintLn('(opm_dbg) end of Util.Check_Mising(q): No Error ');
263: END IF;
264:
265: GMI_reservation_Util.PrintLn('(opm_dbg) end of Util.Check_Mising(q): No Error ');
266: EXCEPTION
267: WHEN FND_API.G_EXC_ERROR THEN
268: x_return_status := FND_API.G_RET_STS_ERROR;
269:
270: /* Get message count and data */
271: FND_MSG_PUB.count_and_get
264:
265: GMI_reservation_Util.PrintLn('(opm_dbg) end of Util.Check_Mising(q): No Error ');
266: EXCEPTION
267: WHEN FND_API.G_EXC_ERROR THEN
268: x_return_status := FND_API.G_RET_STS_ERROR;
269:
270: /* Get message count and data */
271: FND_MSG_PUB.count_and_get
272: ( p_count => x_msg_count
275:
276: GMI_reservation_Util.PrintLn('(opm_dbg) end of Util.Check_Mising(q): EXP Error count='||x_msg_count);
277:
278: WHEN OTHERS THEN
279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
280:
281: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
282: , l_api_name
283: );
321: BEGIN
322: /* ======================================================================= */
323: /* Init variables */
324: /* ======================================================================= */
325: x_return_status := FND_API.G_RET_STS_SUCCESS;
326: x_error_code := 0; /* Bug2168710 */
327:
328: GMI_reservation_Util.PrintLn('(opm_dbg) in Util q: Entering Validation_For_Query. line_id='
329: ||p_query_input.demand_source_line_id);
343: /* ================================================================*/
344: /* FND_MESSAGE.Set_Name('GMI','SO_Not_Found'); */
345: /* FND_MESSAGE.Set_Token('LINE_ID', p_query_input.demand_source_line_id); */
346: /* FND_MSG_PUB.Add; */
347: /* RAISE FND_API.G_EXC_ERROR; */
348: ELSE
349: GMI_reservation_Util.PrintLn('(opm_dbg) in Util q: inv_item_id='||l_inventory_item_id||'.');
350:
351: /* ============================================================================================= */
360: , x_return_status => x_return_status
361: , x_msg_count => x_msg_count
362: , x_msg_data => x_msg_data);
363:
364: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
365: FND_MESSAGE.Set_Name('GMI','GMI_OPM_ITEM');
366: FND_MESSAGE.Set_Token('ORGANIZATION_ID', p_query_input.organization_id);
367: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', l_inventory_item_id);
368: FND_MSG_PUB.Add;
366: FND_MESSAGE.Set_Token('ORGANIZATION_ID', p_query_input.organization_id);
367: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', l_inventory_item_id);
368: FND_MSG_PUB.Add;
369: CLOSE c_sales_order; -- Bug 3598280
370: raise FND_API.G_EXC_ERROR;
371: END IF;
372:
373:
374:
384: , x_msg_count => x_msg_count
385: , x_msg_data => x_msg_data);
386:
387:
388: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
389: THEN
390: FND_MESSAGE.Set_Name('GMI','GMI_OPM_UOM_NOT_FOUND');
391: FND_MESSAGE.Set_Token('APPS_UOM_CODE', l_order_quantity_uom);
392: FND_MSG_PUB.Add;
390: FND_MESSAGE.Set_Name('GMI','GMI_OPM_UOM_NOT_FOUND');
391: FND_MESSAGE.Set_Token('APPS_UOM_CODE', l_order_quantity_uom);
392: FND_MSG_PUB.Add;
393: CLOSE c_sales_order; -- Bug 3598280
394: RAISE FND_API.G_EXC_ERROR;
395: ELSE
396: GMI_reservation_Util.PrintLn('(opm_dbg) in Util q: uom1='||x_opm_um||'.');
397: END IF;
398:
399: END IF;
400: CLOSE c_sales_order;
401:
402: EXCEPTION
403: WHEN FND_API.G_EXC_ERROR THEN
404: /* Begin - Bug 2168710 */
405: x_return_status := FND_API.G_RET_STS_ERROR;
406: x_error_code := SQLCODE;
407: /* End - Bug 2168710 */
401:
402: EXCEPTION
403: WHEN FND_API.G_EXC_ERROR THEN
404: /* Begin - Bug 2168710 */
405: x_return_status := FND_API.G_RET_STS_ERROR;
406: x_error_code := SQLCODE;
407: /* End - Bug 2168710 */
408:
409: /* Get message count and data */
445: BEGIN
446: /* ======================================================================= */
447: /* Init variables */
448: /* ======================================================================= */
449: x_return_status := FND_API.G_RET_STS_SUCCESS;
450: x_ic_tran_pnd_index := 0;
451:
452: GMI_reservation_Util.PrintLn('(opm_dbg) in Util Get_Default_Lot. default lot='
453: ||GMI_Reservation_Util.G_DEFAULT_LOCT||', ic_tran.COUNT='
482: END IF;
483: GMI_reservation_Util.PrintLn('(opm_dbg) end of Util Get_default_lot_qty NO Error.');
484:
485: EXCEPTION
486: WHEN FND_API.G_EXC_ERROR THEN
487: x_return_status := FND_API.G_RET_STS_ERROR;
488:
489: /* Get message count and data */
490: FND_MSG_PUB.count_and_get
483: GMI_reservation_Util.PrintLn('(opm_dbg) end of Util Get_default_lot_qty NO Error.');
484:
485: EXCEPTION
486: WHEN FND_API.G_EXC_ERROR THEN
487: x_return_status := FND_API.G_RET_STS_ERROR;
488:
489: /* Get message count and data */
490: FND_MSG_PUB.count_and_get
491: ( p_count => x_msg_count
492: , p_data => x_msg_data
493: );
494:
495: WHEN OTHERS THEN
496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
497:
498: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
499: , l_api_name
500: );
541: BEGIN
542: /* ======================================================================= */
543: /* Init variables */
544: /* ======================================================================= */
545: x_return_status := FND_API.G_RET_STS_SUCCESS;
546:
547: GMI_reservation_Util.PrintLn('(opm_dbg) in Util Create_default_lot.');
548: /* Fill the ic_tran_pnd record type, and then insert into ic_tran_pnd */
549: l_ictran_rec.item_id := p_ic_item_mst_rec.item_id;
648: -- END - Bug 3216096
649:
650: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION
651: ( p_api_version => 1.0
652: , p_init_msg_list => FND_API.G_FALSE
653: , p_commit => FND_API.G_FALSE
654: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
655: , p_tran_rec => l_ictran_rec
656: , x_tran_row => l_tran_row
649:
650: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION
651: ( p_api_version => 1.0
652: , p_init_msg_list => FND_API.G_FALSE
653: , p_commit => FND_API.G_FALSE
654: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
655: , p_tran_rec => l_ictran_rec
656: , x_tran_row => l_tran_row
657: , x_return_status => x_return_status
650: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION
651: ( p_api_version => 1.0
652: , p_init_msg_list => FND_API.G_FALSE
653: , p_commit => FND_API.G_FALSE
654: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
655: , p_tran_rec => l_ictran_rec
656: , x_tran_row => l_tran_row
657: , x_return_status => x_return_status
658: , x_msg_count => x_msg_count
658: , x_msg_count => x_msg_count
659: , x_msg_data => x_msg_data
660: );
661:
662: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
663: GMI_reservation_Util.PrintLn('(opm_dbg) Error return by Create_Pending_Transaction,
664: return_status='|| x_return_status||', x_msg_count='|| x_msg_count||'.');
665: GMI_reservation_Util.PrintLn('Error Message '|| x_msg_data);
666: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
666: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
667: FND_MESSAGE.Set_Token('BY_PROC','GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION');
668: FND_MESSAGE.Set_Token('WHERE','Create_Default_Lot');
669: FND_MSG_PUB.Add;
670: raise FND_API.G_EXC_ERROR;
671: END IF;
672: ELSE
673: GMI_reservation_Util.PrintLn('(opm_dbg) Dont create the default lot again (Shouldnt be here) - 1 ! ');
674: END IF;
681: ||l_ictran_rec.trans_um2||', trans_id='||l_ictran_rec.trans_id);
682:
683: GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TRANSACTION
684: ( p_api_version => 1.0
685: , p_init_msg_list => FND_API.G_FALSE
686: , p_commit => FND_API.G_FALSE
687: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
688: , p_tran_rec => l_ictran_rec
689: , x_tran_row => l_tran_row
682:
683: GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TRANSACTION
684: ( p_api_version => 1.0
685: , p_init_msg_list => FND_API.G_FALSE
686: , p_commit => FND_API.G_FALSE
687: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
688: , p_tran_rec => l_ictran_rec
689: , x_tran_row => l_tran_row
690: , x_return_status => x_return_status
683: GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TRANSACTION
684: ( p_api_version => 1.0
685: , p_init_msg_list => FND_API.G_FALSE
686: , p_commit => FND_API.G_FALSE
687: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
688: , p_tran_rec => l_ictran_rec
689: , x_tran_row => l_tran_row
690: , x_return_status => x_return_status
691: , x_msg_count => x_msg_count
690: , x_return_status => x_return_status
691: , x_msg_count => x_msg_count
692: , x_msg_data => x_msg_data);
693:
694: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
695: THEN
696: GMI_reservation_Util.PrintLn('(opm_dbg) in Create_Default_Lot:
697: Error returned by GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TRANSACTION.' );
698: GMI_reservation_Util.PrintLn('Error Message '|| x_msg_data);
699: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
700: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TRANSACTION');
701: FND_MESSAGE.Set_Token('WHERE', 'Create_Default_Lot');
702: FND_MSG_PUB.Add;
703: RAISE FND_API.G_EXC_ERROR;
704: END IF;
705:
706: END IF;
707:
707:
708: GMI_reservation_Util.PrintLn('(opm_dbg) end of Util Create_default_lot x_return_status='
709: || x_return_status||', x_msg_count='|| x_msg_count||'.');
710: EXCEPTION
711: WHEN FND_API.G_EXC_ERROR THEN
712: x_return_status := FND_API.G_RET_STS_ERROR;
713:
714: /* Get message count and data */
715: FND_MSG_PUB.count_and_get
708: GMI_reservation_Util.PrintLn('(opm_dbg) end of Util Create_default_lot x_return_status='
709: || x_return_status||', x_msg_count='|| x_msg_count||'.');
710: EXCEPTION
711: WHEN FND_API.G_EXC_ERROR THEN
712: x_return_status := FND_API.G_RET_STS_ERROR;
713:
714: /* Get message count and data */
715: FND_MSG_PUB.count_and_get
716: ( p_count => x_msg_count
717: , p_data => x_msg_data
718: );
719:
720: WHEN OTHERS THEN
721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
722:
723: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
724: , l_api_name
725: );
772: BEGIN
773: /* ======================================================================= */
774: /* Init variables */
775: /* ======================================================================= */
776: x_return_status := FND_API.G_RET_STS_SUCCESS;
777:
778:
779: GMI_reservation_Util.PrintLn('(opm_dbg) Entering Util validation_before_allocate:');
780:
786: x_allocation_rec.line_id := p_mtl_rsv_rec.demand_source_line_id;
787: x_allocation_rec.trans_date := p_mtl_rsv_rec.requirement_date;
788: x_allocation_rec.prefqc_grade := p_mtl_rsv_rec.attribute1;
789: x_allocation_rec.order_qty1 := p_mtl_rsv_rec.reservation_quantity;
790: IF (p_mtl_rsv_rec.attribute4 = FND_API.G_MISS_CHAR) THEN
791: x_allocation_rec.line_detail_id := null;
792: ELSE
793: x_allocation_rec.line_detail_id := to_number(p_mtl_rsv_rec.attribute4);
794: END IF;
814: x_opm_co_code => g_co_code, -- B1731567
815: x_opm_orgn_code => x_orgn_code,
816: x_return_status => x_return_status );
817:
818: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
819: THEN
820: GMI_reservation_Util.PrintLn('(opm_dbg) in end of GMI_Reservation_Util.Validation_Before_Allocate
821: ERROR:Returned by Get_Process_Org.');
822: FND_MESSAGE.Set_Name('GMI','GMI_GET_PROCESS_ORG');
821: ERROR:Returned by Get_Process_Org.');
822: FND_MESSAGE.Set_Name('GMI','GMI_GET_PROCESS_ORG');
823: FND_MESSAGE.Set_Token('ORGANIZATION_ID', p_mtl_rsv_rec.organization_id);
824: FND_MSG_PUB.Add;
825: RAISE FND_API.G_EXC_ERROR;
826: END IF;
827:
828: x_allocation_rec.co_code := g_co_code;
829:
840:
841:
842: GMI_reservation_Util.PrintLn('(opm_dbg) in Util v: item_no='||x_ic_item_mst_rec.item_no);
843:
844: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
845: THEN
846: GMI_reservation_Util.PrintLn('(opm_dbg) in end of GMI_Reservation_Util.Validation_Before_Allocate
847: ERROR:Returned by Get_OPM_item_from_Apps.');
848: FND_MESSAGE.Set_Name('GMI','GMI_OPM_ITEM');
848: FND_MESSAGE.Set_Name('GMI','GMI_OPM_ITEM');
849: FND_MESSAGE.Set_Token('ORGANIZATION_ID', p_mtl_rsv_rec.organization_id);
850: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', p_mtl_rsv_rec.inventory_item_id);
851: FND_MSG_PUB.Add;
852: RAISE FND_API.G_EXC_ERROR;
853: ELSE
854: x_allocation_rec.item_no := x_ic_item_mst_rec.item_no;
855: END IF;
856:
876: GMI_reservation_Util.PrintLn('(opm_dbg) in Util v: cust_no=NOTFOUND');
877: FND_MESSAGE.Set_Name('GMI','GMI_CUST_INFO');
878: FND_MESSAGE.Set_Token('SO_LINE_ID', x_allocation_rec.line_id);
879: FND_MSG_PUB.Add;
880: RAISE FND_API.G_EXC_ERROR;
881: ELSE
882: GMI_reservation_Util.PrintLn('(opm_dbg) in Util v: cust_no='||x_allocation_rec.cust_no||',
883: doc_line='||x_allocation_rec.doc_line);
884: END IF;
901: , x_msg_count => x_msg_count
902: , x_msg_data => x_msg_data);
903:
904:
905: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
906: THEN
907: FND_MESSAGE.Set_Name('GMI','GMI_OPM_UOM_NOT_FOUND');
908: FND_MESSAGE.Set_Token('APPS_UOM_CODE', p_mtl_rsv_rec.reservation_uom_code);
909: FND_MSG_PUB.Add;
906: THEN
907: FND_MESSAGE.Set_Name('GMI','GMI_OPM_UOM_NOT_FOUND');
908: FND_MESSAGE.Set_Token('APPS_UOM_CODE', p_mtl_rsv_rec.reservation_uom_code);
909: FND_MSG_PUB.Add;
910: RAISE FND_API.G_EXC_ERROR;
911: ELSE
912: GMI_reservation_Util.PrintLn('(opm_dbg) in Util v: uom1='||x_allocation_rec.order_um1||'.');
913: END IF;
914:
977: GMI_reservation_Util.PrintLn('(opm_dbg) Exiting Util validation_before_allocate:');
978:
979:
980: EXCEPTION
981: WHEN FND_API.G_EXC_ERROR THEN
982: GMI_Reservation_Util.PrintLn('Exiting Util validation_before_allocate: Error');
983: x_return_status := FND_API.G_RET_STS_ERROR;
984:
985: /* Get message count and data */
979:
980: EXCEPTION
981: WHEN FND_API.G_EXC_ERROR THEN
982: GMI_Reservation_Util.PrintLn('Exiting Util validation_before_allocate: Error');
983: x_return_status := FND_API.G_RET_STS_ERROR;
984:
985: /* Get message count and data */
986: FND_MSG_PUB.count_and_get
987: ( p_count => x_msg_count
989: );
990:
991: WHEN OTHERS THEN
992: GMI_Reservation_Util.PrintLn('Exiting Util validation_before_allocate: ErrorOther');
993: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
994:
995: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
996: , l_api_name
997: );
1020: BEGIN
1021: /* ======================================================================= */
1022: /* Init variables */
1023: /* ======================================================================= */
1024: x_return_status := FND_API.G_RET_STS_SUCCESS;
1025: x_ic_tran_pnd_index := 0;
1026:
1027: GMI_reservation_Util.PrintLn('(opm_dbg) in Util Get_Allocation.');
1028: IF GMI_Reservation_Util.ic_tran_rec_tbl.COUNT > 0
1052: END IF;
1053: GMI_reservation_Util.PrintLn('(opm_dbg) end of Util Get_Allocation.');
1054:
1055: EXCEPTION
1056: WHEN FND_API.G_EXC_ERROR THEN
1057: x_return_status := FND_API.G_RET_STS_ERROR;
1058:
1059: /* Get message count and data */
1060: FND_MSG_PUB.count_and_get
1053: GMI_reservation_Util.PrintLn('(opm_dbg) end of Util Get_Allocation.');
1054:
1055: EXCEPTION
1056: WHEN FND_API.G_EXC_ERROR THEN
1057: x_return_status := FND_API.G_RET_STS_ERROR;
1058:
1059: /* Get message count and data */
1060: FND_MSG_PUB.count_and_get
1061: ( p_count => x_msg_count
1062: , p_data => x_msg_data
1063: );
1064:
1065: WHEN OTHERS THEN
1066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1067:
1068: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1069: , l_api_name
1070: );
1109: BEGIN
1110: /* ======================================================================= */
1111: /* Init variables */
1112: /* ======================================================================= */
1113: x_return_status := FND_API.G_RET_STS_SUCCESS;
1114:
1115:
1116: OPEN c_uom(p_Apps_UOM);
1117: FETCH c_uom
1121: FND_MESSAGE.Set_Name('GMI','GMI_OPM_UOM_NOT_FOUND');
1122: FND_MESSAGE.Set_Token('APPS_UOM_CODE', p_Apps_UOM);
1123: FND_MSG_PUB.Add;
1124: CLOSE c_uom; -- Bug 3598280
1125: RAISE FND_API.G_EXC_ERROR;
1126: END IF;
1127: CLOSE c_uom;
1128:
1129:
1127: CLOSE c_uom;
1128:
1129:
1130: EXCEPTION
1131: WHEN FND_API.G_EXC_ERROR THEN
1132: x_return_status := FND_API.G_RET_STS_ERROR;
1133:
1134: /* Get message count and data */
1135: FND_MSG_PUB.count_and_get
1128:
1129:
1130: EXCEPTION
1131: WHEN FND_API.G_EXC_ERROR THEN
1132: x_return_status := FND_API.G_RET_STS_ERROR;
1133:
1134: /* Get message count and data */
1135: FND_MSG_PUB.count_and_get
1136: ( p_count => x_msg_count
1137: , p_data => x_msg_data
1138: );
1139:
1140: WHEN OTHERS THEN
1141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1142:
1143: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1144: , l_api_name
1145: );
1186: BEGIN
1187: /* ======================================================================= */
1188: /* Init variables */
1189: /* ======================================================================= */
1190: x_return_status := FND_API.G_RET_STS_SUCCESS;
1191:
1192:
1193: OPEN c_uom(p_OPM_UOM);
1194: FETCH c_uom
1198: FND_MESSAGE.Set_Name('GMI','GMI_APPS_UOM_NOT_FOUND');
1199: FND_MESSAGE.Set_Token('OPM_UOM_CODE', p_OPM_UOM);
1200: FND_MSG_PUB.Add;
1201: CLOSE c_uom; -- Bug 3598280
1202: RAISE FND_API.G_EXC_ERROR;
1203: END IF;
1204: CLOSE c_uom;
1205:
1206:
1204: CLOSE c_uom;
1205:
1206:
1207: EXCEPTION
1208: WHEN FND_API.G_EXC_ERROR THEN
1209: x_return_status := FND_API.G_RET_STS_ERROR;
1210:
1211: /* Get message count and data */
1212: FND_MSG_PUB.count_and_get
1205:
1206:
1207: EXCEPTION
1208: WHEN FND_API.G_EXC_ERROR THEN
1209: x_return_status := FND_API.G_RET_STS_ERROR;
1210:
1211: /* Get message count and data */
1212: FND_MSG_PUB.count_and_get
1213: ( p_count => x_msg_count
1214: , p_data => x_msg_data
1215: );
1216:
1217: WHEN OTHERS THEN
1218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1219:
1220: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1221: , l_api_name
1222: );
1247: BEGIN
1248: /* ======================================================================= */
1249: /* Init variables */
1250: /* ======================================================================= */
1251: x_return_status := FND_API.G_RET_STS_SUCCESS;
1252:
1253: GMI_reservation_Util.PrintLn('(opm_dbg) in Util Get_org line_id='||p_oe_line_id);
1254:
1255: OPEN c_org(p_oe_line_id);
1260: FND_MESSAGE.Set_Name('GMI','GMI_ORG_NOT_FOUND_IN_OE');
1261: FND_MESSAGE.Set_Token('SO_LINE_ID', p_oe_line_id);
1262: FND_MSG_PUB.Add;
1263: CLOSE c_org; -- Bug 3598280
1264: RAISE FND_API.G_EXC_ERROR;
1265: END IF;
1266: CLOSE c_org;
1267:
1268: GMI_reservation_Util.PrintLn('(opm_dbg) in Util Get_org org_id='||x_organization_id);
1267:
1268: GMI_reservation_Util.PrintLn('(opm_dbg) in Util Get_org org_id='||x_organization_id);
1269:
1270: EXCEPTION
1271: WHEN FND_API.G_EXC_ERROR THEN
1272: x_return_status := FND_API.G_RET_STS_ERROR;
1273:
1274: /* Get message count and data */
1275: FND_MSG_PUB.count_and_get
1268: GMI_reservation_Util.PrintLn('(opm_dbg) in Util Get_org org_id='||x_organization_id);
1269:
1270: EXCEPTION
1271: WHEN FND_API.G_EXC_ERROR THEN
1272: x_return_status := FND_API.G_RET_STS_ERROR;
1273:
1274: /* Get message count and data */
1275: FND_MSG_PUB.count_and_get
1276: ( p_count => x_msg_count
1277: , p_data => x_msg_data
1278: );
1279:
1280: WHEN OTHERS THEN
1281: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1282:
1283: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1284: , l_api_name
1285: );
1332: BEGIN
1333: /* ======================================================================= */
1334: /* Init variables */
1335: /* ======================================================================= */
1336: x_return_status := FND_API.G_RET_STS_SUCCESS;
1337:
1338: OPEN c_item( p_organization_id
1339: , p_inventory_item_id);
1340: FETCH c_item
1347: FND_MESSAGE.Set_Token('ORGANIZATION_ID', p_organization_id);
1348: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', p_inventory_item_id);
1349: FND_MSG_PUB.Add;
1350: CLOSE c_item; -- Bug 3598280
1351: RAISE FND_API.G_EXC_ERROR;
1352: ELSE
1353: GMI_reservation_Util.PrintLn('(opm_dbg) in Util q: item_no='||x_ic_item_mst_rec.item_no||'.');
1354: END IF;
1355: CLOSE c_item;
1355: CLOSE c_item;
1356:
1357:
1358: EXCEPTION
1359: WHEN FND_API.G_EXC_ERROR THEN
1360: x_return_status := FND_API.G_RET_STS_ERROR;
1361:
1362: /* Get message count and data */
1363: FND_MSG_PUB.count_and_get
1356:
1357:
1358: EXCEPTION
1359: WHEN FND_API.G_EXC_ERROR THEN
1360: x_return_status := FND_API.G_RET_STS_ERROR;
1361:
1362: /* Get message count and data */
1363: FND_MSG_PUB.count_and_get
1364: ( p_count => x_msg_count
1365: , p_data => x_msg_data
1366: );
1367:
1368: WHEN OTHERS THEN
1369: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1370:
1371: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1372: , l_api_name
1373: );
1391:
1392: l_api_name CONSTANT VARCHAR2 (30) := 'Reallocate';
1393:
1394: l_serial_number inv_reservation_global.serial_number_tbl_type;
1395: l_partial_reservation_flag VARCHAR2(2) := FND_API.G_FALSE;
1396: l_quantity_reserved NUMBER(19,9);
1397: l_reservation_id NUMBER;
1398: l_mtl_reservation_tbl inv_reservation_global.mtl_reservation_tbl_type;
1399: l_mtl_reservation_rec inv_reservation_global.mtl_reservation_rec_type;
1441:
1442: /* ======================================================================= */
1443: /* Init variables */
1444: /* ======================================================================= */
1445: x_return_status := FND_API.G_RET_STS_SUCCESS;
1446:
1447: SAVEPOINT Reallocate_Transactions;
1448:
1449:
1466: FND_MESSAGE.Set_Token('SO_LINE_ID', p_query_input.demand_source_line_id);
1467: FND_MESSAGE.Set_Token('WHERE', l_api_name);
1468: FND_MSG_PUB.Add;
1469: CLOSE c_sales_order_line; -- Bug 3598280
1470: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1471: END IF;
1472: CLOSE c_sales_order_line;
1473:
1474:
1535: um='||l_mtl_reservation_rec.reservation_uom_code||',
1536: qty2='||l_mtl_reservation_rec.attribute2||', um2='||l_mtl_reservation_rec.attribute3);
1537: GMI_Reservation_PUB.Create_Reservation
1538: ( p_api_version_number => 1.0
1539: , p_init_msg_lst => FND_API.G_FALSE
1540: , x_return_status => x_return_status
1541: , x_msg_count => x_msg_count
1542: , x_msg_data => x_msg_data
1543: , p_rsv_rec => l_mtl_reservation_rec
1543: , p_rsv_rec => l_mtl_reservation_rec
1544: , p_serial_number => l_serial_number
1545: , x_serial_number => l_serial_number
1546: , p_partial_reservation_flag => l_partial_reservation_flag
1547: , p_force_reservation_flag => FND_API.G_TRUE
1548: , x_quantity_reserved => l_quantity_reserved
1549: , x_reservation_id => l_reservation_id
1550: );
1551: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1547: , p_force_reservation_flag => FND_API.G_TRUE
1548: , x_quantity_reserved => l_quantity_reserved
1549: , x_reservation_id => l_reservation_id
1550: );
1551: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1552: THEN
1553: GMI_reservation_Util.PrintLn('(opm_dbg) before Transfer_Msg_Stack');
1554: RAISE FND_API.G_EXC_ERROR;
1555: END IF;
1550: );
1551: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1552: THEN
1553: GMI_reservation_Util.PrintLn('(opm_dbg) before Transfer_Msg_Stack');
1554: RAISE FND_API.G_EXC_ERROR;
1555: END IF;
1556: /* At this stage, the Reallocation is done. */
1557: ELSE
1558: GMI_Reservation_Util.printLn(' (opm_dbg) Nothing to Auto-Detail.');
1569: , x_msg_data => x_msg_data
1570: );
1571:
1572: /* Return an error if the query reservations call failed */
1573: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS )
1574: THEN
1575: GMI_Reservation_Util.printLn('return error from query reservation');
1576: FND_MESSAGE.Set_Name('GMI','GMI_QRY_RSV_FAILED');
1577: FND_MESSAGE.Set_Token('SO_LINE_ID', p_query_input.demand_source_line_id);
1576: FND_MESSAGE.Set_Name('GMI','GMI_QRY_RSV_FAILED');
1577: FND_MESSAGE.Set_Token('SO_LINE_ID', p_query_input.demand_source_line_id);
1578: FND_MESSAGE.Set_Token('WHERE', l_api_name);
1579: FND_MSG_PUB.Add;
1580: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1581: END IF;
1582:
1583: GMI_Reservation_Util.printLn('After Query_Res, count='||l_reservation_count);
1584: IF (l_reservation_count <= 0)
1587: THEN
1588: GMI_Reservation_Util.printLn('Invalid value for reservation_count='||l_reservation_count);
1589: FND_MESSAGE.Set_Name('INV','INV_INVALID_COUNT');
1590: FND_MSG_PUB.Add;
1591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1592: END IF;
1593:
1594: GMI_Reservation_Util.printLn('As nothing reserved, need to build the default_lot rec_type,
1595: by querying the sales order, then populate the mtl rec_type');
1618: x_ic_tran_pnd_index => l_default_lot_index
1619: , x_return_status => x_return_status
1620: , x_msg_count => x_msg_count
1621: , x_msg_data => x_msg_data);
1622: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1623: THEN
1624: GMI_reservation_Util.PrintLn('(opm_dbg) in Reallocate, ERROR:Returned by Get_Default_Lot.');
1625: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
1626: FND_MESSAGE.Set_Token('BY_PROC','GMI_Reservation_Util.Get_Default_Lot');
1625: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
1626: FND_MESSAGE.Set_Token('BY_PROC','GMI_Reservation_Util.Get_Default_Lot');
1627: FND_MESSAGE.Set_Token('WHERE','Reallocate');
1628: FND_MSG_PUB.Add;
1629: RAISE FND_API.G_EXC_ERROR;
1630: END IF;
1631:
1632: GMI_reservation_Util.PrintLn('(opm_dbg) in Reallocate, qty='
1633: ||GMI_Reservation_Util.ic_tran_rec_tbl(1).trans_qty||',
1687: GMI_Reservation_Util.printLn('End of GMI_Reservation.Reallocate. No Error, Allocated_qty='||x_allocated_qty);
1688: GMI_Reservation_Util.printLn('End of GMI_Reservation.Reallocate. No Error, Allocated_transactions='||x_allocated_trans);
1689:
1690: EXCEPTION
1691: WHEN FND_API.G_EXC_ERROR THEN
1692: ROLLBACK TO SAVEPOINT Reallocate_Transactions;
1693: GMI_Reservation_Util.printLn('End of GMI_Reservation.Reallocate. Error');
1694: x_return_status := FND_API.G_RET_STS_ERROR;
1695:
1690: EXCEPTION
1691: WHEN FND_API.G_EXC_ERROR THEN
1692: ROLLBACK TO SAVEPOINT Reallocate_Transactions;
1693: GMI_Reservation_Util.printLn('End of GMI_Reservation.Reallocate. Error');
1694: x_return_status := FND_API.G_RET_STS_ERROR;
1695:
1696: /* Get message count and data */
1697: FND_MSG_PUB.count_and_get
1698: ( p_count => x_msg_count
1701:
1702: WHEN OTHERS THEN
1703: ROLLBACK TO SAVEPOINT Reallocate_Transactions;
1704: GMI_Reservation_Util.printLn('End of GMI_Reservation.Reallocate. ErrorOthers');
1705: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1706:
1707: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1708: , l_api_name
1709: );
1749:
1750: /* ======================================================================= */
1751: /* Init variables */
1752: /* ======================================================================= */
1753: x_return_status := FND_API.G_RET_STS_SUCCESS;
1754:
1755: /* Get the Default Lot, and default lot quantity */
1756: /* Retrieve the default lot in the transaction */
1757: GMI_Reservation_Util.Get_Default_Lot(
1759: , x_return_status => x_return_status
1760: , x_msg_count => x_msg_count
1761: , x_msg_data => x_msg_data);
1762:
1763: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1764: THEN
1765: GMI_reservation_Util.PrintLn('(opm_dbg) in Get_DefaultLot_from_ItemCtl, ERROR:Returned by Get_Default_Lot.');
1766: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
1767: FND_MESSAGE.Set_Token('BY_PROC','GMI_Reservation_Util.Get_Default_Lot');
1766: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
1767: FND_MESSAGE.Set_Token('BY_PROC','GMI_Reservation_Util.Get_Default_Lot');
1768: FND_MESSAGE.Set_Token('WHERE','Get_DefaultLot_from_ItemCtl');
1769: FND_MSG_PUB.Add;
1770: RAISE FND_API.G_EXC_ERROR;
1771: END IF;
1772:
1773: /* ============================================================================================= */
1774: /* Get Item details */
1783:
1784:
1785: GMI_Reservation_Util.printLn('After Get_OPM_Item : item_no='||l_ic_item_mst_rec.item_no);
1786:
1787: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1788: THEN
1789: GMI_Reservation_Util.printLn('(opm_dbg) in end of Get_DefaultLot_from_ItemCtl ERROR:Returned by Get_OPM_item_from_Apps.');
1790: FND_MESSAGE.Set_Name('GMI','GMI_OPM_ITEM');
1791: FND_MESSAGE.Set_Token('ORGANIZATION_ID', p_organization_id);
1790: FND_MESSAGE.Set_Name('GMI','GMI_OPM_ITEM');
1791: FND_MESSAGE.Set_Token('ORGANIZATION_ID', p_organization_id);
1792: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', p_inventory_item_id);
1793: FND_MSG_PUB.Add;
1794: RAISE FND_API.G_EXC_ERROR;
1795: END IF;
1796:
1797:
1798: /* ============================================================================================= */
1820:
1821: GMI_Reservation_Util.printLn('(opm_dbg) x_default_lot_index='||x_default_lot_index);
1822:
1823: EXCEPTION
1824: WHEN FND_API.G_EXC_ERROR THEN
1825: GMI_Reservation_Util.printLn('End of Get_DefaultLot_from_ItemCtl. Error');
1826: x_return_status := FND_API.G_RET_STS_ERROR;
1827:
1828: /* Get message count and data */
1822:
1823: EXCEPTION
1824: WHEN FND_API.G_EXC_ERROR THEN
1825: GMI_Reservation_Util.printLn('End of Get_DefaultLot_from_ItemCtl. Error');
1826: x_return_status := FND_API.G_RET_STS_ERROR;
1827:
1828: /* Get message count and data */
1829: FND_MSG_PUB.count_and_get
1830: ( p_count => x_msg_count
1832: );
1833:
1834: WHEN OTHERS THEN
1835: GMI_Reservation_Util.printLn('End of Get_DefaultLot_from_ItemCtl. ErrorOthers');
1836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1837:
1838: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1839: , l_api_name
1840: );
1945:
1946: /* ======================================================================= */
1947: /* Init variables */
1948: /* ======================================================================= */
1949: x_return_status := FND_API.G_RET_STS_SUCCESS;
1950:
1951: x_ic_tran_rec := p_ic_tran_rec;
1952:
1953: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: trans_id='||p_ic_tran_rec.trans_id, 'pick_lots.log');
1982:
1983: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check trans_id ', 'pick_lots.log');
1984: IF ( p_ic_tran_rec.trans_id = 0
1985: OR p_ic_tran_rec.trans_id IS NULL
1986: OR p_ic_tran_rec.trans_id = FND_API.G_MISS_NUM)
1987: THEN
1988: x_ic_tran_rec.trans_id := 0;
1989: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Set trans_id=0 ', 'pick_lots.log');
1990: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
1989: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Set trans_id=0 ', 'pick_lots.log');
1990: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
1991: FND_MESSAGE.Set_Token('MISSING', 'trans_id');
1992: FND_MSG_PUB.Add;
1993: /* raise FND_API.G_EXC_ERROR; */
1994: END IF;
1995:
1996: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check item_id ', 'pick_lots.log');
1997: IF ( p_ic_tran_rec.item_id = 0
1995:
1996: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check item_id ', 'pick_lots.log');
1997: IF ( p_ic_tran_rec.item_id = 0
1998: OR p_ic_tran_rec.item_id IS NULL
1999: OR p_ic_tran_rec.item_id = FND_API.G_MISS_NUM)
2000: THEN
2001: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2002: FND_MESSAGE.Set_Token('MISSING', 'item_id');
2003: FND_MSG_PUB.Add;
2000: THEN
2001: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2002: FND_MESSAGE.Set_Token('MISSING', 'item_id');
2003: FND_MSG_PUB.Add;
2004: /* raise FND_API.G_EXC_ERROR; */
2005: END IF;
2006:
2007: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check line_id ', 'pick_lots.log');
2008: IF ( p_ic_tran_rec.line_id = 0
2006:
2007: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check line_id ', 'pick_lots.log');
2008: IF ( p_ic_tran_rec.line_id = 0
2009: OR p_ic_tran_rec.line_id IS NULL
2010: OR p_ic_tran_rec.line_id = FND_API.G_MISS_NUM)
2011: THEN
2012: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2013: FND_MESSAGE.Set_Token('MISSING', 'line_id');
2014: FND_MSG_PUB.Add;
2011: THEN
2012: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2013: FND_MESSAGE.Set_Token('MISSING', 'line_id');
2014: FND_MSG_PUB.Add;
2015: /* raise FND_API.G_EXC_ERROR; */
2016: END IF;
2017:
2018: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check whse_code ', 'pick_lots.log');
2019: IF ( p_ic_tran_rec.whse_code = ''
2017:
2018: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check whse_code ', 'pick_lots.log');
2019: IF ( p_ic_tran_rec.whse_code = ''
2020: OR p_ic_tran_rec.whse_code IS NULL
2021: OR p_ic_tran_rec.whse_code = FND_API.G_MISS_CHAR)
2022: THEN
2023: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2024: FND_MESSAGE.Set_Token('MISSING', 'whse_code');
2025: FND_MSG_PUB.Add;
2022: THEN
2023: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2024: FND_MESSAGE.Set_Token('MISSING', 'whse_code');
2025: FND_MSG_PUB.Add;
2026: raise FND_API.G_EXC_ERROR;
2027: END IF;
2028:
2029: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check co_code/orgn_code ', 'pick_lots.log');
2030:
2029: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check co_code/orgn_code ', 'pick_lots.log');
2030:
2031: IF ( p_ic_tran_rec.co_code = ''
2032: OR p_ic_tran_rec.co_code IS NULL
2033: OR p_ic_tran_rec.co_code = FND_API.G_MISS_CHAR)
2034: OR ( p_ic_tran_rec.orgn_code = ''
2035: OR p_ic_tran_rec.orgn_code IS NULL
2036: OR p_ic_tran_rec.orgn_code = FND_API.G_MISS_CHAR)
2037: THEN
2032: OR p_ic_tran_rec.co_code IS NULL
2033: OR p_ic_tran_rec.co_code = FND_API.G_MISS_CHAR)
2034: OR ( p_ic_tran_rec.orgn_code = ''
2035: OR p_ic_tran_rec.orgn_code IS NULL
2036: OR p_ic_tran_rec.orgn_code = FND_API.G_MISS_CHAR)
2037: THEN
2038: OPEN Get_Orgn_Co_from_Whse(p_ic_tran_rec.whse_code);
2039: FETCH Get_Orgn_Co_from_Whse
2040: INTO x_ic_tran_rec.co_code,
2045: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2046: FND_MESSAGE.Set_Token('MISSING', 'NOTFOUND co_code/orgn_code');
2047: FND_MSG_PUB.Add;
2048: CLOSE Get_Orgn_Co_from_Whse;
2049: raise FND_API.G_EXC_ERROR;
2050: END IF;
2051: CLOSE Get_Orgn_Co_from_Whse;
2052:
2053: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2052:
2053: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2054: FND_MESSAGE.Set_Token('MISSING', 'co_code/orgn_code');
2055: FND_MSG_PUB.Add;
2056: /* raise FND_API.G_EXC_ERROR; */
2057: END IF;
2058:
2059:
2060: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check lot_id ', 'pick_lots.log');
2059:
2060: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check lot_id ', 'pick_lots.log');
2061: IF ( p_ic_tran_rec.lot_id = 0
2062: OR p_ic_tran_rec.lot_id IS NULL
2063: OR p_ic_tran_rec.lot_id = FND_API.G_MISS_NUM)
2064: THEN
2065: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2066: FND_MESSAGE.Set_Token('MISSING', 'lot_id');
2067: FND_MSG_PUB.Add;
2064: THEN
2065: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2066: FND_MESSAGE.Set_Token('MISSING', 'lot_id');
2067: FND_MSG_PUB.Add;
2068: /* raise FND_API.G_EXC_ERROR; */
2069: END IF;
2070:
2071: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check location ', 'pick_lots.log');
2072: IF ( p_ic_tran_rec.location = ''
2070:
2071: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check location ', 'pick_lots.log');
2072: IF ( p_ic_tran_rec.location = ''
2073: OR p_ic_tran_rec.location IS NULL
2074: OR p_ic_tran_rec.location = FND_API.G_MISS_CHAR)
2075: THEN
2076: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2077: FND_MESSAGE.Set_Token('MISSING', 'location');
2078: FND_MSG_PUB.Add;
2075: THEN
2076: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2077: FND_MESSAGE.Set_Token('MISSING', 'location');
2078: FND_MSG_PUB.Add;
2079: /* raise FND_API.G_EXC_ERROR; */
2080: END IF;
2081:
2082: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check doc_id ', 'pick_lots.log');
2083: IF ( p_ic_tran_rec.doc_id = 0
2081:
2082: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check doc_id ', 'pick_lots.log');
2083: IF ( p_ic_tran_rec.doc_id = 0
2084: OR p_ic_tran_rec.doc_id IS NULL
2085: OR p_ic_tran_rec.doc_id = FND_API.G_MISS_NUM)
2086: THEN
2087: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2088: FND_MESSAGE.Set_Token('MISSING', 'doc_id');
2089: FND_MSG_PUB.Add;
2086: THEN
2087: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2088: FND_MESSAGE.Set_Token('MISSING', 'doc_id');
2089: FND_MSG_PUB.Add;
2090: /* raise FND_API.G_EXC_ERROR; */
2091: END IF;
2092:
2093: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check doc_type ', 'pick_lots.log');
2094: IF ( p_ic_tran_rec.doc_type = ''
2092:
2093: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check doc_type ', 'pick_lots.log');
2094: IF ( p_ic_tran_rec.doc_type = ''
2095: OR p_ic_tran_rec.doc_type IS NULL
2096: OR p_ic_tran_rec.doc_type = FND_API.G_MISS_CHAR)
2097: THEN
2098: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2099: FND_MESSAGE.Set_Token('MISSING', 'doc_type');
2100: FND_MSG_PUB.Add;
2097: THEN
2098: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2099: FND_MESSAGE.Set_Token('MISSING', 'doc_type');
2100: FND_MSG_PUB.Add;
2101: /* raise FND_API.G_EXC_ERROR; */
2102: END IF;
2103:
2104: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check doc_line ', 'pick_lots.log');
2105: IF ( p_ic_tran_rec.doc_line = 0
2103:
2104: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check doc_line ', 'pick_lots.log');
2105: IF ( p_ic_tran_rec.doc_line = 0
2106: OR p_ic_tran_rec.doc_line IS NULL
2107: OR p_ic_tran_rec.doc_line = FND_API.G_MISS_NUM)
2108: THEN
2109: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2110: FND_MESSAGE.Set_Token('MISSING', 'doc_line');
2111: FND_MSG_PUB.Add;
2108: THEN
2109: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2110: FND_MESSAGE.Set_Token('MISSING', 'doc_line');
2111: FND_MSG_PUB.Add;
2112: /* raise FND_API.G_EXC_ERROR; */
2113: END IF;
2114:
2115: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check line_type ', 'pick_lots.log');
2116: IF ( p_ic_tran_rec.line_type = 0
2114:
2115: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check line_type ', 'pick_lots.log');
2116: IF ( p_ic_tran_rec.line_type = 0
2117: OR p_ic_tran_rec.line_type IS NULL
2118: OR p_ic_tran_rec.line_type = FND_API.G_MISS_NUM)
2119: THEN
2120: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2121: FND_MESSAGE.Set_Token('MISSING', 'line_type');
2122: FND_MSG_PUB.Add;
2119: THEN
2120: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2121: FND_MESSAGE.Set_Token('MISSING', 'line_type');
2122: FND_MSG_PUB.Add;
2123: /* raise FND_API.G_EXC_ERROR; */
2124: END IF;
2125:
2126: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check trans_qty ', 'pick_lots.log');
2127: IF ( p_ic_tran_rec.trans_qty = 0
2125:
2126: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check trans_qty ', 'pick_lots.log');
2127: IF ( p_ic_tran_rec.trans_qty = 0
2128: OR p_ic_tran_rec.trans_qty IS NULL
2129: OR p_ic_tran_rec.trans_qty = FND_API.G_MISS_NUM)
2130: THEN
2131: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2132: FND_MESSAGE.Set_Token('MISSING', 'trans_qty');
2133: FND_MSG_PUB.Add;
2130: THEN
2131: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2132: FND_MESSAGE.Set_Token('MISSING', 'trans_qty');
2133: FND_MSG_PUB.Add;
2134: /* raise FND_API.G_EXC_ERROR; */
2135: END IF;
2136:
2137: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check trans_qty2 ', 'pick_lots.log');
2138: IF ( p_ic_tran_rec.trans_qty2 = 0
2136:
2137: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check trans_qty2 ', 'pick_lots.log');
2138: IF ( p_ic_tran_rec.trans_qty2 = 0
2139: OR p_ic_tran_rec.trans_qty2 IS NULL
2140: OR p_ic_tran_rec.trans_qty2 = FND_API.G_MISS_NUM)
2141: THEN
2142: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2143: FND_MESSAGE.Set_Token('MISSING', 'trans_qty2');
2144: FND_MSG_PUB.Add;
2141: THEN
2142: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2143: FND_MESSAGE.Set_Token('MISSING', 'trans_qty2');
2144: FND_MSG_PUB.Add;
2145: /* raise FND_API.G_EXC_ERROR; */
2146: END IF;
2147:
2148: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check trans_um ', 'pick_lots.log');
2149: IF ( p_ic_tran_rec.trans_um = ''
2147:
2148: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check trans_um ', 'pick_lots.log');
2149: IF ( p_ic_tran_rec.trans_um = ''
2150: OR p_ic_tran_rec.trans_um IS NULL
2151: OR p_ic_tran_rec.trans_um = FND_API.G_MISS_CHAR)
2152: THEN
2153: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2154: FND_MESSAGE.Set_Token('MISSING', 'trans_um');
2155: FND_MSG_PUB.Add;
2152: THEN
2153: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2154: FND_MESSAGE.Set_Token('MISSING', 'trans_um');
2155: FND_MSG_PUB.Add;
2156: /* raise FND_API.G_EXC_ERROR; */
2157: END IF;
2158:
2159: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check trans_um2 ', 'pick_lots.log');
2160: IF ( p_ic_tran_rec.trans_um2 = ''
2158:
2159: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check trans_um2 ', 'pick_lots.log');
2160: IF ( p_ic_tran_rec.trans_um2 = ''
2161: OR p_ic_tran_rec.trans_um2 IS NULL
2162: OR p_ic_tran_rec.trans_um2 = FND_API.G_MISS_CHAR)
2163: THEN
2164: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2165: FND_MESSAGE.Set_Token('MISSING', 'trans_um2');
2166: FND_MSG_PUB.Add;
2163: THEN
2164: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2165: FND_MESSAGE.Set_Token('MISSING', 'trans_um2');
2166: FND_MSG_PUB.Add;
2167: /* raise FND_API.G_EXC_ERROR; */
2168: END IF;
2169:
2170: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check trans_date ', 'pick_lots.log');
2171: IF ( p_ic_tran_rec.trans_date IS NULL
2168: END IF;
2169:
2170: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: Check trans_date ', 'pick_lots.log');
2171: IF ( p_ic_tran_rec.trans_date IS NULL
2172: OR p_ic_tran_rec.trans_date = FND_API.G_MISS_DATE)
2173: THEN
2174: /* x_ic_tran_rec.trans_date := sysdate; */
2175: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2176: FND_MESSAGE.Set_Token('MISSING', 'trans_date');
2174: /* x_ic_tran_rec.trans_date := sysdate; */
2175: FND_MESSAGE.Set_Name('GMI','GMI_MISSING');
2176: FND_MESSAGE.Set_Token('MISSING', 'trans_date');
2177: FND_MSG_PUB.Add;
2178: /* raise FND_API.G_EXC_ERROR; */
2179: END IF;
2180:
2181:
2182:
2204: GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: trans_um2='||x_ic_tran_rec.trans_um2, 'pick_lots.log');
2205: /* GMI_reservation_Util.PrintLn('(opm_dbg) in Util.Validation_ictran_rec: staged_ind='||x_ic_tran_rec.staged_ind, 'pick_lots.log'); */
2206:
2207: EXCEPTION
2208: WHEN FND_API.G_EXC_ERROR THEN
2209: GMI_Reservation_Util.printLn('End of Validation_ic_tran_rec. Error', 'pick_lots.log');
2210: x_return_status := FND_API.G_RET_STS_ERROR;
2211:
2212: /* Get message count and data */
2206:
2207: EXCEPTION
2208: WHEN FND_API.G_EXC_ERROR THEN
2209: GMI_Reservation_Util.printLn('End of Validation_ic_tran_rec. Error', 'pick_lots.log');
2210: x_return_status := FND_API.G_RET_STS_ERROR;
2211:
2212: /* Get message count and data */
2213: FND_MSG_PUB.count_and_get
2214: ( p_count => x_msg_count
2216: );
2217:
2218: WHEN OTHERS THEN
2219: GMI_Reservation_Util.printLn('End of Validation_ic_tran_rec. ErrorOthers', 'pick_lots.log');
2220: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2221:
2222: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
2223: , l_api_name
2224: );
2256: /* ======================================================================== */
2257: PROCEDURE Set_Pick_Lots
2258: ( p_ic_tran_rec IN OUT NOCOPY GMI_TRANS_ENGINE_PUB.ictran_rec
2259: , p_mo_line_id IN NUMBER
2260: , p_commit IN VARCHAR2 DEFAULT FND_API.G_TRUE
2261: , x_return_status OUT NOCOPY VARCHAR2
2262: , x_msg_count OUT NOCOPY NUMBER
2263: , x_msg_data OUT NOCOPY VARCHAR2
2264: ) IS
2267: l_api_name CONSTANT VARCHAR2(30) := 'Set_Pick_Lots';
2268: l_api_version CONSTANT VARCHAR2(10) := '1.0';
2269:
2270: l_whse_code VARCHAR2(4);
2271: l_commit VARCHAR2(5) := FND_API.G_FALSE;
2272: l_validation_level VARCHAR2(4) := FND_API.G_VALID_LEVEL_FULL;
2273: l_validation_flag VARCHAR2(10) := FND_API.G_TRUE;
2274: l_rsv_rec inv_reservation_global.mtl_reservation_rec_type;
2275: l_serial_number inv_reservation_global.serial_number_tbl_type;
2268: l_api_version CONSTANT VARCHAR2(10) := '1.0';
2269:
2270: l_whse_code VARCHAR2(4);
2271: l_commit VARCHAR2(5) := FND_API.G_FALSE;
2272: l_validation_level VARCHAR2(4) := FND_API.G_VALID_LEVEL_FULL;
2273: l_validation_flag VARCHAR2(10) := FND_API.G_TRUE;
2274: l_rsv_rec inv_reservation_global.mtl_reservation_rec_type;
2275: l_serial_number inv_reservation_global.serial_number_tbl_type;
2276: l_mtl_reservation_tbl inv_reservation_global.mtl_reservation_tbl_type;
2269:
2270: l_whse_code VARCHAR2(4);
2271: l_commit VARCHAR2(5) := FND_API.G_FALSE;
2272: l_validation_level VARCHAR2(4) := FND_API.G_VALID_LEVEL_FULL;
2273: l_validation_flag VARCHAR2(10) := FND_API.G_TRUE;
2274: l_rsv_rec inv_reservation_global.mtl_reservation_rec_type;
2275: l_serial_number inv_reservation_global.serial_number_tbl_type;
2276: l_mtl_reservation_tbl inv_reservation_global.mtl_reservation_tbl_type;
2277: l_mtl_reservation_tbl_count NUMBER;
2369:
2370: /* ======================================================================= */
2371: /* Init variables */
2372: /* ======================================================================= */
2373: x_return_status := FND_API.G_RET_STS_SUCCESS;
2374: SAVEPOINT Accept_Pick_Lots;
2375:
2376: l_need_update_default_lot := TRUE;
2377: l_change_lot := FALSE;
2393: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2394: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Validation_ictran_rec');
2395: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2396: FND_MSG_PUB.ADD;
2397: RAISE FND_API.G_EXC_ERROR;
2398: ELSE
2399: /* ================================================================ */
2400: /* Init variables before calling QueryReservation: */
2401: /* ================================================================ */
2417: FND_MESSAGE.Set_Name('GMI','GMI_QRY_SO_FAILED');
2418: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2419: FND_MESSAGE.Set_Token('SO_LINE_ID', ll_ic_tran_rec.line_id);
2420: FND_MSG_PUB.Add;
2421: RAISE FND_API.G_EXC_ERROR;
2422: ELSE
2423: GMI_reservation_Util.PrintLn('(opm_dbg) in Set_Pick_Lots FOUND: line_id='||ll_ic_tran_rec.line_id||'.', 'pick_lots.log');
2424: END IF;
2425: CLOSE c_sales_order_info;
2443: x_opm_co_code => ll_ic_tran_rec.co_code,
2444: x_opm_orgn_code => ll_ic_tran_rec.orgn_code,
2445: x_return_status => x_return_status );
2446:
2447: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2448: OR (l_whse_code <> ll_ic_tran_rec.whse_code)
2449: THEN
2450: GMI_reservation_Util.PrintLn('(opm_dbg) in end of GMI_Reservation_Util.Set_Pick_Lots ERROR:Returned by Get_Process_Org.');
2451: FND_MESSAGE.Set_Name('GMI','GMI_GET_PROCESS_ORG');
2450: GMI_reservation_Util.PrintLn('(opm_dbg) in end of GMI_Reservation_Util.Set_Pick_Lots ERROR:Returned by Get_Process_Org.');
2451: FND_MESSAGE.Set_Name('GMI','GMI_GET_PROCESS_ORG');
2452: FND_MESSAGE.Set_Token('ORGANIZATION_ID', l_organization_id);
2453: FND_MSG_PUB.Add;
2454: RAISE FND_API.G_EXC_ERROR;
2455: END IF;
2456:
2457: l_co_code := ll_ic_tran_rec.co_code;
2458: /* ============================================================================================= */
2466: , x_return_status => x_return_status
2467: , x_msg_count => x_msg_count
2468: , x_msg_data => x_msg_data);
2469:
2470: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2471: FND_MESSAGE.Set_Name('GMI','GMI_OPM_ITEM');
2472: FND_MESSAGE.Set_Token('ORGANIZATION_ID', l_organization_id);
2473: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', l_inventory_item_id);
2474: FND_MSG_PUB.Add;
2471: FND_MESSAGE.Set_Name('GMI','GMI_OPM_ITEM');
2472: FND_MESSAGE.Set_Token('ORGANIZATION_ID', l_organization_id);
2473: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', l_inventory_item_id);
2474: FND_MSG_PUB.Add;
2475: raise FND_API.G_EXC_ERROR;
2476: END IF;
2477:
2478: /* B1390816, odaboval 16-Nov-2000 : Added a check on the Horizon period. */
2479: /* ======================================================================= */
2506: GMI_Reservation_Util.PrintLn('(opm_dbg) allocation - Error missing allocation parms',1);
2507: FND_MESSAGE.SET_NAME('GML','GML_NO_ALLOCATION_PARMS');
2508: FND_MESSAGE.SET_TOKEN('ALLOC_CLASS', l_ic_item_mst_rec.alloc_class);
2509: FND_MSG_PUB.Add;
2510: RAISE FND_API.G_EXC_ERROR;
2511: END IF;
2512:
2513: /* It is not possible to allocate (create/update) if the period between */
2514: /* trans_date and sysdate is greater than the Horizon period. */
2520: GMI_Reservation_Util.PrintLn('(opm_dbg) do allocate from sysdate > ' || (p_ic_tran_rec.trans_date + l_op_alot_prm_rec.alloc_horizon));
2521: GMI_Reservation_Util.PrintLn('(opm_dbg) or choose trans_date < '|| (SYSDATE + l_op_alot_prm_rec.alloc_horizon));
2522: FND_MESSAGE.SET_NAME('GML','SO_E_ALLOC_HORIZON_ERR');
2523: FND_MSG_PUB.Add;
2524: RAISE FND_API.G_EXC_ERROR;
2525: END IF;
2526:
2527: /* ==================================================================== */
2528: /* End of check : trans_date validity */
2570: l_rsv_rec.organization_id := l_organization_id;
2571: l_rsv_rec.demand_source_header_id := l_demand_source_header_id;
2572: l_rsv_rec.demand_source_line_id := l_demand_source_line_id;
2573:
2574: l_validation_flag := FND_API.G_FALSE;
2575:
2576: GMI_reservation_pub.Query_reservation
2577: ( p_api_version_number => 1.0
2578: , p_init_msg_lst => FND_API.G_FALSE
2574: l_validation_flag := FND_API.G_FALSE;
2575:
2576: GMI_reservation_pub.Query_reservation
2577: ( p_api_version_number => 1.0
2578: , p_init_msg_lst => FND_API.G_FALSE
2579: , x_return_status => x_return_status
2580: , x_msg_count => x_msg_count
2581: , x_msg_data => x_msg_data
2582: , p_validation_flag => l_validation_flag
2584: , p_cancel_order_mode => INV_RESERVATION_GLOBAL.G_CANCEL_ORDER_YES
2585: , x_mtl_reservation_tbl => l_mtl_reservation_tbl
2586: , x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count
2587: , x_error_code => l_error_code
2588: , p_lock_records => FND_API.G_FALSE
2589: , p_sort_by_req_date => INV_RESERVATION_GLOBAL.G_QUERY_NO_SORT
2590: );
2591:
2592: /* ======================================================================================= */
2604: , x_return_status => x_return_status
2605: , x_msg_count => x_msg_count
2606: , x_msg_data => x_msg_data);
2607:
2608: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2609: GMI_reservation_Util.PrintLn('(opm_dbg) in Set_Pick_Lots: Error Returned by Create_Empty_Default_Lot(1).', 'pick_lots.log');
2610: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2611: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Create_Empty_Default_Lot');
2612: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2610: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2611: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Create_Empty_Default_Lot');
2612: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2613: FND_MSG_PUB.ADD;
2614: RAISE FND_API.G_EXC_ERROR;
2615: END IF;
2616: l_need_update_default_lot := FALSE;
2617:
2618: /* ======================================================================================= */
2622:
2623: END IF;
2624:
2625: /* There may have been a problem getting the rows */
2626: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2627: THEN
2628: GMI_reservation_Util.PrintLn('(opm_dbg) in Set_Pick_Lots: Error Returned by Query_Reservation.', 'pick_lots.log');
2629: FND_MESSAGE.SET_NAME('GMI','GMI_QRY_RSV_FAILED');
2630: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2629: FND_MESSAGE.SET_NAME('GMI','GMI_QRY_RSV_FAILED');
2630: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2631: FND_MESSAGE.Set_Token('SO_LINE_ID', l_rsv_rec.demand_source_line_id);
2632: FND_MSG_PUB.ADD;
2633: RAISE FND_API.G_EXC_ERROR;
2634: END IF;
2635:
2636: /* At this point the table should have rows */
2637: IF (GMI_Reservation_Util.ic_tran_rec_tbl.COUNT > 0)
2643: , x_return_status => x_return_status
2644: , x_msg_count => x_msg_count
2645: , x_msg_data => x_msg_data);
2646:
2647: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2648: GMI_reservation_Util.PrintLn('(opm_dbg) in Set_Pick_Lots: Error Returned by Get_Default_Lot.', 'pick_lots.log');
2649: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2650: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Get_Default_Lot');
2651: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2649: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2650: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Get_Default_Lot');
2651: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2652: FND_MSG_PUB.ADD;
2653: RAISE FND_API.G_EXC_ERROR;
2654: END IF;
2655:
2656: /* ============================================================================================= */
2657: /* Lock rows in ic_loct_inv. */
2669: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
2670: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Locks.Lock_Inventory');
2671: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2672: FND_MSG_PUB.Add;
2673: RAISE FND_API.G_EXC_ERROR;
2674: END IF;
2675: */
2676: GMI_reservation_Util.PrintLn('(opm_dbg) in Set_Pick_Lots: default_lot_index='||l_default_lot_index, 'pick_lots.log');
2677: /* ======================================================================================= */
2687: , x_return_status => x_return_status
2688: , x_msg_count => x_msg_count
2689: , x_msg_data => x_msg_data);
2690:
2691: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2692: GMI_reservation_Util.PrintLn('(opm_dbg) in Set_Pick_Lots: Error Returned by Create_Empty_Default_Lot(2).', 'pick_lots.log');
2693: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2694: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Create_Empty_Default_Lot');
2695: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2693: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2694: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Create_Empty_Default_Lot');
2695: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2696: FND_MSG_PUB.ADD;
2697: RAISE FND_API.G_EXC_ERROR;
2698: END IF;
2699: l_need_update_default_lot := FALSE;
2700:
2701: /* ======================================================================================= */
2734: ,x_return_status => x_return_status
2735: ,x_msg_count => x_msg_count
2736: ,x_msg_data => x_msg_data);
2737:
2738: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2739: GMI_reservation_Util.PrintLn('(opm_dbg) in Set_Pick_Lots: Error Returned by Get_Allocation.', 'pick_lots.log');
2740: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2741: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Get_Allocation');
2742: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2740: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2741: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Get_Allocation');
2742: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2743: FND_MSG_PUB.ADD;
2744: RAISE FND_API.G_EXC_ERROR;
2745: END IF;
2746:
2747: GMI_reservation_Util.PrintLn('(opm_dbg) in Set_Pick_Lots: Not updating the default, save orig trans to local rec.', 'pick_lots.log');
2748: l_original_tran_rec := GMI_Reservation_Util.ic_tran_rec_tbl(l_original_tran_index);
2762: ,x_return_status => x_return_status
2763: ,x_msg_count => x_msg_count
2764: ,x_msg_data => x_msg_data);
2765:
2766: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2767: GMI_reservation_Util.PrintLn('(opm_dbg) in Set_Pick_Lots: Error Returned by Validation_ictran_rec.', 'pick_lots.log');
2768: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2769: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Validation_ictran_rec');
2770: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2768: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2769: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Validation_ictran_rec');
2770: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2771: FND_MSG_PUB.ADD;
2772: RAISE FND_API.G_EXC_ERROR;
2773: END IF;
2774:
2775: l_ic_tran_rec.doc_id := l_demand_source_header_id;
2776: l_ic_tran_rec.line_id := l_demand_source_line_id;
2821: l_original_tran_rec.reason_code := ll_ic_tran_rec.reason_code;
2822: GMI_reservation_Util.PrintLn('(opm_dbg)in Set_Pick_Lots: Update the transaction qty to:' || l_original_tran_rec.trans_qty , 'pick_lots.log');
2823: GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TRANSACTION(
2824: p_api_version => 1.0
2825: ,p_init_msg_list => FND_API.G_FALSE
2826: ,p_commit => l_commit
2827: ,p_validation_level => l_validation_level
2828: ,p_tran_rec => l_original_tran_rec
2829: ,x_tran_row => l_temp_tran_row
2830: ,x_return_status => x_return_status
2831: ,x_msg_count => x_msg_count
2832: ,x_msg_data => x_msg_data);
2833:
2834: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2835: THEN
2836: GMI_reservation_Util.PrintLn('(opm_dbg) in Set_Pick_Lots: Error returned by GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TRANSACTION.', 'pick_lots.log');
2837: GMI_reservation_Util.PrintLn('Error Message '|| x_msg_data);
2838: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2838: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2839: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TRANSACTION');
2840: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2841: FND_MSG_PUB.Add;
2842: RAISE FND_API.G_EXC_ERROR;
2843: END IF;
2844: ELSE
2845: /* Need to delete the Original transaction, and then create a new one. */
2846: GMI_reservation_Util.PrintLn('(opm_dbg) in Set_Pick_Lots: Change of Lot...', 'pick_lots.log');
2869: , p_rsv_rec => l_rsv_rec
2870: , p_serial_number => l_serial_number
2871: );
2872:
2873: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2874: THEN
2875: GMI_Reservation_Util.PrintLn('(opm_dbg) In Set_Pick_Lots, Error returned by Delete_Reservation, Error='||x_return_status, 'pick_lots.log');
2876: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2877: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_PVT.Delete_Reservation');
2876: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2877: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_PVT.Delete_Reservation');
2878: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2879: FND_MSG_PUB.Add;
2880: RAISE FND_API.G_EXC_ERROR;
2881: END IF;
2882:
2883: END IF;
2884:
2919: gmi_reservation_util.println('Value of l_original_tran_rec.trans_um2 is '|| l_original_tran_rec.trans_um2);
2920: GMI_reservation_Util.PrintLn('(opm_dbg)in Set_Pick_Lots: Create the new transaction :', 'pick_lots.log');
2921: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION(
2922: p_api_version => 1.0
2923: ,p_init_msg_list => FND_API.G_FALSE
2924: ,p_commit => l_commit
2925: ,p_validation_level => l_validation_level
2926: ,p_tran_rec => l_original_tran_rec
2927: ,x_tran_row => l_temp_tran_row
2928: ,x_return_status => x_return_status
2929: ,x_msg_count => x_msg_count
2930: ,x_msg_data => x_msg_data);
2931:
2932: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2933: THEN
2934: GMI_reservation_Util.PrintLn('(opm_dbg) in Set_Pick_lots: Error returned by GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION.', 'pick_lots.log');
2935: GMI_reservation_Util.PrintLn('Error Message '|| x_msg_data);
2936: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2936: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2937: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION');
2938: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2939: FND_MSG_PUB.Add;
2940: RAISE FND_API.G_EXC_ERROR;
2941: END IF;
2942:
2943: /* Begin enhancement 1928979 - lakshmi swamy */
2944:
2945: IF (p_mo_line_id is NOT NULL) THEN
2946: GMI_Pick_Release_Util.Create_Manual_Alloc_Pickslip ( l_organization_id , p_mo_line_id,
2947: x_return_status, x_msg_count, x_msg_data, l_pick_slip_number);
2948:
2949: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2950: THEN
2951: GMI_reservation_Util.PrintLn('(opm_dbg) in Set_Pick_lots: Error returned by GMI_Pick_Release_Util.Create_Manual_Alloc_Pickslip.', 'pick_lots.log');
2952: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2953: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Pick_Release_Util.Create_Manual_Alloc_Pickslip');
2952: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
2953: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Pick_Release_Util.Create_Manual_Alloc_Pickslip');
2954: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
2955: FND_MSG_PUB.Add;
2956: RAISE FND_API.G_EXC_ERROR;
2957: END IF;
2958:
2959: UPDATE ic_tran_pnd
2960: SET pick_slip_number = l_pick_slip_number
3057: /* NC - 11/13/01 changed IF(FND_GLOBAL.user_id > 0) to IF(FND_GLOBAL.user_id >= 0).
3058: User_id 0 is a valid one( sysadmin). Bug#2108143 .This issue caused problems at numerous customers'.*/
3059: IF (FND_GLOBAL.user_id >= 0)
3060: THEN
3061: IF ( p_commit = FND_API.G_TRUE)
3062: THEN
3063: GMI_Reservation_Util.printLn('End of Set_Pick_Lots. No Error (COMMIT)', 'pick_lots.log');
3064: COMMIT;
3065: ELSE
3072:
3073: GMI_Reservation_Util.PrintLn('(opm_dbg) END of Set_Pick_Lots', 'pick_lots.log');
3074:
3075: EXCEPTION
3076: WHEN FND_API.G_EXC_ERROR THEN
3077: ROLLBACK TO SAVEPOINT Accept_Pick_Lots;
3078:
3079: GMI_Reservation_Util.printLn('End of Set_Pick_Lots. Error (Rollback)');
3080: FND_MESSAGE.Set_Name('GMI','UNEXPECTED_ERROR');
3080: FND_MESSAGE.Set_Name('GMI','UNEXPECTED_ERROR');
3081: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
3082: FND_MESSAGE.Set_Token('WHAT', 'ExpectedError');
3083: FND_MSG_PUB.Add;
3084: x_return_status := FND_API.G_RET_STS_ERROR;
3085:
3086: /* Get message count and data */
3087: FND_MSG_PUB.count_and_get
3088: ( p_count => x_msg_count
3096: FND_MESSAGE.Set_Name('GMI','UNEXPECTED_ERROR');
3097: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
3098: FND_MESSAGE.Set_Token('WHAT', 'LockError');
3099: FND_MSG_PUB.Add;
3100: x_return_status := FND_API.G_RET_STS_ERROR;
3101:
3102: WHEN OTHERS THEN
3103: ROLLBACK TO SAVEPOINT Accept_Pick_Lots;
3104:
3102: WHEN OTHERS THEN
3103: ROLLBACK TO SAVEPOINT Accept_Pick_Lots;
3104:
3105: GMI_Reservation_Util.printLn('End of Set_Pick_Lots. ErrorOthers (Rollback)');
3106: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3107:
3108: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
3109: , l_api_name
3110: );
3131: l_order_uom VARCHAR2(5);
3132: l_whse_code VARCHAR2(5);
3133: l_trans_qty NUMBER;
3134: l_trans_qty2 NUMBER;
3135: l_commit VARCHAR2(5) := FND_API.G_FALSE;
3136: l_validation_level VARCHAR2(4) := FND_API.G_VALID_LEVEL_FULL;
3137: l_ic_tran_rec GMI_TRANS_ENGINE_PUB.ictran_rec;
3138: l_temp_tran_row ic_tran_pnd%ROWTYPE;
3139: l_organization_id NUMBER;
3132: l_whse_code VARCHAR2(5);
3133: l_trans_qty NUMBER;
3134: l_trans_qty2 NUMBER;
3135: l_commit VARCHAR2(5) := FND_API.G_FALSE;
3136: l_validation_level VARCHAR2(4) := FND_API.G_VALID_LEVEL_FULL;
3137: l_ic_tran_rec GMI_TRANS_ENGINE_PUB.ictran_rec;
3138: l_temp_tran_row ic_tran_pnd%ROWTYPE;
3139: l_organization_id NUMBER;
3140: l_inventory_item_id NUMBER;
3311: GMI_reservation_Util.PrintLn(' old item_id '||l_opm_item_id);
3312: GMI_reservation_Util.PrintLn(' new item_id '||l_ic_tran_rec.item_id);
3313: GMI_TRANS_ENGINE_PUB.DELETE_PENDING_TRANSACTION(
3314: p_api_version => 1.0
3315: ,p_init_msg_list => fnd_api.g_false
3316: ,p_commit => l_commit
3317: ,p_validation_level => l_validation_level
3318: ,p_tran_rec => l_ic_tran_rec
3319: ,x_tran_row => l_temp_tran_row
3320: ,x_return_status => x_return_status
3321: ,x_msg_count => x_msg_count
3322: ,x_msg_data => x_msg_data);
3323: GMI_reservation_Util.PrintLn('(opm_dbg) in PVT d After DELETE_PENDING_TRANSACTION.');
3324: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
3325: THEN
3326: GMI_reservation_Util.PrintLn('(opm_dbg) in PVT d ERROR: Returned by Delete_Transaction().');
3327: GMI_reservation_Util.PrintLn('Error Message '|| x_msg_data);
3328: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
3328: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
3329: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_TRANS_ENGINE_PUB.DELETE_PENDING_TRANSACTION');
3330: FND_MESSAGE.Set_Token('WHERE', 'Delete_Reservation');
3331: FND_MSG_PUB.Add;
3332: RAISE FND_API.G_EXC_ERROR;
3333: END IF;
3334:
3335: l_ic_tran_rec.trans_id := null;
3336: l_ic_tran_rec.whse_code := l_whse_code;
3340: l_ic_tran_rec.trans_um2 := l_trans_um2;
3341:
3342: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION(
3343: p_api_version => 1.0
3344: ,p_init_msg_list => FND_API.G_FALSE
3345: ,p_commit => l_commit
3346: ,p_validation_level => l_validation_level
3347: ,p_tran_rec => l_ic_tran_rec
3348: ,x_tran_row => l_temp_tran_row
3349: ,x_return_status => x_return_status
3350: ,x_msg_count => x_msg_count
3351: ,x_msg_data => x_msg_data);
3352:
3353: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
3354: THEN
3355: 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');
3356: GMI_reservation_Util.PrintLn('Error Message '|| x_msg_data);
3357: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
3357: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
3358: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION');
3359: FND_MESSAGE.Set_Token('WHERE', 'Create_Empty_Default_Lot');
3360: FND_MSG_PUB.Add;
3361: RAISE FND_API.G_EXC_ERROR;
3362: END IF;
3363: /* cancel all the reservations for GME */
3364: GMI_reservation_Util.PrintLn('(opm_dbg)in balancing the default lot, cancel reservation for line_id '||l_ic_tran_rec.line_id);
3365: GML_BATCH_OM_RES_PVT.cancel_res_for_so_line
3374: GMI_reservation_Util.PrintLn('(opm_dbg)in balancing the default lot, update pending trans');
3375: GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TRANSACTION
3376: (
3377: p_api_version => 1.0
3378: ,p_init_msg_list => FND_API.G_FALSE
3379: ,p_commit => l_commit
3380: ,p_validation_level => l_validation_level
3381: ,p_tran_rec => l_ic_tran_rec
3382: ,x_tran_row => l_temp_tran_row
3383: ,x_return_status => x_return_status
3384: ,x_msg_count => x_msg_count
3385: ,x_msg_data => x_msg_data
3386: );
3387: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3388: GMI_reservation_Util.PrintLn('(opm_dbg)in balancing the default lot: ERROR');
3389: GMI_reservation_Util.PrintLn('Error Message '|| x_msg_data);
3390: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
3391: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TRANSACTION');
3390: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
3391: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TRANSACTION');
3392: FND_MESSAGE.Set_Token('WHERE', 'Set_Pick_Lots');
3393: FND_MSG_PUB.Add;
3394: RAISE FND_API.G_EXC_ERROR;
3395: END IF;
3396: END IF;
3397: /* if the trans_qty is 0, remove all the outstand GME reservations as well */
3398: /* cancel all the reservations for GME */
3407: ) ;
3408: END IF;
3409: */
3410: EXCEPTION
3411: WHEN FND_API.G_EXC_ERROR THEN
3412: /* Get message count and data*/
3413: GMI_RESERVATION_UTIL.println('sqlerror'|| SUBSTRB(SQLERRM, 1, 100));
3414: WHEN OTHERS THEN
3415: GMI_RESERVATION_UTIL.println('sqlerror'|| SUBSTRB(SQLERRM, 1, 100));
3428: l_api_name CONSTANT VARCHAR2(30) := 'Create_Empty_Default_Lot';
3429: l_api_version CONSTANT VARCHAR2(10) := '1.0';
3430:
3431: l_lock_status BOOLEAN;
3432: l_validation_flag VARCHAR2(10) := FND_API.G_TRUE;
3433: l_commit VARCHAR2(5) := FND_API.G_FALSE;
3434: l_validation_level VARCHAR2(4) := FND_API.G_VALID_LEVEL_FULL;
3435:
3436: l_temp_tran_row ic_tran_pnd%ROWTYPE;
3429: l_api_version CONSTANT VARCHAR2(10) := '1.0';
3430:
3431: l_lock_status BOOLEAN;
3432: l_validation_flag VARCHAR2(10) := FND_API.G_TRUE;
3433: l_commit VARCHAR2(5) := FND_API.G_FALSE;
3434: l_validation_level VARCHAR2(4) := FND_API.G_VALID_LEVEL_FULL;
3435:
3436: l_temp_tran_row ic_tran_pnd%ROWTYPE;
3437: l_original_tran_rec GMI_TRANS_ENGINE_PUB.ictran_rec;
3430:
3431: l_lock_status BOOLEAN;
3432: l_validation_flag VARCHAR2(10) := FND_API.G_TRUE;
3433: l_commit VARCHAR2(5) := FND_API.G_FALSE;
3434: l_validation_level VARCHAR2(4) := FND_API.G_VALID_LEVEL_FULL;
3435:
3436: l_temp_tran_row ic_tran_pnd%ROWTYPE;
3437: l_original_tran_rec GMI_TRANS_ENGINE_PUB.ictran_rec;
3438: l_rsv_rec inv_reservation_global.mtl_reservation_rec_type;
3445: BEGIN
3446: /* ======================================================================= */
3447: /* Init variables */
3448: /* ======================================================================= */
3449: x_return_status := FND_API.G_RET_STS_SUCCESS;
3450:
3451:
3452: SAVEPOINT Empty_Default_lot;
3453:
3470: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
3471: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Locks.Lock_Inventory');
3472: FND_MESSAGE.Set_Token('WHERE', 'Create_Empty_Default_Lot');
3473: FND_MSG_PUB.Add;
3474: RAISE FND_API.G_EXC_ERROR;
3475: END IF;
3476:
3477: /* ============================================================================================= */
3478: /* No default lot exist AND MANUAL Allocation. Then create the default lot */
3530: IF (ll_trans_id is NULL)
3531: THEN
3532: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION(
3533: p_api_version => 1.0
3534: ,p_init_msg_list => FND_API.G_FALSE
3535: ,p_commit => l_commit
3536: ,p_validation_level => l_validation_level
3537: ,p_tran_rec => l_original_tran_rec
3538: ,x_tran_row => l_temp_tran_row
3539: ,x_return_status => x_return_status
3540: ,x_msg_count => x_msg_count
3541: ,x_msg_data => x_msg_data);
3542:
3543: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
3544: THEN
3545: 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');
3546: GMI_reservation_Util.PrintLn('Error Message '|| x_msg_data);
3547: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
3547: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
3548: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION');
3549: FND_MESSAGE.Set_Token('WHERE', 'Create_Empty_Default_Lot');
3550: FND_MSG_PUB.Add;
3551: RAISE FND_API.G_EXC_ERROR;
3552: END IF;
3553: ELSE
3554: GMI_reservation_Util.PrintLn('(opm_dbg) Dont create the default lot again (Shouldnt be here) - 2 ! ');
3555: END IF;
3562: l_rsv_rec.organization_id := p_organization_id;
3563: l_rsv_rec.demand_source_header_id := p_ic_tran_rec.doc_id;
3564: l_rsv_rec.demand_source_line_id := p_ic_tran_rec.line_id;
3565:
3566: l_validation_flag := FND_API.G_FALSE;
3567:
3568: GMI_reservation_pub.Query_reservation
3569: ( p_api_version_number => 1.0
3570: , p_init_msg_lst => FND_API.G_FALSE
3566: l_validation_flag := FND_API.G_FALSE;
3567:
3568: GMI_reservation_pub.Query_reservation
3569: ( p_api_version_number => 1.0
3570: , p_init_msg_lst => FND_API.G_FALSE
3571: , x_return_status => x_return_status
3572: , x_msg_count => x_msg_count
3573: , x_msg_data => x_msg_data
3574: , p_validation_flag => l_validation_flag
3576: , p_cancel_order_mode => INV_RESERVATION_GLOBAL.G_CANCEL_ORDER_YES
3577: , x_mtl_reservation_tbl => l_mtl_reservation_tbl
3578: , x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count
3579: , x_error_code => l_error_code
3580: , p_lock_records => FND_API.G_FALSE
3581: , p_sort_by_req_date => INV_RESERVATION_GLOBAL.G_QUERY_NO_SORT
3582: );
3583:
3584: /* There may not be any rows, and it should be possible ! (if not auto-allocate before) */
3588: FND_MESSAGE.SET_NAME('GMI','GMI_QRY_RSV_FAILED');
3589: FND_MESSAGE.Set_Token('WHERE', 'Create_Empty_Default_Lot');
3590: FND_MESSAGE.Set_Token('SO_LINE_ID', l_rsv_rec.demand_source_line_id);
3591: FND_MSG_PUB.ADD;
3592: RAISE FND_API.G_EXC_ERROR;
3593: END IF;
3594:
3595: /* There may have been a problem getting the rows */
3596: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
3592: RAISE FND_API.G_EXC_ERROR;
3593: END IF;
3594:
3595: /* There may have been a problem getting the rows */
3596: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
3597: THEN
3598: GMI_reservation_Util.PrintLn('(opm_dbg) in Create_Empty_Default_Lot: Error Returned by Query_Reservation(2).', 'pick_lots.log');
3599: FND_MESSAGE.SET_NAME('GMI','GMI_QRY_RSV_FAILED');
3600: FND_MESSAGE.Set_Token('WHERE', 'Create_Empty_Default_Lot');
3599: FND_MESSAGE.SET_NAME('GMI','GMI_QRY_RSV_FAILED');
3600: FND_MESSAGE.Set_Token('WHERE', 'Create_Empty_Default_Lot');
3601: FND_MESSAGE.Set_Token('SO_LINE_ID', l_rsv_rec.demand_source_line_id);
3602: FND_MSG_PUB.ADD;
3603: RAISE FND_API.G_EXC_ERROR;
3604: END IF;
3605:
3606: GMI_reservation_Util.PrintLn('(opm_dbg) in Create_Empty_Default_Lot: we have rows now calling Get_Default_Lot.', 'pick_lots.log');
3607: GMI_Reservation_Util.Get_Default_Lot(
3609: , x_return_status => x_return_status
3610: , x_msg_count => x_msg_count
3611: , x_msg_data => x_msg_data);
3612:
3613: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3614: GMI_reservation_Util.PrintLn('(opm_dbg) in Create_Empty_Default_Lot: Error Returned by Get_Default_Lot.', 'pick_lots.log');
3615: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
3616: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Get_Default_Lot');
3617: FND_MESSAGE.Set_Token('WHERE', 'Create_Empty_Default_Lot');
3615: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
3616: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Get_Default_Lot');
3617: FND_MESSAGE.Set_Token('WHERE', 'Create_Empty_Default_Lot');
3618: FND_MSG_PUB.ADD;
3619: RAISE FND_API.G_EXC_ERROR;
3620: END IF;
3621:
3622: GMI_reservation_Util.PrintLn('(opm_dbg) in Create_Empty_Default_Lot: default_lot_index='||x_default_lot_index, 'pick_lots.log');
3623: IF (x_default_lot_index=0)
3626: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
3627: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_Util.Get_Default_Lot');
3628: FND_MESSAGE.Set_Token('WHERE', 'Create_Empty_Default_Lot');
3629: FND_MSG_PUB.ADD;
3630: RAISE FND_API.G_EXC_ERROR;
3631: END IF;
3632:
3633: EXCEPTION
3634: WHEN FND_API.G_EXC_ERROR THEN
3630: RAISE FND_API.G_EXC_ERROR;
3631: END IF;
3632:
3633: EXCEPTION
3634: WHEN FND_API.G_EXC_ERROR THEN
3635: ROLLBACK TO SAVEPOINT Empty_Default_lot;
3636:
3637: GMI_Reservation_Util.printLn('End of Create_Empty_Default_Lot. Error');
3638: FND_MESSAGE.Set_Name('GMI','UNEXPECTED_ERROR');
3638: FND_MESSAGE.Set_Name('GMI','UNEXPECTED_ERROR');
3639: FND_MESSAGE.Set_Token('WHERE', 'Create_Empty_Default_Lot');
3640: FND_MESSAGE.Set_Token('WHAT', 'ExpectedError');
3641: FND_MSG_PUB.Add;
3642: x_return_status := FND_API.G_RET_STS_ERROR;
3643:
3644: /* Get message count and data */
3645: FND_MSG_PUB.count_and_get
3646: ( p_count => x_msg_count
3650: WHEN OTHERS THEN
3651: ROLLBACK TO SAVEPOINT Empty_Default_lot;
3652:
3653: GMI_Reservation_Util.printLn('End of Create_Empty_Default_Lot. ErrorOthers');
3654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3655:
3656: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
3657: , l_api_name
3658: );
3692: BEGIN
3693: /* ======================================================================= */
3694: /* Init variables */
3695: /* ======================================================================= */
3696: x_return_status := FND_API.G_RET_STS_SUCCESS;
3697:
3698: OPEN c_default_exist( p_line_id, p_item_id);
3699: FETCH c_default_exist
3700: INTO x_trans_id;
3708: CLOSE c_default_exist;
3709:
3710:
3711: EXCEPTION
3712: WHEN FND_API.G_EXC_ERROR THEN
3713: GMI_Reservation_Util.printLn('End of Default_Lot_Exist. Error');
3714: FND_MESSAGE.Set_Name('GMI','UNEXPECTED_ERROR');
3715: FND_MESSAGE.Set_Token('WHERE', 'Default_Lot_Exist');
3716: FND_MESSAGE.Set_Token('WHAT', 'ExpectedError');
3714: FND_MESSAGE.Set_Name('GMI','UNEXPECTED_ERROR');
3715: FND_MESSAGE.Set_Token('WHERE', 'Default_Lot_Exist');
3716: FND_MESSAGE.Set_Token('WHAT', 'ExpectedError');
3717: FND_MSG_PUB.Add;
3718: x_return_status := FND_API.G_RET_STS_ERROR;
3719:
3720: /* Get message count and data */
3721: FND_MSG_PUB.count_and_get
3722: ( p_count => x_msg_count
3724: );
3725:
3726: WHEN OTHERS THEN
3727: GMI_Reservation_Util.printLn('End of Default_Lot_Exist. ErrorOthers');
3728: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3729:
3730: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
3731: , l_api_name
3732: );
3844: l_ictran_rec.create_lot_index := NULL;
3845:
3846: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION
3847: ( p_api_version => 1.0
3848: , p_init_msg_list => FND_API.G_FALSE
3849: , p_commit => FND_API.G_FALSE
3850: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3851: , p_tran_rec => l_ictran_rec
3852: , x_tran_row => l_tran_row
3845:
3846: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION
3847: ( p_api_version => 1.0
3848: , p_init_msg_list => FND_API.G_FALSE
3849: , p_commit => FND_API.G_FALSE
3850: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3851: , p_tran_rec => l_ictran_rec
3852: , x_tran_row => l_tran_row
3853: , x_return_status => x_return_status
3846: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION
3847: ( p_api_version => 1.0
3848: , p_init_msg_list => FND_API.G_FALSE
3849: , p_commit => FND_API.G_FALSE
3850: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3851: , p_tran_rec => l_ictran_rec
3852: , x_tran_row => l_tran_row
3853: , x_return_status => x_return_status
3854: , x_msg_count => x_msg_count
3854: , x_msg_count => x_msg_count
3855: , x_msg_data => x_msg_data
3856: );
3857:
3858: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3859: GMI_reservation_Util.PrintLn('(opm_dbg) Error return by Create_Pending_Transaction,
3860: return_status='|| x_return_status||', x_msg_count='|| x_msg_count||'.');
3861: GMI_reservation_Util.PrintLn('Error Message '|| x_msg_data);
3862: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
3862: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
3863: FND_MESSAGE.Set_Token('BY_PROC','GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION');
3864: FND_MESSAGE.Set_Token('WHERE','Create_Default_Lot');
3865: FND_MSG_PUB.Add;
3866: raise FND_API.G_EXC_ERROR;
3867: END IF;
3868: END create_dflt_lot_from_scratch;
3869:
3870: Procedure create_transaction_for_rcv
3982: -- END Bug 3558787
3983:
3984: Begin
3985:
3986: x_return_status := FND_API.G_RET_STS_SUCCESS;
3987:
3988: GMI_reservation_Util.PrintLn('(opm_dbg) entering the trans for rcv ');
3989: Open get_uom;
3990: Fetch get_uom
4130: GMI_RESERVATION_UTIL.println('lot_status '||l_ictran_rec.lot_status);
4131:
4132: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION
4133: ( p_api_version => 1.0
4134: , p_init_msg_list => FND_API.G_FALSE
4135: , p_commit => FND_API.G_FALSE
4136: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
4137: , p_tran_rec => l_ictran_rec
4138: , x_tran_row => l_tran_row
4131:
4132: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION
4133: ( p_api_version => 1.0
4134: , p_init_msg_list => FND_API.G_FALSE
4135: , p_commit => FND_API.G_FALSE
4136: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
4137: , p_tran_rec => l_ictran_rec
4138: , x_tran_row => l_tran_row
4139: , x_return_status => x_return_status
4132: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION
4133: ( p_api_version => 1.0
4134: , p_init_msg_list => FND_API.G_FALSE
4135: , p_commit => FND_API.G_FALSE
4136: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
4137: , p_tran_rec => l_ictran_rec
4138: , x_tran_row => l_tran_row
4139: , x_return_status => x_return_status
4140: , x_msg_count => x_msg_count
4140: , x_msg_count => x_msg_count
4141: , x_msg_data => x_msg_data
4142: );
4143:
4144: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4145: GMI_reservation_Util.PrintLn('(opm_dbg) Error in creating transaction for receiving');
4146: GMI_reservation_Util.PrintLn('(opm_dbg) Error return by Create_Pending_Transaction,
4147: return_status='|| x_return_status||', x_msg_count='|| x_msg_count||'.');
4148: GMI_reservation_Util.PrintLn('Error Message '|| x_msg_data);
4149: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
4150: FND_MESSAGE.Set_Token('BY_PROC','GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION');
4151: FND_MESSAGE.Set_Token('WHERE','create_transaction_for_rcv');
4152: FND_MSG_PUB.Add;
4153: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4154: END IF;
4155:
4156: l_ictran_rec.trans_id := l_tran_row.trans_id;
4157: GMI_RESERVATION_UTIL.println('trans_id '||l_ictran_rec.trans_id);
4159: GMI_RESERVATION_UTIL.println('after create pending transaction ');
4160: GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TO_COMPLETED
4161: (
4162: p_api_version => 1
4163: ,p_init_msg_list => FND_API.G_FALSE
4164: ,p_commit => FND_API.G_FALSE
4165: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
4166: ,p_tran_rec => l_ictran_rec
4167: ,x_tran_row => l_tran_row
4160: GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TO_COMPLETED
4161: (
4162: p_api_version => 1
4163: ,p_init_msg_list => FND_API.G_FALSE
4164: ,p_commit => FND_API.G_FALSE
4165: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
4166: ,p_tran_rec => l_ictran_rec
4167: ,x_tran_row => l_tran_row
4168: ,x_return_status => x_return_status
4161: (
4162: p_api_version => 1
4163: ,p_init_msg_list => FND_API.G_FALSE
4164: ,p_commit => FND_API.G_FALSE
4165: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
4166: ,p_tran_rec => l_ictran_rec
4167: ,x_tran_row => l_tran_row
4168: ,x_return_status => x_return_status
4169: ,x_msg_count => x_msg_count
4169: ,x_msg_count => x_msg_count
4170: ,x_msg_data => x_msg_data
4171: );
4172:
4173: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
4174: THEN
4175:
4176: GMI_reservation_Util.PrintLn('(opm_dbg) Error return by UPDATE_PENDING_TO_COMPLETED,
4177: return_status='|| x_return_status||', x_msg_count='|| x_msg_count||'.');
4179: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
4180: FND_MESSAGE.Set_Token('BY_PROC','GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TO_COMPLETED');
4181: FND_MESSAGE.Set_Token('WHERE','create_transaction_for_rcv');
4182: FND_MSG_PUB.Add;
4183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4184: END IF;
4185:
4186: EXCEPTION
4187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4184: END IF;
4185:
4186: EXCEPTION
4187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4188: x_return_status := FND_API.G_RET_STS_ERROR;
4189:
4190: /* Get message count and data */
4191: FND_MSG_PUB.count_and_get
4184: END IF;
4185:
4186: EXCEPTION
4187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4188: x_return_status := FND_API.G_RET_STS_ERROR;
4189:
4190: /* Get message count and data */
4191: FND_MSG_PUB.count_and_get
4192: ( p_encoded=> FND_API.G_FALSE
4188: x_return_status := FND_API.G_RET_STS_ERROR;
4189:
4190: /* Get message count and data */
4191: FND_MSG_PUB.count_and_get
4192: ( p_encoded=> FND_API.G_FALSE
4193: , p_count => x_msg_count
4194: , p_data => x_msg_data
4195: );
4196: for l_cnt in 1..x_msg_count loop
4199: end loop;
4200: GMI_reservation_Util.PrintLn('for rcv:EXP Error count='||x_msg_count);
4201:
4202: WHEN OTHERS THEN
4203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4204:
4205: FND_MSG_PUB.Add_Exc_Msg ( 'RESERVATION_UTIL'
4206: , 'create_trans_for_rcv'
4207: );
4340: IS
4341: l_count number := 0;
4342:
4343: BEGIN
4344: x_return_status := FND_API.G_RET_STS_SUCCESS;
4345:
4346: Select count(*)
4347: INTO l_count
4348: From ic_tran_pnd
4415: x_return_status => l_return_status,
4416: x_msg_count => l_msg_count,
4417: x_msg_data => l_msg_data);
4418:
4419: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4420: RAISE FND_API.G_EXC_ERROR;
4421: END IF;
4422:
4423: GMI_RESERVATION_UTIL.Get_OPMUOM_from_AppsUOM(
4416: x_msg_count => l_msg_count,
4417: x_msg_data => l_msg_data);
4418:
4419: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4420: RAISE FND_API.G_EXC_ERROR;
4421: END IF;
4422:
4423: GMI_RESERVATION_UTIL.Get_OPMUOM_from_AppsUOM(
4424: p_apps_uom =>p_apps_from_uom,
4425: x_opm_uom =>l_opm_from_uom,
4426: x_return_status =>l_return_status,
4427: x_msg_count =>l_msg_count,
4428: x_msg_data =>l_msg_data);
4429: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4430: FND_MESSAGE.Set_Name('GMI','GMI_OPM_UOM_NOT_FOUND');
4431: FND_MESSAGE.Set_Token('APPS_UOM_CODE', p_apps_from_uom);
4432: FND_MSG_PUB.Add;
4433: RAISE FND_API.G_EXC_ERROR;
4429: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4430: FND_MESSAGE.Set_Name('GMI','GMI_OPM_UOM_NOT_FOUND');
4431: FND_MESSAGE.Set_Token('APPS_UOM_CODE', p_apps_from_uom);
4432: FND_MSG_PUB.Add;
4433: RAISE FND_API.G_EXC_ERROR;
4434: END IF;
4435: GMI_reservation_Util.PrintLn('from uom (OPM) '||l_opm_from_uom);
4436: GMI_RESERVATION_UTIL.Get_OPMUOM_from_AppsUOM(
4437: p_apps_uom =>p_apps_to_uom,
4438: x_opm_uom =>l_opm_to_uom,
4439: x_return_status =>l_return_status,
4440: x_msg_count =>l_msg_count,
4441: x_msg_data =>l_msg_data);
4442: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4443: FND_MESSAGE.Set_Name('GMI','GMI_OPM_UOM_NOT_FOUND');
4444: FND_MESSAGE.Set_Token('APPS_UOM_CODE', p_apps_to_uom);
4445: FND_MSG_PUB.Add;
4446: RAISE FND_API.G_EXC_ERROR;
4442: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4443: FND_MESSAGE.Set_Name('GMI','GMI_OPM_UOM_NOT_FOUND');
4444: FND_MESSAGE.Set_Token('APPS_UOM_CODE', p_apps_to_uom);
4445: FND_MSG_PUB.Add;
4446: RAISE FND_API.G_EXC_ERROR;
4447: END IF;
4448: GMI_reservation_Util.PrintLn('to uom (OPM) '||l_opm_to_uom);
4449:
4450: GMICUOM.icuomcv(
4458: GMI_reservation_Util.PrintLn('conversion error code'|| l_converted_qty);
4459: FND_MESSAGE.Set_Name('GMI','GMICUOM.icuomcv');
4460: FND_MESSAGE.Set_Token('CONVERSION_ERROR', p_apps_to_uom);
4461: FND_MSG_PUB.Add;
4462: RAISE FND_API.G_EXC_ERROR;
4463: END IF;
4464:
4465: --
4466: -- BUG 3581429 Added the following anonymous block
4500: x_staged_flag OUT NOCOPY VARCHAR2,
4501: p_reservation_id IN NUMBER) IS
4502: l_staged_flag NUMBER;
4503: BEGIN
4504: x_return_status := FND_API.G_RET_STS_SUCCESS;
4505:
4506: GMI_reservation_Util.PrintLn('(opm_dbg) trans_id '|| p_reservation_id);
4507: Select staged_ind
4508: Into l_staged_flag
4533: And staged_ind = 0
4534: And (lot_id = 0
4535: AND location = GMI_RESERVATION_UTIL.G_DEFAULT_LOCT);
4536: BEGIN
4537: x_return_status := FND_API.G_RET_STS_SUCCESS;
4538: GMI_reservation_Util.PrintLn('(opm_dbg) in find_default_lot defaultloc '
4539: || GMI_RESERVATION_UTIL.G_DEFAULT_LOCT);
4540: GMI_reservation_Util.PrintLn('(opm_dbg) in find_default_lot line_id '|| p_line_id);
4541: Open find_trans;
4725: p_line_id => p_old_source_line_id
4726: );
4727: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4728: GMI_RESERVATION_UTIL.println('Error returned by find default lot');
4729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4730: END IF;
4731: IF l_trans_id > 0 THEN
4732: oe_debug_pub.add('Going to find default lot in for new line ',2);
4733: GMI_RESERVATION_UTIL.find_default_lot
4753:
4754: GMI_RESERVATION_UTIL.PrintLn('creating the default trans for the new line');
4755: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION
4756: ( p_api_version => 1
4757: , p_init_msg_list => FND_API.G_FALSE
4758: , p_commit => FND_API.G_FALSE
4759: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
4760: , p_tran_rec => l_new_transaction_rec
4761: , x_tran_row => l_new_transaction_row
4754: GMI_RESERVATION_UTIL.PrintLn('creating the default trans for the new line');
4755: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION
4756: ( p_api_version => 1
4757: , p_init_msg_list => FND_API.G_FALSE
4758: , p_commit => FND_API.G_FALSE
4759: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
4760: , p_tran_rec => l_new_transaction_rec
4761: , x_tran_row => l_new_transaction_row
4762: , x_return_status => x_return_status
4755: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION
4756: ( p_api_version => 1
4757: , p_init_msg_list => FND_API.G_FALSE
4758: , p_commit => FND_API.G_FALSE
4759: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
4760: , p_tran_rec => l_new_transaction_rec
4761: , x_tran_row => l_new_transaction_row
4762: , x_return_status => x_return_status
4763: , x_msg_count => x_msg_count
4763: , x_msg_count => x_msg_count
4764: , x_msg_data => x_msg_data
4765: );
4766:
4767: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
4768: THEN
4769: GMI_reservation_Util.PrintLn('(opm_dbg) Error in creating default transaction ');
4770: GMI_reservation_Util.PrintLn('(opm_dbg) Error return by Create_Pending_Transaction,
4771: return_status='|| x_return_status||', x_msg_count='|| x_msg_count||'.');
4773: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
4774: FND_MESSAGE.Set_Token('BY_PROC','GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION');
4775: FND_MESSAGE.Set_Token('WHERE','split_trans_from_om');
4776: FND_MSG_PUB.Add;
4777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4778: END IF;
4779: END IF;
4780: END IF;
4781: END IF;
4817: l_new_transaction_rec.line_id := p_new_source_line_id;
4818:
4819: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION
4820: ( p_api_version => 1
4821: , p_init_msg_list => FND_API.G_FALSE
4822: , p_commit => FND_API.G_FALSE
4823: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
4824: , p_tran_rec => l_new_transaction_rec
4825: , x_tran_row => l_new_transaction_row
4818:
4819: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION
4820: ( p_api_version => 1
4821: , p_init_msg_list => FND_API.G_FALSE
4822: , p_commit => FND_API.G_FALSE
4823: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
4824: , p_tran_rec => l_new_transaction_rec
4825: , x_tran_row => l_new_transaction_row
4826: , x_return_status => x_return_status
4819: GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION
4820: ( p_api_version => 1
4821: , p_init_msg_list => FND_API.G_FALSE
4822: , p_commit => FND_API.G_FALSE
4823: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
4824: , p_tran_rec => l_new_transaction_rec
4825: , x_tran_row => l_new_transaction_row
4826: , x_return_status => x_return_status
4827: , x_msg_count => x_msg_count
4827: , x_msg_count => x_msg_count
4828: , x_msg_data => x_msg_data
4829: );
4830:
4831: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
4832: THEN
4833: GMI_reservation_Util.PrintLn('(opm_dbg) Error in creating transaction ');
4834: GMI_reservation_Util.PrintLn('(opm_dbg) Error return by Create_Pending_Transaction,
4835: return_status='|| x_return_status||', x_msg_count='|| x_msg_count||'.');
4838: FND_MESSAGE.Set_Token('BY_PROC','GMI_TRANS_ENGINE_PUB.CREATE_PENDING_TRANSACTION');
4839: FND_MESSAGE.Set_Token('WHERE','split_trans_from_om');
4840: FND_MSG_PUB.Add;
4841:
4842: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4843: END IF;
4844: /* no more fulfilment */
4845: l_qty_to_fulfil := 0;
4846: l_qty2_to_fulfil := 0;
4872: , x_return_status => x_return_status
4873: , x_msg_count => x_msg_count
4874: , x_msg_data => x_msg_data
4875: );
4876: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
4877: THEN
4878: GMI_RESERVATION_UTIL.PrintLn('Error returned by balancing default lot');
4879: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4880: END IF;
4875: );
4876: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
4877: THEN
4878: GMI_RESERVATION_UTIL.PrintLn('Error returned by balancing default lot');
4879: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4880: END IF;
4881: END IF;
4882: END IF;
4883: GMI_RESERVATION_UTIL.find_default_lot
4901: , x_return_status => x_return_status
4902: , x_msg_count => x_msg_count
4903: , x_msg_data => x_msg_data
4904: );
4905: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
4906: THEN
4907: GMI_RESERVATION_UTIL.PrintLn('Error returned by balancing default lot');
4908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4909: END IF;
4904: );
4905: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
4906: THEN
4907: GMI_RESERVATION_UTIL.PrintLn('Error returned by balancing default lot');
4908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4909: END IF;
4910: END IF;
4911: END IF;
4912: /* split the reservations if necessary */
4969:
4970: l_ctl_ind VARCHAR2(1);
4971: BEGIN
4972:
4973: x_return_status := FND_API.G_RET_STS_SUCCESS;
4974:
4975:
4976: /* see if item is a ctl item */
4977: GMI_RESERVATION_UTIL.check_lot_loct_ctl
4987: FETCH get_opm_txn_cntl into l_old_transaction_rec.trans_id;
4988: IF get_opm_txn_cntl%NOTFOUND THEN
4989: CLOSE get_opm_txn_cntl;
4990: gmi_reservation_util.println('Failed to fetch trans_id in update_opm_trxns for lot/location item= '||p_trans_id);
4991: x_return_status := FND_API.G_RET_STS_ERROR;
4992: RETURN;
4993: END IF;
4994: CLOSE get_opm_txn_cntl;
4995:
4999: FETCH get_opm_txn_non_cntl into l_old_transaction_rec.trans_id;
5000: IF get_opm_txn_non_cntl%NOTFOUND THEN
5001: CLOSE get_opm_txn_non_cntl;
5002: gmi_reservation_util.println('Failed to fetch trans_id in update_opm_trxns for non-lot/non location= '||p_trans_id);
5003: x_return_status := FND_API.G_RET_STS_ERROR;
5004: RETURN;
5005: END IF;
5006: CLOSE get_opm_txn_non_cntl;
5007: END IF;
5016: l_old_transaction_rec.line_detail_id := -999;
5017: GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TO_COMPLETED
5018: (
5019: p_api_version => 1
5020: ,p_init_msg_list => FND_API.G_FALSE
5021: ,p_commit => FND_API.G_FALSE
5022: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5023: ,p_tran_rec => l_old_transaction_rec
5024: ,x_tran_row => l_old_transaction_row
5017: GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TO_COMPLETED
5018: (
5019: p_api_version => 1
5020: ,p_init_msg_list => FND_API.G_FALSE
5021: ,p_commit => FND_API.G_FALSE
5022: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5023: ,p_tran_rec => l_old_transaction_rec
5024: ,x_tran_row => l_old_transaction_row
5025: ,x_return_status => x_return_status
5018: (
5019: p_api_version => 1
5020: ,p_init_msg_list => FND_API.G_FALSE
5021: ,p_commit => FND_API.G_FALSE
5022: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5023: ,p_tran_rec => l_old_transaction_rec
5024: ,x_tran_row => l_old_transaction_row
5025: ,x_return_status => x_return_status
5026: ,x_msg_count => x_msg_count
5026: ,x_msg_count => x_msg_count
5027: ,x_msg_data => x_msg_data
5028: );
5029:
5030: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5031: GMI_reservation_Util.PrintLn('(opm_dbg) Error in updating transaction ');
5032: GMI_reservation_Util.PrintLn('(opm_dbg) Error return by UPDATE_PENDING_TO_COMPLETED,
5033: return_status='|| x_return_status||', x_msg_count='|| x_msg_count||'.');
5034: GMI_reservation_Util.PrintLn('Error Message '|| x_msg_data);
5035: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
5036: FND_MESSAGE.Set_Token('BY_PROC','GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TO_COMPLETED');
5037: FND_MESSAGE.Set_Token('WHERE','update_opm_trxns');
5038: FND_MSG_PUB.Add;
5039: x_return_status := FND_API.G_RET_STS_ERROR;
5040: RETURN;
5041: END IF; -- of update
5042:
5043: ELSE -- of fetching trxn
5041: END IF; -- of update
5042:
5043: ELSE -- of fetching trxn
5044: gmi_reservation_util.println('Failed to fetch opm trxn in update_opm_trxns for trans_id:'||p_trans_id);
5045: x_return_status := FND_API.G_RET_STS_ERROR;
5046: RETURN;
5047: END IF; -- of fetching OPM trx
5048:
5049: gmi_reservation_util.println('Done upating ic_tran_pnd in update_opm_trxns.');
5073: x_lot_id NUMBER;
5074:
5075: BEGIN
5076:
5077: x_return_status := FND_API.G_RET_STS_SUCCESS;
5078: gmi_reservation_util.println('In GMI_reservation_util.find_lot_id');
5079: OPEN lot_info ;
5080: FETCH lot_info into x_lot_id ;
5081: IF lot_info%NOTFOUND THEN
5080: FETCH lot_info into x_lot_id ;
5081: IF lot_info%NOTFOUND THEN
5082: CLOSE lot_info ;
5083: gmi_reservation_util.println('Failed to fetch lot_id in in find_lot_id for trans _id= '||p_trans_id);
5084: x_return_status := FND_API.G_RET_STS_ERROR;
5085: RETURN;
5086: END IF;
5087:
5088: CLOSE lot_info;
5119:
5120: BEGIN
5121:
5122: -- Get OPM item information
5123: x_return_status := FND_API.G_RET_STS_SUCCESS;
5124: GMI_RESERVATION_UTIL.Get_OPM_Item_From_Apps(
5125: p_organization_id =>p_organization_id,
5126: p_inventory_item_id => p_inventory_item_id,
5127: x_ic_item_mst_rec => l_ic_item_mst_rec,
5128: x_return_status => l_return_status,
5129: x_msg_count => l_msg_count,
5130: x_msg_data => l_msg_data);
5131:
5132: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5133: raise FND_API.G_EXC_ERROR;
5134: RETURN;
5135: END IF;
5136:
5129: x_msg_count => l_msg_count,
5130: x_msg_data => l_msg_data);
5131:
5132: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5133: raise FND_API.G_EXC_ERROR;
5134: RETURN;
5135: END IF;
5136:
5137: opm_item_id := l_ic_item_mst_rec.item_id ;
5140: FETCH get_lot_no into l_lot_number;
5141: IF get_lot_no%NOTFOUND THEN
5142: CLOSE get_lot_no ;
5143: gmi_reservation_util.println('Failed to fetch lot_no in validate_lot_no');
5144: x_return_status := FND_API.G_RET_STS_ERROR;
5145: RETURN;
5146: END IF;
5147:
5148: CLOSE get_lot_no;
5146: END IF;
5147:
5148: CLOSE get_lot_no;
5149:
5150: x_return_status := FND_API.G_RET_STS_SUCCESS;
5151:
5152:
5153: EXCEPTION
5154: WHEN FND_API.G_EXC_ERROR THEN
5150: x_return_status := FND_API.G_RET_STS_SUCCESS;
5151:
5152:
5153: EXCEPTION
5154: WHEN FND_API.G_EXC_ERROR THEN
5155:
5156: x_return_status := FND_API.G_RET_STS_ERROR;
5157:
5158: FND_MSG_Pub.count_and_get
5152:
5153: EXCEPTION
5154: WHEN FND_API.G_EXC_ERROR THEN
5155:
5156: x_return_status := FND_API.G_RET_STS_ERROR;
5157:
5158: FND_MSG_Pub.count_and_get
5159: ( p_count => x_msg_count
5160: , p_data => x_msg_data
5161: );
5162:
5163: GMI_reservation_Util.PrintLn('(opm_dbg) in Util q: Exp_Error ');
5164:
5165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5167: FND_MSG_PUB.Count_And_Get
5168: (
5169: p_count => x_msg_count,
5162:
5163: GMI_reservation_Util.PrintLn('(opm_dbg) in Util q: Exp_Error ');
5164:
5165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5167: FND_MSG_PUB.Count_And_Get
5168: (
5169: p_count => x_msg_count,
5170: p_data => x_msg_data,
5167: FND_MSG_PUB.Count_And_Get
5168: (
5169: p_count => x_msg_count,
5170: p_data => x_msg_data,
5171: p_encoded => FND_API.G_FALSE
5172: );
5173:
5174: WHEN OTHERS THEN
5175: GMI_reservation_Util.PrintLn('(opm_dbg) in Util q: Error in Select='||SQLCODE||'.');
5240: l_api_name CONSTANT VARCHAR2 (30) := 'line_allocated';
5241:
5242: BEGIN
5243:
5244: x_return_status := FND_API.G_RET_STS_SUCCESS;
5245:
5246:
5247: /* see if item is a ctl item */
5248: GMI_RESERVATION_UTIL.check_lot_loct_ctl
5279: END IF;
5280:
5281:
5282: EXCEPTION
5283: WHEN FND_API.G_EXC_ERROR THEN
5284:
5285: x_return_status := FND_API.G_RET_STS_ERROR;
5286:
5287: FND_MSG_Pub.count_and_get
5281:
5282: EXCEPTION
5283: WHEN FND_API.G_EXC_ERROR THEN
5284:
5285: x_return_status := FND_API.G_RET_STS_ERROR;
5286:
5287: FND_MSG_Pub.count_and_get
5288: ( p_count => x_msg_count
5289: , p_data => x_msg_data
5290: );
5291:
5292: GMI_reservation_Util.PrintLn('(opm_dbg) in Util q: Exp_Error ');
5293:
5294: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5296: FND_MSG_PUB.Count_And_Get
5297: (
5298: p_count => x_msg_count,
5291:
5292: GMI_reservation_Util.PrintLn('(opm_dbg) in Util q: Exp_Error ');
5293:
5294: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5296: FND_MSG_PUB.Count_And_Get
5297: (
5298: p_count => x_msg_count,
5299: p_data => x_msg_data,
5296: FND_MSG_PUB.Count_And_Get
5297: (
5298: p_count => x_msg_count,
5299: p_data => x_msg_data,
5300: p_encoded => FND_API.G_FALSE
5301: );
5302:
5303: WHEN OTHERS THEN
5304: GMI_reservation_Util.PrintLn('(opm_dbg) in Util q: Error in Select='||SQLCODE||'.');
5370: return_status VARCHAR2(10);
5371:
5372: BEGIN
5373:
5374: x_return_status := FND_API.G_RET_STS_SUCCESS;
5375:
5376: gmi_reservation_util.println('In procedure is_line_allocated');
5377:
5378: -- Get item info
5384: , x_return_status => return_status
5385: , x_msg_count => x_msg_count
5386: , x_msg_data => x_msg_data);
5387:
5388: IF (return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5389: FND_MESSAGE.Set_Name('GMI','GMI_OPM_ITEM');
5390: FND_MESSAGE.Set_Token('ORGANIZATION_ID', p_organization_id);
5391: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', p_inventory_item_id);
5392: FND_MSG_PUB.Add;
5389: FND_MESSAGE.Set_Name('GMI','GMI_OPM_ITEM');
5390: FND_MESSAGE.Set_Token('ORGANIZATION_ID', p_organization_id);
5391: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', p_inventory_item_id);
5392: FND_MSG_PUB.Add;
5393: raise FND_API.G_EXC_ERROR;
5394: END IF;
5395:
5396: IF ( l_ic_item_mst_rec.lot_indivisible = 1 ) THEN
5397: /* see if item is a ctl item */
5434: END IF; -- of lot_ind
5435:
5436:
5437: EXCEPTION
5438: WHEN FND_API.G_EXC_ERROR THEN
5439:
5440: x_return_status := FND_API.G_RET_STS_ERROR;
5441:
5442: FND_MSG_Pub.count_and_get
5436:
5437: EXCEPTION
5438: WHEN FND_API.G_EXC_ERROR THEN
5439:
5440: x_return_status := FND_API.G_RET_STS_ERROR;
5441:
5442: FND_MSG_Pub.count_and_get
5443: ( p_count => x_msg_count
5444: , p_data => x_msg_data
5445: );
5446:
5447: GMI_reservation_Util.PrintLn('(opm_dbg) in Util q: Exp_Error ');
5448:
5449: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5450: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5451: FND_MSG_PUB.Count_And_Get
5452: (
5453: p_count => x_msg_count,
5446:
5447: GMI_reservation_Util.PrintLn('(opm_dbg) in Util q: Exp_Error ');
5448:
5449: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5450: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5451: FND_MSG_PUB.Count_And_Get
5452: (
5453: p_count => x_msg_count,
5454: p_data => x_msg_data,
5451: FND_MSG_PUB.Count_And_Get
5452: (
5453: p_count => x_msg_count,
5454: p_data => x_msg_data,
5455: p_encoded => FND_API.G_FALSE
5456: );
5457:
5458: WHEN OTHERS THEN
5459: GMI_reservation_Util.PrintLn('(opm_dbg) in Util q: Error in Select='||SQLCODE||'.');
5527: -- If both are populated then get lot_id from lot_no and sublot_no. If lot not found use lot_id = 0
5528: -- Call dev_validation API. If valid return success if not return exception.
5529: -- x_check_status 1- Success 2- Required field not populated 3- IC_DEVIATION_HI_ERR 4- IC_DEVIATION_LO_ERR
5530: --
5531: x_return_status := FND_API.G_RET_STS_SUCCESS;
5532: x_check_status := 1;
5533: gmi_reservation_util.println('Calling Get_OPM_item_from_Apps from validate_opm_quantities');
5534: Get_OPM_item_from_Apps(
5535: p_organization_id => p_organization_id
5539: , x_msg_count => x_msg_count
5540: , x_msg_data => x_msg_data);
5541: gmi_reservation_util.println('BaCK FROM Get_OPM_item_from_Apps IN validate_opm_quantities');
5542:
5543: IF (return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5544: FND_MESSAGE.Set_Name('GMI','GMI_OPM_ITEM');
5545: FND_MESSAGE.Set_Token('ORGANIZATION_ID', p_organization_id);
5546: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', p_inventory_item_id);
5547: FND_MSG_PUB.Add;
5545: FND_MESSAGE.Set_Token('ORGANIZATION_ID', p_organization_id);
5546: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', p_inventory_item_id);
5547: FND_MSG_PUB.Add;
5548: x_check_status := 0;
5549: raise FND_API.G_EXC_ERROR;
5550: END IF;
5551:
5552: IF ( l_ic_item_mst_rec.dualum_ind > 0 ) THEN
5553: IF (nvl(p_quantity,fnd_api.g_miss_num) = fnd_api.g_miss_num ) THEN
5549: raise FND_API.G_EXC_ERROR;
5550: END IF;
5551:
5552: IF ( l_ic_item_mst_rec.dualum_ind > 0 ) THEN
5553: IF (nvl(p_quantity,fnd_api.g_miss_num) = fnd_api.g_miss_num ) THEN
5554: gmi_reservation_util.println('Item Dual Control. Field not populated Qty1= '||p_quantity);
5555: x_check_status := 2;
5556: x_return_status := FND_API.G_RET_STS_ERROR;
5557: RETURN;
5552: IF ( l_ic_item_mst_rec.dualum_ind > 0 ) THEN
5553: IF (nvl(p_quantity,fnd_api.g_miss_num) = fnd_api.g_miss_num ) THEN
5554: gmi_reservation_util.println('Item Dual Control. Field not populated Qty1= '||p_quantity);
5555: x_check_status := 2;
5556: x_return_status := FND_API.G_RET_STS_ERROR;
5557: RETURN;
5558: ELSIF ( nvl(p_quantity2,fnd_api.g_miss_num) = fnd_api.g_miss_num) THEN
5559: gmi_reservation_util.println('Item Dual Control. Field not populated Qty2= '||p_quantity2);
5560: x_check_status := 5;
5554: gmi_reservation_util.println('Item Dual Control. Field not populated Qty1= '||p_quantity);
5555: x_check_status := 2;
5556: x_return_status := FND_API.G_RET_STS_ERROR;
5557: RETURN;
5558: ELSIF ( nvl(p_quantity2,fnd_api.g_miss_num) = fnd_api.g_miss_num) THEN
5559: gmi_reservation_util.println('Item Dual Control. Field not populated Qty2= '||p_quantity2);
5560: x_check_status := 5;
5561: x_return_status := FND_API.G_RET_STS_ERROR;
5562: RETURN;
5557: RETURN;
5558: ELSIF ( nvl(p_quantity2,fnd_api.g_miss_num) = fnd_api.g_miss_num) THEN
5559: gmi_reservation_util.println('Item Dual Control. Field not populated Qty2= '||p_quantity2);
5560: x_check_status := 5;
5561: x_return_status := FND_API.G_RET_STS_ERROR;
5562: RETURN;
5563: END IF;
5564: ELSE -- Item is Not dual control No need to check
5565: IF (nvl(p_quantity,fnd_api.g_miss_num) = fnd_api.g_miss_num) THEN
5561: x_return_status := FND_API.G_RET_STS_ERROR;
5562: RETURN;
5563: END IF;
5564: ELSE -- Item is Not dual control No need to check
5565: IF (nvl(p_quantity,fnd_api.g_miss_num) = fnd_api.g_miss_num) THEN
5566: x_check_status := 2;
5567: x_return_status := FND_API.G_RET_STS_ERROR;
5568: RETURN;
5569: ELSE
5563: END IF;
5564: ELSE -- Item is Not dual control No need to check
5565: IF (nvl(p_quantity,fnd_api.g_miss_num) = fnd_api.g_miss_num) THEN
5566: x_check_status := 2;
5567: x_return_status := FND_API.G_RET_STS_ERROR;
5568: RETURN;
5569: ELSE
5570: GMI_reservation_Util.PrintLn('(opm_dbg) in Util validate_opm_quantities: Item Not dualUM. No need to check ');
5571: x_check_status := 1;
5608:
5609: IF(l_return = -68) THEN
5610: -- 'IC_DEVIATION_HI_ERR'
5611: x_check_status := 3;
5612: x_return_status := FND_API.G_RET_STS_ERROR;
5613: ELSIF (l_return = -69) THEN
5614: -- 'IC_DEVIATION_LO_ERR'
5615: x_check_status := 4;
5616: x_return_status := FND_API.G_RET_STS_ERROR;
5612: x_return_status := FND_API.G_RET_STS_ERROR;
5613: ELSIF (l_return = -69) THEN
5614: -- 'IC_DEVIATION_LO_ERR'
5615: x_check_status := 4;
5616: x_return_status := FND_API.G_RET_STS_ERROR;
5617: ELSE
5618: x_check_status := 1;
5619: END IF;
5620:
5619: END IF;
5620:
5621:
5622: EXCEPTION
5623: WHEN FND_API.G_EXC_ERROR THEN
5624:
5625: x_return_status := FND_API.G_RET_STS_ERROR;
5626:
5627: FND_MSG_Pub.count_and_get
5621:
5622: EXCEPTION
5623: WHEN FND_API.G_EXC_ERROR THEN
5624:
5625: x_return_status := FND_API.G_RET_STS_ERROR;
5626:
5627: FND_MSG_Pub.count_and_get
5628: ( p_count => x_msg_count
5629: , p_data => x_msg_data