1: PACKAGE BODY CSTPPWMT AS
2: /* $Header: CSTPWMTB.pls 120.9 2010/02/01 23:12:25 vjavli ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CSTPPWMT';
5: G_LOG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1: PACKAGE BODY CSTPPWMT AS
2: /* $Header: CSTPWMTB.pls 120.9 2010/02/01 23:12:25 vjavli ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CSTPPWMT';
5: G_LOG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6:
7: PROCEDURE charge_wip_material(
8: p_pac_period_id IN NUMBER,
513: EXCEPTION
514:
515: WHEN CST_NO_WIP_COMP_TXN THEN
516: x_err_num := 20007;
517: x_err_code := SUBSTR('CSTPPWMT.charge_wip_material('
518: || to_char(l_stmt_num)
519: || '): '
520: || l_err_msg
521: || '. ',1,240);
523: x_err_msg := SUBSTR(fnd_message.get,1,2000);
524:
525: WHEN CST_FAIL_METHOD_HOOK THEN
526: x_err_num := 20010;
527: x_err_code := SUBSTR('CSTPPWMT.charge_wip_material('
528: || to_char(l_stmt_num)
529: || '): '
530: || l_err_msg
531: || '. ',1,240);
545: END IF;
546: ROLLBACK;
547: x_err_num := SQLCODE;
548: x_err_code := NULL;
549: x_err_msg := SUBSTR('CSTPPWMT.charge_wip_material('
550: || to_char(l_stmt_num)
551: || '): '
552: ||SQLERRM,1,2000);
553:
836: END IF;
837: ROLLBACK;
838: x_err_num := SQLCODE;
839: x_err_code := NULL;
840: x_err_msg := SUBSTR('CSTPPWMT.charge_wip_pwac_cost('
841: || to_char(l_stmt_num)
842: || '): '
843: ||SQLERRM,1,240);
844:
843: ||SQLERRM,1,240);
844:
845: END charge_wip_pwac_cost;
846:
847: END cstppwmt;