APPS.FND_FLEX_SERVER1 dependencies on FND_FLEX_SERVER1

Line 1: PACKAGE BODY fnd_flex_server1 AS

1: PACKAGE BODY fnd_flex_server1 AS
2: /* $Header: AFFFSV1B.pls 120.22.12010000.2 2008/08/11 17:47:58 hgeorgi ship $ */
3:
4: --------
5: -- PRIVATE TYPES

Line 649: IF (fnd_flex_server1.g_debug_level > 0) THEN

645: AND enabled_flag = 'Y'
646: ORDER BY column_seq_num;
647:
648: BEGIN
649: IF (fnd_flex_server1.g_debug_level > 0) THEN
650: add_debug('BEGIN SV1.vals_secured()');
651: END IF;
652: segcounter := 0;
653: dispsegcounter := 0;

Line 688: IF (fnd_flex_server1.g_debug_level > 0) THEN

684: --
685: if(seg_displayed) then
686: dispsegcounter := dispsegcounter + 1;
687: else
688: IF (fnd_flex_server1.g_debug_level > 0) THEN
689: add_debug('Segment ' || to_char(segcounter) || ' not displayed ');
690: END IF;
691: thisval := NULL;
692: goto next_value;

Line 698: IF (fnd_flex_server1.g_debug_level > 0) THEN

694:
695: -- Treat remaining segments as NULL and quit if too few segments entered.
696: --
697: if(dispsegcounter > nsegs) then
698: IF (fnd_flex_server1.g_debug_level > 0) THEN
699: add_debug('No more values-exiting. ');
700: END IF;
701: l_return_code := 0;
702: GOTO goto_return;

Line 709: IF (fnd_flex_server1.g_debug_level > 0) THEN

705: -- Initialize value. Strip spaces.
706: --
707: thisval := RTRIM(LTRIM(segs(dispsegcounter)));
708:
709: IF (fnd_flex_server1.g_debug_level > 0) THEN
710: add_debug('(' || thisval || ') ');
711: END IF;
712:
713: -- If null, its not secured.

Line 797: IF (fnd_flex_server1.g_debug_level > 0) THEN

793:
794: l_return_code := 0;
795:
796: <>
797: IF (fnd_flex_server1.g_debug_level > 0) THEN
798: add_debug('END SV1.vals_secured()');
799: END IF;
800: return(l_return_code);
801:

Line 804: IF (fnd_flex_server1.g_debug_level > 0) THEN

800: return(l_return_code);
801:
802: EXCEPTION
803: WHEN NO_DATA_FOUND then
804: IF (fnd_flex_server1.g_debug_level > 0) THEN
805: add_debug('EXCEPTION no_data_found SV1.vals_secured()');
806: END IF;
807: if(fstruct.isa_key_flexfield) then
808: FND_MESSAGE.set_name('FND', 'FLEX-CANT FIND SEGMENTS');

Line 819: IF (fnd_flex_server1.g_debug_level > 0) THEN

815: return(0);
816: WHEN OTHERS then
817: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
818: FND_MESSAGE.set_token('MSG', 'vals_secured() exception: ' || SQLERRM);
819: IF (fnd_flex_server1.g_debug_level > 0) THEN
820: add_debug('EXCEPTION others SV1.vals_secured()');
821: END IF;
822: return(-2);
823: END vals_secured;

Line 961: IF (fnd_flex_server1.g_debug_level > 0) THEN

957: AND c.column_name = g.application_column_name
958: ORDER BY g.column_seq_num;
959:
960: BEGIN
961: IF (fnd_flex_server1.g_debug_level > 0) THEN
962: FND_FLEX_SERVER1.add_debug('BEGIN SV1.validate_struct() ');
963: END IF;
964:
965: value_error_init;

Line 962: FND_FLEX_SERVER1.add_debug('BEGIN SV1.validate_struct() ');

958: ORDER BY g.column_seq_num;
959:
960: BEGIN
961: IF (fnd_flex_server1.g_debug_level > 0) THEN
962: FND_FLEX_SERVER1.add_debug('BEGIN SV1.validate_struct() ');
963: END IF;
964:
965: value_error_init;
966: secured_flag := FALSE;

Line 1056: IF (fnd_flex_server1.g_debug_level > 0) THEN

1052: END IF;
1053: END IF;
1054:
1055: IF (fstruct.isa_key_flexfield) then
1056: IF (fnd_flex_server1.g_debug_level > 0) THEN
1057: add_debug('key segments: ');
1058: END IF;
1059: else
1060: IF (fnd_flex_server1.g_debug_level > 0) THEN

Line 1060: IF (fnd_flex_server1.g_debug_level > 0) THEN

1056: IF (fnd_flex_server1.g_debug_level > 0) THEN
1057: add_debug('key segments: ');
1058: END IF;
1059: else
1060: IF (fnd_flex_server1.g_debug_level > 0) THEN
1061: add_debug('desc segments: ');
1062: END IF;
1063: end if;
1064:

Line 1285: IF (fnd_flex_server1.g_debug_level > 0) THEN

1281: return_code := VV_ERROR;
1282: goto return_values;
1283: end if;
1284:
1285: IF (fnd_flex_server1.g_debug_level > 0) THEN
1286: add_debug(to_char(segcount) || ' segments found.');
1287: END IF;
1288:
1289: --

Line 1316: IF (fnd_flex_server1.g_debug_level > 0) THEN

1312: dvals := drvals;
1313: dquals := drvd_quals;
1314: errsegn := errseg_num;
1315:
1316: IF (fnd_flex_server1.g_debug_level > 0) THEN
1317: FND_FLEX_SERVER1.add_debug('END SV1.validate_struct()');
1318: END IF;
1319:
1320: return(return_code);

Line 1317: FND_FLEX_SERVER1.add_debug('END SV1.validate_struct()');

1313: dquals := drvd_quals;
1314: errsegn := errseg_num;
1315:
1316: IF (fnd_flex_server1.g_debug_level > 0) THEN
1317: FND_FLEX_SERVER1.add_debug('END SV1.validate_struct()');
1318: END IF;
1319:
1320: return(return_code);
1321:

Line 1324: IF (fnd_flex_server1.g_debug_level > 0) THEN

1320: return(return_code);
1321:
1322: EXCEPTION
1323: WHEN NO_DATA_FOUND then
1324: IF (fnd_flex_server1.g_debug_level > 0) THEN
1325: FND_FLEX_SERVER1.add_debug('EXCEPTION no_data_found SV1.validate_struct() ');
1326: END IF;
1327: if(fstruct.isa_key_flexfield) then
1328: FND_MESSAGE.set_name('FND', 'FLEX-CANT FIND SEGMENTS');

Line 1325: FND_FLEX_SERVER1.add_debug('EXCEPTION no_data_found SV1.validate_struct() ');

