DBA Data[Home] [Help]

PACKAGE BODY: APPS.IEU_UWQM_PUB

Source


1 PACKAGE BODY IEU_UWQM_PUB AS
2 /* $Header: IEUPUMTB.pls 115.17 2003/11/13 22:35:08 ckurian ship $ */
3 
4 -- *******
5 --
6 -- Status_id : 0 - open , 1 - Locked, 2 - WIP , 3 - Closed, 4 - Delete
7 --
8 -- *******
9 
10 PROCEDURE CREATE_UWQM_ITEM
11 ( p_api_version               IN NUMBER,
12   p_init_msg_list             IN VARCHAR2,
13   p_commit                    IN VARCHAR2,
14   p_workitem_obj_code         IN VARCHAR2,
15   p_workitem_pk_id            IN NUMBER,
16   p_work_item_number          IN VARCHAR2,
17   p_title		      IN VARCHAR2,
18   p_party_id    	      IN NUMBER,
19   p_priority_code             IN VARCHAR2,
20   p_due_date		      IN DATE,
21   p_owner_id                  IN NUMBER,
22   p_owner_type     	      IN VARCHAR2,
23   p_assignee_id               IN NUMBER,
24   p_assignee_type             IN VARCHAR2,
25   p_source_object_id          IN NUMBER,
26   p_source_object_type_code   IN VARCHAR2,
27   p_application_id            IN NUMBER,
28   p_ieu_enum_type_uuid        IN VARCHAR2,
29   p_work_status_flag          IN VARCHAR2,
30   p_user_id                   IN NUMBER,
31   p_login_id                  IN NUMBER,
32   x_work_item_id	      OUT NOCOPY NUMBER,
33   x_msg_count                 OUT NOCOPY NUMBER,
34   x_msg_data                  OUT NOCOPY VARCHAR2,
35   x_return_status             OUT NOCOPY VARCHAR2) AS
36 
37   l_api_version        CONSTANT NUMBER        := 1.0;
38   l_api_name           CONSTANT VARCHAR2(30)  := 'CREATE_UWQM_ITEM';
39 
40   l_miss_param_flag    NUMBER(1) := 0;
41   l_token_str          VARCHAR2(4000) := '';
42   l_param_valid_flag   NUMBER(1) := 0;
43 
44   l_workitem_obj_code  VARCHAR2(30);
45   l_object_function    VARCHAR2(30);
46   l_source_object_type_code VARCHAR2(30);
47   l_source_object_id   NUMBER;
48 
49   l_owner_id           NUMBER;
50   l_assignee_id        NUMBER;
51   l_owner_type         VARCHAR2(25);
52   l_assignee_type      VARCHAR2(25);
53 
54   l_owner_type_actual  VARCHAR2(30);
55   l_assignee_type_actual VARCHAR2(30);
56 
57   l_priority_id        NUMBER;
58   l_priority_level     NUMBER;
59   l_status_id          NUMBER := 0;
60   l_title_len          NUMBER := 1990;
61 
62   l_status_update_user_id  NUMBER;
63 
64   l_msg_data          VARCHAR2(4000);
65 
66 BEGIN
67 
68   null;
69 
70 END CREATE_UWQM_ITEM;
71 
72 PROCEDURE UPDATE_UWQM_ITEM
73 ( p_api_version               IN NUMBER,
74   p_init_msg_list             IN VARCHAR2,
75   p_commit                    IN VARCHAR2,
76   p_workitem_obj_code 	      IN VARCHAR2,
77   p_workitem_pk_id            IN NUMBER,
78   p_title		              IN VARCHAR2,
79   p_party_id    	          IN NUMBER,
80   p_priority_code             IN VARCHAR2,
81   p_due_date		          IN DATE,
82   p_owner_id                  IN NUMBER,
83   p_owner_type     	          IN VARCHAR2,
84   p_assignee_id               IN NUMBER,
85   p_assignee_type             IN VARCHAR2,
86   p_source_object_id          IN NUMBER,
87   p_source_object_type_code   IN VARCHAR2,
88   p_application_id            IN NUMBER,
89   p_user_id                   IN NUMBER,
90   p_login_id                  IN NUMBER,
91 --  p_ieu_enum_type_uuid        IN VARCHAR2 DEFAULT fnd_api.g_miss_char,
92   x_msg_count                 OUT NOCOPY NUMBER,
93   x_msg_data                  OUT NOCOPY VARCHAR2,
94   x_return_status             OUT NOCOPY VARCHAR2) AS
95 
96   l_api_version  NUMBER        := 1.0;
97   l_api_name     VARCHAR2(30)  := 'UPDATE_UWQM_ITEM';
98 
99   l_miss_param_flag    NUMBER(1) := 0;
100   l_token_str          VARCHAR2(4000) := '';
101   l_param_valid_flag   NUMBER(1) := 0;
102 
103   l_workitem_obj_code        VARCHAR2(30);
104   l_object_function    VARCHAR2(30);
105   l_owner_id           NUMBER;
106   l_assignee_id        NUMBER;
107   l_owner_type         VARCHAR2(25);
108   l_assignee_type      VARCHAR2(25);
109   l_priority_id        NUMBER;
110   l_priority_level     NUMBER;
111   l_status_id          NUMBER := 0;
112   l_title_len          NUMBER := 1990;
113 
114   l_source_object_type_code VARCHAR2(30);
115   l_source_object_id   NUMBER;
116 
117   l_owner_type_actual  VARCHAR2(30);
118   l_assignee_type_actual VARCHAR2(30);
119 
120   l_msg_data           VARCHAR2(4000);
121 
122 
123 BEGIN
124 
125   null;
126 
127 END UPDATE_UWQM_ITEM;
128 
129 
130 PROCEDURE OPEN_UWQM_ITEM
131 ( p_api_version               IN NUMBER,
132   p_init_msg_list             IN VARCHAR2,
133   p_commit                    IN VARCHAR2,
134   p_workitem_obj_code         IN VARCHAR2,
135   p_workitem_pk_id            IN NUMBER,
136   p_user_id                   IN NUMBER,
137   p_login_id                  IN NUMBER,
138   x_msg_count                OUT NOCOPY NUMBER,
139   x_msg_data                 OUT NOCOPY VARCHAR2,
140   x_return_status            OUT NOCOPY VARCHAR2) AS
141 
142   l_api_version  CONSTANT NUMBER        := 1.0;
143   l_api_name     CONSTANT VARCHAR2(30)  := 'OPEN_UWQM_ITEM';
144 
145   l_miss_param_flag    NUMBER(1) := 0;
146   l_token_str          VARCHAR2(4000) := '';
147   l_param_valid_flag   NUMBER(1) := 0;
148 
149   l_workitem_obj_code        VARCHAR2(30);
150   l_object_function    VARCHAR2(30);
151   l_status_id          NUMBER := 0;
152 
153   l_status_update_user_id VARCHAR2(30);
154 
155 BEGIN
156   null;
157 END OPEN_UWQM_ITEM;
158 
159 
160 PROCEDURE USE_UWQM_ITEM
161 ( p_api_version               IN NUMBER,
162   p_init_msg_list             IN VARCHAR2,
163   p_commit                    IN VARCHAR2,
164   p_workitem_obj_code         IN VARCHAR2,
165   p_workitem_pk_id            IN NUMBER,
166   p_user_id                   IN NUMBER,
167   p_login_id                  IN NUMBER,
168   x_work_item_id             OUT NOCOPY NUMBER,
169   x_work_item_status         OUT NOCOPY VARCHAR2,
170   x_msg_count                OUT NOCOPY NUMBER,
171   x_msg_data                 OUT NOCOPY VARCHAR2,
172   x_return_status            OUT NOCOPY VARCHAR2) AS
173 
174   l_api_version  CONSTANT NUMBER        := 1.0;
175   l_api_name     CONSTANT VARCHAR2(30)  := 'USE_UWQM_ITEM';
176 
177   l_miss_param_flag    NUMBER(1) := 0;
178   l_token_str          VARCHAR2(4000) := '';
179   l_param_valid_flag   NUMBER(1) := 0;
180 
181   l_workitem_obj_code        VARCHAR2(30);
182   l_object_function    VARCHAR2(30);
183   l_status_id          NUMBER := 0;
184 
185   l_resource_name      VARCHAR2(30);
186   l_status_update_user_id     NUMBER;
187 
188 BEGIN
189   null;
190 END USE_UWQM_ITEM;
191 
192 PROCEDURE RELEASE_UWQM_ITEM
193 ( p_api_version               IN NUMBER,
194   p_init_msg_list             IN VARCHAR2,
195   p_commit                    IN VARCHAR2,
196   p_workitem_obj_code 	      IN VARCHAR2,
197   p_workitem_pk_id            IN NUMBER,
198   p_work_item_id              IN NUMBER,
199   p_user_id                   IN NUMBER,
200   p_login_id                  IN NUMBER,
201   x_msg_count                OUT NOCOPY NUMBER,
202   x_msg_data                 OUT NOCOPY VARCHAR2,
203   x_return_status            OUT NOCOPY VARCHAR2) AS
204 
205   l_api_version  CONSTANT NUMBER        := 1.0;
206   l_api_name     CONSTANT VARCHAR2(30)  := 'RELEASE_UWQM_ITEM';
207 
208   l_miss_param_flag    NUMBER(1) := 0;
209   l_token_str          VARCHAR2(4000) := '';
210   l_param_valid_flag   NUMBER(1) := 0;
211 
212   l_work_item_id       NUMBER;
213   l_workitem_obj_code  VARCHAR2(30);
214   l_object_function    VARCHAR2(30);
215   l_status_id          NUMBER := 0;
216 
217   l_old_status_update_user_id NUMBER;
218   l_new_status_update_user_id NUMBER;
219 
220   l_miss_workitem_id_flag   NUMBER(1) := 0;
221   l_miss_workitem_obj_code_flag NUMBER(1) := 0;
222 
223 BEGIN
224 
225   null;
226 END RELEASE_UWQM_ITEM;
227 
228 PROCEDURE CLOSE_UWQM_ITEM
229 ( p_api_version               IN NUMBER,
230   p_init_msg_list             IN VARCHAR2,
231   p_commit                    IN VARCHAR2,
232   p_workitem_obj_code         IN VARCHAR2,
233   p_workitem_pk_id            IN NUMBER,
234   p_user_id                   IN NUMBER,
235   p_login_id                  IN NUMBER,
236   x_msg_count                 OUT NOCOPY NUMBER,
237   x_msg_data                  OUT NOCOPY VARCHAR2,
238   x_return_status             OUT NOCOPY VARCHAR2) AS
239 
240   l_api_version  CONSTANT NUMBER        := 1.0;
241   l_api_name     CONSTANT VARCHAR2(30)  := 'CLOSE_UWQM_ITEM';
242 
243   l_miss_param_flag    NUMBER(1) := 0;
244   l_token_str          VARCHAR2(4000) := '';
245   l_param_valid_flag   NUMBER(1) := 0;
246 
247   l_workitem_obj_code        VARCHAR2(30);
248   l_object_function    VARCHAR2(30);
249   l_status_id          NUMBER := 0;
250   l_status_update_user_id     NUMBER;
251 
252 BEGIN
253 
254   null;
255 
256 END CLOSE_UWQM_ITEM;
257 
258 PROCEDURE DELETE_UWQM_ITEM
259 ( p_api_version               IN NUMBER,
260   p_init_msg_list             IN VARCHAR2,
261   p_commit                    IN VARCHAR2,
262   p_workitem_obj_code         IN VARCHAR2,
263   p_workitem_pk_id            IN NUMBER,
264   p_user_id                   IN NUMBER,
265   p_login_id                  IN NUMBER,
266   x_msg_count                 OUT NOCOPY NUMBER,
267   x_msg_data                  OUT NOCOPY VARCHAR2,
268   x_return_status             OUT NOCOPY VARCHAR2) AS
269 
270   l_api_version  CONSTANT NUMBER        := 1.0;
271   l_api_name     CONSTANT VARCHAR2(30)  := 'DELETE_UWQM_ITEM';
272 
273   l_miss_param_flag    NUMBER(1) := 0;
274   l_token_str          VARCHAR2(4000) := '';
275   l_param_valid_flag   NUMBER(1) := 0;
276 
277   l_workitem_obj_code        VARCHAR2(30);
278   l_object_function    VARCHAR2(30);
279   l_status_id          NUMBER := 0;
280   l_status_update_user_id     NUMBER;
281 
282 BEGIN
283   null;
284 END DELETE_UWQM_ITEM;
285 
286 PROCEDURE RESCHEDULE_UWQM_ITEM
287 ( p_api_version               IN NUMBER,
288   p_init_msg_list             IN VARCHAR2,
289   p_commit                    IN VARCHAR2,
290   p_workitem_obj_code 	      IN VARCHAR2,
291   p_workitem_pk_id            IN NUMBER,
292   p_work_item_id              IN NUMBER,
293   p_reschedule_time           IN DATE,
294   p_user_id                   IN NUMBER,
295   p_login_id                  IN NUMBER,
296   x_msg_count                OUT NOCOPY NUMBER,
297   x_msg_data                 OUT NOCOPY VARCHAR2,
298   x_return_status            OUT NOCOPY VARCHAR2) AS
299 
300   l_api_version  CONSTANT NUMBER        := 1.0;
301   l_api_name     CONSTANT VARCHAR2(30)  := 'RESCHEDULE_UWQM_ITEM';
302 
303   l_miss_param_flag    NUMBER(1) := 0;
304   l_token_str          VARCHAR2(4000) := '';
305   l_param_valid_flag   NUMBER(1) := 0;
306 
307   l_work_item_id       NUMBER;
308   l_workitem_obj_code        VARCHAR2(30);
309   l_object_function    VARCHAR2(30);
310   l_status_id          NUMBER := 0;
311 
312   l_old_status_update_user_id NUMBER;
313   l_new_status_update_user_id NUMBER;
314 
315   l_miss_workitem_id_flag   NUMBER(1) := 0;
316   l_miss_workitem_obj_code_flag NUMBER(1) := 0;
317 
318 BEGIN
319   null;
320 END RESCHEDULE_UWQM_ITEM;
321 
322 
323 PROCEDURE GET_UWQM_ITEM_WORK_STATUS
324 ( p_api_version               IN NUMBER,
325   p_init_msg_list             IN VARCHAR2,
326   p_commit                    IN VARCHAR2,
327   p_workitem_obj_code         IN VARCHAR2,
328   p_workitem_pk_id            IN NUMBER,
329   p_work_item_id              IN NUMBER,
330   x_msg_count                OUT NOCOPY NUMBER,
331   x_msg_data                 OUT NOCOPY VARCHAR2,
332   x_work_item_status         OUT NOCOPY VARCHAR2,
333   x_return_status            OUT NOCOPY VARCHAR2) AS
334 
335   l_api_version  CONSTANT NUMBER        := 1.0;
336   l_api_name     CONSTANT VARCHAR2(30)  := 'GET_UWQM_ITEM_WORK_STATUS';
337 
338   l_miss_param_flag    NUMBER(1) := 0;
339   l_token_str          VARCHAR2(4000) := '';
340   l_param_valid_flag   NUMBER(1) := 0;
341 
342   l_work_item_id       NUMBER;
343   l_workitem_obj_code        VARCHAR2(30);
344   l_object_function    VARCHAR2(30);
345   l_status_id          NUMBER := 0;
346   l_lookup_code        VARCHAR2(30);
347   l_status             VARCHAR2(30);
348 
349   l_miss_workitem_id_flag   NUMBER(1) := 0;
350   l_miss_workitem_obj_code_flag NUMBER(1) := 0;
351 
352 BEGIN
353 
354   null;
355 END GET_UWQM_ITEM_WORK_STATUS;
356 
357 END IEU_UWQM_PUB;