1 PACKAGE BODY IBY_ASSIGNEXT_PUB AS
2 /*$Header: ibyasgnextb.pls 120.1 2009/06/25 09:20:42 jnallam noship $*/
3
4 --
5 -- Declare global variables
6 --
7 G_PKG_NAME CONSTANT VARCHAR2(30) := 'IBY_ASSIGNEXT_PUB';
8 G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
9 G_CUR_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
10 G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11 G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
12 G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
13 G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
14 G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
15
16 --
17 -- Forward declarations
18 --
19 PROCEDURE print_debuginfo(
20 p_module IN VARCHAR2,
21 p_debug_text IN VARCHAR2,
22 p_debug_level IN VARCHAR2 DEFAULT FND_LOG.LEVEL_STATEMENT
23 );
24
25 /*--------------------------------------------------------------------
26 | NAME:
27 | hookForAssignments
28 |
29 | PURPOSE:
30 | The assignment flow will call this hook with a list of
31 | unassigned documents (documents that do not have account/
32 | profile even after the assignment flow attempted to default
33 | them).
34 |
35 | The customer can implement custom assignment logic here to
36 | assign defaults to the unassigned documents. The assignment
37 | flow will use these custom assignments to update the individual
38 | documents.
39 |
40 | This hook will ship with an empty body from Oracle. The customer
41 | may implement this hook on their environment if they wish.
42 |
43 | PARAMETERS:
44 | IN
45 |
46 | OUT
47 |
48 |
49 | RETURNS:
50 |
51 | NOTES:
52 |
53 *---------------------------------------------------------------------*/
54 PROCEDURE hookForAssignments(
55 x_unassgnDocsTab IN OUT NOCOPY IBY_ASSIGN_PUB.unassignedDocsTabType
56 )
57 IS
58 l_module_name CONSTANT VARCHAR2(200) := G_PKG_NAME || '.hookForAssignments';
59 BEGIN
60
61 IF (G_LEVEL_STATEMENT >= G_CUR_RUNTIME_LEVEL) THEN
62 print_debuginfo(l_module_name, 'ENTER');
63 END IF;
64
65 /*
66 * This hook will ship out-of-the-box with an empty
67 * body.
68 *
69 * The customer can add custom assignment logic this
70 * hook to perform. The implementation and maintainence
71 * of this hook has to be performed on site by the
72 * customer.
73 */
74 NULL;
75
76 IF (G_LEVEL_STATEMENT >= G_CUR_RUNTIME_LEVEL) THEN
77 print_debuginfo(l_module_name, 'EXIT');
78 END IF;
79
80 END hookForAssignments;
81
82 /*--------------------------------------------------------------------
83 | NAME:
84 | print_debuginfo
85 |
86 | PURPOSE:
87 | This procedure prints the debug message to the concurrent manager
88 | log file.
89 |
90 | PARAMETERS:
91 | IN
92 | p_debug_text - The debug message to be printed
93 |
94 | OUT
95 |
96 |
97 | RETURNS:
98 |
99 | NOTES:
100 |
101 *---------------------------------------------------------------------*/
102 PROCEDURE print_debuginfo(
103 p_module IN VARCHAR2,
104 p_debug_text IN VARCHAR2,
105 p_debug_level IN VARCHAR2 DEFAULT FND_LOG.LEVEL_STATEMENT
106 )
107 IS
108 l_default_debug_level VARCHAR2(200) := FND_LOG.LEVEL_STATEMENT;
109 BEGIN
110
111 /*
112 * Set the debug level to the value passed in
113 * (provided this value is not null).
114 */
115 IF (p_debug_level IS NOT NULL) THEN
116 l_default_debug_level := p_debug_level;
117 END IF;
118
119 /*
120 * Write the debug message to the concurrent manager log file.
121 */
122 IF (l_default_debug_level >= G_CUR_RUNTIME_LEVEL) THEN
123 iby_build_utils_pkg.print_debuginfo(p_module, p_debug_text,
124 p_debug_level);
125 END IF;
126
127 END print_debuginfo;
128
129 END IBY_ASSIGNEXT_PUB;
[Home] [Help]