1321:
1322: EXCEPTION
1323: WHEN NO_DATA_FOUND then
1324: IF (fnd_flex_server1.g_debug_level > 0) THEN
1325: FND_FLEX_SERVER1.add_debug('EXCEPTION no_data_found SV1.validate_struct() ');
1326: END IF;
1327: if(fstruct.isa_key_flexfield) then
1328: FND_MESSAGE.set_name('FND', 'FLEX-CANT FIND SEGMENTS');
1329: FND_MESSAGE.set_token('ROUTINE', 'Validate Values');

Line 1339: IF (fnd_flex_server1.g_debug_level > 0) THEN

1335: return(VV_VALID);
1336: WHEN OTHERS then
1337: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
1338: FND_MESSAGE.set_token('MSG', 'validate_struct() exception: '||SQLERRM);
1339: IF (fnd_flex_server1.g_debug_level > 0) THEN
1340: FND_FLEX_SERVER1.add_debug('EXCEPTION others SV1.validate_struct() ');
1341: END IF;
1342:
1343: return(VV_ERROR);

Line 1340: FND_FLEX_SERVER1.add_debug('EXCEPTION others SV1.validate_struct() ');

1336: WHEN OTHERS then
1337: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
1338: FND_MESSAGE.set_token('MSG', 'validate_struct() exception: '||SQLERRM);
1339: IF (fnd_flex_server1.g_debug_level > 0) THEN
1340: FND_FLEX_SERVER1.add_debug('EXCEPTION others SV1.validate_struct() ');
1341: END IF;
1342:
1343: return(VV_ERROR);
1344:

Line 1396: IF (fnd_flex_server1.g_debug_level > 0) THEN

1392: l_parent_index BINARY_INTEGER;
1393: l_storage_value VARCHAR2(2000);
1394: l_display_value VARCHAR2(2000);
1395: BEGIN
1396: IF (fnd_flex_server1.g_debug_level > 0) THEN
1397: FND_FLEX_SERVER1.add_debug('BEGIN SV1.validate_seg() ');
1398: END IF;
1399:
1400: --

Line 1397: FND_FLEX_SERVER1.add_debug('BEGIN SV1.validate_seg() ');

1393: l_storage_value VARCHAR2(2000);
1394: l_display_value VARCHAR2(2000);
1395: BEGIN
1396: IF (fnd_flex_server1.g_debug_level > 0) THEN
1397: FND_FLEX_SERVER1.add_debug('BEGIN SV1.validate_seg() ');
1398: END IF;
1399:
1400: --
1401: -- Initialize all returned values

Line 1430: IF (fnd_flex_server1.g_debug_level > 0) THEN

