1: PACKAGE BODY XNP_XML_UTILS AS
2: /* $Header: XNPXMLPB.pls 120.3 2006/10/11 14:33:01 dputhiye ship $ */
3:
4: /*11 OCT 2006 DPUTHIYE BUG #:5591258
5: Description: R12 Performance fix. Replacing all calls to fnd_global.local_chr in fn CONVERT()
6: These will be initialized in the package init block.
7: */
8: g_local_chr_38 VARCHAR2(10);
9: g_local_chr_127 VARCHAR2(10);
383: l_int NUMBER := 0;
384:
385: BEGIN
386: --11 OCT 2006 DPUTHIYE BUG #:5591258
387: --Description: R12 Performance fix. Replacing all calls to fnd_global.local_chr in this function
388: --by pre-initiated package constants. These constants are initialized in the package init block.
389:
390: l_value := p_value;
391:
388: --by pre-initiated package constants. These constants are initialized in the package init block.
389:
390: l_value := p_value;
391:
392: --20 Jun 2005 DPUTHIYE R12 GSCC mandate: File.Sql.10 - Do not use CHR(), instead use fnd_global.local_chr()
393: /* l_value := replace(l_value,'&',chr(38)||'amp;');
394: l_value := replace(l_value,'<',chr(38)||'lt;');
395: l_value := replace(l_value,'>',chr(38)||'gt;');
396: l_value := replace(l_value,'''',chr(38)||'#39;');
395: l_value := replace(l_value,'>',chr(38)||'gt;');
396: l_value := replace(l_value,'''',chr(38)||'#39;');
397: l_value := replace(l_value,'"',chr(38)||'#34;');
398: --11 OCT 2006 DPUTHIYE BUG #:5591258
399: l_value := replace(l_value,'&',fnd_global.local_chr(38)||'amp;');
400: l_value := replace(l_value,'<',fnd_global.local_chr(38)||'lt;');
401: l_value := replace(l_value,'>',fnd_global.local_chr(38)||'gt;');
402: l_value := replace(l_value,'''',fnd_global.local_chr(38)||'#39;');
403: l_value := replace(l_value,'"',fnd_global.local_chr(38)||'#34;');
396: l_value := replace(l_value,'''',chr(38)||'#39;');
397: l_value := replace(l_value,'"',chr(38)||'#34;');
398: --11 OCT 2006 DPUTHIYE BUG #:5591258
399: l_value := replace(l_value,'&',fnd_global.local_chr(38)||'amp;');
400: l_value := replace(l_value,'<',fnd_global.local_chr(38)||'lt;');
401: l_value := replace(l_value,'>',fnd_global.local_chr(38)||'gt;');
402: l_value := replace(l_value,'''',fnd_global.local_chr(38)||'#39;');
403: l_value := replace(l_value,'"',fnd_global.local_chr(38)||'#34;');
404: */
397: l_value := replace(l_value,'"',chr(38)||'#34;');
398: --11 OCT 2006 DPUTHIYE BUG #:5591258
399: l_value := replace(l_value,'&',fnd_global.local_chr(38)||'amp;');
400: l_value := replace(l_value,'<',fnd_global.local_chr(38)||'lt;');
401: l_value := replace(l_value,'>',fnd_global.local_chr(38)||'gt;');
402: l_value := replace(l_value,'''',fnd_global.local_chr(38)||'#39;');
403: l_value := replace(l_value,'"',fnd_global.local_chr(38)||'#34;');
404: */
405:
398: --11 OCT 2006 DPUTHIYE BUG #:5591258
399: l_value := replace(l_value,'&',fnd_global.local_chr(38)||'amp;');
400: l_value := replace(l_value,'<',fnd_global.local_chr(38)||'lt;');
401: l_value := replace(l_value,'>',fnd_global.local_chr(38)||'gt;');
402: l_value := replace(l_value,'''',fnd_global.local_chr(38)||'#39;');
403: l_value := replace(l_value,'"',fnd_global.local_chr(38)||'#34;');
404: */
405:
406: l_value := replace(l_value,'&', g_local_chr_38 ||'amp;');
399: l_value := replace(l_value,'&',fnd_global.local_chr(38)||'amp;');
400: l_value := replace(l_value,'<',fnd_global.local_chr(38)||'lt;');
401: l_value := replace(l_value,'>',fnd_global.local_chr(38)||'gt;');
402: l_value := replace(l_value,'''',fnd_global.local_chr(38)||'#39;');
403: l_value := replace(l_value,'"',fnd_global.local_chr(38)||'#34;');
404: */
405:
406: l_value := replace(l_value,'&', g_local_chr_38 ||'amp;');
407: l_value := replace(l_value,'<', g_local_chr_38 ||'lt;');
409: l_value := replace(l_value,'''', g_local_chr_38 ||'#39;');
410: l_value := replace(l_value,'"', g_local_chr_38 ||'#34;');
411:
412: WHILE(TRUE) LOOP
413: --20 Jun 2005 DPUTHIYE R12 GSCC mandate: File.Sql.10 - Do not use CHR(), instead use fnd_global.local_chr()
414: --l_value := replace(l_value,chr(l_int),''||l_int||';');
415: --11 OCT 2006 DPUTHIYE BUG #:5591258
416: --l_value := replace(l_value,fnd_global.local_chr(l_int),''||l_int||';');
417:
412: WHILE(TRUE) LOOP
413: --20 Jun 2005 DPUTHIYE R12 GSCC mandate: File.Sql.10 - Do not use CHR(), instead use fnd_global.local_chr()
414: --l_value := replace(l_value,chr(l_int),''||l_int||';');
415: --11 OCT 2006 DPUTHIYE BUG #:5591258
416: --l_value := replace(l_value,fnd_global.local_chr(l_int),''||l_int||';');
417:
418: l_value := replace(l_value, g_local_chrs_0_to_31(l_int),''||l_int||';');
419: l_int := l_int + 1;
420:
423: END IF;
424:
425: END LOOP;
426:
427: --20 Jun 2005 DPUTHIYE R12 GSCC mandate: File.Sql.10 - Do not use CHR(), instead use fnd_global.local_chr()
428: --l_value := replace(l_value,chr(127),''||127||';');
429: --11 OCT 2006 DPUTHIYE BUG #:5591258
430: --l_value := replace(l_value,fnd_global.local_chr(127),''||127||';');
431:
426:
427: --20 Jun 2005 DPUTHIYE R12 GSCC mandate: File.Sql.10 - Do not use CHR(), instead use fnd_global.local_chr()
428: --l_value := replace(l_value,chr(127),''||127||';');
429: --11 OCT 2006 DPUTHIYE BUG #:5591258
430: --l_value := replace(l_value,fnd_global.local_chr(127),''||127||';');
431:
432: l_value := replace(l_value, g_local_chr_127, ''||127||';');
433:
434: RETURN l_value;
437: -------------------------------
438: -- Package initialization code
439: ------------------------------
440: --11 OCT 2006 DPUTHIYE BUG #:5591258
441: --Description: R12 Performance fix. Replacing all calls to fnd_global.local_chr in fn CONVERT
442: --by pre-initiated package constants. These constants are initialized in this block.
443: BEGIN
444:
445: DECLARE
457:
458: --11 OCT 2006 DPUTHIYE BUG #:5591258
459: --Initiailize the local characters used in Convert()
460:
461: g_local_chr_38 := fnd_global.local_chr(38);
462: g_local_chr_127 := fnd_global.local_chr(127);
463:
464: FOR l_int IN 0..31 LOOP
465: g_local_chrs_0_to_31(l_int) := fnd_global.local_chr(l_int);
458: --11 OCT 2006 DPUTHIYE BUG #:5591258
459: --Initiailize the local characters used in Convert()
460:
461: g_local_chr_38 := fnd_global.local_chr(38);
462: g_local_chr_127 := fnd_global.local_chr(127);
463:
464: FOR l_int IN 0..31 LOOP
465: g_local_chrs_0_to_31(l_int) := fnd_global.local_chr(l_int);
466: END LOOP;
461: g_local_chr_38 := fnd_global.local_chr(38);
462: g_local_chr_127 := fnd_global.local_chr(127);
463:
464: FOR l_int IN 0..31 LOOP
465: g_local_chrs_0_to_31(l_int) := fnd_global.local_chr(l_int);
466: END LOOP;
467:
468: END ;
469: END xnp_xml_utils;