PACKAGE BODY: APPS.WIP_CLOSE_JOB_HOOK

Source

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;