1426: end if;
1427:
1428: -- Add segment qualifier list to debug string
1429: --
1430: IF (fnd_flex_server1.g_debug_level > 0) THEN
1431: if(segquals.nquals > 0) then
1432: add_debug('DefaultQuals=');
1433: for i in 1..segquals.nquals loop
1434: add_debug('(' || segquals.fq_names(i) || ', ' ||

Line 1491: IF (fnd_flex_server1.g_debug_level > 0) THEN

1487:
1488: if ((vcode = FF_VUNKNOWN) and (vflags.invoking_mode = 'D')) then
1489: thisseg := NULL;
1490: vcode := FF_VVALID;
1491: IF (fnd_flex_server1.g_debug_level > 0) THEN
1492: add_debug('Segment NOT defaulted because of :block.field bind '
1493: || to_char(nprev + 1));
1494: END IF;
1495: else

Line 1501: IF (fnd_flex_server1.g_debug_level > 0) THEN

1497: end if;
1498:
1499: end if;
1500: l_flexvalue.displayed_value := thisseg;
1501: IF (fnd_flex_server1.g_debug_level > 0) THEN
1502: add_debug('Defaulted segment ' || to_char(nprev + 1));
1503: add_debug(' to ' || thisseg);
1504: END IF;
1505: end if;

Line 1587: IF (fnd_flex_server1.g_debug_level > 0) THEN

1583:
1584: parentval := NULL;
1585:
1586: IF (vsinf.valtype in ('D','Y')) then
1587: IF (fnd_flex_server1.g_debug_level > 0) THEN
1588: add_debug(vsinf.valtype);
1589: for i in 1..nprev loop
1590: add_debug(to_char(prev_vsids(i)) || '.');
1591: end loop;

Line 1658: IF (fnd_flex_server1.g_debug_level > 0) THEN

1654: vcode := FF_VORPHAN;
1655: goto return_val;
1656: end if;
1657: else
1658: IF (fnd_flex_server1.g_debug_level > 0) THEN
1659: add_debug(vsinf.valtype);
1660: END IF;
1661: end if;
1662:

Line 1713: IF (fnd_flex_server1.g_debug_level > 0) THEN

1709: end if;
1710:
1711: -- Add modified segment qualifier values to debug string
1712: --
1713: IF (fnd_flex_server1.g_debug_level > 0) THEN
1714: if(segquals.nquals > 0) THEN
1715: g_debug_text := 'SegQualVals=';
1716: for i in 1..segquals.nquals loop
1717: g_debug_text := g_debug_text || '(' || segquals.sq_values(i) || ')';

Line 1739: IF (fnd_flex_server1.g_debug_level > 0) THEN

1735: -- Check security rules
1736: if(NOT vflags.ignore_security) then
1737: if((vsinf.valtype in ('I', 'D', 'F')) and
1738: (vsinf.valsecure in ('Y', 'H')) and (kseg.segsecure = 'Y')) THEN
1739: IF (fnd_flex_server1.g_debug_level > 0) THEN
1740: add_debug('Calling Security');
1741: END IF;
1742: vcode := check_security(l_flexvalue.stored_value, vsinf.vsformat,
1743: parentval, uappid, respid, vsinf,

Line 1746: IF (fnd_flex_server1.g_debug_level > 0) THEN

1742: vcode := check_security(l_flexvalue.stored_value, vsinf.vsformat,
1743: parentval, uappid, respid, vsinf,
1744: vflags.message_on_security);
1745: IF (vcode <> FF_VVALID) THEN
1746: IF (fnd_flex_server1.g_debug_level > 0) THEN
1747: add_debug('Security Failure Code: ' || vcode);
1748: END IF;
1749: goto return_val;
1750: end if;

Line 1751: IF (fnd_flex_server1.g_debug_level > 0) THEN

1747: add_debug('Security Failure Code: ' || vcode);
1748: END IF;
1749: goto return_val;
1750: end if;
1751: IF (fnd_flex_server1.g_debug_level > 0) THEN
1752: add_debug('NOT SECURED');
1753: END IF;
1754: end if;
1755: end if;

Line 1781: IF (fnd_flex_server1.g_debug_level > 0) THEN

1777:
1778: <>
1779: x_flexvalue := l_flexvalue;
1780: squals := segquals;
1781: IF (fnd_flex_server1.g_debug_level > 0) THEN
1782: FND_FLEX_SERVER1.add_debug('END SV1.validate_seg() ');
1783: END IF;
1784:
1785: return(vcode);

Line 1782: FND_FLEX_SERVER1.add_debug('END SV1.validate_seg() ');

1778: <>
1779: x_flexvalue := l_flexvalue;
1780: squals := segquals;
1781: IF (fnd_flex_server1.g_debug_level > 0) THEN
1782: FND_FLEX_SERVER1.add_debug('END SV1.validate_seg() ');
1783: END IF;
1784:
1785: return(vcode);
1786:

Line 1791: IF (fnd_flex_server1.g_debug_level > 0) THEN

1787: EXCEPTION
1788: WHEN OTHERS then
1789: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
1790: FND_MESSAGE.set_token('MSG', 'validate_seg() exception: ' || SQLERRM);
1791: IF (fnd_flex_server1.g_debug_level > 0) THEN
1792: FND_FLEX_SERVER1.add_debug('EXCEPTION others SV1.validate_seg() ');
1793: END IF;
1794: return(FF_VERROR);
1795: END validate_seg;

Line 1792: FND_FLEX_SERVER1.add_debug('EXCEPTION others SV1.validate_seg() ');

1788: WHEN OTHERS then
1789: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
1790: FND_MESSAGE.set_token('MSG', 'validate_seg() exception: ' || SQLERRM);
1791: IF (fnd_flex_server1.g_debug_level > 0) THEN
1792: FND_FLEX_SERVER1.add_debug('EXCEPTION others SV1.validate_seg() ');
1793: END IF;
1794: return(FF_VERROR);
1795: END validate_seg;
1796:

Line 1907: IF (fnd_flex_server1.g_debug_level > 0) THEN

1903: l_display_value VARCHAR2(2000);
1904: l_utv_enc_message VARCHAR2(32000) := NULL;
1905: l_ssv_enc_message VARCHAR2(32000) := NULL;
1906: BEGIN
1907: IF (fnd_flex_server1.g_debug_level > 0) THEN
1908: FND_FLEX_SERVER1.add_debug('BEGIN SV1.coerce_format() ');
1909: END IF;
1910:
1911: x_storage_value := user_value;

Line 1908: FND_FLEX_SERVER1.add_debug('BEGIN SV1.coerce_format() ');

1904: l_utv_enc_message VARCHAR2(32000) := NULL;
1905: l_ssv_enc_message VARCHAR2(32000) := NULL;
1906: BEGIN
1907: IF (fnd_flex_server1.g_debug_level > 0) THEN
1908: FND_FLEX_SERVER1.add_debug('BEGIN SV1.coerce_format() ');
1909: END IF;
1910:
1911: x_storage_value := user_value;
1912: x_display_value := user_value;

Line 1941: IF (fnd_flex_server1.g_debug_level > 0) THEN

1937: x_storage_value => l_storage_value,
1938: x_display_value => l_display_value,
1939: x_success => l_success);
1940:
1941: IF (fnd_flex_server1.g_debug_level > 0) THEN
1942: add_debug(Rtrim(Substr(fnd_flex_val_util.get_debug,1,2000), chr_newline));
1943: END IF;
1944: IF (l_success = fnd_flex_val_util.g_ret_no_error) THEN
1945: --

Line 2009: IF (fnd_flex_server1.g_debug_level > 0) THEN

2005: value_error_set := TRUE;
2006: entering_new_message := FALSE;
2007: END IF;
2008:
2009: IF (fnd_flex_server1.g_debug_level > 0) THEN
2010: FND_FLEX_SERVER1.add_debug('END SV1.coerce_format() ');
2011: END IF;
2012:
2013: RETURN(l_return);

Line 2010: FND_FLEX_SERVER1.add_debug('END SV1.coerce_format() ');

2006: entering_new_message := FALSE;
2007: END IF;
2008:
2009: IF (fnd_flex_server1.g_debug_level > 0) THEN
2010: FND_FLEX_SERVER1.add_debug('END SV1.coerce_format() ');
2011: END IF;
2012:
2013: RETURN(l_return);
2014:

Line 2017: IF (fnd_flex_server1.g_debug_level > 0) THEN

2013: RETURN(l_return);
2014:
2015: EXCEPTION
2016: WHEN OTHERS THEN
2017: IF (fnd_flex_server1.g_debug_level > 0) THEN
2018: FND_FLEX_SERVER1.add_debug('EXCEPTION SV1.coerce_format() ');
2019: END IF;
2020:
2021: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');

Line 2018: FND_FLEX_SERVER1.add_debug('EXCEPTION SV1.coerce_format() ');

2014:
2015: EXCEPTION
2016: WHEN OTHERS THEN
2017: IF (fnd_flex_server1.g_debug_level > 0) THEN
2018: FND_FLEX_SERVER1.add_debug('EXCEPTION SV1.coerce_format() ');
2019: END IF;
2020:
2021: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2022: FND_MESSAGE.set_token('MSG', 'coerce_format() exception: ' || SQLERRM);

Line 2101: IF (fnd_flex_server1.g_debug_level > 0) THEN

2097: AND (((p_is_value = 'V') AND (flex_value_meaning = val)) OR
2098: ((p_is_value = 'I') AND (flex_value = val)));
2099:
2100: BEGIN
2101: IF (fnd_flex_server1.g_debug_level > 0) THEN
2102: FND_FLEX_SERVER1.add_debug('BEGIN SV1.find_value()');
2103: END IF;
2104:
2105: -- Default the return value

Line 2102: FND_FLEX_SERVER1.add_debug('BEGIN SV1.find_value()');

2098: ((p_is_value = 'I') AND (flex_value = val)));
2099:
2100: BEGIN
2101: IF (fnd_flex_server1.g_debug_level > 0) THEN
2102: FND_FLEX_SERVER1.add_debug('BEGIN SV1.find_value()');
2103: END IF;
2104:
2105: -- Default the return value
2106:

Line 2130: IF (fnd_flex_server1.g_debug_level > 0) THEN

2126:
2127: -- Validation = None, do nothing.
2128: --
2129: if(p_vs_info.valtype = 'N') then
2130: IF (fnd_flex_server1.g_debug_level > 0) THEN
2131: add_debug('N');
2132: END IF;
2133: this_value.stored_value := p_char_val;
2134: this_value.hidden_id := p_char_val;

Line 2264: IF (fnd_flex_server1.g_debug_level > 0) THEN

