PACKAGE BODY: APPS.GL_AUTO_ALLOC_WF_CUST_PKG

Source

1 PACKAGE BODY  GL_AUTO_ALLOC_WF_CUST_PKG AS
2 /*  $Header: glcwfalb.pls 120.3 2002/11/15 01:28:52 khchang ship $  */
3 
4 Procedure dummy1(p_item_type      IN VARCHAR2,
5                 p_item_key       IN VARCHAR2,
6                 p_actid          IN NUMBER,
7                 p_funcmode        IN VARCHAR2,
8                 p_result         OUT NOCOPY VARCHAR2)
9 Is
10 Begin
11  IF p_funcmode = 'RUN' THEN
12     p_result := 'COMPLETE:PASS';
13  ELSIF ( p_funcmode = 'CANCEL' ) THEN
14     NULL;
15   END IF;
16 
17 EXCEPTION
18   WHEN OTHERS THEN
19     Wf_Core.Context('GL_AUTO_ALLOC_WF_PKG', 'dummy', p_item_type, p_item_key);
20     raise;
21 End dummy1;
22 
23 Procedure dummy2(p_item_type      IN VARCHAR2,
24                 p_item_key       IN VARCHAR2,
25                 p_actid          IN NUMBER,
26                 p_funcmode        IN VARCHAR2,
27                 p_result         OUT NOCOPY VARCHAR2)
28 Is
29 Begin
30  IF p_funcmode = 'RUN' THEN
31    p_result := 'COMPLETE:PASS';
32  ELSIF ( p_funcmode = 'CANCEL' ) THEN
33     NULL;
34   END IF;
35 
36 EXCEPTION
37   WHEN OTHERS THEN
38     Wf_Core.Context('GL_AUTO_ALLOC_WF_PKG', 'dummy1', p_item_type, p_item_key);
39     raise;
40 End dummy2;
41 
42  End GL_AUTO_ALLOC_WF_CUST_PKG;