1: PACKAGE BODY wma_cfm AS
2: /* $Header: wmapcfmb.pls 115.16 2003/10/01 21:14:33 rseela ship $ */
3:
4: /**
5: * This procedure is the entry point for work order-less/flow transaction.
1: PACKAGE BODY wma_cfm AS
2: /* $Header: wmapcfmb.pls 115.16 2003/10/01 21:14:33 rseela ship $ */
3:
4: /**
5: * This procedure is the entry point for work order-less/flow transaction.
6: * Parameters:
29: EXCEPTION
30: when others then
31: status := -1;
32: fnd_message.set_name ('WIP', 'GENERIC_ERROR');
33: fnd_message.set_token ('FUNCTION', 'wma_cfm.process');
34: fnd_message.set_token ('ERROR', SQLCODE || ' ' || SQLERRM);
35: errMessage := fnd_message.get;
36: End process;
37:
56: EXCEPTION
57: when others then
58: status := -1;
59: fnd_message.set_name ('WIP', 'GENERIC_ERROR');
60: fnd_message.set_token ('FUNCTION', 'wma_cfm.process');
61: fnd_message.set_token ('ERROR', SQLCODE || ' ' || SQLERRM);
62: errMessage := fnd_message.get;
63: End process;
64:
653: errMsg := fnd_message.get;
654: return false;
655: End put;
656:
657: END wma_cfm;