[Home] [Help]
42: IS
43: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
44: Begin
45:
46: X_Ret_Success := FND_API.G_RET_STS_SUCCESS;
47: X_Ret_Error := FND_API.G_RET_STS_ERROR;
48: X_Ret_Unexp_Error := FND_API.G_RET_STS_UNEXP_ERROR;
49: X_Current_Plan := INV_Kanban_PVT.G_Current_Plan;
50: X_Source_Type_InterOrg := INV_Kanban_PVT.G_Source_Type_InterOrg;
43: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
44: Begin
45:
46: X_Ret_Success := FND_API.G_RET_STS_SUCCESS;
47: X_Ret_Error := FND_API.G_RET_STS_ERROR;
48: X_Ret_Unexp_Error := FND_API.G_RET_STS_UNEXP_ERROR;
49: X_Current_Plan := INV_Kanban_PVT.G_Current_Plan;
50: X_Source_Type_InterOrg := INV_Kanban_PVT.G_Source_Type_InterOrg;
51: X_Source_Type_Supplier := INV_Kanban_PVT.G_Source_Type_Supplier;
44: Begin
45:
46: X_Ret_Success := FND_API.G_RET_STS_SUCCESS;
47: X_Ret_Error := FND_API.G_RET_STS_ERROR;
48: X_Ret_Unexp_Error := FND_API.G_RET_STS_UNEXP_ERROR;
49: X_Current_Plan := INV_Kanban_PVT.G_Current_Plan;
50: X_Source_Type_InterOrg := INV_Kanban_PVT.G_Source_Type_InterOrg;
51: X_Source_Type_Supplier := INV_Kanban_PVT.G_Source_Type_Supplier;
52: X_Source_Type_IntraOrg := INV_Kanban_PVT.G_Source_Type_IntraOrg;
127: Select pull_sequence_id
128: From mtl_kanban_pull_sequences
129: Where kanban_plan_id = p_kanban_plan_id;
130:
131: l_return_status Varchar2(1) := FND_API.G_RET_STS_SUCCESS;
132:
133: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
134: Begin
135: If p_kanban_plan_id = INV_kanban_PVT.G_Current_Plan
139: If Ok_To_Delete_Pull_Sequence(pull_sequences.pull_sequence_id)
140: then
141: INV_PullSequence_Pkg.delete_Row(l_return_status,pull_sequences.pull_sequence_id);
142: Else
143: Raise FND_API.G_EXC_ERROR;
144: end if;
145: end loop;
146: Else
147: Delete from Mtl_kanban_pull_sequences
150: x_return_status := l_return_status;
151:
152: Exception
153:
154: WHEN FND_API.G_EXC_ERROR THEN
155:
156: x_return_status := FND_API.G_RET_STS_ERROR;
157:
158: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
152: Exception
153:
154: WHEN FND_API.G_EXC_ERROR THEN
155:
156: x_return_status := FND_API.G_RET_STS_ERROR;
157:
158: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
159:
160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
154: WHEN FND_API.G_EXC_ERROR THEN
155:
156: x_return_status := FND_API.G_RET_STS_ERROR;
157:
158: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
159:
160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
161:
162: WHEN OTHERS THEN
156: x_return_status := FND_API.G_RET_STS_ERROR;
157:
158: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
159:
160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
161:
162: WHEN OTHERS THEN
163:
164: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
167: ( G_PKG_NAME
168: , 'Validate_Pull_Sequence'
169: );
170: END IF;
171: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
172:
173: End Delete_Pull_Sequence;
174: --
175: --
186: then
187: FND_MESSAGE.SET_NAME('INV','INV_ORG_REQUIRED');
188: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Organization');
189: FND_MSG_PUB.Add;
190: Raise FND_API.G_EXC_ERROR;
191: End if;
192:
193: if p_Pull_Sequence_Rec.inventory_item_id is null
194: then
193: if p_Pull_Sequence_Rec.inventory_item_id is null
194: then
195: FND_MESSAGE.SET_NAME('INV','INV_ITEM_REQUIRED');
196: FND_MSG_PUB.Add;
197: Raise FND_API.G_EXC_ERROR;
198: end if;
199:
200: if p_Pull_Sequence_Rec.subinventory_name is null
201: then
200: if p_Pull_Sequence_Rec.subinventory_name is null
201: then
202: FND_MESSAGE.SET_NAME('INV','INV_SUBINV_REQUIRED');
203: FND_MSG_PUB.Add;
204: Raise FND_API.G_EXC_ERROR;
205: end if;
206:
207: if p_Pull_Sequence_Rec.source_type is null
208: then
208: then
209: FND_MESSAGE.SET_NAME('INV','INV_ATTRIBUTE_REQUIRED');
210: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','INV_SOURCE_TYPE',TRUE);
211: FND_MSG_PUB.Add;
212: Raise FND_API.G_EXC_ERROR;
213: end if;
214:
215: if p_Pull_Sequence_Rec.kanban_plan_id is null
216: then
216: then
217: FND_MESSAGE.SET_NAME('INV','INV_ATTRIBUTE_REQUIRED');
218: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','INV_KANBAN_PLAN',TRUE);
219: FND_MSG_PUB.Add;
220: Raise FND_API.G_EXC_ERROR;
221: end if;
222:
223: if p_Pull_Sequence_Rec.source_type = INV_Kanban_PVT.G_Source_type_IntraOrg
224: And p_Pull_Sequence_Rec.source_subinventory is null
225: then
226: FND_MESSAGE.SET_NAME('INV','INV_ATTRIBUTE_REQUIRED');
227: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','INV_SOURCE_SUBINV',TRUE);
228: FND_MSG_PUB.Add;
229: Raise FND_API.G_EXC_ERROR;
230: end if;
231:
232: /*Code modification for bug2186198*/
233: /*if p_Pull_Sequence_Rec.source_type = INV_Kanban_PVT.G_Source_type_Production
235: then
236: FND_MESSAGE.SET_NAME('INV','INV_ATTRIBUTE_REQUIRED');
237: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','INV_WIP_LINE');
238: FND_MSG_PUB.Add;
239: Raise FND_API.G_EXC_ERROR;
240: end if; */
241:
242:
243: EXCEPTION
241:
242:
243: EXCEPTION
244:
245: WHEN FND_API.G_EXC_ERROR THEN
246:
247: Raise FND_API.G_EXC_ERROR;
248:
249: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
243: EXCEPTION
244:
245: WHEN FND_API.G_EXC_ERROR THEN
246:
247: Raise FND_API.G_EXC_ERROR;
248:
249: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
250:
251: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
245: WHEN FND_API.G_EXC_ERROR THEN
246:
247: Raise FND_API.G_EXC_ERROR;
248:
249: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
250:
251: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
252:
253: WHEN OTHERS THEN
247: Raise FND_API.G_EXC_ERROR;
248:
249: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
250:
251: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
252:
253: WHEN OTHERS THEN
254:
255: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
258: ( G_PKG_NAME
259: , 'Validate_Pull_Sequence'
260: );
261: END IF;
262: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
263:
264: End Validate_Pull_Sequence;
265: --
266: --
272: (x_return_status Out NOCOPY Varchar2,
273: p_Pull_Sequence_Rec INV_Kanban_PVT.Pull_sequence_Rec_Type)
274: IS
275: l_Pull_Sequence_Rec INV_Kanban_PVT.Pull_sequence_Rec_Type;
276: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
277: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
278: Begin
279: FND_MSG_PUB.initialize;
280: l_Pull_Sequence_Rec := INV_PullSequence_PKG.Convert_Miss_To_Null
293: x_return_status := l_return_status;
294:
295: EXCEPTION
296:
297: WHEN FND_API.G_EXC_ERROR THEN
298:
299: x_return_status := FND_API.G_RET_STS_ERROR;
300:
301: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
295: EXCEPTION
296:
297: WHEN FND_API.G_EXC_ERROR THEN
298:
299: x_return_status := FND_API.G_RET_STS_ERROR;
300:
301: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
302:
303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
297: WHEN FND_API.G_EXC_ERROR THEN
298:
299: x_return_status := FND_API.G_RET_STS_ERROR;
300:
301: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
302:
303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
304:
305: WHEN OTHERS THEN
299: x_return_status := FND_API.G_RET_STS_ERROR;
300:
301: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
302:
303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
304:
305: WHEN OTHERS THEN
306:
307: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
304:
305: WHEN OTHERS THEN
306:
307: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
308: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
309: THEN
310: FND_MSG_PUB.Add_Exc_Msg
311: ( G_PKG_NAME
326: x_Pull_Sequence_Rec IN OUT NOCOPY INV_Kanban_PVT.Pull_sequence_Rec_Type)
327: IS
328: l_Pull_Sequence_Rec INV_Kanban_PVT.Pull_Sequence_Rec_Type;
329: l_Old_Pull_Sequence_Rec INV_Kanban_PVT.Pull_Sequence_Rec_Type;
330: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
331: l_org_code VARCHAR2(3);
332: l_item_name VARCHAR2(30);
333: l_loc_name VARCHAR2(30);
334:
339: l_Pull_Sequence_Rec := x_Pull_Sequence_Rec;
340: l_Pull_Sequence_Rec.pull_sequence_id := Null;
341:
342: if (l_pull_Sequence_Rec.pull_sequence_Id is null or
343: l_pull_Sequence_Rec.pull_sequence_Id = FND_API.G_MISS_NUM) And
344: (l_pull_Sequence_Rec.Kanban_Plan_Id is null or
345: l_pull_Sequence_Rec.Kanban_Plan_Id = FND_API.G_MISS_NUM or
346: l_pull_Sequence_Rec.Organization_Id is null or
347: l_pull_Sequence_Rec.Organization_Id = FND_API.G_MISS_NUM or
341:
342: if (l_pull_Sequence_Rec.pull_sequence_Id is null or
343: l_pull_Sequence_Rec.pull_sequence_Id = FND_API.G_MISS_NUM) And
344: (l_pull_Sequence_Rec.Kanban_Plan_Id is null or
345: l_pull_Sequence_Rec.Kanban_Plan_Id = FND_API.G_MISS_NUM or
346: l_pull_Sequence_Rec.Organization_Id is null or
347: l_pull_Sequence_Rec.Organization_Id = FND_API.G_MISS_NUM or
348: l_pull_Sequence_Rec.Inventory_Item_Id is null or
349: l_pull_Sequence_Rec.Inventory_Item_Id = FND_API.G_MISS_NUM or
343: l_pull_Sequence_Rec.pull_sequence_Id = FND_API.G_MISS_NUM) And
344: (l_pull_Sequence_Rec.Kanban_Plan_Id is null or
345: l_pull_Sequence_Rec.Kanban_Plan_Id = FND_API.G_MISS_NUM or
346: l_pull_Sequence_Rec.Organization_Id is null or
347: l_pull_Sequence_Rec.Organization_Id = FND_API.G_MISS_NUM or
348: l_pull_Sequence_Rec.Inventory_Item_Id is null or
349: l_pull_Sequence_Rec.Inventory_Item_Id = FND_API.G_MISS_NUM or
350: l_pull_Sequence_Rec.Subinventory_Name is null or
351: l_pull_Sequence_Rec.Subinventory_Name = FND_API.G_MISS_CHAR )
345: l_pull_Sequence_Rec.Kanban_Plan_Id = FND_API.G_MISS_NUM or
346: l_pull_Sequence_Rec.Organization_Id is null or
347: l_pull_Sequence_Rec.Organization_Id = FND_API.G_MISS_NUM or
348: l_pull_Sequence_Rec.Inventory_Item_Id is null or
349: l_pull_Sequence_Rec.Inventory_Item_Id = FND_API.G_MISS_NUM or
350: l_pull_Sequence_Rec.Subinventory_Name is null or
351: l_pull_Sequence_Rec.Subinventory_Name = FND_API.G_MISS_CHAR )
352: then
353: FND_MESSAGE.SET_NAME('INV','INV_ATTRIBUTE_REQUIRED');
347: l_pull_Sequence_Rec.Organization_Id = FND_API.G_MISS_NUM or
348: l_pull_Sequence_Rec.Inventory_Item_Id is null or
349: l_pull_Sequence_Rec.Inventory_Item_Id = FND_API.G_MISS_NUM or
350: l_pull_Sequence_Rec.Subinventory_Name is null or
351: l_pull_Sequence_Rec.Subinventory_Name = FND_API.G_MISS_CHAR )
352: then
353: FND_MESSAGE.SET_NAME('INV','INV_ATTRIBUTE_REQUIRED');
354: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','INV_PULL_SEQUENCE');
355: FND_MSG_PUB.Add;
352: then
353: FND_MESSAGE.SET_NAME('INV','INV_ATTRIBUTE_REQUIRED');
354: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','INV_PULL_SEQUENCE');
355: FND_MSG_PUB.Add;
356: l_return_status := FND_API.G_RET_STS_ERROR;
357:
358: elsif (l_pull_Sequence_Rec.pull_sequence_Id is null or
359: l_pull_Sequence_Rec.pull_sequence_Id = FND_API.G_MISS_NUM)
360: then
355: FND_MSG_PUB.Add;
356: l_return_status := FND_API.G_RET_STS_ERROR;
357:
358: elsif (l_pull_Sequence_Rec.pull_sequence_Id is null or
359: l_pull_Sequence_Rec.pull_sequence_Id = FND_API.G_MISS_NUM)
360: then
361: Begin
362: Select Pull_Sequence_Id
363: Into l_Pull_Sequence_Rec.Pull_Sequence_Id
398: FND_MESSAGE.SET_TOKEN('ITEM_NAME',l_item_name);
399: FND_MESSAGE.SET_TOKEN('SUB_CODE',l_Pull_Sequence_Rec.Subinventory_Name);
400: FND_MESSAGE.SET_TOKEN('LOCATOR_NAME',l_loc_name);
401: FND_MSG_PUB.Add;
402: l_return_status := FND_API.G_RET_STS_ERROR;
403: When Others
404: Then
405: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
406: End;
401: FND_MSG_PUB.Add;
402: l_return_status := FND_API.G_RET_STS_ERROR;
403: When Others
404: Then
405: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
406: End;
407: end if;
408:
409: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
405: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
406: End;
407: end if;
408:
409: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
410:
411: RAISE FND_API.G_EXC_ERROR;
412:
413: END IF;
407: end if;
408:
409: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
410:
411: RAISE FND_API.G_EXC_ERROR;
412:
413: END IF;
414:
415: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
411: RAISE FND_API.G_EXC_ERROR;
412:
413: END IF;
414:
415: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
416:
417: RAISE FND_API.G_EXC_ERROR;
418:
419: END IF;
413: END IF;
414:
415: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
416:
417: RAISE FND_API.G_EXC_ERROR;
418:
419: END IF;
420: -- dbms_output.put_line('pull:'||to_char(l_pull_sequence_rec.pull_sequence_id));
421:
438: x_pull_sequence_rec := l_Pull_Sequence_Rec;
439:
440: EXCEPTION
441:
442: WHEN FND_API.G_EXC_ERROR THEN
443:
444: x_return_status := FND_API.G_RET_STS_ERROR;
445:
446: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
440: EXCEPTION
441:
442: WHEN FND_API.G_EXC_ERROR THEN
443:
444: x_return_status := FND_API.G_RET_STS_ERROR;
445:
446: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
447:
448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
442: WHEN FND_API.G_EXC_ERROR THEN
443:
444: x_return_status := FND_API.G_RET_STS_ERROR;
445:
446: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
447:
448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
449:
450: WHEN OTHERS THEN
444: x_return_status := FND_API.G_RET_STS_ERROR;
445:
446: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
447:
448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
449:
450: WHEN OTHERS THEN
451:
452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
449:
450: WHEN OTHERS THEN
451:
452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
453: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
454: THEN
455: FND_MSG_PUB.Add_Exc_Msg
456: ( G_PKG_NAME
474: IS
475: l_record_count NUMBER := 0;
476: l_PullSeqTable INV_Kanban_PVT.Pull_Sequence_id_Tbl_Type;
477: l_report_id NUMBER := 0;
478: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
479: v_req_id NUMBER;
480: v_generate_cards BOOLEAN := FALSE;
481: l_Pull_sequence_rec INV_Kanban_PVT.Pull_sequence_Rec_Type;
482:
539:
540: END IF; -- end of l_operation_tbl.COUNT > 0 if loop
541:
542: -- Check for errors and take action
543: IF l_return_status IN ( FND_API.G_RET_STS_ERROR,
544: FND_API.G_RET_STS_UNEXP_ERROR) THEN
545: RAISE FND_API.G_EXC_ERROR;
546: END IF;
547: ELSE
540: END IF; -- end of l_operation_tbl.COUNT > 0 if loop
541:
542: -- Check for errors and take action
543: IF l_return_status IN ( FND_API.G_RET_STS_ERROR,
544: FND_API.G_RET_STS_UNEXP_ERROR) THEN
545: RAISE FND_API.G_EXC_ERROR;
546: END IF;
547: ELSE
548: IF INV_kanban_PVT.Ok_To_Create_Kanban_Cards( p_pull_sequence_id =>
541:
542: -- Check for errors and take action
543: IF l_return_status IN ( FND_API.G_RET_STS_ERROR,
544: FND_API.G_RET_STS_UNEXP_ERROR) THEN
545: RAISE FND_API.G_EXC_ERROR;
546: END IF;
547: ELSE
548: IF INV_kanban_PVT.Ok_To_Create_Kanban_Cards( p_pull_sequence_id =>
549: l_PullSeqtable(l_record_count) ) then
623: ELSE
624: fnd_message.set_name('INV','INV_PROCESS_FAILED');
625: fnd_message.set_token('PROCESS', 'INV_GENERATE_KANBAN_CARDS', TRUE);
626: FND_MSG_PUB.Add;
627: RAISE FND_API.G_EXC_ERROR;
628: END IF;
629: END IF;
630:
631: -- Cards will be printed if variable l_count_print > 0
671: -- COMMIT;
672: fnd_message.set_name('INV','INV_PROCESS_FAILED');
673: fnd_message.set_token('PROCESS', 'INV_PRINT_KANBAN_CARDS', TRUE);
674: FND_MSG_PUB.Add;
675: RAISE FND_API.G_EXC_ERROR;
676: END IF;
677: END IF;
678: x_return_status := l_return_status;
679:
678: x_return_status := l_return_status;
679:
680: EXCEPTION
681: -- CHECK the code in all the exception sections
682: WHEN FND_API.G_EXC_ERROR THEN
683: x_return_status := FND_API.G_RET_STS_ERROR;
684:
685: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
679:
680: EXCEPTION
681: -- CHECK the code in all the exception sections
682: WHEN FND_API.G_EXC_ERROR THEN
683: x_return_status := FND_API.G_RET_STS_ERROR;
684:
685: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
687:
681: -- CHECK the code in all the exception sections
682: WHEN FND_API.G_EXC_ERROR THEN
683: x_return_status := FND_API.G_RET_STS_ERROR;
684:
685: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
687:
688: WHEN OTHERS THEN
689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
682: WHEN FND_API.G_EXC_ERROR THEN
683: x_return_status := FND_API.G_RET_STS_ERROR;
684:
685: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
687:
688: WHEN OTHERS THEN
689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
690: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
685: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
687:
688: WHEN OTHERS THEN
689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
690: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
691: THEN
692: FND_MSG_PUB.Add_Exc_Msg
693: ( G_PKG_NAME
716: p_source_wip_entity_id NUMBER)
717:
718: IS
719: l_kanban_card_rec INV_Kanban_PVT.Kanban_Card_Rec_Type;
720: l_return_status Varchar2(1) := FND_API.G_RET_STS_SUCCESS;
721: l_supply_status_from Varchar2(30);
722: l_supply_status_to Varchar2(30);
723: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
724: l_temp NUMBER := NULL;
729: IF p_Kanban_Card_Id is NULL THEN
730: FND_MESSAGE.SET_NAME('INV','INV_ATTRIBUTE_REQUIRED');
731: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','INV_KANBAN_CARD');
732: FND_MSG_PUB.Add;
733: l_return_status := FND_API.G_RET_STS_ERROR;
734: ELSIF p_supply_status is null THEN
735: FND_MESSAGE.SET_NAME('INV','INV_ATTRIBUTE_REQUIRED');
736: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','INV_SUPPLY_STATUS');
737: FND_MSG_PUB.Add;
734: ELSIF p_supply_status is null THEN
735: FND_MESSAGE.SET_NAME('INV','INV_ATTRIBUTE_REQUIRED');
736: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','INV_SUPPLY_STATUS');
737: FND_MSG_PUB.Add;
738: l_return_status := FND_API.G_RET_STS_ERROR;
739: ELSE
740:
741: l_kanban_card_rec := INV_KanbanCard_PKG.Query_Row
742: ( p_Kanban_Card_id => p_kanban_Card_Id);
752: FOR UPDATE NOWAIT;
753: mydebug('Lock accuired for kanban card');
754: EXCEPTION
755: WHEN OTHERS THEN
756: l_return_status := FND_API.G_RET_STS_ERROR;
757: FND_MESSAGE.SET_NAME('INV','INV_CANNOT_LOCK_KANBAN_CARD');
758: FND_MSG_PUB.ADD;
759: END;
760:
757: FND_MESSAGE.SET_NAME('INV','INV_CANNOT_LOCK_KANBAN_CARD');
758: FND_MSG_PUB.ADD;
759: END;
760:
761: IF l_return_status = FND_API.g_ret_sts_error THEN
762: NULL;
763: ELSIF (l_kanban_card_rec.card_status = G_Card_Status_Hold ) THEN
764: l_return_status := FND_API.G_RET_STS_ERROR;
765: FND_MESSAGE.SET_NAME('INV','INV_CANNOT_REPL_HOLD_CARD');
760:
761: IF l_return_status = FND_API.g_ret_sts_error THEN
762: NULL;
763: ELSIF (l_kanban_card_rec.card_status = G_Card_Status_Hold ) THEN
764: l_return_status := FND_API.G_RET_STS_ERROR;
765: FND_MESSAGE.SET_NAME('INV','INV_CANNOT_REPL_HOLD_CARD');
766: FND_MSG_PUB.ADD;
767: ELSIF (l_kanban_card_rec.card_status = G_Card_Status_Cancel ) then
768: l_return_status := FND_API.G_RET_STS_ERROR;
764: l_return_status := FND_API.G_RET_STS_ERROR;
765: FND_MESSAGE.SET_NAME('INV','INV_CANNOT_REPL_HOLD_CARD');
766: FND_MSG_PUB.ADD;
767: ELSIF (l_kanban_card_rec.card_status = G_Card_Status_Cancel ) then
768: l_return_status := FND_API.G_RET_STS_ERROR;
769: FND_MESSAGE.SET_NAME('INV','INV_CANNOT_REPL_CANCEL_CARD');
770: FND_MSG_PUB.ADD;
771:
772: --Bug 3288422 fix.
813: INV_Kanban_PVT.G_Card_Status_Hold)
814: then
815: FND_MESSAGE.SET_TOKEN('CARD_NUMBER',l_kanban_card_rec.kanban_card_number);
816: End If;
817: l_return_status := FND_API.G_RET_STS_ERROR;
818: FND_MSG_PUB.Add;
819: END IF;--IF INV_KanbanCard_PKG.Supply_Status_Change_OK
820: END IF;--IF l_return_status = FND_API.g_ret_sts_error
821: END IF;--IF p_Kanban_Card_Id is NULL THEN
816: End If;
817: l_return_status := FND_API.G_RET_STS_ERROR;
818: FND_MSG_PUB.Add;
819: END IF;--IF INV_KanbanCard_PKG.Supply_Status_Change_OK
820: END IF;--IF l_return_status = FND_API.g_ret_sts_error
821: END IF;--IF p_Kanban_Card_Id is NULL THEN
822:
823: IF l_return_status = FND_API.g_ret_sts_error THEN
824: Raise FND_API.G_EXC_ERROR;
819: END IF;--IF INV_KanbanCard_PKG.Supply_Status_Change_OK
820: END IF;--IF l_return_status = FND_API.g_ret_sts_error
821: END IF;--IF p_Kanban_Card_Id is NULL THEN
822:
823: IF l_return_status = FND_API.g_ret_sts_error THEN
824: Raise FND_API.G_EXC_ERROR;
825: end if;
826:
827: x_return_status := l_return_status;
820: END IF;--IF l_return_status = FND_API.g_ret_sts_error
821: END IF;--IF p_Kanban_Card_Id is NULL THEN
822:
823: IF l_return_status = FND_API.g_ret_sts_error THEN
824: Raise FND_API.G_EXC_ERROR;
825: end if;
826:
827: x_return_status := l_return_status;
828:
827: x_return_status := l_return_status;
828:
829: EXCEPTION
830:
831: WHEN FND_API.G_EXC_ERROR THEN
832:
833: x_return_status := FND_API.G_RET_STS_ERROR;
834:
835: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
829: EXCEPTION
830:
831: WHEN FND_API.G_EXC_ERROR THEN
832:
833: x_return_status := FND_API.G_RET_STS_ERROR;
834:
835: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
836:
837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
831: WHEN FND_API.G_EXC_ERROR THEN
832:
833: x_return_status := FND_API.G_RET_STS_ERROR;
834:
835: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
836:
837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
838:
839: WHEN OTHERS THEN
833: x_return_status := FND_API.G_RET_STS_ERROR;
834:
835: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
836:
837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
838:
839: WHEN OTHERS THEN
840:
841: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
838:
839: WHEN OTHERS THEN
840:
841: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
842: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
843: THEN
844: FND_MSG_PUB.Add_Exc_Msg
845: ( G_PKG_NAME
910:
911:
912: EXCEPTION
913:
914: WHEN FND_API.G_EXC_ERROR THEN
915:
916: x_return_status := FND_API.G_RET_STS_ERROR;
917:
918: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
912: EXCEPTION
913:
914: WHEN FND_API.G_EXC_ERROR THEN
915:
916: x_return_status := FND_API.G_RET_STS_ERROR;
917:
918: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
919:
920: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
914: WHEN FND_API.G_EXC_ERROR THEN
915:
916: x_return_status := FND_API.G_RET_STS_ERROR;
917:
918: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
919:
920: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
921:
922: WHEN OTHERS THEN
916: x_return_status := FND_API.G_RET_STS_ERROR;
917:
918: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
919:
920: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
921:
922: WHEN OTHERS THEN
923:
924: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
920: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
921:
922: WHEN OTHERS THEN
923:
924: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
925: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
926: THEN
927: FND_MSG_PUB.Add_Exc_Msg
928: ( G_PKG_NAME
937: -- for a kanban card id record.
938: --
939: PROCEDURE Update_Card_Supply_Status
940: ( p_api_version_number IN NUMBER
941: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
942: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
943: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
944: ,x_return_status OUT NOCOPY VARCHAR2
945: ,x_msg_count OUT NOCOPY NUMBER
938: --
939: PROCEDURE Update_Card_Supply_Status
940: ( p_api_version_number IN NUMBER
941: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
942: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
943: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
944: ,x_return_status OUT NOCOPY VARCHAR2
945: ,x_msg_count OUT NOCOPY NUMBER
946: ,x_msg_data OUT NOCOPY VARCHAR2
939: PROCEDURE Update_Card_Supply_Status
940: ( p_api_version_number IN NUMBER
941: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
942: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
943: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
944: ,x_return_status OUT NOCOPY VARCHAR2
945: ,x_msg_count OUT NOCOPY NUMBER
946: ,x_msg_data OUT NOCOPY VARCHAR2
947: ,p_Kanban_Card_Id Number
955: IS
956:
957: l_api_version_number CONSTANT NUMBER := 1.0;
958: l_api_name CONSTANT VARCHAR2(30):= 'Update_Card_Supply_Status';
959: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
960: l_document_type Number;
961: l_document_header_id Number;
962: l_document_detail_id Number;
963:
972: SAVEPOINT KANBAN_PVT;
973: mydebug('Inside Update_Card_Supply_Status 1');
974: -- Standard call to check for call compatibility
975:
976: IF NOT FND_API.Compatible_API_Call
977: ( l_api_version_number
978: , p_api_version_number
979: , l_api_name
980: , G_PKG_NAME
979: , l_api_name
980: , G_PKG_NAME
981: )
982: THEN
983: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
984: END IF;
985:
986: -- Initialize message list.
987:
984: END IF;
985:
986: -- Initialize message list.
987:
988: IF FND_API.to_Boolean(p_init_msg_list) THEN
989: FND_MSG_PUB.initialize;
990: END IF;
991:
992: mydebug('Calling Update_Card_Supply_Status 2');
1003: x_return_status := l_return_status;
1004:
1005: -- Standard check of p_commit.
1006:
1007: IF FND_API.To_Boolean( p_commit ) THEN
1008: COMMIT WORK;
1009: END IF;
1010:
1011: -- Standard call to get message count and if count is 1, get message info.
1015: );
1016:
1017: EXCEPTION
1018:
1019: WHEN FND_API.G_EXC_ERROR THEN
1020: ROLLBACK TO KANBAN_PVT;
1021: x_return_status := FND_API.G_RET_STS_ERROR ;
1022: FND_MSG_PUB.Count_And_Get
1023: ( p_count => x_msg_count ,
1017: EXCEPTION
1018:
1019: WHEN FND_API.G_EXC_ERROR THEN
1020: ROLLBACK TO KANBAN_PVT;
1021: x_return_status := FND_API.G_RET_STS_ERROR ;
1022: FND_MSG_PUB.Count_And_Get
1023: ( p_count => x_msg_count ,
1024: p_data => x_msg_data
1025: );
1022: FND_MSG_PUB.Count_And_Get
1023: ( p_count => x_msg_count ,
1024: p_data => x_msg_data
1025: );
1026: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1027: ROLLBACK TO KANBAN_PVT;
1028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1029: FND_MSG_PUB.Count_And_Get
1030: ( p_count => x_msg_count ,
1024: p_data => x_msg_data
1025: );
1026: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1027: ROLLBACK TO KANBAN_PVT;
1028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1029: FND_MSG_PUB.Count_And_Get
1030: ( p_count => x_msg_count ,
1031: p_data => x_msg_data
1032: );
1032: );
1033:
1034: WHEN OTHERS THEN
1035: ROLLBACK TO KANBAN_PVT;
1036: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1037: IF FND_MSG_PUB.Check_Msg_Level
1038: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1039: THEN
1040: FND_MSG_PUB.Add_Exc_Msg
1058: p_Supply_Status Number,
1059: p_Document_type Number,
1060: p_Document_Header_Id Number)
1061: IS
1062: l_Document_detail_id Number := FND_API.G_MISS_NUM;
1063:
1064: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1065: Begin
1066:
1073:
1074:
1075: EXCEPTION
1076:
1077: WHEN FND_API.G_EXC_ERROR THEN
1078:
1079: x_return_status := FND_API.G_RET_STS_ERROR;
1080:
1081: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1075: EXCEPTION
1076:
1077: WHEN FND_API.G_EXC_ERROR THEN
1078:
1079: x_return_status := FND_API.G_RET_STS_ERROR;
1080:
1081: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1082:
1083: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1077: WHEN FND_API.G_EXC_ERROR THEN
1078:
1079: x_return_status := FND_API.G_RET_STS_ERROR;
1080:
1081: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1082:
1083: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1084:
1085: WHEN OTHERS THEN
1079: x_return_status := FND_API.G_RET_STS_ERROR;
1080:
1081: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1082:
1083: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1084:
1085: WHEN OTHERS THEN
1086:
1087: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1083: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1084:
1085: WHEN OTHERS THEN
1086:
1087: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1088: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1089: THEN
1090: FND_MSG_PUB.Add_Exc_Msg
1091: ( G_PKG_NAME
1470: P_Pull_Sequence_Rec INV_Kanban_PVT.Pull_Sequence_Rec_Type,
1471: p_Supply_Status NUMBER
1472: )
1473: IS
1474: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1475: l_kanban_Card_tbl INV_Kanban_PVT.Kanban_Card_Id_Tbl_Type;
1476: l_Kanban_Card_Id number;
1477: l_Kanban_Card_Number number;
1478: l_supply_status Number;
1514: FND_MESSAGE.SET_TOKEN('SUB_CODE',l_Subinventory);
1515: FND_MESSAGE.SET_TOKEN('LOCATOR_NAME',l_loc_name);
1516: FND_MSG_PUB.Add;
1517:
1518: l_return_status := FND_API.G_RET_STS_ERROR;
1519:
1520: end if;
1521:
1522: if nvl(P_Pull_Sequence_Rec.Kanban_Size,0) <= 0
1531: FND_MESSAGE.SET_TOKEN('ITEM_NAME',l_item_name);
1532: FND_MESSAGE.SET_TOKEN('SUB_CODE',l_Subinventory);
1533: FND_MESSAGE.SET_TOKEN('LOCATOR_NAME',l_loc_name);
1534: FND_MSG_PUB.Add;
1535: l_return_status := FND_API.G_RET_STS_ERROR;
1536:
1537: end if;
1538:
1539: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1535: l_return_status := FND_API.G_RET_STS_ERROR;
1536:
1537: end if;
1538:
1539: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1540: RAISE FND_API.G_EXC_ERROR;
1541:
1542: END IF;
1543:
1536:
1537: end if;
1538:
1539: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1540: RAISE FND_API.G_EXC_ERROR;
1541:
1542: END IF;
1543:
1544: --Existing kanban cards need to be cancelled only when creating a
1613: P_Program_Id => NULL,
1614: P_Program_Update_date => NULL,
1615: p_release_kanban_flag => p_Pull_Sequence_Rec.release_kanban_flag);
1616:
1617: if l_return_status = FND_API.G_RET_STS_ERROR
1618: Then
1619: Raise FND_API.G_EXC_ERROR;
1620: End if;
1621:
1615: p_release_kanban_flag => p_Pull_Sequence_Rec.release_kanban_flag);
1616:
1617: if l_return_status = FND_API.G_RET_STS_ERROR
1618: Then
1619: Raise FND_API.G_EXC_ERROR;
1620: End if;
1621:
1622: if l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1623: Then
1618: Then
1619: Raise FND_API.G_EXC_ERROR;
1620: End if;
1621:
1622: if l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1623: Then
1624: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1625: End If;
1626:
1620: End if;
1621:
1622: if l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1623: Then
1624: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1625: End If;
1626:
1627: X_Kanban_Card_Ids(l_card_count) := l_Kanban_Card_Id;
1628:
1631: x_return_status := l_return_status;
1632:
1633: EXCEPTION
1634:
1635: WHEN FND_API.G_EXC_ERROR THEN
1636:
1637: x_return_status := FND_API.G_RET_STS_ERROR;
1638:
1639: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1633: EXCEPTION
1634:
1635: WHEN FND_API.G_EXC_ERROR THEN
1636:
1637: x_return_status := FND_API.G_RET_STS_ERROR;
1638:
1639: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1640:
1641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1635: WHEN FND_API.G_EXC_ERROR THEN
1636:
1637: x_return_status := FND_API.G_RET_STS_ERROR;
1638:
1639: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1640:
1641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1642:
1643: WHEN OTHERS THEN
1637: x_return_status := FND_API.G_RET_STS_ERROR;
1638:
1639: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1640:
1641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1642:
1643: WHEN OTHERS THEN
1644:
1645: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1642:
1643: WHEN OTHERS THEN
1644:
1645: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1646: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1647: THEN
1648: FND_MSG_PUB.Add_Exc_Msg
1649: ( G_PKG_NAME
1860: */
1861:
1862: EXCEPTION
1863:
1864: WHEN FND_API.G_EXC_ERROR THEN
1865:
1866: Raise FND_API.G_EXC_ERROR;
1867:
1868: WHEN OTHERS THEN
1862: EXCEPTION
1863:
1864: WHEN FND_API.G_EXC_ERROR THEN
1865:
1866: Raise FND_API.G_EXC_ERROR;
1867:
1868: WHEN OTHERS THEN
1869: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1870: THEN
1873: , 'Create_Requisition'
1874: );
1875: END IF;
1876:
1877: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1878:
1879: end Create_Requisition;
1880:
1881: --
1891: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
1892: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
1893: l_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
1894: l_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
1895: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
1896: l_msg_count NUMBER;
1897: l_msg_data VARCHAR2(240);
1898: msg VARCHAR2(2000);
1899: l_header_id Number := FND_API.G_MISS_NUM;
1895: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
1896: l_msg_count NUMBER;
1897: l_msg_data VARCHAR2(240);
1898: msg VARCHAR2(2000);
1899: l_header_id Number := FND_API.G_MISS_NUM;
1900: l_line_num Number := 0;
1901: l_item_locator_control_code NUMBER;
1902: l_from_sub_locator_type NUMBER;
1903: l_to_sub_locator_type NUMBER;
1922: l_trohdr_rec.status_date := sysdate;
1923: l_trohdr_rec.to_subinventory_code := p_kanban_card_rec_tbl(1).subinventory_name;
1924: l_trohdr_rec.transaction_type_id := INV_GLOBALS.G_TYPE_TRANSFER_ORDER_SUBXFR;
1925: l_trohdr_rec.move_order_type := INV_GLOBALS.G_MOVE_ORDER_REPLENISHMENT;
1926: l_trohdr_rec.db_flag := FND_API.G_TRUE;
1927: l_trohdr_rec.operation := INV_GLOBALS.G_OPR_CREATE;
1928:
1929: select location_control_code
1930: into l_item_locator_control_code
1991: l_trolin_tbl(l_order_count).inventory_item_id := p_kanban_card_rec_tbl(1).inventory_item_id;
1992: l_trolin_tbl(l_order_count).last_updated_by := FND_GLOBAL.USER_ID;
1993: l_trolin_tbl(l_order_count).last_update_date := sysdate;
1994: l_trolin_tbl(l_order_count).last_update_login := FND_GLOBAL.LOGIN_ID;
1995: l_trolin_tbl(l_order_count).line_id := FND_API.G_MISS_NUM;
1996: l_trolin_tbl(l_order_count).line_number := l_line_num;
1997: l_trolin_tbl(l_order_count).line_status := INV_Globals.G_TO_STATUS_PREAPPROVED;
1998: l_trolin_tbl(l_order_count).organization_id := p_kanban_card_rec_tbl(1).organization_id;
1999: l_trolin_tbl(l_order_count).quantity := p_kanban_card_rec_tbl(l_order_count).kanban_size;
2016:
2017: l_trolin_tbl(l_order_count).to_subinventory_code:= p_kanban_card_rec_tbl(1).subinventory_name;
2018: l_trolin_tbl(l_order_count).uom_code := p_primary_uom_code;
2019: l_trolin_tbl(l_order_count).transaction_type_id := INV_GLOBALS.G_TYPE_TRANSFER_ORDER_SUBXFR;
2020: l_trolin_tbl(l_order_count).db_flag := FND_API.G_TRUE;
2021: l_trolin_tbl(l_order_count).operation := INV_GLOBALS.G_OPR_CREATE;
2022: END LOOP;
2023:
2024: INV_Transfer_Order_PVT.Process_Transfer_Order
2022: END LOOP;
2023:
2024: INV_Transfer_Order_PVT.Process_Transfer_Order
2025: ( p_api_version_number => 1.0 ,
2026: p_init_msg_list => FND_API.G_TRUE,
2027: x_return_status => l_return_status,
2028: x_msg_count => l_msg_count,
2029: x_msg_data => l_msg_data,
2030: p_trohdr_rec => l_trohdr_rec,
2032: x_trohdr_rec => l_x_trohdr_rec,
2033: x_trolin_tbl => l_x_trolin_tbl
2034: );
2035:
2036: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2037: FND_MSG_PUB.Add_Exc_Msg
2038: ( G_PKG_NAME
2039: , 'Create_transfer_order'
2040: );
2037: FND_MSG_PUB.Add_Exc_Msg
2038: ( G_PKG_NAME
2039: , 'Create_transfer_order'
2040: );
2041: RAISE FND_API.G_EXC_ERROR;
2042: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2043: FND_MSG_PUB.Add_Exc_Msg
2044: ( G_PKG_NAME
2045: , 'Create_transfer_order'
2038: ( G_PKG_NAME
2039: , 'Create_transfer_order'
2040: );
2041: RAISE FND_API.G_EXC_ERROR;
2042: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2043: FND_MSG_PUB.Add_Exc_Msg
2044: ( G_PKG_NAME
2045: , 'Create_transfer_order'
2046: );
2043: FND_MSG_PUB.Add_Exc_Msg
2044: ( G_PKG_NAME
2045: , 'Create_transfer_order'
2046: );
2047: RAISE FND_API.G_EXC_ERROR;
2048: END IF;
2049:
2050: For I in 1 .. l_x_trolin_tbl.count
2051: Loop
2071: SELECT MTRH.request_number INTO l_mo_request_number
2072: FROM Mtl_Txn_Request_Headers MTRH
2073: WHERE MTRH.Header_id = p_kanban_card_rec_tbl(1).document_header_id;
2074:
2075: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2076: FND_MESSAGE.SET_NAME('INV','INV_KANBAN_MO_ALLOC_SUCCESS');
2077: FND_MESSAGE.SET_TOKEN('MOVE_ORDER',l_mo_request_number);
2078: FND_MSG_PUB.Add;
2079: ELSE
2085: END IF;
2086: /* End of fix for 3905884*/
2087:
2088: EXCEPTION
2089: WHEN FND_API.G_EXC_ERROR THEN
2090: Raise FND_API.G_EXC_ERROR;
2091:
2092: WHEN OTHERS THEN
2093: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2086: /* End of fix for 3905884*/
2087:
2088: EXCEPTION
2089: WHEN FND_API.G_EXC_ERROR THEN
2090: Raise FND_API.G_EXC_ERROR;
2091:
2092: WHEN OTHERS THEN
2093: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2094: FND_MSG_PUB.Add_Exc_Msg
2095: ( G_PKG_NAME
2096: , 'Create_Transfer_Order'
2097: );
2098: END IF;
2099: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2100: end Create_Transfer_Order;
2101:
2102: --
2103: -- Launch_MLP() : This program will launch the WIP Mass load program to
2121:
2122: if v_req_id > 0 then
2123: return TRUE;
2124: else
2125: Raise FND_API.G_EXC_UNEXPECTED_ERROR ;
2126: end if;
2127:
2128: exception
2129: WHEN OTHERS THEN
2243: end loop;
2244: l_group_id := p_kanban_card_rec_tbl(1).current_replnsh_cycle_id;
2245: v_launch := Launch_MLP( l_group_id );
2246: if ( Not v_launch ) then
2247: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2248: end if;
2249:
2250: EXCEPTION
2251:
2248: end if;
2249:
2250: EXCEPTION
2251:
2252: WHEN FND_API.G_EXC_ERROR THEN
2253:
2254: Raise FND_API.G_EXC_ERROR;
2255:
2256: WHEN OTHERS THEN
2250: EXCEPTION
2251:
2252: WHEN FND_API.G_EXC_ERROR THEN
2253:
2254: Raise FND_API.G_EXC_ERROR;
2255:
2256: WHEN OTHERS THEN
2257: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2258: THEN
2261: , 'Create_Wip_Discrete'
2262: );
2263: END IF;
2264:
2265: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2266: end Create_Wip_Discrete;
2267:
2268: --
2269: -- Create_Rep_Schedule() : This procedure would Create a WIP Repetetive
2299: FND_MSG_PUB.Add_Exc_Msg
2300: ( G_PKG_NAME
2301: , 'Create Rep Sched|Wip Line Not Defined'
2302: );
2303: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2304: end;
2305:
2306: /*
2307: begin
2325: FND_MSG_PUB.Add_Exc_Msg
2326: ( G_PKG_NAME
2327: , 'Create Rep Sched|checking existing Schedules'
2328: );
2329: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2330: end;
2331:
2332: If ( rep_sched_exist = 'Y' ) then
2333: For l_order_count in 1..p_kanban_card_rec_tbl.Count
2449:
2450: l_group_id := p_kanban_card_rec_tbl(1).current_replnsh_cycle_id;
2451: v_launch := Launch_MLP( l_group_id );
2452: if ( Not v_launch ) then
2453: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2454: end if;
2455:
2456: EXCEPTION
2457:
2454: end if;
2455:
2456: EXCEPTION
2457:
2458: WHEN FND_API.G_EXC_ERROR THEN
2459: Raise FND_API.G_EXC_ERROR;
2460:
2461: WHEN OTHERS THEN
2462: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2455:
2456: EXCEPTION
2457:
2458: WHEN FND_API.G_EXC_ERROR THEN
2459: Raise FND_API.G_EXC_ERROR;
2460:
2461: WHEN OTHERS THEN
2462: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2463: THEN
2465: ( G_PKG_NAME
2466: , 'Create_Rep_Schedule'
2467: );
2468: END IF;
2469: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2470:
2471: END Create_Rep_Schedule;
2472:
2473: --
2482:
2483: l_flow_schedule_rec MRP_Flow_Schedule_PUB.Flow_Schedule_Rec_Type;
2484: l_x_flow_schedule_rec MRP_Flow_Schedule_PUB.Flow_Schedule_Rec_Type;
2485: l_x_flow_schedule_val_rec MRP_Flow_Schedule_PUB.Flow_Schedule_Val_Rec_Type;
2486: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
2487: l_msg_count NUMBER;
2488: l_msg_data VARCHAR2(240);
2489: msg VARCHAR2(2000);
2490:
2533:
2534:
2535: -- l_flow_schedule_rec.schedule_group_id :=
2536: -- p_kanban_card_rec_tbl(1).current_replnsh_cycle_id;
2537: -- l_flow_schedule_rec.scheduled_by := FND_API.G_MISS_NUM;
2538: l_flow_schedule_rec.kanban_card_id :=
2539: p_kanban_card_rec_tbl(l_order_count).kanban_card_id;
2540: l_flow_schedule_rec.operation := MRP_GLOBALS.G_OPR_CREATE;
2541:
2545:
2546: MRP_Flow_Schedule_PUB.Process_Flow_Schedule
2547: (
2548: p_api_version_number => 1.0,
2549: p_init_msg_list => FND_API.G_TRUE,
2550: x_return_status => l_return_status,
2551: x_msg_count => l_msg_count,
2552: x_msg_data => l_msg_data,
2553: p_flow_schedule_rec => l_flow_schedule_rec,
2555: x_flow_schedule_val_rec => l_x_flow_schedule_val_rec,
2556: p_explode_bom => 'Y'
2557: );
2558:
2559: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2560: RAISE FND_API.G_EXC_ERROR;
2561: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2562: RAISE FND_API.G_EXC_ERROR;
2563: END IF;
2556: p_explode_bom => 'Y'
2557: );
2558:
2559: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2560: RAISE FND_API.G_EXC_ERROR;
2561: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2562: RAISE FND_API.G_EXC_ERROR;
2563: END IF;
2564:
2557: );
2558:
2559: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2560: RAISE FND_API.G_EXC_ERROR;
2561: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2562: RAISE FND_API.G_EXC_ERROR;
2563: END IF;
2564:
2565: p_kanban_card_rec_tbl(l_order_count).document_header_id :=
2558:
2559: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2560: RAISE FND_API.G_EXC_ERROR;
2561: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2562: RAISE FND_API.G_EXC_ERROR;
2563: END IF;
2564:
2565: p_kanban_card_rec_tbl(l_order_count).document_header_id :=
2566: l_x_flow_schedule_rec.wip_entity_id;
2569: end loop;
2570:
2571: EXCEPTION
2572:
2573: WHEN FND_API.G_EXC_ERROR THEN
2574:
2575: Raise FND_API.G_EXC_ERROR;
2576:
2577: WHEN OTHERS THEN
2571: EXCEPTION
2572:
2573: WHEN FND_API.G_EXC_ERROR THEN
2574:
2575: Raise FND_API.G_EXC_ERROR;
2576:
2577: WHEN OTHERS THEN
2578: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2579: THEN
2582: , 'Create_Flow_Schedule'
2583: );
2584: END IF;
2585:
2586: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2587: end Create_Flow_Schedule;
2588:
2589:
2590:
2597: p_kanban_card_rec_tbl IN Out NOCOPY Kanban_Card_Tbl_Type,
2598: p_fixed_lead_time IN NUMBER,
2599: p_var_lead_time IN NUMBER ) IS
2600:
2601: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
2602: l_msg_count NUMBER;
2603: l_msg_data VARCHAR2(240);
2604: msg VARCHAR2(2000);
2605: l_header_id NUMBER := NULL;
2755: program => 'WSMPLBJI',
2756: sub_request => FALSE,
2757: argument1 => l_group_id);
2758: if ( l_reqid <= 0 ) then
2759: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2760: end if;
2761: end loop;
2762:
2763: EXCEPTION
2761: end loop;
2762:
2763: EXCEPTION
2764:
2765: WHEN FND_API.G_EXC_ERROR THEN
2766:
2767: Raise FND_API.G_EXC_ERROR;
2768:
2769: WHEN OTHERS THEN
2763: EXCEPTION
2764:
2765: WHEN FND_API.G_EXC_ERROR THEN
2766:
2767: Raise FND_API.G_EXC_ERROR;
2768:
2769: WHEN OTHERS THEN
2770: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2771: THEN
2774: , 'Create_lot_based_job'
2775: );
2776: END IF;
2777:
2778: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2779: end Create_lot_based_job;
2780:
2781:
2782:
2811: FND_MSG_PUB.Add_Exc_Msg
2812: ( G_PKG_NAME
2813: , 'Ist SQL stmt'
2814: );
2815: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2816: end;
2817: IF p_Kanban_Card_Rec_Tbl(1).wip_line_id is NULL then
2818: begin
2819: select nvl(cfm_routing_flag,0),line_id into v_cfm_flag, v_wip_line_id
2829: FND_MSG_PUB.Add_Exc_Msg
2830: ( G_PKG_NAME
2831: , 'wip line id IS NULL'
2832: );
2833: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2834: end;
2835:
2836:
2837: if v_cfm_flag = 1 THEN
2886: when NO_DATA_FOUND then
2887: FND_MESSAGE.SET_NAME('INV','INV_ATTRIBUTE_REQUIRED');
2888: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','INV_WIP_LINE');
2889: FND_MSG_PUB.Add;
2890: Raise FND_API.G_EXC_ERROR;
2891: when others then
2892: FND_MSG_PUB.Add_Exc_Msg
2893: (G_PKG_NAME ,'wip line id IS NULL');
2894: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2890: Raise FND_API.G_EXC_ERROR;
2891: when others then
2892: FND_MSG_PUB.Add_Exc_Msg
2893: (G_PKG_NAME ,'wip line id IS NULL');
2894: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2895: end ;
2896: create_rep_schedule(p_kanban_card_rec_tbl, v_fixed_lead_time,
2897: v_var_lead_time );
2898: x_card_supply_status := INV_Kanban_PVT.G_Supply_Status_InProcess;
2927: FND_MSG_PUB.Add_Exc_Msg
2928: ( G_PKG_NAME
2929: , 'wip line id IS not NULL'
2930: );
2931: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2932: end;
2933: IF v_cfm_flag = 1 THEN
2934:
2935: create_flow_schedule(p_kanban_card_rec_tbl, v_fixed_lead_time,
2975: END IF;
2976:
2977: EXCEPTION
2978:
2979: WHEN FND_API.G_EXC_ERROR THEN
2980:
2981: Raise FND_API.G_EXC_ERROR;
2982:
2983: WHEN OTHERS THEN
2977: EXCEPTION
2978:
2979: WHEN FND_API.G_EXC_ERROR THEN
2980:
2981: Raise FND_API.G_EXC_ERROR;
2982:
2983: WHEN OTHERS THEN
2984: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2985: THEN
2988: , 'Create_Wip_Job'
2989: );
2990: END IF;
2991:
2992: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2993: end Create_Wip_Job;
2994:
2995: --
2996: --
3279: FND_MESSAGE.SET_NAME('FND','CONC-FDWHOAMI INVALID USERID');
3280: FND_MESSAGE.SET_TOKEN('USERID',to_char(FND_GLOBAL.USER_ID));
3281: End If;
3282: FND_MSG_PUB.Add;
3283: Raise FND_API.G_EXC_ERROR;
3284:
3285: WHEN FND_API.G_EXC_ERROR THEN
3286:
3287: Raise FND_API.G_EXC_ERROR;
3281: End If;
3282: FND_MSG_PUB.Add;
3283: Raise FND_API.G_EXC_ERROR;
3284:
3285: WHEN FND_API.G_EXC_ERROR THEN
3286:
3287: Raise FND_API.G_EXC_ERROR;
3288:
3289: WHEN OTHERS THEN
3283: Raise FND_API.G_EXC_ERROR;
3284:
3285: WHEN FND_API.G_EXC_ERROR THEN
3286:
3287: Raise FND_API.G_EXC_ERROR;
3288:
3289: WHEN OTHERS THEN
3290: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3291: THEN
3294: , 'Create_Replenishment'
3295: );
3296: END IF;
3297:
3298: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
3299:
3300: End Create_Replenishment;
3301:
3302: --
3317: l_Wait_Kanban_Size Number := 0;
3318: l_Card_Count Number := 0;
3319: l_Order_Count Number := 0;
3320: l_Current_replenish_cycle_Id Number;
3321: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3322: l_Kanban_Card_tbl Kanban_Card_Tbl_Type;
3323: p_card_supply_status Number;
3324:
3325:
3479: l_Kanban_card_Tbl(1).document_detail_id;
3480:
3481: EXCEPTION
3482:
3483: WHEN FND_API.G_EXC_ERROR THEN
3484:
3485: x_return_status := FND_API.G_RET_STS_ERROR;
3486:
3487: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3481: EXCEPTION
3482:
3483: WHEN FND_API.G_EXC_ERROR THEN
3484:
3485: x_return_status := FND_API.G_RET_STS_ERROR;
3486:
3487: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3488:
3489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3483: WHEN FND_API.G_EXC_ERROR THEN
3484:
3485: x_return_status := FND_API.G_RET_STS_ERROR;
3486:
3487: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3488:
3489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3490:
3491: WHEN OTHERS THEN
3485: x_return_status := FND_API.G_RET_STS_ERROR;
3486:
3487: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3488:
3489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3490:
3491: WHEN OTHERS THEN
3492:
3493: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3490:
3491: WHEN OTHERS THEN
3492:
3493: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3494:
3495: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3496: THEN
3497: FND_MSG_PUB.Add_Exc_Msg
3504:
3505: Procedure test IS
3506: i NUMBER := 0;
3507: l_pull_seq_id_tbl INV_kanban_PVT.pull_sequence_id_Tbl_Type;
3508: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
3509: l_operation_tbl INV_Kanban_PVT.operation_tbl_type;/*This new local var has been added to
3510: keep in synch with the call to procedure update_pull_sequence_tbl */
3511: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3512: begin
3519: END LOOP;
3520:
3521: update_pull_sequence_tbl( l_return_status, l_pull_seq_id_tbl, 'Y',l_operation_tbl );
3522:
3523: IF l_return_status IN ( FND_API.G_RET_STS_ERROR,
3524: FND_API.G_RET_STS_UNEXP_ERROR) THEN
3525: RAISE FND_API.G_EXC_ERROR;
3526: END IF;
3527:
3520:
3521: update_pull_sequence_tbl( l_return_status, l_pull_seq_id_tbl, 'Y',l_operation_tbl );
3522:
3523: IF l_return_status IN ( FND_API.G_RET_STS_ERROR,
3524: FND_API.G_RET_STS_UNEXP_ERROR) THEN
3525: RAISE FND_API.G_EXC_ERROR;
3526: END IF;
3527:
3528: EXCEPTION
3521: update_pull_sequence_tbl( l_return_status, l_pull_seq_id_tbl, 'Y',l_operation_tbl );
3522:
3523: IF l_return_status IN ( FND_API.G_RET_STS_ERROR,
3524: FND_API.G_RET_STS_UNEXP_ERROR) THEN
3525: RAISE FND_API.G_EXC_ERROR;
3526: END IF;
3527:
3528: EXCEPTION
3529:
3526: END IF;
3527:
3528: EXCEPTION
3529:
3530: WHEN FND_API.G_EXC_ERROR THEN
3531: Raise FND_API.G_EXC_ERROR;
3532:
3533: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3534: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
3527:
3528: EXCEPTION
3529:
3530: WHEN FND_API.G_EXC_ERROR THEN
3531: Raise FND_API.G_EXC_ERROR;
3532:
3533: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3534: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
3535:
3529:
3530: WHEN FND_API.G_EXC_ERROR THEN
3531: Raise FND_API.G_EXC_ERROR;
3532:
3533: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3534: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
3535:
3536: WHEN OTHERS THEN
3537:
3530: WHEN FND_API.G_EXC_ERROR THEN
3531: Raise FND_API.G_EXC_ERROR;
3532:
3533: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3534: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
3535:
3536: WHEN OTHERS THEN
3537:
3538: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3683: inventory_item_id = l_assembly_item_id AND
3684: organization_id = l_organization_id;
3685: EXCEPTION
3686: when others THEN
3687: RAISE fnd_api.g_exc_unexpected_error;
3688: end;
3689:
3690: --lot controlled
3691: IF l_rep_flag = 'N' AND l_lot_control = 2 THEN
3701: EXCEPTION
3702: when no_data_found THEN
3703: l_cfm_flag := 2;
3704: WHEN OTHERS THEN
3705: RAISE fnd_api.g_exc_unexpected_error;
3706: END;
3707:
3708:
3709:
3798: BEGIN
3799:
3800: p_update := TRUE; -- By Default update the kanban card and kanban card activity
3801:
3802: -- Bug 3987589; Added the AND condition 'AND document_type <> fnd_api.g_miss_num' and the exception block
3803: IF p_supply_status = INV_Kanban_PVT.G_Supply_Status_Full THEN /*Bug 4490269*/
3804:
3805: BEGIN
3806: SELECT document_type
3809: , l_max_rep_id
3810: FROM mtl_kanban_card_activity
3811: WHERE kanban_card_id = p_kanban_card_id
3812: AND document_type IS NOT NULL
3813: AND document_type <> fnd_api.g_miss_num
3814: AND replenishment_cycle_id = (SELECT MAX(replenishment_cycle_id)
3815: FROM mtl_kanban_card_activity
3816: WHERE kanban_card_id = p_kanban_card_id);
3817: EXCEPTION
4001: ' revision:'||l_revision||' from_locator_id:'||l_from_locator_id||' to_location:'||l_to_locator_id ||
4002: 'lot_number:' || l_lot_number || ' transaction_temp_id' || l_txn_header_id ,'INV_KANBAN_PVT');
4003: END IF;
4004:
4005: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS
4006: OR l_mo_line_rec.quantity <> l_detailed_quantity )
4007: THEN
4008: l_failed_lines := l_failed_lines + 1; --count the unallocated lines.
4009: END IF;
4010: END LOOP;
4011: CLOSE mo_lines_cur;
4012:
4013: IF l_failed_lines > 0 THEN
4014: x_return_status := FND_API.G_RET_STS_ERROR;
4015: ELSE
4016: x_return_status := FND_API.G_RET_STS_SUCCESS;
4017: END IF;
4018:
4012:
4013: IF l_failed_lines > 0 THEN
4014: x_return_status := FND_API.G_RET_STS_ERROR;
4015: ELSE
4016: x_return_status := FND_API.G_RET_STS_SUCCESS;
4017: END IF;
4018:
4019: IF (l_debug = 1 ) THEN
4020: inv_pick_wave_pick_confirm_pub.tracelog('In Auto_Allocate_Kanban : return status :'||x_return_status||' msg:'||x_msg_data,'INV_KANBAN_PVT');
4022: EXCEPTION
4023: WHEN OTHERS THEN
4024: IF (l_debug = 1 ) THEN
4025: inv_pick_wave_pick_confirm_pub.tracelog('In Auto_Allocate_Kanban : Exception : When Others','INV_KANBAN_PVT');
4026: x_return_status := FND_API.G_RET_STS_ERROR;
4027: END IF;
4028: END Auto_Allocate_Kanban;
4029:
4030: