PACKAGE BODY: APPS.PA_CLIENT_EXTN_AUTOALLOC_PKG

Source

1 PACKAGE BODY PA_CLIENT_EXTN_AUTOALLOC_PKG AS
2 /*  $Header: PAPAALCB.pls 120.2 2005/08/19 16:18:51 ramurthy noship $  */
3 
4   --  	Called from most of the procedures/functions in this package
5 
6 PROCEDURE DUMMY_ALLOCATION
7 			( p_item_type	IN 	VARCHAR2,
8                          p_item_key	IN 	VARCHAR2,
9                          p_actid	IN 	NUMBER,
10                          p_funcmode	IN 	VARCHAR2,
11                          p_result	OUT NOCOPY 	VARCHAR2)
12 IS
13 Begin
14 
15 IF p_funcmode = 'RUN' THEN
16    p_result := 'COMPLETE:PASS';
17 ELSIF ( p_funcmode = 'CANCEL' ) THEN
18        NULL;
19 END IF;
20 
21 
22 EXCEPTION
23   WHEN OTHERS THEN
24       Wf_Core.Context('PA_CLIENT_EXTN_AUTOALLOC_PKG', 'Dummy_Allocation',
25 		       p_item_type, p_item_key);
26 	  raise;
27 
28 End Dummy_Allocation;
29 
30 --------------------------------------------------------------------------------
31 
32 Procedure Dummy_Dist_Cost
33 			( p_item_type	IN 	VARCHAR2,
34                          p_item_key	IN 	VARCHAR2,
35                          p_actid	IN 	NUMBER,
36                          p_funcmode	IN 	VARCHAR2,
37                          p_result	OUT NOCOPY 	VARCHAR2)
38 IS
39 BEGIN
40 
41 IF p_funcmode = 'RUN' THEN
42    p_result := 'COMPLETE:PASS';
43 ELSIF ( p_funcmode = 'CANCEL' ) THEN
44   NULL;
45 END IF;
46 
47 EXCEPTION
48  WHEN OTHERS THEN
49   Wf_Core.Context('PA_CLIENT_EXTN_AUTOALLOC_PKG', 'Dummy_Dist_Cost',
50                    p_item_type, p_item_key);
51   raise;
52 
53 END Dummy_Dist_Cost;
54 
55 --------------------------------------------------------------------------------
56 
57 Procedure Dummy_Summarization
58 			( p_item_type	IN 	VARCHAR2,
59                          p_item_key	IN 	VARCHAR2,
60                          p_actid	IN 	NUMBER,
61                          p_funcmode	IN 	VARCHAR2,
62                          p_result	OUT NOCOPY 	VARCHAR2)
63 IS
64 BEGIN
65 IF p_funcmode = 'RUN' THEN
66    p_result := 'COMPLETE:PASS';
67 ELSIF ( p_funcmode = 'CANCEL' ) THEN
68      NULL;
69 END IF;
70 
71 EXCEPTION
72    WHEN OTHERS THEN
73         Wf_Core.Context('PA_CLIENT_EXTN_AUTOALLOC_PKG', 'Dummy_Summarization',
74         p_item_type, p_item_key);
75         raise;
76 
77 
78 END Dummy_Summarization;
79 
80 --------------------------------------------------------------------------------
81 
82 END PA_CLIENT_EXTN_AUTOALLOC_PKG;