1: PACKAGE BODY WIP_CLOSE_JOB_HOOK AS
2: /* $Header: wipcljhb.pls 115.7 2002/11/28 19:25:29 rmahidha ship $ */
3:
4: PROCEDURE WIP_CLOSE_JOB_HOOK_PRC
5: (P_group_id IN NUMBER,
1: PACKAGE BODY WIP_CLOSE_JOB_HOOK AS
2: /* $Header: wipcljhb.pls 115.7 2002/11/28 19:25:29 rmahidha ship $ */
3:
4: PROCEDURE WIP_CLOSE_JOB_HOOK_PRC
5: (P_group_id IN NUMBER,
6: P_org_id IN NUMBER,
7: P_acct_per_id IN NUMBER,
8: P_ret_code OUT NOCOPY NUMBER,
18: EXCEPTION
19: WHEN OTHERS THEN
20: p_ret_code := SQLCODE;
21: p_err_buf := 'wipclhjb : ' || SUBSTR(SQLERRM, 1, 240);
22: END WIP_CLOSE_JOB_HOOK_PRC;
23:
24:
25: END WIP_CLOSE_JOB_HOOK;
21: p_err_buf := 'wipclhjb : ' || SUBSTR(SQLERRM, 1, 240);
22: END WIP_CLOSE_JOB_HOOK_PRC;
23:
24:
25: END WIP_CLOSE_JOB_HOOK;