2260: --
2261: -- Similar to Table validation.
2262: --
2263:
2264: IF (fnd_flex_server1.g_debug_level > 0) THEN
2265: add_debug('~F(' || p_vs_info.valtype || ')');
2266: END IF;
2267:
2268: v_code := table_validate(p_str_info, p_seg_info, p_vs_info,

Line 2302: IF (fnd_flex_server1.g_debug_level > 0) THEN

2298: --
2299: -- Similar to Table validation.
2300: --
2301:
2302: IF (fnd_flex_server1.g_debug_level > 0) THEN
2303: add_debug('~F(' || p_vs_info.valtype || ')');
2304: END IF;
2305:
2306: v_code := table_validate(p_str_info, p_seg_info, p_vs_info,

Line 2337: IF (fnd_flex_server1.g_debug_level > 0) THEN

2333: -- Table validation.
2334: --
2335: ELSIF (p_vs_info.valtype = 'F') then
2336:
2337: IF (fnd_flex_server1.g_debug_level > 0) THEN
2338: add_debug('F');
2339: END IF;
2340:
2341: v_code := table_validate(p_str_info, p_seg_info, p_vs_info,

Line 2405: IF (fnd_flex_server1.g_debug_level > 0) THEN

2401: this_value.stored_value,
2402: this_value.displayed_value);
2403: end if;
2404: x_this_val_out := this_value;
2405: IF (fnd_flex_server1.g_debug_level > 0) THEN
2406: FND_FLEX_SERVER1.add_debug('END SV1.find_value(returns:' ||
2407: v_code || ')');
2408: END IF;
2409:

Line 2406: FND_FLEX_SERVER1.add_debug('END SV1.find_value(returns:' ||

2402: this_value.displayed_value);
2403: end if;
2404: x_this_val_out := this_value;
2405: IF (fnd_flex_server1.g_debug_level > 0) THEN
2406: FND_FLEX_SERVER1.add_debug('END SV1.find_value(returns:' ||
2407: v_code || ')');
2408: END IF;
2409:
2410: return(v_code);

Line 2415: IF (fnd_flex_server1.g_debug_level > 0) THEN

2411: EXCEPTION
2412: WHEN OTHERS then
2413: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2414: FND_MESSAGE.set_token('MSG', 'find_value() exception: ' || SQLERRM);
2415: IF (fnd_flex_server1.g_debug_level > 0) THEN
2416: FND_FLEX_SERVER1.add_debug('EXCEPTION others SV1.find_value()');
2417: END IF;
2418:
2419: return(FF_VERROR);

Line 2416: FND_FLEX_SERVER1.add_debug('EXCEPTION others SV1.find_value()');

2412: WHEN OTHERS then
2413: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2414: FND_MESSAGE.set_token('MSG', 'find_value() exception: ' || SQLERRM);
2415: IF (fnd_flex_server1.g_debug_level > 0) THEN
2416: FND_FLEX_SERVER1.add_debug('EXCEPTION others SV1.find_value()');
2417: END IF;
2418:
2419: return(FF_VERROR);
2420: END find_value;

Line 2580: IF (fnd_flex_server1.g_debug_level > 0) THEN

2576: if (l_vcode <> FF_VVALID) then
2577: return(l_vcode);
2578: end if;
2579:
2580: IF (fnd_flex_server1.g_debug_level > 0) THEN
2581: l_tmp_where_clause := NULL;
2582: IF (l_vcode = FF_VVALID) THEN
2583: FOR i IN 1 .. l_sql_pieces.COUNT LOOP
2584: IF (l_sql_pieces(i).piece_type = SSP_PIECE_TYPE_BIND) THEN

Line 2950: IF (fnd_flex_server1.g_debug_level > 0) THEN

2946: RETURN VARCHAR2
2947: IS
2948: v_code VARCHAR2(1);
2949: BEGIN
2950: IF (fnd_flex_server1.g_debug_level > 0) THEN
2951: add_debug('BEGIN SV1.substitute_flex_binds3('''||
2952: SUBSTRB(p_string_in, 1, 500) || ''' ');
2953: END IF;
2954:

Line 2983: IF (fnd_flex_server1.g_debug_level > 0) THEN

2979: return(FF_VVALID);
2980:
2981: EXCEPTION
2982: WHEN OTHERS then
2983: IF (fnd_flex_server1.g_debug_level > 0) THEN
2984: add_debug('EXCEPTION SV1.substitute_flex_binds3()');
2985: END IF;
2986: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2987: FND_MESSAGE.set_token('MSG', 'substitute_flex_binds3() exception: '

Line 3013: IF (fnd_flex_server1.g_debug_level > 0) THEN

3009: RETURN VARCHAR2
3010: IS
3011: v_code VARCHAR2(1);
3012: BEGIN
3013: IF (fnd_flex_server1.g_debug_level > 0) THEN
3014: add_debug('BEGIN SV1.substitute_flex_binds5('''||
3015: SUBSTRB(p_string_in, 1, 500) || ''' ');
3016: END IF;
3017:

Line 3048: IF (fnd_flex_server1.g_debug_level > 0) THEN

3044: return(FF_VVALID);
3045:
3046: EXCEPTION
3047: WHEN OTHERS then
3048: IF (fnd_flex_server1.g_debug_level > 0) THEN
3049: add_debug('EXCEPTION SV1.substitute_flex_binds5()');
3050: END IF;
3051: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3052: FND_MESSAGE.set_token('MSG', 'substitute_flex_binds5() exception: '

Line 3092: IF (fnd_flex_server1.g_debug_level > 0) THEN

3088: -- :$PROFILES$. where is case-insensitive profile option name.
3089: -- :$FLEX$.[.] where name is case-sensitive, but portion not.
3090: -- :BLOCK.FIELD causes return of FF_VUNKNOWN error.
3091: --
3092: IF (fnd_flex_server1.g_debug_level > 0) THEN
3093: add_debug('BEGIN SV1.convert_bind_token(token=' || bind_token || ')');
3094: END IF;
3095:
3096: IF (INSTR(bind_token, ':$PROFILES$.') = 1) then

Line 3193: IF (fnd_flex_server1.g_debug_level > 0) THEN

3189: bind_value := bind_val;
3190: l_return_code := FF_VVALID;
3191:
3192: <>
3193: IF (fnd_flex_server1.g_debug_level > 0) THEN
3194: add_debug('END SV1.convert_bind_token(value=' || bind_val || ')');
3195: END IF;
3196: RETURN(l_return_code);
3197: EXCEPTION

Line 3199: IF (fnd_flex_server1.g_debug_level > 0) THEN

3195: END IF;
3196: RETURN(l_return_code);
3197: EXCEPTION
3198: WHEN OTHERS then
3199: IF (fnd_flex_server1.g_debug_level > 0) THEN
3200: add_debug('EXCEPTION others SV1.convert_bind_token()');
3201: END IF;
3202: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3203: FND_MESSAGE.set_token('MSG','convert_bind_token() exception: '||SQLERRM);

Line 3229: IF (fnd_flex_server1.g_debug_level > 0) THEN

3225: l_bind_value VARCHAR2(2000);
3226: l_return_code VARCHAR2(100);
3227:
3228: BEGIN
3229: IF (fnd_flex_server1.g_debug_level > 0) THEN
3230: add_debug('BEGIN SV1.convert_bind_token2(bind=' || p_bind_token || ')');
3231: END IF;
3232:
3233: l_bind_value := NULL;

Line 3276: IF (fnd_flex_server1.g_debug_level > 0) THEN

3272: x_bind_value := l_bind_value;
3273: l_return_code := FF_VVALID;
3274:
3275: <>
3276: IF (fnd_flex_server1.g_debug_level > 0) THEN
3277: add_debug('END SV1.convert_bind_token2(value=' || l_bind_value || ')');
3278: END IF;
3279: RETURN(l_return_code);
3280: EXCEPTION

Line 3282: IF (fnd_flex_server1.g_debug_level > 0) THEN

3278: END IF;
3279: RETURN(l_return_code);
3280: EXCEPTION
3281: WHEN OTHERS then
3282: IF (fnd_flex_server1.g_debug_level > 0) THEN
3283: add_debug('EXCEPTION others SV1.convert_bind_token2()');
3284: END IF;
3285: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3286: FND_MESSAGE.set_token('MSG','convert_bind_token2() exception: '||SQLERRM);

Line 3376: IF (fnd_flex_server1.g_debug_level > 0) THEN

3372: -- Now call function above to check the rules.
3373: --
3374: v_code := check_vrules(vrs, sqs, sumflg);
3375: if(v_code = FF_VVALID) then
3376: IF (fnd_flex_server1.g_debug_level > 0) THEN
3377: add_debug(' Combination passed vrules. ');
3378: END IF;
3379: retcode := VV_VALID;
3380: elsif(v_code = FF_VVRULE) then

Line 3381: IF (fnd_flex_server1.g_debug_level > 0) THEN

3377: add_debug(' Combination passed vrules. ');
3378: END IF;
3379: retcode := VV_VALID;
3380: elsif(v_code = FF_VVRULE) then
3381: IF (fnd_flex_server1.g_debug_level > 0) THEN
3382: add_debug(' Combination failed vrules. ');
3383: END IF;
3384: retcode := VV_VALUES;
3385: else

Line 3424: IF (fnd_flex_server1.g_debug_level > 0) THEN

3420: l_return_code VARCHAR2(10);
3421: l_security_status VARCHAR2(2000);
3422: l_error_message VARCHAR2(2000);
3423: BEGIN
3424: IF (fnd_flex_server1.g_debug_level > 0) THEN
3425: add_debug('BEGIN SV1.check_security()');
3426: END IF;
3427:
3428: --

Line 3441: IF (fnd_flex_server1.g_debug_level > 0) THEN

3437: l_vsc_code := check_vsc(user_apid, user_respid, vsinfo.vsid,
3438: parentval, val, l_return_code);
3439: IF (l_vsc_code IN (fnd_plsql_cache.CACHE_VALID,
3440: fnd_plsql_cache.CACHE_INVALID)) THEN
3441: IF (fnd_flex_server1.g_debug_level > 0) THEN
3442: add_debug('Found in vsc.');
3443: END IF;
3444: GOTO label_return;
3445: END IF;

Line 3462: IF (fnd_flex_server1.g_debug_level > 0) THEN

3458: p_resp_application_id => user_apid,
3459: p_responsibility_id => user_respid,
3460: x_security_status => l_security_status,
3461: x_error_message => l_error_message);
3462: IF (fnd_flex_server1.g_debug_level > 0) THEN
3463: add_debug('Hierarchy security: status :'||l_security_status || ' message : ' || l_error_message);
3464: END IF;
3465:
3466: IF (l_security_status <> 'NOT-SECURED') THEN

Line 3483: IF (fnd_flex_server1.g_debug_level > 0) THEN

3479: IF (l_vsc_code IN (fnd_plsql_cache.CACHE_NOTFOUND)) THEN
3480: update_vsc(user_apid, user_respid, vsinfo.vsid,
3481: parentval, val, l_return_code);
3482: END IF;
3483: IF (fnd_flex_server1.g_debug_level > 0) THEN
3484: add_debug('END SV1.check_security()');
3485: END IF;
3486: RETURN(l_return_code);
3487: EXCEPTION

Line 3491: IF (fnd_flex_server1.g_debug_level > 0) THEN

3487: EXCEPTION
3488: WHEN OTHERS then
3489: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3490: FND_MESSAGE.set_token('MSG','check_security() exception: ' || SQLERRM);
3491: IF (fnd_flex_server1.g_debug_level > 0) THEN
3492: add_debug('EXCEPTION SV1.check_security()');
3493: END IF;
3494:
3495: return(FF_VERROR);

Line 3690: IF (fnd_flex_server1.g_debug_level > 0) THEN

3686: AND s.id_flex_num = keystruct.id_flex_num
3687: AND s.application_column_name = colname
3688: AND s.attribute_value = 'Y';
3689: BEGIN
3690: IF (fnd_flex_server1.g_debug_level > 0) THEN
3691: fnd_flex_server1.add_debug('BEGIN SV1.get_qualifiers()');
3692: END IF;
3693:
3694: sqcount := 0;

Line 3691: fnd_flex_server1.add_debug('BEGIN SV1.get_qualifiers()');

3687: AND s.application_column_name = colname
3688: AND s.attribute_value = 'Y';
3689: BEGIN
3690: IF (fnd_flex_server1.g_debug_level > 0) THEN
3691: fnd_flex_server1.add_debug('BEGIN SV1.get_qualifiers()');
3692: END IF;
3693:
3694: sqcount := 0;
3695: IF (ffstruct.isa_key_flexfield) THEN

Line 3741: IF (fnd_flex_server1.g_debug_level > 0) THEN

3737: END IF;
3738:
3739: seg_quals.nquals := sqcount;
3740:
3741: IF (fnd_flex_server1.g_debug_level > 0) THEN
3742: fnd_flex_server1.add_debug('END SV1.get_qualifiers()');
3743: END IF;
3744:
3745: RETURN(sqcount);

Line 3742: fnd_flex_server1.add_debug('END SV1.get_qualifiers()');

3738:
3739: seg_quals.nquals := sqcount;
3740:
3741: IF (fnd_flex_server1.g_debug_level > 0) THEN
3742: fnd_flex_server1.add_debug('END SV1.get_qualifiers()');
3743: END IF;
3744:
3745: RETURN(sqcount);
3746: EXCEPTION

Line 3750: IF (fnd_flex_server1.g_debug_level > 0) THEN

3746: EXCEPTION
3747: WHEN OTHERS then
3748: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3749: FND_MESSAGE.set_token('MSG', 'get_qualifiers() exception: ' || SQLERRM);
3750: IF (fnd_flex_server1.g_debug_level > 0) THEN
3751: fnd_flex_server1.add_debug('EXCEPTION SV1.get_qualifiers()');
3752: END IF;
3753:
3754: return(-1);

Line 3751: fnd_flex_server1.add_debug('EXCEPTION SV1.get_qualifiers()');

3747: WHEN OTHERS then
3748: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3749: FND_MESSAGE.set_token('MSG', 'get_qualifiers() exception: ' || SQLERRM);
3750: IF (fnd_flex_server1.g_debug_level > 0) THEN
3751: fnd_flex_server1.add_debug('EXCEPTION SV1.get_qualifiers()');
3752: END IF;
3753:
3754: return(-1);
3755:

Line 3769: IF (fnd_flex_server1.g_debug_level > 0) THEN

3765: RETURN BOOLEAN
3766: IS
3767: l_vsi valuesetinfo;
3768: BEGIN
3769: IF (fnd_flex_server1.g_debug_level > 0) THEN
3770: fnd_flex_server1.add_debug('CALL SV1.get_value_set(' ||
3771: 'vsid:' || value_set_id || ')');
3772: END IF;
3773:

Line 3770: fnd_flex_server1.add_debug('CALL SV1.get_value_set(' ||

3766: IS
3767: l_vsi valuesetinfo;
3768: BEGIN
3769: IF (fnd_flex_server1.g_debug_level > 0) THEN
3770: fnd_flex_server1.add_debug('CALL SV1.get_value_set(' ||
3771: 'vsid:' || value_set_id || ')');
3772: END IF;
3773:
3774: g_cache_key := value_set_id;

Line 3900: IF (fnd_flex_server1.g_debug_level > 0) THEN

3896: value_error_set := FALSE;
3897: entering_new_message := FALSE;
3898: EXCEPTION
3899: WHEN OTHERS then
3900: IF (fnd_flex_server1.g_debug_level > 0) THEN
3901: add_debug('value_error_init() exception: ' || SQLERRM);
3902: END IF;
3903: END value_error_init;
3904:

Line 3927: IF (fnd_flex_server1.g_debug_level > 0) THEN

3923: entering_new_message := FALSE;
3924: end if;
3925: EXCEPTION
3926: WHEN OTHERS then
3927: IF (fnd_flex_server1.g_debug_level > 0) THEN
3928: add_debug('value_error_name() exception: ' || SQLERRM);
3929: END IF;
3930: END value_error_name;
3931:

Line 3945: IF (fnd_flex_server1.g_debug_level > 0) THEN

3941: FND_MESSAGE.set_token(token_name, token_value);
3942: end if;
3943: EXCEPTION
3944: WHEN OTHERS then
3945: IF (fnd_flex_server1.g_debug_level > 0) THEN
3946: add_debug('value_error_token() exception: ' || SQLERRM);
3947: END IF;
3948: END value_error_token;
3949:

Line 4035: IF (fnd_flex_server1.g_debug_level > 0) THEN

4031: return(isa_date(teststr, stored_date_format(flexfmt, LENGTH(teststr)),
4032: outdate));
4033: EXCEPTION
4034: WHEN OTHERS then
4035: IF (fnd_flex_server1.g_debug_level > 0) THEN
4036: add_debug('isa_stored_date() exception: ' || SQLERRM);
4037: END IF;
4038: return(FALSE);
4039: END isa_stored_date;

Line 4057: IF (fnd_flex_server1.g_debug_level > 0) THEN

4053: return(isa_date(teststr, displayed_date_format(flexfmt, LENGTH(teststr)),
4054: outdate));
4055: EXCEPTION
4056: WHEN OTHERS then
4057: IF (fnd_flex_server1.g_debug_level > 0) THEN
4058: add_debug('isa_displayed_date() exception: ' || SQLERRM);
4059: END IF;
4060: return(FALSE);
4061: END isa_displayed_date;

Line 4089: IF (fnd_flex_server1.g_debug_level > 0) THEN

4085: end if;
4086: return(TRUE);
4087: EXCEPTION
4088: WHEN OTHERS then
4089: IF (fnd_flex_server1.g_debug_level > 0) THEN
4090: add_debug('isa_date() exception: ' || SQLERRM);
4091: END IF;
4092: return(FALSE);
4093: END isa_date;

Line 4420: IF (fnd_flex_server1.g_debug_level > 0) THEN

4416:
4417: fnd_dsql.do_binds;
4418:
4419: nprocessed := dbms_sql.execute(cursornum);
4420: IF (fnd_flex_server1.g_debug_level > 0) THEN
4421: add_debug('(DSQL_execute processed ' || to_char(nprocessed));
4422: add_debug(' rows.)');
4423: END IF;
4424: dbms_sql.close_cursor(cursornum);

Line 4476: IF (fnd_flex_server1.g_debug_level > 0) THEN

4472: num_returned := dbms_sql.execute_and_fetch(cursornum, TRUE);
4473: if(num_returned = 1) then
4474: dbms_sql.column_value(cursornum, 1, selected_col);
4475: returned_column := selected_col;
4476: IF (fnd_flex_server1.g_debug_level > 0) THEN
4477: add_debug('(DSQL returned ' || selected_col || ')');
4478: END IF;
4479: else
4480: num_returned := -1;

Line 4491: IF (fnd_flex_server1.g_debug_level > 0) THEN

4487:
4488: EXCEPTION
4489: WHEN NO_DATA_FOUND or invalid_rowid then
4490: returned_column := NULL;
4491: IF (fnd_flex_server1.g_debug_level > 0) THEN
4492: add_debug('(DSQL returned: NULL)');
4493: END IF;
4494: dbms_sql.close_cursor(cursornum);
4495: return(0);

Line 4499: IF (fnd_flex_server1.g_debug_level > 0) THEN

4495: return(0);
4496: WHEN TOO_MANY_ROWS then
4497: dbms_sql.column_value(cursornum, 1, selected_col);
4498: returned_column := selected_col;
4499: IF (fnd_flex_server1.g_debug_level > 0) THEN
4500: add_debug('(DSQL returned: TOO MANY ROWS)');
4501: END IF;
4502: dbms_sql.close_cursor(cursornum);
4503: return(2);

Line 4552: IF (fnd_flex_server1.g_debug_level > 0) THEN

4548: dbms_sql.define_column(cursornum, i, selected_cols(i), 2000);
4549: end loop;
4550: num_returned := dbms_sql.execute_and_fetch(cursornum, TRUE);
4551: if(num_returned = 1) then
4552: IF (fnd_flex_server1.g_debug_level > 0) THEN
4553: add_debug('(DSQL returned');
4554: END IF;
4555: for i in 1..n_selected_cols loop
4556: dbms_sql.column_value(cursornum, i, selected_cols(i));

Line 4557: IF (fnd_flex_server1.g_debug_level > 0) THEN

4553: add_debug('(DSQL returned');
4554: END IF;
4555: for i in 1..n_selected_cols loop
4556: dbms_sql.column_value(cursornum, i, selected_cols(i));
4557: IF (fnd_flex_server1.g_debug_level > 0) THEN
4558: add_debug(' ''' || selected_cols(i) || '''');
4559: END IF;
4560: end loop;
4561: IF (fnd_flex_server1.g_debug_level > 0) THEN

Line 4561: IF (fnd_flex_server1.g_debug_level > 0) THEN

4557: IF (fnd_flex_server1.g_debug_level > 0) THEN
4558: add_debug(' ''' || selected_cols(i) || '''');
4559: END IF;
4560: end loop;
4561: IF (fnd_flex_server1.g_debug_level > 0) THEN
4562: add_debug(')');
4563: END IF;
4564: else
4565: num_returned := -1;

Line 4575: IF (fnd_flex_server1.g_debug_level > 0) THEN

4571: return(num_returned);
4572:
4573: EXCEPTION
4574: WHEN NO_DATA_FOUND OR invalid_rowid then
4575: IF (fnd_flex_server1.g_debug_level > 0) THEN
4576: add_debug('(DSQL returned: NULL)');
4577: END IF;
4578: dbms_sql.close_cursor(cursornum);
4579: return(0);

Line 4581: IF (fnd_flex_server1.g_debug_level > 0) THEN

4577: END IF;
4578: dbms_sql.close_cursor(cursornum);
4579: return(0);
4580: WHEN TOO_MANY_ROWS then
4581: IF (fnd_flex_server1.g_debug_level > 0) THEN
4582: add_debug('(DSQL returned');
4583: END IF;
4584: for i in 1..n_selected_cols loop
4585: dbms_sql.column_value(cursornum, i, selected_cols(i));

Line 4586: IF (fnd_flex_server1.g_debug_level > 0) THEN

4582: add_debug('(DSQL returned');
4583: END IF;
4584: for i in 1..n_selected_cols loop
4585: dbms_sql.column_value(cursornum, i, selected_cols(i));
4586: IF (fnd_flex_server1.g_debug_level > 0) THEN
4587: add_debug(' ''' || selected_cols(i) || '''');
4588: END IF;
4589: end loop;
4590: IF (fnd_flex_server1.g_debug_level > 0) THEN

Line 4590: IF (fnd_flex_server1.g_debug_level > 0) THEN

4586: IF (fnd_flex_server1.g_debug_level > 0) THEN
4587: add_debug(' ''' || selected_cols(i) || '''');
4588: END IF;
4589: end loop;
4590: IF (fnd_flex_server1.g_debug_level > 0) THEN
4591: add_debug(')');
4592: add_debug('(DSQL returned: TOO MANY ROWS)');
4593: END IF;
4594: dbms_sql.close_cursor(cursornum);

Line 4669: fnd_flex_server1.g_debug_level := 0;

4665: PROCEDURE set_debugging(p_debug_mode IN VARCHAR2)
4666: IS
4667: BEGIN
4668: IF (p_debug_mode = 'OFF') THEN
4669: fnd_flex_server1.g_debug_level := 0;
4670: ELSIF (p_debug_mode = 'ERROR') THEN
4671: fnd_flex_server1.g_debug_level := 1;
4672: ELSIF (p_debug_mode = 'EXCEPTION') THEN
4673: fnd_flex_server1.g_debug_level := 2;

Line 4671: fnd_flex_server1.g_debug_level := 1;

4667: BEGIN
4668: IF (p_debug_mode = 'OFF') THEN
4669: fnd_flex_server1.g_debug_level := 0;
4670: ELSIF (p_debug_mode = 'ERROR') THEN
4671: fnd_flex_server1.g_debug_level := 1;
4672: ELSIF (p_debug_mode = 'EXCEPTION') THEN
4673: fnd_flex_server1.g_debug_level := 2;
4674: ELSIF (p_debug_mode = 'EVENT') THEN
4675: fnd_flex_server1.g_debug_level := 3;

Line 4673: fnd_flex_server1.g_debug_level := 2;

4669: fnd_flex_server1.g_debug_level := 0;
4670: ELSIF (p_debug_mode = 'ERROR') THEN
4671: fnd_flex_server1.g_debug_level := 1;
4672: ELSIF (p_debug_mode = 'EXCEPTION') THEN
4673: fnd_flex_server1.g_debug_level := 2;
4674: ELSIF (p_debug_mode = 'EVENT') THEN
4675: fnd_flex_server1.g_debug_level := 3;
4676: ELSIF (p_debug_mode = 'PROCEDURE') THEN
4677: fnd_flex_server1.g_debug_level := 4;

Line 4675: fnd_flex_server1.g_debug_level := 3;

4671: fnd_flex_server1.g_debug_level := 1;
4672: ELSIF (p_debug_mode = 'EXCEPTION') THEN
4673: fnd_flex_server1.g_debug_level := 2;
4674: ELSIF (p_debug_mode = 'EVENT') THEN
4675: fnd_flex_server1.g_debug_level := 3;
4676: ELSIF (p_debug_mode = 'PROCEDURE') THEN
4677: fnd_flex_server1.g_debug_level := 4;
4678: ELSIF (p_debug_mode = 'STATEMENT') THEN
4679: fnd_flex_server1.g_debug_level := 5;

Line 4677: fnd_flex_server1.g_debug_level := 4;

4673: fnd_flex_server1.g_debug_level := 2;
4674: ELSIF (p_debug_mode = 'EVENT') THEN
4675: fnd_flex_server1.g_debug_level := 3;
4676: ELSIF (p_debug_mode = 'PROCEDURE') THEN
4677: fnd_flex_server1.g_debug_level := 4;
4678: ELSIF (p_debug_mode = 'STATEMENT') THEN
4679: fnd_flex_server1.g_debug_level := 5;
4680: ELSIF (p_debug_mode = 'ALL') THEN
4681: fnd_flex_server1.g_debug_level := 6;

Line 4679: fnd_flex_server1.g_debug_level := 5;

4675: fnd_flex_server1.g_debug_level := 3;
4676: ELSIF (p_debug_mode = 'PROCEDURE') THEN
4677: fnd_flex_server1.g_debug_level := 4;
4678: ELSIF (p_debug_mode = 'STATEMENT') THEN
4679: fnd_flex_server1.g_debug_level := 5;
4680: ELSIF (p_debug_mode = 'ALL') THEN
4681: fnd_flex_server1.g_debug_level := 6;
4682: fnd_flex_val_util.set_debugging(TRUE);
4683: ELSE

Line 4681: fnd_flex_server1.g_debug_level := 6;

4677: fnd_flex_server1.g_debug_level := 4;
4678: ELSIF (p_debug_mode = 'STATEMENT') THEN
4679: fnd_flex_server1.g_debug_level := 5;
4680: ELSIF (p_debug_mode = 'ALL') THEN
4681: fnd_flex_server1.g_debug_level := 6;
4682: fnd_flex_val_util.set_debugging(TRUE);
4683: ELSE
4684: fnd_flex_server1.g_debug_level := 0;
4685: END IF;

Line 4684: fnd_flex_server1.g_debug_level := 0;

4680: ELSIF (p_debug_mode = 'ALL') THEN
4681: fnd_flex_server1.g_debug_level := 6;
4682: fnd_flex_val_util.set_debugging(TRUE);
4683: ELSE
4684: fnd_flex_server1.g_debug_level := 0;
4685: END IF;
4686: EXCEPTION
4687: WHEN OTHERS THEN
4688: fnd_flex_server1.g_debug_level := 0;

Line 4688: fnd_flex_server1.g_debug_level := 0;

4684: fnd_flex_server1.g_debug_level := 0;
4685: END IF;
4686: EXCEPTION
4687: WHEN OTHERS THEN
4688: fnd_flex_server1.g_debug_level := 0;
4689: END set_debugging;
4690:
4691: /* ----------------------------------------------------------------------- */
4692: /* Adds to debug string */

Line 4702: IF (fnd_flex_server1.g_debug_level = 0) THEN

4698: l_debug_string VARCHAR2(32000);
4699: l_newline_pos NUMBER;
4700: l_debug_line VARCHAR2(32000);
4701: BEGIN
4702: IF (fnd_flex_server1.g_debug_level = 0) THEN
4703: RETURN;
4704: END IF;
4705: IF (p_debug_mode = 'OFF') THEN
4706: l_code_level := 0;

Line 4723: IF (l_code_level <= fnd_flex_server1.g_debug_level) THEN

4719: ELSE
4720: l_code_level := 0;
4721: END IF;
4722:
4723: IF (l_code_level <= fnd_flex_server1.g_debug_level) THEN
4724: IF (g_debug_array_size = 0) THEN
4725: g_debug_array_size := 1;
4726: g_debug_array(g_debug_array_size) :=
4727: ('DEBUG LEVEL:'||To_char(fnd_flex_server1.g_debug_level) ||

Line 4727: ('DEBUG LEVEL:'||To_char(fnd_flex_server1.g_debug_level) ||

4723: IF (l_code_level <= fnd_flex_server1.g_debug_level) THEN
4724: IF (g_debug_array_size = 0) THEN
4725: g_debug_array_size := 1;
4726: g_debug_array(g_debug_array_size) :=
4727: ('DEBUG LEVEL:'||To_char(fnd_flex_server1.g_debug_level) ||
4728: chr_newline);
4729: END IF;
4730:
4731: l_debug_string := (Substr(Rtrim(Ltrim(p_debug_string)), 1, MAX_RETSTR_LEN-10) ||

Line 4784: x_nsql := fnd_flex_server1.get_nsql_internal;

4780: /* -------------------------------------------------- */
4781: PROCEDURE x_get_nsql(x_nsql OUT nocopy NUMBER)
4782: IS
4783: BEGIN
4784: x_nsql := fnd_flex_server1.get_nsql_internal;
4785: EXCEPTION
4786: WHEN OTHERS THEN
4787: x_nsql := 0;
4788: END;

Line 4798: (l_sql_num <= fnd_flex_server1.get_nsql_internal)) THEN

4794: BEGIN
4795: l_sql_num := Nvl(p_sql_num, 0);
4796: x_npiece := 0;
4797: IF ((l_sql_num > 0) AND
4798: (l_sql_num <= fnd_flex_server1.get_nsql_internal)) THEN
4799: x_npiece :=Ceil(Nvl(Lengthb(sqlstrings(l_sql_num)),0)/MAX_RETSTR_LEN);
4800: END IF;
4801: EXCEPTION
4802: WHEN OTHERS THEN

Line 4817: (l_sql_num <= fnd_flex_server1.get_nsql_internal) AND

4813: l_sql_num := Nvl(p_sql_num, 0);
4814: l_piece_num := Nvl(p_piece_num, 0);
4815: x_sql_piece := NULL;
4816: IF ((l_sql_num > 0) AND
4817: (l_sql_num <= fnd_flex_server1.get_nsql_internal) AND
4818: (l_piece_num > 0)) THEN
4819: x_sql_piece := substrb(sqlstrings(l_sql_num),
4820: 1 + (l_piece_num - 1) * MAX_RETSTR_LEN,
4821: MAX_RETSTR_LEN);

Line 4991: IF (fnd_flex_server1.g_debug_level > 0) THEN

4987: l_segnum pls_integer;
4988: l_delimiter VARCHAR2(10);
4989: BEGIN
4990: l_delimiter := Substr(sepchar, 1, 1);
4991: IF (fnd_flex_server1.g_debug_level > 0) THEN
4992: fnd_flex_server1.add_debug('BEGIN SV1.from_stringarray()');
4993: END IF;
4994: --
4995: -- Make sure delimiter is valid.

Line 4992: fnd_flex_server1.add_debug('BEGIN SV1.from_stringarray()');

4988: l_delimiter VARCHAR2(10);
4989: BEGIN
4990: l_delimiter := Substr(sepchar, 1, 1);
4991: IF (fnd_flex_server1.g_debug_level > 0) THEN
4992: fnd_flex_server1.add_debug('BEGIN SV1.from_stringarray()');
4993: END IF;
4994: --
4995: -- Make sure delimiter is valid.
4996: --

Line 5058: IF (fnd_flex_server1.g_debug_level > 0) THEN

5054: END IF;
5055: END LOOP;
5056:
5057: <>
5058: IF (fnd_flex_server1.g_debug_level > 0) THEN
5059: fnd_flex_server1.add_debug('END SV1.from_stringarray()');
5060: END IF;
5061: RETURN(l_return);
5062: EXCEPTION

Line 5059: fnd_flex_server1.add_debug('END SV1.from_stringarray()');

5055: END LOOP;
5056:
5057: <>
5058: IF (fnd_flex_server1.g_debug_level > 0) THEN
5059: fnd_flex_server1.add_debug('END SV1.from_stringarray()');
5060: END IF;
5061: RETURN(l_return);
5062: EXCEPTION
5063: WHEN OTHERS THEN

Line 5064: IF (fnd_flex_server1.g_debug_level > 0) THEN

5060: END IF;
5061: RETURN(l_return);
5062: EXCEPTION
5063: WHEN OTHERS THEN
5064: IF (fnd_flex_server1.g_debug_level > 0) THEN
5065: fnd_flex_server1.add_debug('EXCEPTION SV1.from_stringarray()');
5066: END IF;
5067: raise_application_error(-20001, 'SV1.from_stringarray. SQLERRM : ' || Sqlerrm);
5068: END from_stringarray;

Line 5065: fnd_flex_server1.add_debug('EXCEPTION SV1.from_stringarray()');

5061: RETURN(l_return);
5062: EXCEPTION
5063: WHEN OTHERS THEN
5064: IF (fnd_flex_server1.g_debug_level > 0) THEN
5065: fnd_flex_server1.add_debug('EXCEPTION SV1.from_stringarray()');
5066: END IF;
5067: raise_application_error(-20001, 'SV1.from_stringarray. SQLERRM : ' || Sqlerrm);
5068: END from_stringarray;
5069:

Line 5137: IF (fnd_flex_server1.g_debug_level > 0) THEN

5133: sepchar IN VARCHAR2) RETURN VARCHAR2
5134: IS
5135: l_return VARCHAR2(2000) := NULL;
5136: BEGIN
5137: IF (fnd_flex_server1.g_debug_level > 0) THEN
5138: fnd_flex_server1.add_debug('CALL SV1.from_stringarray2()');
5139: END IF;
5140: --
5141: -- Concatenate the segment values. No separator after the last value.

Line 5138: fnd_flex_server1.add_debug('CALL SV1.from_stringarray2()');

5134: IS
5135: l_return VARCHAR2(2000) := NULL;
5136: BEGIN
5137: IF (fnd_flex_server1.g_debug_level > 0) THEN
5138: fnd_flex_server1.add_debug('CALL SV1.from_stringarray2()');
5139: END IF;
5140: --
5141: -- Concatenate the segment values. No separator after the last value.
5142: --

Line 5329: END fnd_flex_server1;

5325: m_nd := Substr(tmp_varchar2,1,1);
5326: ELSE
5327: m_nd := '.';
5328: END IF;
5329: END fnd_flex_server1;