DBA Data[Home] [Help]

APPS.CLN_SHOWSHIP_PKG dependencies on CLN_SHOWSHIP_PKG

Line 1: PACKAGE BODY CLN_SHOWSHIP_PKG AS

1: PACKAGE BODY CLN_SHOWSHIP_PKG AS
2: /* $Header: CLNSHSPB.pls 115.13 2004/04/22 21:12:58 cshih noship $ */
3: /*=======================================================================+
4: | FILENAME
5: | CLNSHSPB.sql

Line 8: | PL/SQL package: CLN_SHOWSHIP_PKG

4: | FILENAME
5: | CLNSHSPB.sql
6: |
7: | DESCRIPTION
8: | PL/SQL package: CLN_SHOWSHIP_PKG
9: |
10: | NOTES
11: | Created 1/10/03 chiung-fu.shih
12: *=====================================================================*/

Line 174: x_progress := 'CLN_SHOWSHIP_PKG.Showship_Raise_Event : 01';

170: l_create_cln_event := 'oracle.apps.cln.ch.collaboration.create';
171: l_send_shsp_parameter_list := wf_parameter_list_t();
172: l_create_cln_parameter_list := wf_parameter_list_t();
173:
174: x_progress := 'CLN_SHOWSHIP_PKG.Showship_Raise_Event : 01';
175: if (l_debug_level <= 1) then
176: cln_debug_pub.Add('Failure point ' || x_progress, 1);
177: end if;
178:

Line 188: x_progress := 'CLN_SHOWSHIP_PKG.Showship_Raise_Event : 02';

184: END LOOP;
185:
186: cnt := c_XML_Setup%ROWCOUNT;
187:
188: x_progress := 'CLN_SHOWSHIP_PKG.Showship_Raise_Event : 02';
189: if (l_debug_level <= 1) then
190: cln_debug_pub.Add('Failure point ' || x_progress, 1);
191: end if;
192:

Line 205: x_progress := 'CLN_SHOWSHIP_PKG.Showship_Raise_Event : 03';

201: resultout => result,
202: retcode => return_code,
203: errmsg => errmsg);
204:
205: x_progress := 'CLN_SHOWSHIP_PKG.Showship_Raise_Event : 03';
206: if (l_debug_level <= 1) then
207: cln_debug_pub.Add('Failure point ' || x_progress, 1);
208: end if;
209: else

Line 213: x_progress := 'CLN_SHOWSHIP_PKG.Showship_Raise_Event : 04';

209: else
210: -- returned more than one record
211: result := FALSE;
212:
213: x_progress := 'CLN_SHOWSHIP_PKG.Showship_Raise_Event : 04';
214: if (l_debug_level <= 1) then
215: cln_debug_pub.Add('Failure point ' || x_progress, 1);
216: end if;
217: end if;

Line 227: x_progress := 'CLN_SHOWSHIP_PKG.Showship_Raise_Event : 05';

223: where wnd.delivery_id = wda.delivery_id
224: and wda.delivery_id = p_delivery_id
225: and wnd.status_code not in ('SR','SC','OP');
226:
227: x_progress := 'CLN_SHOWSHIP_PKG.Showship_Raise_Event : 05';
228: if (l_debug_level <= 1) then
229: cln_debug_pub.Add('Failure point ' || x_progress, 1);
230: end if;
231:

Line 235: x_progress := 'CLN_SHOWSHIP_PKG.Showship_Raise_Event : 06';

231:
232: -- Decision on action depending on XML Setup Check and Validations
233: if (cnt = 0) or NOT(result) then
234:
235: x_progress := 'CLN_SHOWSHIP_PKG.Showship_Raise_Event : 06';
236: if (l_debug_level <= 1) then
237: cln_debug_pub.Add('Failure point ' || x_progress, 1);
238: end if;
239:

Line 242: x_progress := 'CLN_SHOWSHIP_PKG.Showship_Raise_Event : 07';

238: end if;
239:
240: else
241:
242: x_progress := 'CLN_SHOWSHIP_PKG.Showship_Raise_Event : 07';
243: if (l_debug_level <= 1) then
244: cln_debug_pub.Add('Failure point ' || x_progress, 1);
245: end if;
246:

Line 254: x_progress := 'CLN_SHOWSHIP_PKG.Showship_Raise_Event : 08';

250:
251: SELECT sysdate into l_date from dual;
252: l_canonical_date := FND_DATE.DATE_TO_CANONICAL(l_date);
253:
254: x_progress := 'CLN_SHOWSHIP_PKG.Showship_Raise_Event : 08';
255: if (l_debug_level <= 1) then
256: cln_debug_pub.Add('Failure point ' || x_progress, 1);
257: end if;
258:

Line 267: x_progress := 'CLN_SHOWSHIP_PKG.Showship_Raise_Event : 09';

263: x_time_stamp_date => l_time_stamp_date_old,
264: x_g_time_stamp_sequence_number => l_time_stamp_seq_new,
265: x_g_time_stamp_date => l_time_stamp_date_new);
266:
267: x_progress := 'CLN_SHOWSHIP_PKG.Showship_Raise_Event : 09';
268: if (l_debug_level <= 1) then
269: cln_debug_pub.Add('Failure point ' || x_progress, 1);
270: end if;
271:

Line 304: x_progress := 'CLN_SHOWSHIP_PKG.Showship_Raise_Event : 10';

300: wf_event.AddParameterToList(p_name => 'DOCUMENT_CREATION_DATE',
301: p_value => l_canonical_date,
302: p_parameterlist => l_create_cln_parameter_list);
303:
304: x_progress := 'CLN_SHOWSHIP_PKG.Showship_Raise_Event : 10';
305: if (l_debug_level <= 1) then
306: cln_debug_pub.Add('Failure point ' || x_progress, 1);
307: end if;
308:

Line 314: x_progress := 'CLN_SHOWSHIP_PKG.Showship_Raise_Event : 11';

310: wf_event.raise(p_event_name => l_create_cln_event,
311: p_event_key => l_event_key,
312: p_parameters => l_create_cln_parameter_list);
313:
314: x_progress := 'CLN_SHOWSHIP_PKG.Showship_Raise_Event : 11';
315: if (l_debug_level <= 1) then
316: cln_debug_pub.Add('Failure point ' || x_progress, 1);
317: end if;
318:

Line 384: x_progress := 'CLN_SHOWSHIP_PKG.Showship_Raise_Event : 12';

380: p_event_key => l_event_key,
381: p_parameters => l_send_shsp_parameter_list);
382:
383: -- Reached Here. Successful execution.
384: x_progress := 'CLN_SHOWSHIP_PKG.Showship_Raise_Event : 12';
385: if (l_debug_level <= 1) then
386: cln_debug_pub.Add('Failure point ' || x_progress, 1);
387: end if;
388: end if;

Line 397: x_progress := 'CLN_SHOWSHIP_PKG.Showship_Raise_Event : 13';

393: if (l_debug_level <= 1) then
394: cln_debug_pub.Add('Exception ' || ':' || l_error_code || ':' || l_error_msg, 1);
395: end if;
396:
397: x_progress := 'CLN_SHOWSHIP_PKG.Showship_Raise_Event : 13';
398: if (l_debug_level <= 1) then
399: cln_debug_pub.Add('Failure point ' || x_progress, 1);
400: end if;
401: END Showship_Raise_Event;

Line 403: END CLN_SHOWSHIP_PKG;

399: cln_debug_pub.Add('Failure point ' || x_progress, 1);
400: end if;
401: END Showship_Raise_Event;
402:
403: END CLN_SHOWSHIP_PKG;