[Home] [Help]
PACKAGE BODY: APPS.INV_MGD_POSITIONS_CP
Source
1 PACKAGE BODY INV_MGD_POSITIONS_CP AS
2 -- $Header: INVCPOSB.pls 120.1 2005/06/21 06:25:50 appldev ship $
3 --+=======================================================================+
4 --| Copyright (c) 2000 Oracle Corporation |
5 --| Redwood Shores, CA, USA |
6 --| All rights reserved. |
7 --+=======================================================================+
8 --| FILENAME |
9 --| INVCPOSB.pls |
10 --| |
11 --| DESCRIPTION |
12 --| Concurrent programs implementation for Inventory Position View |
13 --| and Export |
14 --| |
15 --| HISTORY |
16 --| 10/12/2000 Paolo Juvara Created |
17 --| 11/21/2002 Vivian Ma PL/SQL Performance: print to log |
18 --| only if debug profile option is |
19 --| enabled |
20 --+=======================================================================+
21
22 --===================
23 -- GLOBAL VARIABLES
24 --===================
25 G_DEBUG VARCHAR2(1) := NVL(fnd_profile.value('AFLOG_ENABLED'), 'N');
26
27
28 --===================
29 -- PROCEDURES AND FUNCTIONS
30 --===================
31
32 --========================================================================
33 -- PROCEDURE : Build PUBLIC
34 -- PARAMETERS: x_errbuf error buffer
35 -- x_retcode 0 success, 1 warning, 2 error
36 -- p_data_set_name data set name
37 -- p_hierarchy_id organization hierarchy
38 -- p_hierarchy_level hierarchy level
39 -- p_item_from item range from
40 -- p_item_to item range to
41 -- p_category_id item category
42 -- p_date_from date range from
43 -- p_date_to date range to
44 -- p_bucket_size bucket size
45 -- COMMENT : Inventory Position Build concurrent program
46 --========================================================================
47 PROCEDURE Build
48 ( x_errbuff OUT NOCOPY VARCHAR2
49 , x_retcode OUT NOCOPY NUMBER
50 , p_data_set_name IN VARCHAR2
51 , p_hierarchy_id IN NUMBER
52 , p_hierarchy_level IN VARCHAR2
53 , p_item_from IN VARCHAR2
54 , p_item_to IN VARCHAR2
55 , p_category_id IN NUMBER
56 , p_date_from IN VARCHAR2
57 , p_date_to IN VARCHAR2
58 , p_bucket_size IN VARCHAR2
59 )
60 IS
61
62 l_return_status VARCHAR2(1);
63 l_msg_count NUMBER;
64 l_msg_data VARCHAR2(4000);
65
66 BEGIN
67
68 IF G_DEBUG = 'Y' THEN
69 INV_MGD_POS_UTIL.Log_Initialize;
70 INV_MGD_POS_UTIL.Log
71 ( INV_MGD_POS_UTIL.G_LOG_PROCEDURE
72 , '> INV_MGD_POSITIONS_CP.Build'
73 );
74 END IF;
75
76 INV_MGD_POSITIONS_PROC.Build
77 ( p_init_msg_list => FND_API.G_TRUE
78 , x_return_status => l_return_status
79 , x_msg_count => l_msg_count
80 , x_msg_data => l_msg_data
81 , p_data_set_name => p_data_set_name
82 , p_hierarchy_id => p_hierarchy_id
83 , p_hierarchy_level => p_hierarchy_level
84 , p_item_from => p_item_from
85 , p_item_to => p_item_to
86 , p_category_id => p_category_id
87 , p_date_from => p_date_from
88 , p_date_to => p_date_to
89 , p_bucket_size => p_bucket_size
90 );
91
92 IF l_return_status = FND_API.G_RET_STS_SUCCESS
93 THEN
94 x_retcode := 0;
95 x_errbuff := NULL;
96 ELSE
97 x_retcode := 2;
98 x_errbuff := SUBSTR(l_msg_data, 1, 255);
99 ROLLBACK;
100 END IF;
101
102 IF G_DEBUG = 'Y' THEN
103 INV_MGD_POS_UTIL.Log
104 ( INV_MGD_POS_UTIL.G_LOG_PROCEDURE
105 , '< INV_MGD_POSITIONS_CP.Build'
106 );
107 END IF;
108
109 EXCEPTION
110
111 WHEN OTHERS THEN
112 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
113 THEN
114 FND_MSG_PUB.Add_Exc_Msg( 'INV_MGD_POSITIONS_CP'
115 , 'Build'
116 );
117 END IF;
118 x_retcode := 2;
119 x_errbuff := SUBSTR
120 ( FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE)
121 , 1, 255
122 );
123 ROLLBACK;
124
125 END Build;
126
127
128 --========================================================================
129 -- PROCEDURE : Purge PUBLIC
130 -- PARAMETERS: x_errbuf error buffer
131 -- x_retcode 0 success, 1 warning, 2 error
132 -- p_purge_all Y to purge all, N otherwise
133 -- p_data_set_name purge specific data set name
134 -- p_created_by purge data set for specific user ID
135 -- p_creation_date purge data set created before date
136 -- COMMENT : Inventory Position Purge concurrent program; p_purge_all takes
137 -- priority over other parameters
138 --========================================================================
139 PROCEDURE Purge
140 ( x_errbuff OUT NOCOPY VARCHAR2
141 , x_retcode OUT NOCOPY NUMBER
142 , p_purge_all IN VARCHAR2
143 , p_data_set_name IN VARCHAR2
144 , p_created_by IN VARCHAR2
145 , p_creation_date IN VARCHAR2
146 )
147 IS
148
149 l_return_status VARCHAR2(1);
150 l_msg_count NUMBER;
151 l_msg_data VARCHAR2(4000);
152
153 BEGIN
154
155 IF G_DEBUG = 'Y' THEN
156 INV_MGD_POS_UTIL.Log_Initialize;
157 INV_MGD_POS_UTIL.Log
158 ( INV_MGD_POS_UTIL.G_LOG_PROCEDURE
159 , '> INV_MGD_POSITIONS_CP.Purge'
160 );
161 END IF;
162
163 INV_MGD_POSITIONS_PROC.Purge
164 ( p_init_msg_list => FND_API.G_TRUE
165 , x_return_status => l_return_status
166 , x_msg_count => l_msg_count
167 , x_msg_data => l_msg_data
168 , p_purge_all => p_purge_all
169 , p_created_by => p_created_by
170 , p_data_set_name => p_data_set_name
171 , p_creation_date => p_creation_date
172 );
173
174 IF l_return_status = FND_API.G_RET_STS_SUCCESS
175 THEN
176 x_retcode := 0;
177 x_errbuff := NULL;
178 ELSE
179 x_retcode := 2;
180 x_errbuff := SUBSTR(l_msg_data, 1, 255);
181 ROLLBACK;
182 END IF;
183
184 IF G_DEBUG = 'Y' THEN
185 INV_MGD_POS_UTIL.Log
186 ( INV_MGD_POS_UTIL.G_LOG_PROCEDURE
187 , '< INV_MGD_POSITIONS_CP.Purge'
188 );
189 END IF;
190
191 EXCEPTION
192
193 WHEN OTHERS THEN
194 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
195 THEN
196 FND_MSG_PUB.Add_Exc_Msg( 'INV_MGD_POSITIONS_CP'
197 , 'Purge'
198 );
199 END IF;
200 x_retcode := 2;
201 x_errbuff := SUBSTR
202 ( FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE)
203 , 1, 255
204 );
205 ROLLBACK;
206
207 END Purge;
208
209
210 END INV_MGD_POSITIONS_CP;