eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.CLN_SYNCCTLG_PKG dependencies on CLN_SYNCCTLG_PKG

Line 1: PACKAGE BODY CLN_SYNCCTLG_PKG AS

1: PACKAGE BODY CLN_SYNCCTLG_PKG AS
2: /* $Header: CLNSYCTB.pls 120.0 2005/05/24 16:16:42 appldev noship $ */
3:
4: /*=======================================================================+
5: | FILENAME

Line 9: | PL/SQL package: CLN_SYNCCTLG_PKG

Line 86: cln_debug_pub.Add('ENTERING CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event', 1);

82: -- set debug level
83: l_debug_level := to_number(nvl(fnd_profile.value('CLN_DEBUG_LEVEL'), '5'));
84:
85: if (l_debug_level <= 2) then
86: cln_debug_pub.Add('ENTERING CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event', 1);
87: end if;
88:
89: if (l_debug_level <= 1) then
90: cln_debug_pub.Add('With the following parameters:', 1);

Line 164: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Parameters Initialized';

160: cln_debug_pub.Add('l_publisher_name:' || l_publisher_name, 1);
161: cln_debug_pub.Add('l_publisher_partnridx:' || l_publisher_partnridx, 1);
162: end if;
163:
164: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Parameters Initialized';
165: if (l_debug_level <= 1) then
166: cln_debug_pub.Add('Failure point ' || x_progress, 1);
167: end if;
168:

Line 195: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : XML Setup Check';

191: cln_debug_pub.Add('return_code:' || return_code, 1);
192: cln_debug_pub.Add('errmsg:' || errmsg, 1);
193: end if;
194:
195: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : XML Setup Check';
196: if (l_debug_level <= 1) then
197: cln_debug_pub.Add('Failure point ' || x_progress, 1);
198: end if;
199:

Line 208: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : No Trading Partner found during XML Setup Check';

204: end if;
205:
206: IF NOT(result) then
207: --Trading partner not found. Nothing to do... Return from here
208: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : No Trading Partner found during XML Setup Check';
209: if (l_debug_level <= 1) then
210: cln_debug_pub.Add('Failure point ' || x_progress, 1);
211: end if;
212:

Line 215: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : No Number Limit Specified';

211: end if;
212:
213: ELSIF p_numitems_per_oag IS NULL then -- no number specified, send in one message
214:
215: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : No Number Limit Specified';
216: if (l_debug_level <= 1) then
217: cln_debug_pub.Add('Failure point ' || x_progress, 1);
218: end if;
219:

Line 233: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Created Unique Key';

229: cln_debug_pub.Add('l_date:' || l_date, 1);
230: end if;
231: l_canonical_date := FND_DATE.DATE_TO_CANONICAL(l_date);
232:
233: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Created Unique Key';
234: if (l_debug_level <= 1) then
235: cln_debug_pub.Add('Failure point ' || x_progress, 1);
236: end if;
237:

Line 270: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Initialize Create Event Parameters';

266: wf_event.AddParameterToList(p_name => 'DOCUMENT_CREATION_DATE',
267: p_value => l_canonical_date,
268: p_parameterlist => l_create_cln_parameter_list);
269:
270: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Initialize Create Event Parameters';
271: if (l_debug_level <= 1) then
272: cln_debug_pub.Add('Failure point ' || x_progress, 1);
273: end if;
274:

Line 280: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Create Event Raised';

276: wf_event.raise(p_event_name => l_create_cln_event,
277: p_event_key => l_event_key,
278: p_parameters => l_create_cln_parameter_list);
279:
280: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Create Event Raised';
281: if (l_debug_level <= 1) then
282: cln_debug_pub.Add('Failure point ' || x_progress, 1);
283: end if;
284:

Line 298: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Items Existence Check';

294: items_exist := TRUE;
295: end if;
296: CLOSE c_ItemsToSend;
297:
298: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Items Existence Check';
299: if (l_debug_level <= 1) then
300: cln_debug_pub.Add('Failure point ' || x_progress, 1);
301: end if;
302:

Line 305: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Items Exist in Price List';

301: end if;
302:
303: -- Decision on action depending on XML Setup Check
304: if (items_exist) then
305: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Items Exist in Price List';
306: if (l_debug_level <= 1) then
307: cln_debug_pub.Add('Failure point ' || x_progress, 1);
308: end if;
309:

Line 408: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Send Document Event Parameters Initialized';

404: wf_event.AddParameterToList(p_name => 'PUBLISHER_PARTNRIDX',
405: p_value => l_auth_user_name,
406: p_parameterlist => l_send_syct_parameter_list);
407:
408: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Send Document Event Parameters Initialized';
409: if (l_debug_level <= 1) then
410: cln_debug_pub.Add('Failure point ' || x_progress, 1);
411: end if;
412:

Line 419: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Send Document Event Raised';

415: p_event_key => l_event_key,
416: p_parameters => l_send_syct_parameter_list);
417:
418: -- Reached Here. Successful execution.
419: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Send Document Event Raised';
420: if (l_debug_level <= 1) then
421: cln_debug_pub.Add('Failure point ' || x_progress, 1);
422: end if;
423:

Line 425: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : No Items Exist in Price List';

421: cln_debug_pub.Add('Failure point ' || x_progress, 1);
422: end if;
423:
424: else
425: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : No Items Exist in Price List';
426: if (l_debug_level <= 1) then
427: cln_debug_pub.Add('Failure point ' || x_progress, 1);
428: end if;
429:

Line 486: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Exiting No Number Limit Specified Branch';

482: end if;
483: end if;
484:
485: -- Reached Here. Successful execution.
486: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Exiting No Number Limit Specified Branch';
487: if (l_debug_level <= 1) then
488: cln_debug_pub.Add('Failure point ' || x_progress, 1);
489: end if;
490: else -- number of items specified

Line 491: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Number Limit Specified';

487: if (l_debug_level <= 1) then
488: cln_debug_pub.Add('Failure point ' || x_progress, 1);
489: end if;
490: else -- number of items specified
491: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Number Limit Specified';
492: if (l_debug_level <= 1) then
493: cln_debug_pub.Add('Failure point ' || x_progress, 1);
494: end if;
495:

Line 526: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : First Item Range' || l_subset_from;

522: items_exist := TRUE;
523: end if;
524: end if;
525:
526: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : First Item Range' || l_subset_from;
527: if (l_debug_level <= 1) then
528: cln_debug_pub.Add('Failure point ' || x_progress, 1);
529: end if;
530:

Line 546: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Last Item Range' || l_subset_to;

542: EXIT WHEN c_ItemsToSend%NOTFOUND; -- if we reached the end, then just send out what's left
543: counter := counter + 1;
544: end loop;
545:
546: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Last Item Range' || l_subset_to;
547: if (l_debug_level <= 1) then
548: cln_debug_pub.Add('Failure point ' || x_progress, 1);
549: end if;
550:

Line 564: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Unique key created';

560: cln_debug_pub.Add('l_date:' || l_date, 1);
561: end if;
562: l_canonical_date := FND_DATE.DATE_TO_CANONICAL(l_date);
563:
564: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Unique key created';
565: if (l_debug_level <= 1) then
566: cln_debug_pub.Add('Failure point ' || x_progress, 1);
567: end if;
568:

Line 603: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Create Event Parameters Setup';

599: wf_event.AddParameterToList(p_name => 'DOCUMENT_CREATION_DATE',
600: p_value => l_canonical_date,
601: p_parameterlist => l_create_cln_parameter_list);
602:
603: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Create Event Parameters Setup';
604: if (l_debug_level <= 1) then
605: cln_debug_pub.Add('Failure point ' || x_progress, 1);
606: end if;
607:

Line 613: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Create Event Raised';

609: wf_event.raise(p_event_name => l_create_cln_event,
610: p_event_key => l_event_key,
611: p_parameters => l_create_cln_parameter_list);
612:
613: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Create Event Raised';
614: if (l_debug_level <= 1) then
615: cln_debug_pub.Add('Failure point ' || x_progress, 1);
616: end if;
617:

Line 716: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Initialize Send Document Parameters';

712: wf_event.AddParameterToList(p_name => 'PUBLISHER_PARTNRIDX',
713: p_value => l_auth_user_name,
714: p_parameterlist => l_send_syct_parameter_list);
715:
716: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Initialize Send Document Parameters';
717: if (l_debug_level <= 1) then
718: cln_debug_pub.Add('Failure point ' || x_progress, 1);
719: end if;
720:

Line 729: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Send Document Event Raised';

725:
726: -- set flag to say that at least one message was previously sent
727: msgs_sent_flag := TRUE;
728:
729: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Send Document Event Raised';
730: if (l_debug_level <= 1) then
731: cln_debug_pub.Add('Failure point ' || x_progress, 1);
732: end if;
733:

Line 743: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Price List contains no items';

739: CLOSE c_ItemsToSend;
740:
741: if NOT(msgs_sent_flag) then
742:
743: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Price List contains no items';
744: if (l_debug_level <= 1) then
745: cln_debug_pub.Add('Failure point ' || x_progress, 1);
746: end if;
747:

Line 787: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Initialized update event parameters';

783: wf_event.AddParameterToList(p_name => 'DOCUMENT_CREATION_DATE',
784: p_value => l_canonical_date,
785: p_parameterlist => l_update_cln_parameter_list);
786:
787: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Initialized update event parameters';
788: if (l_debug_level <= 1) then
789: cln_debug_pub.Add('Failure point ' || x_progress, 1);
790: end if;
791:

Line 797: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Update Event Raised';

793: wf_event.raise(p_event_name => l_update_cln_event,
794: p_event_key => l_event_key,
795: p_parameters => l_update_cln_parameter_list);
796:
797: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Update Event Raised';
798: if (l_debug_level <= 1) then
799: cln_debug_pub.Add('Failure point ' || x_progress, 1);
800: end if;
801: end if;

Line 804: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Finished Number Limit loop';

800: end if;
801: end if;
802:
803: -- Reached Here. Successful execution.
804: x_progress := 'CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event : Finished Number Limit loop';
805: if (l_debug_level <= 1) then
806: cln_debug_pub.Add('Failure point ' || x_progress, 1);
807: end if;
808: end if;

Line 812: cln_debug_pub.Add('EXITING CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event Successfully', 1);

808: end if;
809:
810: -- Reached Here. Successful execution.
811: if (l_debug_level <= 2) then
812: cln_debug_pub.Add('EXITING CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event Successfully', 1);
813: end if;
814: EXCEPTION
815: WHEN OTHERS THEN
816: l_error_code := SQLCODE;

Line 822: x_progress := 'EXITING CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event in Error ';

818: if (l_debug_level <= 5) then
819: cln_debug_pub.Add('Exception ' || ':' || l_error_code || ':' || l_error_msg, 1);
820: end if;
821:
822: x_progress := 'EXITING CLN_SYNCCTLG_PKG.Syncctlg_Raise_Event in Error ';
823: if (l_debug_level <= 2) then
824: cln_debug_pub.Add('Failure point ' || x_progress, 1);
825: end if;
826: END Syncctlg_Raise_Event;

Line 829: END CLN_SYNCCTLG_PKG;

825: end if;
826: END Syncctlg_Raise_Event;
827:
828:
829: END CLN_SYNCCTLG_PKG;