128: exception
129:
130: when others then
131: p_err_num := 0;
132: fnd_message.set_name('WIP', 'WIP_ERROR_POST_MERGE');
133: fnd_message.set_token('ENTITY1',
134: to_char(p_interface_id) );
135: p_err_mesg := fnd_message.get ;
136: return 0;
129:
130: when others then
131: p_err_num := 0;
132: fnd_message.set_name('WIP', 'WIP_ERROR_POST_MERGE');
133: fnd_message.set_token('ENTITY1',
134: to_char(p_interface_id) );
135: p_err_mesg := fnd_message.get ;
136: return 0;
137:
131: p_err_num := 0;
132: fnd_message.set_name('WIP', 'WIP_ERROR_POST_MERGE');
133: fnd_message.set_token('ENTITY1',
134: to_char(p_interface_id) );
135: p_err_mesg := fnd_message.get ;
136: return 0;
137:
138: end Post_SubMerge ;
139:
323: CLOSE BackFlush_Cursor ;
324:
325: else
326: CLOSE BackFlush_Cursor ;
327: fnd_message.set_name('WIP', 'WIP_ERROR_MERGE_REPLACE');
328: fnd_message.set_token('ENTITY1',
329: to_char(Substitute_Record.operation_seq_num));
330: Raise Replacement_Exception ;
331:
324:
325: else
326: CLOSE BackFlush_Cursor ;
327: fnd_message.set_name('WIP', 'WIP_ERROR_MERGE_REPLACE');
328: fnd_message.set_token('ENTITY1',
329: to_char(Substitute_Record.operation_seq_num));
330: Raise Replacement_Exception ;
331:
332: end if;
372:
373: CLOSE BackFlush_Cursor ;
374:
375: if(Delete_Children(Txn_Interface_Id)=0) then
376: fnd_message.set_name('WIP', 'WIP_ERROR_MERGE_DELETE');
377: fnd_message.set_token('ENTITY2',
378: to_char(Substitute_Record.operation_seq_num));
379: Raise Deletion_Exception;
380: end if;
373: CLOSE BackFlush_Cursor ;
374:
375: if(Delete_Children(Txn_Interface_Id)=0) then
376: fnd_message.set_name('WIP', 'WIP_ERROR_MERGE_DELETE');
377: fnd_message.set_token('ENTITY2',
378: to_char(Substitute_Record.operation_seq_num));
379: Raise Deletion_Exception;
380: end if;
381:
380: end if;
381:
382: else
383: CLOSE BackFlush_Cursor ;
384: fnd_message.set_name('WIP', 'WIP_ERROR_MERGE_DELETE');
385: fnd_message.set_token('ENTITY2',
386: to_char(Substitute_Record.operation_seq_num));
387: Raise Deletion_Exception ;
388:
381:
382: else
383: CLOSE BackFlush_Cursor ;
384: fnd_message.set_name('WIP', 'WIP_ERROR_MERGE_DELETE');
385: fnd_message.set_token('ENTITY2',
386: to_char(Substitute_Record.operation_seq_num));
387: Raise Deletion_Exception ;
388:
389: end if ;
470:
471: else
472:
473: CLOSE BackFlush_Cursor ;
474: fnd_message.set_name('WIP', 'WIP_ERROR_MERGE_LOT_SERIAL');
475: fnd_message.set_token('ENTITY1',
476: to_char(Substitute_Record.operation_seq_num));
477: Raise Lot_Serial_Exception ;
478: end if;
471: else
472:
473: CLOSE BackFlush_Cursor ;
474: fnd_message.set_name('WIP', 'WIP_ERROR_MERGE_LOT_SERIAL');
475: fnd_message.set_token('ENTITY1',
476: to_char(Substitute_Record.operation_seq_num));
477: Raise Lot_Serial_Exception ;
478: end if;
479:
478: end if;
479:
480: else
481:
482: fnd_message.set_name('WIP', 'WIP_ERROR_MERGE_LOT_UOM');
483: fnd_message.set_token('ENTITY1',
484: to_char(Substitute_Record.inventory_item_id));
485: fnd_message.set_token('ENTITY2',
486: Substitute_Record.Transaction_uom);
479:
480: else
481:
482: fnd_message.set_name('WIP', 'WIP_ERROR_MERGE_LOT_UOM');
483: fnd_message.set_token('ENTITY1',
484: to_char(Substitute_Record.inventory_item_id));
485: fnd_message.set_token('ENTITY2',
486: Substitute_Record.Transaction_uom);
487: fnd_message.set_token('ENTITY3',
481:
482: fnd_message.set_name('WIP', 'WIP_ERROR_MERGE_LOT_UOM');
483: fnd_message.set_token('ENTITY1',
484: to_char(Substitute_Record.inventory_item_id));
485: fnd_message.set_token('ENTITY2',
486: Substitute_Record.Transaction_uom);
487: fnd_message.set_token('ENTITY3',
488: x_pri_uom);
489: Raise Lot_Serial_Exception ;
483: fnd_message.set_token('ENTITY1',
484: to_char(Substitute_Record.inventory_item_id));
485: fnd_message.set_token('ENTITY2',
486: Substitute_Record.Transaction_uom);
487: fnd_message.set_token('ENTITY3',
488: x_pri_uom);
489: Raise Lot_Serial_Exception ;
490:
491: end if ;
507:
508: EXCEPTION
509:
510: When Deletion_Exception then
511: err_mesg := fnd_message.get ;
512: return 0;
513:
514: When Replacement_Exception then
515: err_mesg := fnd_message.get ;
511: err_mesg := fnd_message.get ;
512: return 0;
513:
514: When Replacement_Exception then
515: err_mesg := fnd_message.get ;
516: return 0;
517:
518: When Lot_Serial_Exception then
519: err_mesg := fnd_message.get ;
515: err_mesg := fnd_message.get ;
516: return 0;
517:
518: When Lot_Serial_Exception then
519: err_mesg := fnd_message.get ;
520: return 0;
521:
522: When NO_DATA_FOUND then
523: -- This is not an error