[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;
743: IF p_Kanban_Card_Id is NULL THEN
744: FND_MESSAGE.SET_NAME('INV','INV_ATTRIBUTE_REQUIRED');
745: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','INV_KANBAN_CARD');
746: FND_MSG_PUB.Add;
747: l_return_status := FND_API.G_RET_STS_ERROR;
748: ELSIF p_supply_status is null THEN
749: FND_MESSAGE.SET_NAME('INV','INV_ATTRIBUTE_REQUIRED');
750: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','INV_SUPPLY_STATUS');
751: FND_MSG_PUB.Add;
748: ELSIF p_supply_status is null THEN
749: FND_MESSAGE.SET_NAME('INV','INV_ATTRIBUTE_REQUIRED');
750: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','INV_SUPPLY_STATUS');
751: FND_MSG_PUB.Add;
752: l_return_status := FND_API.G_RET_STS_ERROR;
753: ELSE
754:
755: l_kanban_card_rec := INV_KanbanCard_PKG.Query_Row
756: ( p_Kanban_Card_id => p_kanban_Card_Id);
766: FOR UPDATE NOWAIT;
767: mydebug('Lock accuired for kanban card');
768: EXCEPTION
769: WHEN OTHERS THEN
770: l_return_status := FND_API.G_RET_STS_ERROR;
771: FND_MESSAGE.SET_NAME('INV','INV_CANNOT_LOCK_KANBAN_CARD');
772: FND_MSG_PUB.ADD;
773: END;
774:
771: FND_MESSAGE.SET_NAME('INV','INV_CANNOT_LOCK_KANBAN_CARD');
772: FND_MSG_PUB.ADD;
773: END;
774:
775: IF l_return_status = FND_API.g_ret_sts_error THEN
776: NULL;
777: ELSIF (l_kanban_card_rec.card_status = G_Card_Status_Hold ) THEN
778: l_return_status := FND_API.G_RET_STS_ERROR;
779: FND_MESSAGE.SET_NAME('INV','INV_CANNOT_REPL_HOLD_CARD');
774:
775: IF l_return_status = FND_API.g_ret_sts_error THEN
776: NULL;
777: ELSIF (l_kanban_card_rec.card_status = G_Card_Status_Hold ) THEN
778: l_return_status := FND_API.G_RET_STS_ERROR;
779: FND_MESSAGE.SET_NAME('INV','INV_CANNOT_REPL_HOLD_CARD');
780: FND_MSG_PUB.ADD;
781: ELSIF (l_kanban_card_rec.card_status = G_Card_Status_Cancel ) then
782: l_return_status := FND_API.G_RET_STS_ERROR;
778: l_return_status := FND_API.G_RET_STS_ERROR;
779: FND_MESSAGE.SET_NAME('INV','INV_CANNOT_REPL_HOLD_CARD');
780: FND_MSG_PUB.ADD;
781: ELSIF (l_kanban_card_rec.card_status = G_Card_Status_Cancel ) then
782: l_return_status := FND_API.G_RET_STS_ERROR;
783: FND_MESSAGE.SET_NAME('INV','INV_CANNOT_REPL_CANCEL_CARD');
784: FND_MSG_PUB.ADD;
785: ELSIF (l_kanban_card_rec.card_status = G_Card_Status_Planned ) then
786: l_return_status := FND_API.G_RET_STS_ERROR;
782: l_return_status := FND_API.G_RET_STS_ERROR;
783: FND_MESSAGE.SET_NAME('INV','INV_CANNOT_REPL_CANCEL_CARD');
784: FND_MSG_PUB.ADD;
785: ELSIF (l_kanban_card_rec.card_status = G_Card_Status_Planned ) then
786: l_return_status := FND_API.G_RET_STS_ERROR;
787: FND_MESSAGE.SET_NAME('INV','INV_CANNOT_REPL_CANCEL_CARD');
788: FND_MSG_PUB.ADD;
789: --Bug 3288422 fix.
790: ELSE
832: INV_Kanban_PVT.G_Card_Status_Hold,INV_Kanban_PVT.G_Card_Status_Planned)
833: then
834: FND_MESSAGE.SET_TOKEN('CARD_NUMBER',l_kanban_card_rec.kanban_card_number);
835: End If;
836: l_return_status := FND_API.G_RET_STS_ERROR;
837: FND_MSG_PUB.Add;
838: END IF;--IF INV_KanbanCard_PKG.Supply_Status_Change_OK
839: END IF;--IF l_return_status = FND_API.g_ret_sts_error
840: END IF;--IF p_Kanban_Card_Id is NULL THEN
835: End If;
836: l_return_status := FND_API.G_RET_STS_ERROR;
837: FND_MSG_PUB.Add;
838: END IF;--IF INV_KanbanCard_PKG.Supply_Status_Change_OK
839: END IF;--IF l_return_status = FND_API.g_ret_sts_error
840: END IF;--IF p_Kanban_Card_Id is NULL THEN
841:
842: IF l_return_status = FND_API.g_ret_sts_error THEN
843: Raise FND_API.G_EXC_ERROR;
838: END IF;--IF INV_KanbanCard_PKG.Supply_Status_Change_OK
839: END IF;--IF l_return_status = FND_API.g_ret_sts_error
840: END IF;--IF p_Kanban_Card_Id is NULL THEN
841:
842: IF l_return_status = FND_API.g_ret_sts_error THEN
843: Raise FND_API.G_EXC_ERROR;
844: end if;
845:
846: end if;
839: END IF;--IF l_return_status = FND_API.g_ret_sts_error
840: END IF;--IF p_Kanban_Card_Id is NULL THEN
841:
842: IF l_return_status = FND_API.g_ret_sts_error THEN
843: Raise FND_API.G_EXC_ERROR;
844: end if;
845:
846: end if;
847: x_return_status := l_return_status;
847: x_return_status := l_return_status;
848:
849: EXCEPTION
850:
851: WHEN FND_API.G_EXC_ERROR THEN
852:
853: x_return_status := FND_API.G_RET_STS_ERROR;
854:
855: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
849: EXCEPTION
850:
851: WHEN FND_API.G_EXC_ERROR THEN
852:
853: x_return_status := FND_API.G_RET_STS_ERROR;
854:
855: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
856:
857: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
851: WHEN FND_API.G_EXC_ERROR THEN
852:
853: x_return_status := FND_API.G_RET_STS_ERROR;
854:
855: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
856:
857: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
858:
859: WHEN OTHERS THEN
853: x_return_status := FND_API.G_RET_STS_ERROR;
854:
855: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
856:
857: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
858:
859: WHEN OTHERS THEN
860:
861: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
857: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
858:
859: WHEN OTHERS THEN
860:
861: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
862: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
863: THEN
864: FND_MSG_PUB.Add_Exc_Msg
865: ( G_PKG_NAME
931:
932:
933: EXCEPTION
934:
935: WHEN FND_API.G_EXC_ERROR THEN
936:
937: x_return_status := FND_API.G_RET_STS_ERROR;
938:
939: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
933: EXCEPTION
934:
935: WHEN FND_API.G_EXC_ERROR THEN
936:
937: x_return_status := FND_API.G_RET_STS_ERROR;
938:
939: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
940:
941: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
935: WHEN FND_API.G_EXC_ERROR THEN
936:
937: x_return_status := FND_API.G_RET_STS_ERROR;
938:
939: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
940:
941: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
942:
943: WHEN OTHERS THEN
937: x_return_status := FND_API.G_RET_STS_ERROR;
938:
939: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
940:
941: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
942:
943: WHEN OTHERS THEN
944:
945: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
941: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
942:
943: WHEN OTHERS THEN
944:
945: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
946: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
947: THEN
948: FND_MSG_PUB.Add_Exc_Msg
949: ( G_PKG_NAME
958: -- for a kanban card id record.
959: --
960: PROCEDURE Update_Card_Supply_Status
961: ( p_api_version_number IN NUMBER
962: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
963: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
964: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
965: ,x_return_status OUT NOCOPY VARCHAR2
966: ,x_msg_count OUT NOCOPY NUMBER
959: --
960: PROCEDURE Update_Card_Supply_Status
961: ( p_api_version_number IN NUMBER
962: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
963: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
964: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
965: ,x_return_status OUT NOCOPY VARCHAR2
966: ,x_msg_count OUT NOCOPY NUMBER
967: ,x_msg_data OUT NOCOPY VARCHAR2
960: PROCEDURE Update_Card_Supply_Status
961: ( p_api_version_number IN NUMBER
962: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
963: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
964: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
965: ,x_return_status OUT NOCOPY VARCHAR2
966: ,x_msg_count OUT NOCOPY NUMBER
967: ,x_msg_data OUT NOCOPY VARCHAR2
968: ,p_Kanban_Card_Id Number
976: IS
977:
978: l_api_version_number CONSTANT NUMBER := 1.0;
979: l_api_name CONSTANT VARCHAR2(30):= 'Update_Card_Supply_Status';
980: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
981: l_document_type Number;
982: l_document_header_id Number;
983: l_document_detail_id Number;
984:
993: SAVEPOINT KANBAN_PVT;
994: mydebug('Inside Update_Card_Supply_Status 1');
995: -- Standard call to check for call compatibility
996:
997: IF NOT FND_API.Compatible_API_Call
998: ( l_api_version_number
999: , p_api_version_number
1000: , l_api_name
1001: , G_PKG_NAME
1000: , l_api_name
1001: , G_PKG_NAME
1002: )
1003: THEN
1004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1005: END IF;
1006:
1007: -- Initialize message list.
1008:
1005: END IF;
1006:
1007: -- Initialize message list.
1008:
1009: IF FND_API.to_Boolean(p_init_msg_list) THEN
1010: FND_MSG_PUB.initialize;
1011: END IF;
1012:
1013: mydebug('Calling Update_Card_Supply_Status 2');
1024: x_return_status := l_return_status;
1025:
1026: -- Standard check of p_commit.
1027:
1028: IF FND_API.To_Boolean( p_commit ) THEN
1029: COMMIT WORK;
1030: END IF;
1031:
1032: -- Standard call to get message count and if count is 1, get message info.
1036: );
1037:
1038: EXCEPTION
1039:
1040: WHEN FND_API.G_EXC_ERROR THEN
1041: ROLLBACK TO KANBAN_PVT;
1042: x_return_status := FND_API.G_RET_STS_ERROR ;
1043: FND_MSG_PUB.Count_And_Get
1044: ( p_count => x_msg_count ,
1038: EXCEPTION
1039:
1040: WHEN FND_API.G_EXC_ERROR THEN
1041: ROLLBACK TO KANBAN_PVT;
1042: x_return_status := FND_API.G_RET_STS_ERROR ;
1043: FND_MSG_PUB.Count_And_Get
1044: ( p_count => x_msg_count ,
1045: p_data => x_msg_data
1046: );
1043: FND_MSG_PUB.Count_And_Get
1044: ( p_count => x_msg_count ,
1045: p_data => x_msg_data
1046: );
1047: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1048: ROLLBACK TO KANBAN_PVT;
1049: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1050: FND_MSG_PUB.Count_And_Get
1051: ( p_count => x_msg_count ,
1045: p_data => x_msg_data
1046: );
1047: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1048: ROLLBACK TO KANBAN_PVT;
1049: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1050: FND_MSG_PUB.Count_And_Get
1051: ( p_count => x_msg_count ,
1052: p_data => x_msg_data
1053: );
1053: );
1054:
1055: WHEN OTHERS THEN
1056: ROLLBACK TO KANBAN_PVT;
1057: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1058: IF FND_MSG_PUB.Check_Msg_Level
1059: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1060: THEN
1061: FND_MSG_PUB.Add_Exc_Msg
1079: p_Supply_Status Number,
1080: p_Document_type Number,
1081: p_Document_Header_Id Number)
1082: IS
1083: l_Document_detail_id Number := FND_API.G_MISS_NUM;
1084:
1085: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1086: Begin
1087: mydebug('In INV_KANBAN_PVT.Update_Card_Supply_Status api - 2');
1094:
1095:
1096: EXCEPTION
1097:
1098: WHEN FND_API.G_EXC_ERROR THEN
1099:
1100: x_return_status := FND_API.G_RET_STS_ERROR;
1101:
1102: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1096: EXCEPTION
1097:
1098: WHEN FND_API.G_EXC_ERROR THEN
1099:
1100: x_return_status := FND_API.G_RET_STS_ERROR;
1101:
1102: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1103:
1104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1098: WHEN FND_API.G_EXC_ERROR THEN
1099:
1100: x_return_status := FND_API.G_RET_STS_ERROR;
1101:
1102: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1103:
1104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1105:
1106: WHEN OTHERS THEN
1100: x_return_status := FND_API.G_RET_STS_ERROR;
1101:
1102: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1103:
1104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1105:
1106: WHEN OTHERS THEN
1107:
1108: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1105:
1106: WHEN OTHERS THEN
1107:
1108: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1109: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1110: THEN
1111: FND_MSG_PUB.Add_Exc_Msg
1112: ( G_PKG_NAME
1491: P_Pull_Sequence_Rec INV_Kanban_PVT.Pull_Sequence_Rec_Type,
1492: p_Supply_Status NUMBER
1493: )
1494: IS
1495: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1496: l_kanban_Card_tbl INV_Kanban_PVT.Kanban_Card_Id_Tbl_Type;
1497: l_Kanban_Card_Id number;
1498: l_Kanban_Card_Number varchar2(200);
1499: l_supply_status Number;
1539: FND_MESSAGE.SET_TOKEN('SUB_CODE',l_Subinventory);
1540: FND_MESSAGE.SET_TOKEN('LOCATOR_NAME',l_loc_name);
1541: FND_MSG_PUB.Add;
1542:
1543: l_return_status := FND_API.G_RET_STS_ERROR;
1544:
1545: end if;
1546:
1547: if nvl(P_Pull_Sequence_Rec.Kanban_Size,0) <= 0
1556: FND_MESSAGE.SET_TOKEN('ITEM_NAME',l_item_name);
1557: FND_MESSAGE.SET_TOKEN('SUB_CODE',l_Subinventory);
1558: FND_MESSAGE.SET_TOKEN('LOCATOR_NAME',l_loc_name);
1559: FND_MSG_PUB.Add;
1560: l_return_status := FND_API.G_RET_STS_ERROR;
1561:
1562: end if;
1563:
1564: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1560: l_return_status := FND_API.G_RET_STS_ERROR;
1561:
1562: end if;
1563:
1564: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1565: RAISE FND_API.G_EXC_ERROR;
1566:
1567: END IF;
1568:
1561:
1562: end if;
1563:
1564: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1565: RAISE FND_API.G_EXC_ERROR;
1566:
1567: END IF;
1568:
1569: --Existing kanban cards need to be cancelled only when creating a
1620: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_EXISTS');
1621: fnd_message.set_token ('ATTRIBUTE', 'Kanban Card Number'||l_Kanban_Card_Number);
1622: l_error_msg := FND_MESSAGE.GET;
1623: FND_MSG_PUB.Add_Exc_Msg ( 'INV_Kanban_PVT',l_error_msg );
1624: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1625: exception
1626: when others then
1627: null;
1628: end;
1685: P_Program_Id => NULL,
1686: P_Program_Update_date => NULL,
1687: p_release_kanban_flag => p_Pull_Sequence_Rec.release_kanban_flag);
1688:
1689: if l_return_status = FND_API.G_RET_STS_ERROR
1690: Then
1691: Raise FND_API.G_EXC_ERROR;
1692: End if;
1693:
1687: p_release_kanban_flag => p_Pull_Sequence_Rec.release_kanban_flag);
1688:
1689: if l_return_status = FND_API.G_RET_STS_ERROR
1690: Then
1691: Raise FND_API.G_EXC_ERROR;
1692: End if;
1693:
1694: if l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1695: Then
1690: Then
1691: Raise FND_API.G_EXC_ERROR;
1692: End if;
1693:
1694: if l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1695: Then
1696: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1697: End If;
1698:
1692: End if;
1693:
1694: if l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1695: Then
1696: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1697: End If;
1698:
1699: X_Kanban_Card_Ids(l_card_count) := l_Kanban_Card_Id;
1700:
1703: x_return_status := l_return_status;
1704:
1705: EXCEPTION
1706:
1707: WHEN FND_API.G_EXC_ERROR THEN
1708:
1709: x_return_status := FND_API.G_RET_STS_ERROR;
1710:
1711: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1705: EXCEPTION
1706:
1707: WHEN FND_API.G_EXC_ERROR THEN
1708:
1709: x_return_status := FND_API.G_RET_STS_ERROR;
1710:
1711: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1712:
1713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1707: WHEN FND_API.G_EXC_ERROR THEN
1708:
1709: x_return_status := FND_API.G_RET_STS_ERROR;
1710:
1711: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1712:
1713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1714:
1715: WHEN OTHERS THEN
1709: x_return_status := FND_API.G_RET_STS_ERROR;
1710:
1711: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1712:
1713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1714:
1715: WHEN OTHERS THEN
1716:
1717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1714:
1715: WHEN OTHERS THEN
1716:
1717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1718: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1719: THEN
1720: FND_MSG_PUB.Add_Exc_Msg
1721: ( G_PKG_NAME
1743: p_disable_date DATE,
1744: p_replacement_flag NUMBER
1745: )
1746: IS
1747: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1748: l_kanban_Card_tbl INV_Kanban_PVT.Kanban_Card_Id_Tbl_Type;
1749: l_Kanban_Card_Id number;
1750: l_Kanban_Card_Number varchar2(200);
1751: l_supply_status Number;
1784: FND_MESSAGE.SET_TOKEN('SUB_CODE',l_Subinventory);
1785: FND_MESSAGE.SET_TOKEN('LOCATOR_NAME',l_loc_name);
1786: FND_MSG_PUB.Add;
1787:
1788: l_return_status := FND_API.G_RET_STS_ERROR;
1789:
1790: end if;
1791:
1792: if nvl(P_Pull_Sequence_Rec.Kanban_Size,0) <= 0
1801: FND_MESSAGE.SET_TOKEN('ITEM_NAME',l_item_name);
1802: FND_MESSAGE.SET_TOKEN('SUB_CODE',l_Subinventory);
1803: FND_MESSAGE.SET_TOKEN('LOCATOR_NAME',l_loc_name);
1804: FND_MSG_PUB.Add;
1805: l_return_status := FND_API.G_RET_STS_ERROR;
1806:
1807: end if;
1808:
1809: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1805: l_return_status := FND_API.G_RET_STS_ERROR;
1806:
1807: end if;
1808:
1809: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1810: RAISE FND_API.G_EXC_ERROR;
1811:
1812: END IF;
1813:
1806:
1807: end if;
1808:
1809: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1810: RAISE FND_API.G_EXC_ERROR;
1811:
1812: END IF;
1813:
1814: --Existing kanban cards need to be cancelled only when creating a
1889: p_max_replenishments => p_max_replenishments,
1890: p_disable_date => p_disable_date,
1891: p_replacement_flag => p_replacement_flag);
1892:
1893: if l_return_status = FND_API.G_RET_STS_ERROR
1894: Then
1895: Raise FND_API.G_EXC_ERROR;
1896: End if;
1897:
1891: p_replacement_flag => p_replacement_flag);
1892:
1893: if l_return_status = FND_API.G_RET_STS_ERROR
1894: Then
1895: Raise FND_API.G_EXC_ERROR;
1896: End if;
1897:
1898: if l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1899: Then
1894: Then
1895: Raise FND_API.G_EXC_ERROR;
1896: End if;
1897:
1898: if l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1899: Then
1900: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1901: End If;
1902:
1896: End if;
1897:
1898: if l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1899: Then
1900: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1901: End If;
1902:
1903: X_Kanban_Card_Ids(l_card_count) := l_Kanban_Card_Id;
1904:
1907: x_return_status := l_return_status;
1908:
1909: EXCEPTION
1910:
1911: WHEN FND_API.G_EXC_ERROR THEN
1912:
1913: x_return_status := FND_API.G_RET_STS_ERROR;
1914:
1915: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1909: EXCEPTION
1910:
1911: WHEN FND_API.G_EXC_ERROR THEN
1912:
1913: x_return_status := FND_API.G_RET_STS_ERROR;
1914:
1915: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1916:
1917: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1911: WHEN FND_API.G_EXC_ERROR THEN
1912:
1913: x_return_status := FND_API.G_RET_STS_ERROR;
1914:
1915: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1916:
1917: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1918:
1919: WHEN OTHERS THEN
1913: x_return_status := FND_API.G_RET_STS_ERROR;
1914:
1915: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1916:
1917: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1918:
1919: WHEN OTHERS THEN
1920:
1921: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1917: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1918:
1919: WHEN OTHERS THEN
1920:
1921: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1922: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1923: THEN
1924: FND_MSG_PUB.Add_Exc_Msg
1925: ( G_PKG_NAME
2157: */
2158:
2159: EXCEPTION
2160:
2161: WHEN FND_API.G_EXC_ERROR THEN
2162:
2163: Raise FND_API.G_EXC_ERROR;
2164:
2165: WHEN OTHERS THEN
2159: EXCEPTION
2160:
2161: WHEN FND_API.G_EXC_ERROR THEN
2162:
2163: Raise FND_API.G_EXC_ERROR;
2164:
2165: WHEN OTHERS THEN
2166: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2167: THEN
2170: , 'Create_Requisition'
2171: );
2172: END IF;
2173:
2174: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2175:
2176: end Create_Requisition;
2177:
2178: --
2188: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
2189: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
2190: l_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
2191: l_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
2192: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
2193: l_msg_count NUMBER;
2194: l_msg_data VARCHAR2(240);
2195: msg VARCHAR2(2000);
2196: l_header_id Number := FND_API.G_MISS_NUM;
2192: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
2193: l_msg_count NUMBER;
2194: l_msg_data VARCHAR2(240);
2195: msg VARCHAR2(2000);
2196: l_header_id Number := FND_API.G_MISS_NUM;
2197: l_line_num Number := 0;
2198: l_item_locator_control_code NUMBER;
2199: l_from_sub_locator_type NUMBER;
2200: l_to_sub_locator_type NUMBER;
2221: l_trohdr_rec.status_date := sysdate;
2222: l_trohdr_rec.to_subinventory_code := p_kanban_card_rec_tbl(1).subinventory_name;
2223: l_trohdr_rec.transaction_type_id := INV_GLOBALS.G_TYPE_TRANSFER_ORDER_SUBXFR;
2224: l_trohdr_rec.move_order_type := INV_GLOBALS.G_MOVE_ORDER_REPLENISHMENT;
2225: l_trohdr_rec.db_flag := FND_API.G_TRUE;
2226: l_trohdr_rec.operation := INV_GLOBALS.G_OPR_CREATE;
2227:
2228: select location_control_code,secondary_uom_code
2229: into l_item_locator_control_code,l_secondary_uom_code
2291: l_trolin_tbl(l_order_count).inventory_item_id := p_kanban_card_rec_tbl(1).inventory_item_id;
2292: l_trolin_tbl(l_order_count).last_updated_by := FND_GLOBAL.USER_ID;
2293: l_trolin_tbl(l_order_count).last_update_date := sysdate;
2294: l_trolin_tbl(l_order_count).last_update_login := FND_GLOBAL.LOGIN_ID;
2295: l_trolin_tbl(l_order_count).line_id := FND_API.G_MISS_NUM;
2296: l_trolin_tbl(l_order_count).line_number := l_line_num;
2297: l_trolin_tbl(l_order_count).line_status := INV_Globals.G_TO_STATUS_PREAPPROVED;
2298: l_trolin_tbl(l_order_count).organization_id := p_kanban_card_rec_tbl(1).organization_id;
2299: l_trolin_tbl(l_order_count).quantity := p_kanban_card_rec_tbl(l_order_count).kanban_size;
2328: ,to_name => NULL);
2329: /* UOM conversion failure check */
2330: IF l_secondary_qty < 0 THEN
2331: mydebug('Uom Conversion Failed for Creating Transfer Order:'||p_kanban_card_rec_tbl(1).inventory_item_id|| ', ' ||p_kanban_card_rec_tbl(1).organization_id||l_proc_name);
2332: RAISE FND_API.g_exc_error;
2333: END IF ;
2334: ELSE
2335: l_secondary_uom_code := NULL ;
2336: l_secondary_qty := NULL ;
2340:
2341: l_trolin_tbl(l_order_count).to_subinventory_code:= p_kanban_card_rec_tbl(1).subinventory_name;
2342: l_trolin_tbl(l_order_count).uom_code := p_primary_uom_code;
2343: l_trolin_tbl(l_order_count).transaction_type_id := INV_GLOBALS.G_TYPE_TRANSFER_ORDER_SUBXFR;
2344: l_trolin_tbl(l_order_count).db_flag := FND_API.G_TRUE;
2345: l_trolin_tbl(l_order_count).operation := INV_GLOBALS.G_OPR_CREATE;
2346: l_trolin_tbl(l_order_count).secondary_quantity := l_secondary_qty;
2347: l_trolin_tbl(l_order_count).secondary_uom := l_secondary_uom_code;
2348:
2349: END LOOP;
2350:
2351: INV_Transfer_Order_PVT.Process_Transfer_Order
2352: ( p_api_version_number => 1.0 ,
2353: p_init_msg_list => FND_API.G_TRUE,
2354: x_return_status => l_return_status,
2355: x_msg_count => l_msg_count,
2356: x_msg_data => l_msg_data,
2357: p_trohdr_rec => l_trohdr_rec,
2359: x_trohdr_rec => l_x_trohdr_rec,
2360: x_trolin_tbl => l_x_trolin_tbl
2361: );
2362:
2363: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2364: FND_MSG_PUB.Add_Exc_Msg
2365: ( G_PKG_NAME
2366: , 'Create_transfer_order'
2367: );
2364: FND_MSG_PUB.Add_Exc_Msg
2365: ( G_PKG_NAME
2366: , 'Create_transfer_order'
2367: );
2368: RAISE FND_API.G_EXC_ERROR;
2369: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2370: FND_MSG_PUB.Add_Exc_Msg
2371: ( G_PKG_NAME
2372: , 'Create_transfer_order'
2365: ( G_PKG_NAME
2366: , 'Create_transfer_order'
2367: );
2368: RAISE FND_API.G_EXC_ERROR;
2369: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2370: FND_MSG_PUB.Add_Exc_Msg
2371: ( G_PKG_NAME
2372: , 'Create_transfer_order'
2373: );
2370: FND_MSG_PUB.Add_Exc_Msg
2371: ( G_PKG_NAME
2372: , 'Create_transfer_order'
2373: );
2374: RAISE FND_API.G_EXC_ERROR;
2375: END IF;
2376:
2377: For I in 1 .. l_x_trolin_tbl.count
2378: Loop
2398: SELECT MTRH.request_number INTO l_mo_request_number
2399: FROM Mtl_Txn_Request_Headers MTRH
2400: WHERE MTRH.Header_id = p_kanban_card_rec_tbl(1).document_header_id;
2401:
2402: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2403: FND_MESSAGE.SET_NAME('INV','INV_KANBAN_MO_ALLOC_SUCCESS');
2404: FND_MESSAGE.SET_TOKEN('MOVE_ORDER',l_mo_request_number);
2405: FND_MSG_PUB.Add;
2406: ELSE
2412: END IF;
2413: /* End of fix for 3905884*/
2414:
2415: EXCEPTION
2416: WHEN FND_API.G_EXC_ERROR THEN
2417: Raise FND_API.G_EXC_ERROR;
2418:
2419: WHEN OTHERS THEN
2420: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2413: /* End of fix for 3905884*/
2414:
2415: EXCEPTION
2416: WHEN FND_API.G_EXC_ERROR THEN
2417: Raise FND_API.G_EXC_ERROR;
2418:
2419: WHEN OTHERS THEN
2420: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2421: FND_MSG_PUB.Add_Exc_Msg
2422: ( G_PKG_NAME
2423: , 'Create_Transfer_Order'
2424: );
2425: END IF;
2426: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2427: end Create_Transfer_Order;
2428:
2429: --
2430: -- Launch_MLP() : This program will launch the WIP Mass load program to
2448:
2449: if v_req_id > 0 then
2450: return TRUE;
2451: else
2452: Raise FND_API.G_EXC_UNEXPECTED_ERROR ;
2453: end if;
2454:
2455: exception
2456: WHEN OTHERS THEN
2613: end loop;
2614: l_group_id := p_kanban_card_rec_tbl(1).current_replnsh_cycle_id;
2615: v_launch := Launch_MLP( l_group_id );
2616: if ( Not v_launch ) then
2617: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2618: end if;
2619:
2620: EXCEPTION
2621:
2618: end if;
2619:
2620: EXCEPTION
2621:
2622: WHEN FND_API.G_EXC_ERROR THEN
2623:
2624: Raise FND_API.G_EXC_ERROR;
2625:
2626: WHEN OTHERS THEN
2620: EXCEPTION
2621:
2622: WHEN FND_API.G_EXC_ERROR THEN
2623:
2624: Raise FND_API.G_EXC_ERROR;
2625:
2626: WHEN OTHERS THEN
2627: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2628: THEN
2631: , 'Create_Wip_Discrete'
2632: );
2633: END IF;
2634:
2635: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2636: end Create_Wip_Discrete;
2637:
2638: --
2639: -- Create_Rep_Schedule() : This procedure would Create a WIP Repetetive
2669: FND_MSG_PUB.Add_Exc_Msg
2670: ( G_PKG_NAME
2671: , 'Create Rep Sched|Wip Line Not Defined'
2672: );
2673: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2674: end;
2675:
2676: /*
2677: begin
2695: FND_MSG_PUB.Add_Exc_Msg
2696: ( G_PKG_NAME
2697: , 'Create Rep Sched|checking existing Schedules'
2698: );
2699: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2700: end;
2701:
2702: If ( rep_sched_exist = 'Y' ) then
2703: For l_order_count in 1..p_kanban_card_rec_tbl.Count
2825:
2826: l_group_id := p_kanban_card_rec_tbl(1).current_replnsh_cycle_id;
2827: v_launch := Launch_MLP( l_group_id );
2828: if ( Not v_launch ) then
2829: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2830: end if;
2831:
2832: EXCEPTION
2833:
2830: end if;
2831:
2832: EXCEPTION
2833:
2834: WHEN FND_API.G_EXC_ERROR THEN
2835: Raise FND_API.G_EXC_ERROR;
2836:
2837: WHEN OTHERS THEN
2838: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2831:
2832: EXCEPTION
2833:
2834: WHEN FND_API.G_EXC_ERROR THEN
2835: Raise FND_API.G_EXC_ERROR;
2836:
2837: WHEN OTHERS THEN
2838: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2839: THEN
2841: ( G_PKG_NAME
2842: , 'Create_Rep_Schedule'
2843: );
2844: END IF;
2845: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2846:
2847: END Create_Rep_Schedule;
2848:
2849: --
2858:
2859: l_flow_schedule_rec MRP_Flow_Schedule_PUB.Flow_Schedule_Rec_Type;
2860: l_x_flow_schedule_rec MRP_Flow_Schedule_PUB.Flow_Schedule_Rec_Type;
2861: l_x_flow_schedule_val_rec MRP_Flow_Schedule_PUB.Flow_Schedule_Val_Rec_Type;
2862: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
2863: l_msg_count NUMBER;
2864: l_msg_data VARCHAR2(240);
2865: msg VARCHAR2(2000);
2866:
2915:
2916:
2917: -- l_flow_schedule_rec.schedule_group_id :=
2918: -- p_kanban_card_rec_tbl(1).current_replnsh_cycle_id;
2919: -- l_flow_schedule_rec.scheduled_by := FND_API.G_MISS_NUM;
2920: l_flow_schedule_rec.kanban_card_id :=
2921: p_kanban_card_rec_tbl(l_order_count).kanban_card_id;
2922: l_flow_schedule_rec.operation := MRP_GLOBALS.G_OPR_CREATE;
2923:
2927:
2928: MRP_Flow_Schedule_PUB.Process_Flow_Schedule
2929: (
2930: p_api_version_number => 1.0,
2931: p_init_msg_list => FND_API.G_TRUE,
2932: x_return_status => l_return_status,
2933: x_msg_count => l_msg_count,
2934: x_msg_data => l_msg_data,
2935: p_flow_schedule_rec => l_flow_schedule_rec,
2937: x_flow_schedule_val_rec => l_x_flow_schedule_val_rec,
2938: p_explode_bom => 'Y'
2939: );
2940:
2941: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2942: RAISE FND_API.G_EXC_ERROR;
2943: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2944: RAISE FND_API.G_EXC_ERROR;
2945: END IF;
2938: p_explode_bom => 'Y'
2939: );
2940:
2941: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2942: RAISE FND_API.G_EXC_ERROR;
2943: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2944: RAISE FND_API.G_EXC_ERROR;
2945: END IF;
2946:
2939: );
2940:
2941: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2942: RAISE FND_API.G_EXC_ERROR;
2943: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2944: RAISE FND_API.G_EXC_ERROR;
2945: END IF;
2946:
2947: p_kanban_card_rec_tbl(l_order_count).document_header_id :=
2940:
2941: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2942: RAISE FND_API.G_EXC_ERROR;
2943: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2944: RAISE FND_API.G_EXC_ERROR;
2945: END IF;
2946:
2947: p_kanban_card_rec_tbl(l_order_count).document_header_id :=
2948: l_x_flow_schedule_rec.wip_entity_id;
2951: end loop;
2952:
2953: EXCEPTION
2954:
2955: WHEN FND_API.G_EXC_ERROR THEN
2956:
2957: Raise FND_API.G_EXC_ERROR;
2958:
2959: WHEN OTHERS THEN
2953: EXCEPTION
2954:
2955: WHEN FND_API.G_EXC_ERROR THEN
2956:
2957: Raise FND_API.G_EXC_ERROR;
2958:
2959: WHEN OTHERS THEN
2960: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2961: THEN
2964: , 'Create_Flow_Schedule'
2965: );
2966: END IF;
2967:
2968: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2969: end Create_Flow_Schedule;
2970:
2971:
2972:
2979: p_kanban_card_rec_tbl IN Out NOCOPY Kanban_Card_Tbl_Type,
2980: p_fixed_lead_time IN NUMBER,
2981: p_var_lead_time IN NUMBER ) IS
2982:
2983: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
2984: l_msg_count NUMBER;
2985: l_msg_data VARCHAR2(240);
2986: msg VARCHAR2(2000);
2987: l_header_id NUMBER := NULL;
3151: program => 'WSMPLBJI',
3152: sub_request => FALSE,
3153: argument1 => l_group_id);
3154: if ( l_reqid <= 0 ) then
3155: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
3156: end if;
3157: end loop;
3158:
3159: EXCEPTION
3157: end loop;
3158:
3159: EXCEPTION
3160:
3161: WHEN FND_API.G_EXC_ERROR THEN
3162:
3163: Raise FND_API.G_EXC_ERROR;
3164:
3165: WHEN OTHERS THEN
3159: EXCEPTION
3160:
3161: WHEN FND_API.G_EXC_ERROR THEN
3162:
3163: Raise FND_API.G_EXC_ERROR;
3164:
3165: WHEN OTHERS THEN
3166: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3167: THEN
3170: , 'Create_lot_based_job'
3171: );
3172: END IF;
3173:
3174: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
3175: end Create_lot_based_job;
3176:
3177:
3178:
3207: FND_MSG_PUB.Add_Exc_Msg
3208: ( G_PKG_NAME
3209: , 'Ist SQL stmt'
3210: );
3211: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3212: end;
3213: IF p_Kanban_Card_Rec_Tbl(1).wip_line_id is NULL then
3214: begin
3215: select nvl(cfm_routing_flag,0),line_id into v_cfm_flag, v_wip_line_id
3225: FND_MSG_PUB.Add_Exc_Msg
3226: ( G_PKG_NAME
3227: , 'wip line id IS NULL'
3228: );
3229: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3230: end;
3231:
3232:
3233: if v_cfm_flag = 1 THEN
3282: when NO_DATA_FOUND then
3283: FND_MESSAGE.SET_NAME('INV','INV_ATTRIBUTE_REQUIRED');
3284: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','INV_WIP_LINE');
3285: FND_MSG_PUB.Add;
3286: Raise FND_API.G_EXC_ERROR;
3287: when others then
3288: FND_MSG_PUB.Add_Exc_Msg
3289: (G_PKG_NAME ,'wip line id IS NULL');
3290: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3286: Raise FND_API.G_EXC_ERROR;
3287: when others then
3288: FND_MSG_PUB.Add_Exc_Msg
3289: (G_PKG_NAME ,'wip line id IS NULL');
3290: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3291: end ;
3292: create_rep_schedule(p_kanban_card_rec_tbl, v_fixed_lead_time,
3293: v_var_lead_time );
3294: x_card_supply_status := INV_Kanban_PVT.G_Supply_Status_InProcess;
3323: FND_MSG_PUB.Add_Exc_Msg
3324: ( G_PKG_NAME
3325: , 'wip line id IS not NULL'
3326: );
3327: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3328: end;
3329: IF v_cfm_flag = 1 THEN
3330:
3331: create_flow_schedule(p_kanban_card_rec_tbl, v_fixed_lead_time,
3371: END IF;
3372:
3373: EXCEPTION
3374:
3375: WHEN FND_API.G_EXC_ERROR THEN
3376:
3377: Raise FND_API.G_EXC_ERROR;
3378:
3379: WHEN OTHERS THEN
3373: EXCEPTION
3374:
3375: WHEN FND_API.G_EXC_ERROR THEN
3376:
3377: Raise FND_API.G_EXC_ERROR;
3378:
3379: WHEN OTHERS THEN
3380: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3381: THEN
3384: , 'Create_Wip_Job'
3385: );
3386: END IF;
3387:
3388: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
3389: end Create_Wip_Job;
3390:
3391: --
3392: --
3678: FND_MESSAGE.SET_NAME('FND','CONC-FDWHOAMI INVALID USERID');
3679: FND_MESSAGE.SET_TOKEN('USERID',to_char(FND_GLOBAL.USER_ID));
3680: End If;
3681: FND_MSG_PUB.Add;
3682: Raise FND_API.G_EXC_ERROR;
3683:
3684: WHEN FND_API.G_EXC_ERROR THEN
3685:
3686: Raise FND_API.G_EXC_ERROR;
3680: End If;
3681: FND_MSG_PUB.Add;
3682: Raise FND_API.G_EXC_ERROR;
3683:
3684: WHEN FND_API.G_EXC_ERROR THEN
3685:
3686: Raise FND_API.G_EXC_ERROR;
3687:
3688: WHEN OTHERS THEN
3682: Raise FND_API.G_EXC_ERROR;
3683:
3684: WHEN FND_API.G_EXC_ERROR THEN
3685:
3686: Raise FND_API.G_EXC_ERROR;
3687:
3688: WHEN OTHERS THEN
3689: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3690: THEN
3693: , 'Create_Replenishment'
3694: );
3695: END IF;
3696:
3697: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
3698:
3699: End Create_Replenishment;
3700:
3701: --
3716: l_Wait_Kanban_Size Number := 0;
3717: l_Card_Count Number := 0;
3718: l_Order_Count Number := 0;
3719: l_Current_replenish_cycle_Id Number;
3720: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3721: l_Kanban_Card_tbl Kanban_Card_Tbl_Type;
3722: p_card_supply_status Number;
3723:
3724:
3880: p_kanban_card_rec.document_detail_id := l_Kanban_card_Tbl(1).document_detail_id;
3881:
3882: EXCEPTION
3883:
3884: WHEN FND_API.G_EXC_ERROR THEN
3885:
3886: x_return_status := FND_API.G_RET_STS_ERROR;
3887:
3888: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3882: EXCEPTION
3883:
3884: WHEN FND_API.G_EXC_ERROR THEN
3885:
3886: x_return_status := FND_API.G_RET_STS_ERROR;
3887:
3888: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3889:
3890: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3884: WHEN FND_API.G_EXC_ERROR THEN
3885:
3886: x_return_status := FND_API.G_RET_STS_ERROR;
3887:
3888: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3889:
3890: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3891:
3892: WHEN OTHERS THEN
3886: x_return_status := FND_API.G_RET_STS_ERROR;
3887:
3888: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3889:
3890: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3891:
3892: WHEN OTHERS THEN
3893:
3894: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3890: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3891:
3892: WHEN OTHERS THEN
3893:
3894: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3895:
3896: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3897: THEN
3898: FND_MSG_PUB.Add_Exc_Msg
3905:
3906: Procedure test IS
3907: i NUMBER := 0;
3908: l_pull_seq_id_tbl INV_kanban_PVT.pull_sequence_id_Tbl_Type;
3909: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
3910: l_operation_tbl INV_Kanban_PVT.operation_tbl_type;/*This new local var has been added to
3911: keep in synch with the call to procedure update_pull_sequence_tbl */
3912: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3913: begin
3920: END LOOP;
3921:
3922: update_pull_sequence_tbl( l_return_status, l_pull_seq_id_tbl, 'Y',l_operation_tbl );
3923:
3924: IF l_return_status IN ( FND_API.G_RET_STS_ERROR,
3925: FND_API.G_RET_STS_UNEXP_ERROR) THEN
3926: RAISE FND_API.G_EXC_ERROR;
3927: END IF;
3928:
3921:
3922: update_pull_sequence_tbl( l_return_status, l_pull_seq_id_tbl, 'Y',l_operation_tbl );
3923:
3924: IF l_return_status IN ( FND_API.G_RET_STS_ERROR,
3925: FND_API.G_RET_STS_UNEXP_ERROR) THEN
3926: RAISE FND_API.G_EXC_ERROR;
3927: END IF;
3928:
3929: EXCEPTION
3922: update_pull_sequence_tbl( l_return_status, l_pull_seq_id_tbl, 'Y',l_operation_tbl );
3923:
3924: IF l_return_status IN ( FND_API.G_RET_STS_ERROR,
3925: FND_API.G_RET_STS_UNEXP_ERROR) THEN
3926: RAISE FND_API.G_EXC_ERROR;
3927: END IF;
3928:
3929: EXCEPTION
3930:
3927: END IF;
3928:
3929: EXCEPTION
3930:
3931: WHEN FND_API.G_EXC_ERROR THEN
3932: Raise FND_API.G_EXC_ERROR;
3933:
3934: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3935: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
3928:
3929: EXCEPTION
3930:
3931: WHEN FND_API.G_EXC_ERROR THEN
3932: Raise FND_API.G_EXC_ERROR;
3933:
3934: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3935: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
3936:
3930:
3931: WHEN FND_API.G_EXC_ERROR THEN
3932: Raise FND_API.G_EXC_ERROR;
3933:
3934: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3935: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
3936:
3937: WHEN OTHERS THEN
3938:
3931: WHEN FND_API.G_EXC_ERROR THEN
3932: Raise FND_API.G_EXC_ERROR;
3933:
3934: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3935: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
3936:
3937: WHEN OTHERS THEN
3938:
3939: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4084: inventory_item_id = l_assembly_item_id AND
4085: organization_id = l_organization_id;
4086: EXCEPTION
4087: when others THEN
4088: RAISE fnd_api.g_exc_unexpected_error;
4089: end;
4090:
4091: --lot controlled
4092: IF l_rep_flag = 'N' AND l_lot_control = 2 THEN
4102: EXCEPTION
4103: when no_data_found THEN
4104: l_cfm_flag := 2;
4105: WHEN OTHERS THEN
4106: RAISE fnd_api.g_exc_unexpected_error;
4107: END;
4108:
4109:
4110:
4200: BEGIN
4201:
4202: p_update := TRUE; -- By Default update the kanban card and kanban card activity
4203:
4204: -- Bug 3987589; Added the AND condition 'AND document_type <> fnd_api.g_miss_num' and the exception block
4205: IF p_supply_status = INV_Kanban_PVT.G_Supply_Status_Full THEN /*Bug 4490269*/
4206:
4207: BEGIN
4208: SELECT document_type
4211: , l_max_rep_id
4212: FROM mtl_kanban_card_activity
4213: WHERE kanban_card_id = p_kanban_card_id
4214: AND document_type IS NOT NULL
4215: AND document_type <> fnd_api.g_miss_num
4216: AND replenishment_cycle_id = (SELECT MAX(replenishment_cycle_id)
4217: FROM mtl_kanban_card_activity
4218: WHERE kanban_card_id = p_kanban_card_id);
4219: EXCEPTION
4418: ' revision:'||l_revision||' from_locator_id:'||l_from_locator_id||' to_location:'||l_to_locator_id ||
4419: 'lot_number:' || l_lot_number || ' transaction_temp_id' || l_txn_header_id ,'INV_KANBAN_PVT');
4420: END IF;
4421:
4422: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS
4423: OR l_mo_line_rec.quantity <> l_detailed_quantity )
4424: THEN
4425: l_failed_lines := l_failed_lines + 1; --count the unallocated lines.
4426: END IF;
4427: END LOOP;
4428: CLOSE mo_lines_cur;
4429:
4430: IF l_failed_lines > 0 THEN
4431: x_return_status := FND_API.G_RET_STS_ERROR;
4432: ELSE
4433: x_return_status := FND_API.G_RET_STS_SUCCESS;
4434: END IF;
4435:
4429:
4430: IF l_failed_lines > 0 THEN
4431: x_return_status := FND_API.G_RET_STS_ERROR;
4432: ELSE
4433: x_return_status := FND_API.G_RET_STS_SUCCESS;
4434: END IF;
4435:
4436: IF (l_debug = 1 ) THEN
4437: inv_pick_wave_pick_confirm_pub.tracelog('In Auto_Allocate_Kanban : return status :'||x_return_status||' msg:'||x_msg_data,'INV_KANBAN_PVT');
4439: EXCEPTION
4440: WHEN OTHERS THEN
4441: IF (l_debug = 1 ) THEN
4442: inv_pick_wave_pick_confirm_pub.tracelog('In Auto_Allocate_Kanban : Exception : When Others','INV_KANBAN_PVT');
4443: x_return_status := FND_API.G_RET_STS_ERROR;
4444: END IF;
4445: END Auto_Allocate_Kanban;
4446:
4447: /* Added below function for bug 7721127 */
4463: RETURN l_preprocessing_lead_time ;
4464: EXCEPTION
4465: WHEN OTHERS THEN
4466: mydebug('In get_preprocessing_lead_time : Exception : When Others'|| sqlerrm);
4467: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
4468: END get_preprocessing_lead_time;
4469:
4470:
4471: END INV_Kanban_PVT;