60: exception
61: when RECORDS_LOCKED then
62: ROLLBACK TO WIP_PRE_ALLOC_MATERIAL_START;
63: x_return_status := 'L';
64: fnd_message.set_name('FND', 'FORM_UNABLE_TO_RESERVE_RECORD');
65: x_msg_data := fnd_message.get;
66: when others then
67: ROLLBACK TO WIP_PRE_ALLOC_MATERIAL_START;
68: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
61: when RECORDS_LOCKED then
62: ROLLBACK TO WIP_PRE_ALLOC_MATERIAL_START;
63: x_return_status := 'L';
64: fnd_message.set_name('FND', 'FORM_UNABLE_TO_RESERVE_RECORD');
65: x_msg_data := fnd_message.get;
66: when others then
67: ROLLBACK TO WIP_PRE_ALLOC_MATERIAL_START;
68: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
69: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
65: x_msg_data := fnd_message.get;
66: when others then
67: ROLLBACK TO WIP_PRE_ALLOC_MATERIAL_START;
68: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
69: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
70: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.pre_allocate_material: ' || SQLERRM);
71: x_msg_data := fnd_message.get;
72:
73: end pre_allocate_material;
66: when others then
67: ROLLBACK TO WIP_PRE_ALLOC_MATERIAL_START;
68: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
69: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
70: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.pre_allocate_material: ' || SQLERRM);
71: x_msg_data := fnd_message.get;
72:
73: end pre_allocate_material;
74:
67: ROLLBACK TO WIP_PRE_ALLOC_MATERIAL_START;
68: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
69: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
70: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.pre_allocate_material: ' || SQLERRM);
71: x_msg_data := fnd_message.get;
72:
73: end pre_allocate_material;
74:
75: procedure issue_material(p_wip_entity_id in NUMBER,
214: exception
215: when NO_DATA_FOUND then
216: ROLLBACK TO WIP_ISSUE_MATERIAL_START;
217: x_return_status := FND_API.G_RET_STS_ERROR;
218: fnd_message.set_name('WIP', 'WIP_NO_PUSH_REQUIREMENT');
219: x_msg_data := fnd_message.get;
220: when RECORDS_LOCKED then
221: ROLLBACK TO WIP_ISSUE_MATERIAL_START;
222: x_return_status := 'L';
215: when NO_DATA_FOUND then
216: ROLLBACK TO WIP_ISSUE_MATERIAL_START;
217: x_return_status := FND_API.G_RET_STS_ERROR;
218: fnd_message.set_name('WIP', 'WIP_NO_PUSH_REQUIREMENT');
219: x_msg_data := fnd_message.get;
220: when RECORDS_LOCKED then
221: ROLLBACK TO WIP_ISSUE_MATERIAL_START;
222: x_return_status := 'L';
223: fnd_message.set_name('FND', 'FORM_UNABLE_TO_RESERVE_RECORD');
219: x_msg_data := fnd_message.get;
220: when RECORDS_LOCKED then
221: ROLLBACK TO WIP_ISSUE_MATERIAL_START;
222: x_return_status := 'L';
223: fnd_message.set_name('FND', 'FORM_UNABLE_TO_RESERVE_RECORD');
224: x_msg_data := fnd_message.get;
225: when FND_API.G_EXC_UNEXPECTED_ERROR then
226: ROLLBACK TO WIP_ISSUE_MATERIAL_START;
227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
220: when RECORDS_LOCKED then
221: ROLLBACK TO WIP_ISSUE_MATERIAL_START;
222: x_return_status := 'L';
223: fnd_message.set_name('FND', 'FORM_UNABLE_TO_RESERVE_RECORD');
224: x_msg_data := fnd_message.get;
225: when FND_API.G_EXC_UNEXPECTED_ERROR then
226: ROLLBACK TO WIP_ISSUE_MATERIAL_START;
227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
228: fnd_message.set_name('WIP', 'WIP_PICKING_STATUS_ERROR');
224: x_msg_data := fnd_message.get;
225: when FND_API.G_EXC_UNEXPECTED_ERROR then
226: ROLLBACK TO WIP_ISSUE_MATERIAL_START;
227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
228: fnd_message.set_name('WIP', 'WIP_PICKING_STATUS_ERROR');
229: fnd_message.set_token('STATUS', l_statusCode);
230: x_msg_data := fnd_message.get;
231: when others then
232: ROLLBACK TO WIP_ISSUE_MATERIAL_START;
225: when FND_API.G_EXC_UNEXPECTED_ERROR then
226: ROLLBACK TO WIP_ISSUE_MATERIAL_START;
227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
228: fnd_message.set_name('WIP', 'WIP_PICKING_STATUS_ERROR');
229: fnd_message.set_token('STATUS', l_statusCode);
230: x_msg_data := fnd_message.get;
231: when others then
232: ROLLBACK TO WIP_ISSUE_MATERIAL_START;
233: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
226: ROLLBACK TO WIP_ISSUE_MATERIAL_START;
227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
228: fnd_message.set_name('WIP', 'WIP_PICKING_STATUS_ERROR');
229: fnd_message.set_token('STATUS', l_statusCode);
230: x_msg_data := fnd_message.get;
231: when others then
232: ROLLBACK TO WIP_ISSUE_MATERIAL_START;
233: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
234: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
230: x_msg_data := fnd_message.get;
231: when others then
232: ROLLBACK TO WIP_ISSUE_MATERIAL_START;
233: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
234: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
235: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.issue_material: ' || SQLERRM);
236: x_msg_data := fnd_message.get;
237: end issue_material;
238:
231: when others then
232: ROLLBACK TO WIP_ISSUE_MATERIAL_START;
233: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
234: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
235: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.issue_material: ' || SQLERRM);
236: x_msg_data := fnd_message.get;
237: end issue_material;
238:
239: procedure allocate_material(p_wip_entity_id in NUMBER,
232: ROLLBACK TO WIP_ISSUE_MATERIAL_START;
233: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
234: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
235: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.issue_material: ' || SQLERRM);
236: x_msg_data := fnd_message.get;
237: end issue_material;
238:
239: procedure allocate_material(p_wip_entity_id in NUMBER,
240: p_operation_seq_num in NUMBER,
360: when NO_DATA_FOUND then
361: x_quantity_allocated := 0;
362: when fnd_api.G_EXC_UNEXPECTED_ERROR then
363: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
364: fnd_message.set_name('WIP', 'WIP_PICKING_DEALLOCATE_ERROR');
365: x_msg_data := fnd_message.get;
366: when RECORDS_LOCKED then
367: ROLLBACK TO WIP_ALLOCATE_MATERIAL_START;
368: x_return_status := 'L';
361: x_quantity_allocated := 0;
362: when fnd_api.G_EXC_UNEXPECTED_ERROR then
363: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
364: fnd_message.set_name('WIP', 'WIP_PICKING_DEALLOCATE_ERROR');
365: x_msg_data := fnd_message.get;
366: when RECORDS_LOCKED then
367: ROLLBACK TO WIP_ALLOCATE_MATERIAL_START;
368: x_return_status := 'L';
369: fnd_message.set_name('FND', 'FORM_UNABLE_TO_RESERVE_RECORD');
365: x_msg_data := fnd_message.get;
366: when RECORDS_LOCKED then
367: ROLLBACK TO WIP_ALLOCATE_MATERIAL_START;
368: x_return_status := 'L';
369: fnd_message.set_name('FND', 'FORM_UNABLE_TO_RESERVE_RECORD');
370: x_msg_data := fnd_message.get;
371: when others then
372: ROLLBACK TO WIP_ALLOCATE_MATERIAL_START;
373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
366: when RECORDS_LOCKED then
367: ROLLBACK TO WIP_ALLOCATE_MATERIAL_START;
368: x_return_status := 'L';
369: fnd_message.set_name('FND', 'FORM_UNABLE_TO_RESERVE_RECORD');
370: x_msg_data := fnd_message.get;
371: when others then
372: ROLLBACK TO WIP_ALLOCATE_MATERIAL_START;
373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
374: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
370: x_msg_data := fnd_message.get;
371: when others then
372: ROLLBACK TO WIP_ALLOCATE_MATERIAL_START;
373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
374: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
375: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.allocate_material: ' || SQLERRM);
376: x_msg_data := fnd_message.get;
377: end allocate_material;
378:
371: when others then
372: ROLLBACK TO WIP_ALLOCATE_MATERIAL_START;
373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
374: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
375: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.allocate_material: ' || SQLERRM);
376: x_msg_data := fnd_message.get;
377: end allocate_material;
378:
379: procedure unallocate_material(p_wip_entity_id in NUMBER,
372: ROLLBACK TO WIP_ALLOCATE_MATERIAL_START;
373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
374: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
375: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.allocate_material: ' || SQLERRM);
376: x_msg_data := fnd_message.get;
377: end allocate_material;
378:
379: procedure unallocate_material(p_wip_entity_id in NUMBER,
380: p_operation_seq_num in NUMBER,
724: return (l_dummy = 1);
725:
726: EXCEPTION
727: when others then
728: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
729: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.Is_Component_Pick_Released: ' || SQLERRM);
730: raise fnd_api.g_exc_unexpected_error;
731:
732: End Is_Component_Pick_Released;
725:
726: EXCEPTION
727: when others then
728: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
729: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.Is_Component_Pick_Released: ' || SQLERRM);
730: raise fnd_api.g_exc_unexpected_error;
731:
732: End Is_Component_Pick_Released;
733:
791: End if;
792: Return( l_dummy = 1);
793: EXCEPTION
794: when others then
795: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
796: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.Is_Job_Pick_Released: ' || SQLERRM);
797: raise fnd_api.g_exc_unexpected_error;
798: End Is_Job_Pick_Released;
799:
792: Return( l_dummy = 1);
793: EXCEPTION
794: when others then
795: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
796: fnd_message.set_token('ERROR_TEXT', 'wip_picking_pub.Is_Job_Pick_Released: ' || SQLERRM);
797: raise fnd_api.g_exc_unexpected_error;
798: End Is_Job_Pick_Released;
799:
800: Procedure Update_Requirement_SubinvLoc(p_wip_entity_id number,
838: null;
839: when RECORDS_LOCKED then
840: ROLLBACK TO WIP_UPDATE_REQ_SUBINVLOC_START;
841: x_return_status := 'L';
842: fnd_message.set_name('FND', 'FORM_UNABLE_TO_RESERVE_RECORD');
843: x_msg_data := fnd_message.get;
844: when others then
845: ROLLBACK TO WIP_UPDATE_REQ_SUBINVLOC_START;
846: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
839: when RECORDS_LOCKED then
840: ROLLBACK TO WIP_UPDATE_REQ_SUBINVLOC_START;
841: x_return_status := 'L';
842: fnd_message.set_name('FND', 'FORM_UNABLE_TO_RESERVE_RECORD');
843: x_msg_data := fnd_message.get;
844: when others then
845: ROLLBACK TO WIP_UPDATE_REQ_SUBINVLOC_START;
846: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
847: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
843: x_msg_data := fnd_message.get;
844: when others then
845: ROLLBACK TO WIP_UPDATE_REQ_SUBINVLOC_START;
846: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
847: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
848: fnd_message.set_token('ERROR_TEXT',
849: 'wip_utilities.Update_Requirement_SubinvLoc: ' || SQLERRM);
850: x_msg_data := fnd_message.get;
851: End Update_Requirement_SubinvLoc;
844: when others then
845: ROLLBACK TO WIP_UPDATE_REQ_SUBINVLOC_START;
846: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
847: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
848: fnd_message.set_token('ERROR_TEXT',
849: 'wip_utilities.Update_Requirement_SubinvLoc: ' || SQLERRM);
850: x_msg_data := fnd_message.get;
851: End Update_Requirement_SubinvLoc;
852:
846: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
847: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
848: fnd_message.set_token('ERROR_TEXT',
849: 'wip_utilities.Update_Requirement_SubinvLoc: ' || SQLERRM);
850: x_msg_data := fnd_message.get;
851: End Update_Requirement_SubinvLoc;
852:
853: Procedure Update_Component_BackOrdQty(p_wip_entity_id number,
854: p_repetitive_schedule_id in NUMBER DEFAULT NULL,
917: exception
918: when RECORDS_LOCKED then
919: ROLLBACK TO WIP_COMP_BACKORDQTY_START;
920: x_return_status := 'L';
921: fnd_message.set_name('FND', 'FORM_UNABLE_TO_RESERVE_RECORD');
922: x_msg_data := fnd_message.get;
923: when others then
924: ROLLBACK TO WIP_COMP_BACKORDQTY_START;
925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
918: when RECORDS_LOCKED then
919: ROLLBACK TO WIP_COMP_BACKORDQTY_START;
920: x_return_status := 'L';
921: fnd_message.set_name('FND', 'FORM_UNABLE_TO_RESERVE_RECORD');
922: x_msg_data := fnd_message.get;
923: when others then
924: ROLLBACK TO WIP_COMP_BACKORDQTY_START;
925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
926: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
922: x_msg_data := fnd_message.get;
923: when others then
924: ROLLBACK TO WIP_COMP_BACKORDQTY_START;
925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
926: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
927: fnd_message.set_token('ERROR_TEXT', 'wip_picking_private.Update_Component_BackOrdQty: '
928: || SQLERRM);
929: x_msg_data := fnd_message.get;
930: End Update_Component_BackOrdQty;
923: when others then
924: ROLLBACK TO WIP_COMP_BACKORDQTY_START;
925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
926: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
927: fnd_message.set_token('ERROR_TEXT', 'wip_picking_private.Update_Component_BackOrdQty: '
928: || SQLERRM);
929: x_msg_data := fnd_message.get;
930: End Update_Component_BackOrdQty;
931:
925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
926: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
927: fnd_message.set_token('ERROR_TEXT', 'wip_picking_private.Update_Component_BackOrdQty: '
928: || SQLERRM);
929: x_msg_data := fnd_message.get;
930: End Update_Component_BackOrdQty;
931:
932: Procedure Update_Job_BackOrdQty(p_wip_entity_id number,
933: p_repetitive_schedule_id in NUMBER DEFAULT NULL,
990: exception
991: when RECORDS_LOCKED then
992: ROLLBACK TO WIP_JOB_BACKORDQTY_START;
993: x_return_status := 'L';
994: fnd_message.set_name('FND', 'FORM_UNABLE_TO_RESERVE_RECORD');
995: x_msg_data := fnd_message.get;
996: when others then
997: ROLLBACK TO WIP_JOB_BACKORDQTY_START;
998: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
991: when RECORDS_LOCKED then
992: ROLLBACK TO WIP_JOB_BACKORDQTY_START;
993: x_return_status := 'L';
994: fnd_message.set_name('FND', 'FORM_UNABLE_TO_RESERVE_RECORD');
995: x_msg_data := fnd_message.get;
996: when others then
997: ROLLBACK TO WIP_JOB_BACKORDQTY_START;
998: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
999: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
995: x_msg_data := fnd_message.get;
996: when others then
997: ROLLBACK TO WIP_JOB_BACKORDQTY_START;
998: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
999: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
1000: fnd_message.set_token('ERROR_TEXT', 'wip_picking_private.Update_Job_BackOrdQty: '
1001: || SQLERRM);
1002: x_msg_data := fnd_message.get;
1003: End Update_Job_BackOrdQty;
996: when others then
997: ROLLBACK TO WIP_JOB_BACKORDQTY_START;
998: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
999: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
1000: fnd_message.set_token('ERROR_TEXT', 'wip_picking_private.Update_Job_BackOrdQty: '
1001: || SQLERRM);
1002: x_msg_data := fnd_message.get;
1003: End Update_Job_BackOrdQty;
1004:
998: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
999: fnd_message.set_name('WIP', 'WIP_UNEXPECTED_ERROR');
1000: fnd_message.set_token('ERROR_TEXT', 'wip_picking_private.Update_Job_BackOrdQty: '
1001: || SQLERRM);
1002: x_msg_data := fnd_message.get;
1003: End Update_Job_BackOrdQty;
1004:
1005: end wip_picking_pub;