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,
9 P_err_buf OUT NOCOPY VARCHAR2) IS
10
11 BEGIN
12 /* This is a hook which returns success and can be used to call other
13 procedures depending on client requirements */
14
15 P_ret_code := 0;
16 P_err_buf := '';
17
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;