APPS.FND_FLEX_SERVER1 dependencies on FND_FLEX_SERVER

Line 1: PACKAGE BODY fnd_flex_server1 AS

1: PACKAGE BODY fnd_flex_server1 AS
2: /* $Header: AFFFSV1B.pls 120.29.12020000.2 2012/07/19 00:32:43 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 1595: IF (fnd_flex_server1.g_debug_level > 0) THEN

1591:
1592: parentval := NULL;
1593:
1594: IF (vsinf.valtype in ('D','Y')) then
1595: IF (fnd_flex_server1.g_debug_level > 0) THEN
1596: add_debug(vsinf.valtype);
1597: for i in 1..nprev loop
1598: add_debug(to_char(prev_vsids(i)) || '.');
1599: end loop;

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

1667: vcode := FF_VORPHAN;
1668: goto return_val;
1669: end if;
1670: else
1671: IF (fnd_flex_server1.g_debug_level > 0) THEN
1672: add_debug(vsinf.valtype);
1673: END IF;
1674: end if;
1675:

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

1722: end if;
1723:
1724: -- Add modified segment qualifier values to debug string
1725: --
1726: IF (fnd_flex_server1.g_debug_level > 0) THEN
1727: if(segquals.nquals > 0) THEN
1728: g_debug_text := 'SegQualVals=';
1729: for i in 1..segquals.nquals loop
1730: g_debug_text := g_debug_text || '(' || segquals.sq_values(i) || ')';

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

1749: -- Check security rules
1750: if(NOT vflags.ignore_security) then
1751: if((vsinf.valtype in ('I', 'D', 'F')) and
1752: (vsinf.valsecure in ('Y', 'H')) and (kseg.segsecure = 'Y')) THEN
1753: IF (fnd_flex_server1.g_debug_level > 0) THEN
1754: add_debug('Calling Security');
1755: END IF;
1756: vcode := check_security(l_flexvalue.stored_value, vsinf.vsformat,
1757: parentval, uappid, respid, vsinf,

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

1756: vcode := check_security(l_flexvalue.stored_value, vsinf.vsformat,
1757: parentval, uappid, respid, vsinf,
1758: vflags.message_on_security);
1759: IF (vcode <> FF_VVALID) THEN
1760: IF (fnd_flex_server1.g_debug_level > 0) THEN
1761: add_debug('Security Failure Code: ' || vcode);
1762: END IF;
1763: goto return_val;
1764: end if;

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

1761: add_debug('Security Failure Code: ' || vcode);
1762: END IF;
1763: goto return_val;
1764: end if;
1765: IF (fnd_flex_server1.g_debug_level > 0) THEN
1766: add_debug('NOT SECURED');
1767: END IF;
1768: end if;
1769: end if;

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

1791:
1792: <>
1793: x_flexvalue := l_flexvalue;
1794: squals := segquals;
1795: IF (fnd_flex_server1.g_debug_level > 0) THEN
1796: FND_FLEX_SERVER1.add_debug('END SV1.validate_seg() ');
1797: END IF;
1798:
1799: return(vcode);

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

1792: <>
1793: x_flexvalue := l_flexvalue;
1794: squals := segquals;
1795: IF (fnd_flex_server1.g_debug_level > 0) THEN
1796: FND_FLEX_SERVER1.add_debug('END SV1.validate_seg() ');
1797: END IF;
1798:
1799: return(vcode);
1800:

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

1801: EXCEPTION
1802: WHEN OTHERS then
1803: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
1804: FND_MESSAGE.set_token('MSG', 'validate_seg() exception: ' || SQLERRM);
1805: IF (fnd_flex_server1.g_debug_level > 0) THEN
1806: FND_FLEX_SERVER1.add_debug('EXCEPTION others SV1.validate_seg() ');
1807: END IF;
1808: return(FF_VERROR);
1809: END validate_seg;

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

1802: WHEN OTHERS then
1803: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
1804: FND_MESSAGE.set_token('MSG', 'validate_seg() exception: ' || SQLERRM);
1805: IF (fnd_flex_server1.g_debug_level > 0) THEN
1806: FND_FLEX_SERVER1.add_debug('EXCEPTION others SV1.validate_seg() ');
1807: END IF;
1808: return(FF_VERROR);
1809: END validate_seg;
1810:

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

1917: l_display_value VARCHAR2(2000);
1918: l_utv_enc_message VARCHAR2(32000) := NULL;
1919: l_ssv_enc_message VARCHAR2(32000) := NULL;
1920: BEGIN
1921: IF (fnd_flex_server1.g_debug_level > 0) THEN
1922: FND_FLEX_SERVER1.add_debug('BEGIN SV1.coerce_format() ');
1923: END IF;
1924:
1925: x_storage_value := user_value;

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

1918: l_utv_enc_message VARCHAR2(32000) := NULL;
1919: l_ssv_enc_message VARCHAR2(32000) := NULL;
1920: BEGIN
1921: IF (fnd_flex_server1.g_debug_level > 0) THEN
1922: FND_FLEX_SERVER1.add_debug('BEGIN SV1.coerce_format() ');
1923: END IF;
1924:
1925: x_storage_value := user_value;
1926: x_display_value := user_value;

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

1951: x_storage_value => l_storage_value,
1952: x_display_value => l_display_value,
1953: x_success => l_success);
1954:
1955: IF (fnd_flex_server1.g_debug_level > 0) THEN
1956: add_debug(Rtrim(Substr(fnd_flex_val_util.get_debug,1,2000), chr_newline));
1957: END IF;
1958: IF (l_success = fnd_flex_val_util.g_ret_no_error) THEN
1959: --

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

2019: value_error_set := TRUE;
2020: entering_new_message := FALSE;
2021: END IF;
2022:
2023: IF (fnd_flex_server1.g_debug_level > 0) THEN
2024: FND_FLEX_SERVER1.add_debug('END SV1.coerce_format() ');
2025: END IF;
2026:
2027: RETURN(l_return);

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

2020: entering_new_message := FALSE;
2021: END IF;
2022:
2023: IF (fnd_flex_server1.g_debug_level > 0) THEN
2024: FND_FLEX_SERVER1.add_debug('END SV1.coerce_format() ');
2025: END IF;
2026:
2027: RETURN(l_return);
2028:

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

2027: RETURN(l_return);
2028:
2029: EXCEPTION
2030: WHEN OTHERS THEN
2031: IF (fnd_flex_server1.g_debug_level > 0) THEN
2032: FND_FLEX_SERVER1.add_debug('EXCEPTION SV1.coerce_format() ');
2033: END IF;
2034:
2035: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');

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

2028:
2029: EXCEPTION
2030: WHEN OTHERS THEN
2031: IF (fnd_flex_server1.g_debug_level > 0) THEN
2032: FND_FLEX_SERVER1.add_debug('EXCEPTION SV1.coerce_format() ');
2033: END IF;
2034:
2035: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2036: FND_MESSAGE.set_token('MSG', 'coerce_format() exception: ' || SQLERRM);

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

2111: AND (((p_is_value = 'V') AND (flex_value_meaning = val)) OR
2112: ((p_is_value = 'I') AND (flex_value = val)));
2113:
2114: BEGIN
2115: IF (fnd_flex_server1.g_debug_level > 0) THEN
2116: FND_FLEX_SERVER1.add_debug('BEGIN SV1.find_value()');
2117: END IF;
2118:
2119: -- Default the return value

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

2112: ((p_is_value = 'I') AND (flex_value = val)));
2113:
2114: BEGIN
2115: IF (fnd_flex_server1.g_debug_level > 0) THEN
2116: FND_FLEX_SERVER1.add_debug('BEGIN SV1.find_value()');
2117: END IF;
2118:
2119: -- Default the return value
2120:

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

2140:
2141: -- Validation = None, do nothing.
2142: --
2143: if(p_vs_info.valtype = 'N') then
2144: IF (fnd_flex_server1.g_debug_level > 0) THEN
2145: add_debug('N');
2146: END IF;
2147: this_value.stored_value := p_char_val;
2148: this_value.hidden_id := p_char_val;

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

2276: --
2277: -- Similar to Table validation.
2278: --
2279:
2280: IF (fnd_flex_server1.g_debug_level > 0) THEN
2281: add_debug('~F(' || p_vs_info.valtype || ')');
2282: END IF;
2283:
2284: v_code := table_validate(p_str_info, p_seg_info, p_vs_info,

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

2315: --
2316: -- Similar to Table validation.
2317: --
2318:
2319: IF (fnd_flex_server1.g_debug_level > 0) THEN
2320: add_debug('~F(' || p_vs_info.valtype || ')');
2321: END IF;
2322:
2323: v_code := table_validate(p_str_info, p_seg_info, p_vs_info,

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

2351: -- Table validation.
2352: --
2353: ELSIF (p_vs_info.valtype = 'F') then
2354:
2355: IF (fnd_flex_server1.g_debug_level > 0) THEN
2356: add_debug('F');
2357: END IF;
2358:
2359: v_code := table_validate(p_str_info, p_seg_info, p_vs_info,

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

2420: this_value.stored_value,
2421: this_value.displayed_value);
2422: end if;
2423: x_this_val_out := this_value;
2424: IF (fnd_flex_server1.g_debug_level > 0) THEN
2425: FND_FLEX_SERVER1.add_debug('END SV1.find_value(returns:' ||
2426: v_code || ')');
2427: END IF;
2428:

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

2421: this_value.displayed_value);
2422: end if;
2423: x_this_val_out := this_value;
2424: IF (fnd_flex_server1.g_debug_level > 0) THEN
2425: FND_FLEX_SERVER1.add_debug('END SV1.find_value(returns:' ||
2426: v_code || ')');
2427: END IF;
2428:
2429: return(v_code);

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

2430: EXCEPTION
2431: WHEN OTHERS then
2432: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2433: FND_MESSAGE.set_token('MSG', 'find_value() exception: ' || SQLERRM);
2434: IF (fnd_flex_server1.g_debug_level > 0) THEN
2435: FND_FLEX_SERVER1.add_debug('EXCEPTION others SV1.find_value()');
2436: END IF;
2437:
2438: return(FF_VERROR);

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

2431: WHEN OTHERS then
2432: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2433: FND_MESSAGE.set_token('MSG', 'find_value() exception: ' || SQLERRM);
2434: IF (fnd_flex_server1.g_debug_level > 0) THEN
2435: FND_FLEX_SERVER1.add_debug('EXCEPTION others SV1.find_value()');
2436: END IF;
2437:
2438: return(FF_VERROR);
2439: END find_value;

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

2595: if (l_vcode <> FF_VVALID) then
2596: return(l_vcode);
2597: end if;
2598:
2599: IF (fnd_flex_server1.g_debug_level > 0) THEN
2600: l_tmp_where_clause := NULL;
2601: IF (l_vcode = FF_VVALID) THEN
2602: FOR i IN 1 .. l_sql_pieces.COUNT LOOP
2603: IF (l_sql_pieces(i).piece_type = SSP_PIECE_TYPE_BIND) THEN

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

2966: RETURN VARCHAR2
2967: IS
2968: v_code VARCHAR2(1);
2969: BEGIN
2970: IF (fnd_flex_server1.g_debug_level > 0) THEN
2971: add_debug('BEGIN SV1.substitute_flex_binds3('''||
2972: SUBSTRB(p_string_in, 1, 500) || ''' ');
2973: END IF;
2974:

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

2999: return(FF_VVALID);
3000:
3001: EXCEPTION
3002: WHEN OTHERS then
3003: IF (fnd_flex_server1.g_debug_level > 0) THEN
3004: add_debug('EXCEPTION SV1.substitute_flex_binds3()');
3005: END IF;
3006: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3007: FND_MESSAGE.set_token('MSG', 'substitute_flex_binds3() exception: '

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

3029: RETURN VARCHAR2
3030: IS
3031: v_code VARCHAR2(1);
3032: BEGIN
3033: IF (fnd_flex_server1.g_debug_level > 0) THEN
3034: add_debug('BEGIN SV1.substitute_flex_binds5('''||
3035: SUBSTRB(p_string_in, 1, 500) || ''' ');
3036: END IF;
3037:

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

3064: return(FF_VVALID);
3065:
3066: EXCEPTION
3067: WHEN OTHERS then
3068: IF (fnd_flex_server1.g_debug_level > 0) THEN
3069: add_debug('EXCEPTION SV1.substitute_flex_binds5()');
3070: END IF;
3071: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3072: FND_MESSAGE.set_token('MSG', 'substitute_flex_binds5() exception: '

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

3108: -- :$PROFILES$. where is case-insensitive profile option name.
3109: -- :$FLEX$.[.] where name is case-sensitive, but portion not.
3110: -- :BLOCK.FIELD causes return of FF_VUNKNOWN error.
3111: --
3112: IF (fnd_flex_server1.g_debug_level > 0) THEN
3113: add_debug('BEGIN SV1.convert_bind_token(token=' || bind_token || ')');
3114: END IF;
3115:
3116: IF (INSTR(bind_token, ':$PROFILES$.') = 1) then

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

3209: bind_value := bind_val;
3210: l_return_code := FF_VVALID;
3211:
3212: <>
3213: IF (fnd_flex_server1.g_debug_level > 0) THEN
3214: add_debug('END SV1.convert_bind_token(value=' || bind_val || ')');
3215: END IF;
3216: RETURN(l_return_code);
3217: EXCEPTION

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

3215: END IF;
3216: RETURN(l_return_code);
3217: EXCEPTION
3218: WHEN OTHERS then
3219: IF (fnd_flex_server1.g_debug_level > 0) THEN
3220: add_debug('EXCEPTION others SV1.convert_bind_token()');
3221: END IF;
3222: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3223: FND_MESSAGE.set_token('MSG','convert_bind_token() exception: '||SQLERRM);

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

3245: l_bind_value VARCHAR2(2000);
3246: l_return_code VARCHAR2(100);
3247:
3248: BEGIN
3249: IF (fnd_flex_server1.g_debug_level > 0) THEN
3250: add_debug('BEGIN SV1.convert_bind_token2(bind=' || p_bind_token || ')');
3251: END IF;
3252:
3253: l_bind_value := NULL;

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

3292: x_bind_value := l_bind_value;
3293: l_return_code := FF_VVALID;
3294:
3295: <>
3296: IF (fnd_flex_server1.g_debug_level > 0) THEN
3297: add_debug('END SV1.convert_bind_token2(value=' || l_bind_value || ')');
3298: END IF;
3299: RETURN(l_return_code);
3300: EXCEPTION

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

3298: END IF;
3299: RETURN(l_return_code);
3300: EXCEPTION
3301: WHEN OTHERS then
3302: IF (fnd_flex_server1.g_debug_level > 0) THEN
3303: add_debug('EXCEPTION others SV1.convert_bind_token2()');
3304: END IF;
3305: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3306: FND_MESSAGE.set_token('MSG','convert_bind_token2() exception: '||SQLERRM);

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

3392: -- Now call function above to check the rules.
3393: --
3394: v_code := check_vrules(vrs, sqs, sumflg);
3395: if(v_code = FF_VVALID) then
3396: IF (fnd_flex_server1.g_debug_level > 0) THEN
3397: add_debug(' Combination passed vrules. ');
3398: END IF;
3399: retcode := VV_VALID;
3400: elsif(v_code = FF_VVRULE) then

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

3397: add_debug(' Combination passed vrules. ');
3398: END IF;
3399: retcode := VV_VALID;
3400: elsif(v_code = FF_VVRULE) then
3401: IF (fnd_flex_server1.g_debug_level > 0) THEN
3402: add_debug(' Combination failed vrules. ');
3403: END IF;
3404: retcode := VV_VALUES;
3405: else

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

3440: l_return_code VARCHAR2(10);
3441: l_security_status VARCHAR2(2000);
3442: l_error_message VARCHAR2(2000);
3443: BEGIN
3444: IF (fnd_flex_server1.g_debug_level > 0) THEN
3445: add_debug('BEGIN SV1.check_security()');
3446: END IF;
3447:
3448: --

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

3457: l_vsc_code := check_vsc(user_apid, user_respid, vsinfo.vsid,
3458: parentval, val, l_return_code);
3459: IF (l_vsc_code IN (fnd_plsql_cache.CACHE_VALID,
3460: fnd_plsql_cache.CACHE_INVALID)) THEN
3461: IF (fnd_flex_server1.g_debug_level > 0) THEN
3462: add_debug('Found in vsc.');
3463: END IF;
3464: GOTO label_return;
3465: END IF;

Line 3473: fnd_flex_server.check_value_security

3469: -- Continue on security check.
3470: --
3471: l_return_code := FF_VVALID;
3472:
3473: fnd_flex_server.check_value_security
3474: (p_security_check_mode => 'YH',
3475: p_flex_value_set_id => vsinfo.vsid,
3476: p_parent_flex_value => parentval,
3477: p_flex_value => val,

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

3478: p_resp_application_id => user_apid,
3479: p_responsibility_id => user_respid,
3480: x_security_status => l_security_status,
3481: x_error_message => l_error_message);
3482: IF (fnd_flex_server1.g_debug_level > 0) THEN
3483: add_debug('Hierarchy security: status :'||l_security_status || ' message : ' || l_error_message);
3484: END IF;
3485:
3486: IF (l_security_status <> 'NOT-SECURED') THEN

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

3499: IF (l_vsc_code IN (fnd_plsql_cache.CACHE_NOTFOUND)) THEN
3500: update_vsc(user_apid, user_respid, vsinfo.vsid,
3501: parentval, val, l_return_code);
3502: END IF;
3503: IF (fnd_flex_server1.g_debug_level > 0) THEN
3504: add_debug('END SV1.check_security()');
3505: END IF;
3506: RETURN(l_return_code);
3507: EXCEPTION

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

3507: EXCEPTION
3508: WHEN OTHERS then
3509: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3510: FND_MESSAGE.set_token('MSG','check_security() exception: ' || SQLERRM);
3511: IF (fnd_flex_server1.g_debug_level > 0) THEN
3512: add_debug('EXCEPTION SV1.check_security()');
3513: END IF;
3514:
3515: return(FF_VERROR);

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

3706: AND s.id_flex_num = keystruct.id_flex_num
3707: AND s.application_column_name = colname
3708: AND s.attribute_value = 'Y';
3709: BEGIN
3710: IF (fnd_flex_server1.g_debug_level > 0) THEN
3711: fnd_flex_server1.add_debug('BEGIN SV1.get_qualifiers()');
3712: END IF;
3713:
3714: sqcount := 0;

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

3707: AND s.application_column_name = colname
3708: AND s.attribute_value = 'Y';
3709: BEGIN
3710: IF (fnd_flex_server1.g_debug_level > 0) THEN
3711: fnd_flex_server1.add_debug('BEGIN SV1.get_qualifiers()');
3712: END IF;
3713:
3714: sqcount := 0;
3715: IF (ffstruct.isa_key_flexfield) THEN

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

3757: END IF;
3758:
3759: seg_quals.nquals := sqcount;
3760:
3761: IF (fnd_flex_server1.g_debug_level > 0) THEN
3762: fnd_flex_server1.add_debug('END SV1.get_qualifiers()');
3763: END IF;
3764:
3765: RETURN(sqcount);

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

3758:
3759: seg_quals.nquals := sqcount;
3760:
3761: IF (fnd_flex_server1.g_debug_level > 0) THEN
3762: fnd_flex_server1.add_debug('END SV1.get_qualifiers()');
3763: END IF;
3764:
3765: RETURN(sqcount);
3766: EXCEPTION

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

3766: EXCEPTION
3767: WHEN OTHERS then
3768: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3769: FND_MESSAGE.set_token('MSG', 'get_qualifiers() exception: ' || SQLERRM);
3770: IF (fnd_flex_server1.g_debug_level > 0) THEN
3771: fnd_flex_server1.add_debug('EXCEPTION SV1.get_qualifiers()');
3772: END IF;
3773:
3774: return(-1);

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

3767: WHEN OTHERS then
3768: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3769: FND_MESSAGE.set_token('MSG', 'get_qualifiers() exception: ' || SQLERRM);
3770: IF (fnd_flex_server1.g_debug_level > 0) THEN
3771: fnd_flex_server1.add_debug('EXCEPTION SV1.get_qualifiers()');
3772: END IF;
3773:
3774: return(-1);
3775:

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

3785: RETURN BOOLEAN
3786: IS
3787: l_vsi valuesetinfo;
3788: BEGIN
3789: IF (fnd_flex_server1.g_debug_level > 0) THEN
3790: fnd_flex_server1.add_debug('CALL SV1.get_value_set(' ||
3791: 'vsid:' || value_set_id || ')');
3792: END IF;
3793:

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

3786: IS
3787: l_vsi valuesetinfo;
3788: BEGIN
3789: IF (fnd_flex_server1.g_debug_level > 0) THEN
3790: fnd_flex_server1.add_debug('CALL SV1.get_value_set(' ||
3791: 'vsid:' || value_set_id || ')');
3792: END IF;
3793:
3794: g_cache_key := value_set_id;

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

3916: value_error_set := FALSE;
3917: entering_new_message := FALSE;
3918: EXCEPTION
3919: WHEN OTHERS then
3920: IF (fnd_flex_server1.g_debug_level > 0) THEN
3921: add_debug('value_error_init() exception: ' || SQLERRM);
3922: END IF;
3923: END value_error_init;
3924:

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

3943: entering_new_message := FALSE;
3944: end if;
3945: EXCEPTION
3946: WHEN OTHERS then
3947: IF (fnd_flex_server1.g_debug_level > 0) THEN
3948: add_debug('value_error_name() exception: ' || SQLERRM);
3949: END IF;
3950: END value_error_name;
3951:

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

3961: FND_MESSAGE.set_token(token_name, token_value);
3962: end if;
3963: EXCEPTION
3964: WHEN OTHERS then
3965: IF (fnd_flex_server1.g_debug_level > 0) THEN
3966: add_debug('value_error_token() exception: ' || SQLERRM);
3967: END IF;
3968: END value_error_token;
3969:

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

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

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

4073: return(isa_date(teststr, displayed_date_format(flexfmt, LENGTH(teststr)),
4074: outdate));
4075: EXCEPTION
4076: WHEN OTHERS then
4077: IF (fnd_flex_server1.g_debug_level > 0) THEN
4078: add_debug('isa_displayed_date() exception: ' || SQLERRM);
4079: END IF;
4080: return(FALSE);
4081: END isa_displayed_date;

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

4105: end if;
4106: return(TRUE);
4107: EXCEPTION
4108: WHEN OTHERS then
4109: IF (fnd_flex_server1.g_debug_level > 0) THEN
4110: add_debug('isa_date() exception: ' || SQLERRM);
4111: END IF;
4112: return(FALSE);
4113: END isa_date;

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

4436:
4437: fnd_dsql.do_binds;
4438:
4439: nprocessed := dbms_sql.execute(cursornum);
4440: IF (fnd_flex_server1.g_debug_level > 0) THEN
4441: add_debug('(DSQL_execute processed ' || to_char(nprocessed));
4442: add_debug(' rows.)');
4443: END IF;
4444: dbms_sql.close_cursor(cursornum);

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

4492: num_returned := dbms_sql.execute_and_fetch(cursornum, TRUE);
4493: if(num_returned = 1) then
4494: dbms_sql.column_value(cursornum, 1, selected_col);
4495: returned_column := selected_col;
4496: IF (fnd_flex_server1.g_debug_level > 0) THEN
4497: add_debug('(DSQL returned ' || selected_col || ')');
4498: END IF;
4499: else
4500: num_returned := -1;

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

4507:
4508: EXCEPTION
4509: WHEN NO_DATA_FOUND or invalid_rowid then
4510: returned_column := NULL;
4511: IF (fnd_flex_server1.g_debug_level > 0) THEN
4512: add_debug('(DSQL returned: NULL)');
4513: END IF;
4514: dbms_sql.close_cursor(cursornum);
4515: return(0);

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

4515: return(0);
4516: WHEN TOO_MANY_ROWS then
4517: dbms_sql.column_value(cursornum, 1, selected_col);
4518: returned_column := selected_col;
4519: IF (fnd_flex_server1.g_debug_level > 0) THEN
4520: add_debug('(DSQL returned: TOO MANY ROWS)');
4521: END IF;
4522: dbms_sql.close_cursor(cursornum);
4523: return(2);

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

4568: dbms_sql.define_column(cursornum, i, selected_cols(i), 2000);
4569: end loop;
4570: num_returned := dbms_sql.execute_and_fetch(cursornum, TRUE);
4571: if(num_returned = 1) then
4572: IF (fnd_flex_server1.g_debug_level > 0) THEN
4573: add_debug('(DSQL returned');
4574: END IF;
4575: for i in 1..n_selected_cols loop
4576: dbms_sql.column_value(cursornum, i, selected_cols(i));

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

4573: add_debug('(DSQL returned');
4574: END IF;
4575: for i in 1..n_selected_cols loop
4576: dbms_sql.column_value(cursornum, i, selected_cols(i));
4577: IF (fnd_flex_server1.g_debug_level > 0) THEN
4578: add_debug(' ''' || selected_cols(i) || '''');
4579: END IF;
4580: end loop;
4581: IF (fnd_flex_server1.g_debug_level > 0) THEN

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

4577: IF (fnd_flex_server1.g_debug_level > 0) THEN
4578: add_debug(' ''' || selected_cols(i) || '''');
4579: END IF;
4580: end loop;
4581: IF (fnd_flex_server1.g_debug_level > 0) THEN
4582: add_debug(')');
4583: END IF;
4584: else
4585: num_returned := -1;

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

4591: return(num_returned);
4592:
4593: EXCEPTION
4594: WHEN NO_DATA_FOUND OR invalid_rowid then
4595: IF (fnd_flex_server1.g_debug_level > 0) THEN
4596: add_debug('(DSQL returned: NULL)');
4597: END IF;
4598: dbms_sql.close_cursor(cursornum);
4599: return(0);

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

4597: END IF;
4598: dbms_sql.close_cursor(cursornum);
4599: return(0);
4600: WHEN TOO_MANY_ROWS then
4601: IF (fnd_flex_server1.g_debug_level > 0) THEN
4602: add_debug('(DSQL returned');
4603: END IF;
4604: for i in 1..n_selected_cols loop
4605: dbms_sql.column_value(cursornum, i, selected_cols(i));

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

4602: add_debug('(DSQL returned');
4603: END IF;
4604: for i in 1..n_selected_cols loop
4605: dbms_sql.column_value(cursornum, i, selected_cols(i));
4606: IF (fnd_flex_server1.g_debug_level > 0) THEN
4607: add_debug(' ''' || selected_cols(i) || '''');
4608: END IF;
4609: end loop;
4610: IF (fnd_flex_server1.g_debug_level > 0) THEN

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

4606: IF (fnd_flex_server1.g_debug_level > 0) THEN
4607: add_debug(' ''' || selected_cols(i) || '''');
4608: END IF;
4609: end loop;
4610: IF (fnd_flex_server1.g_debug_level > 0) THEN
4611: add_debug(')');
4612: add_debug('(DSQL returned: TOO MANY ROWS)');
4613: END IF;
4614: dbms_sql.close_cursor(cursornum);

Line 4689: fnd_flex_server1.g_debug_level := 0;

4685: PROCEDURE set_debugging(p_debug_mode IN VARCHAR2)
4686: IS
4687: BEGIN
4688: IF (p_debug_mode = 'OFF') THEN
4689: fnd_flex_server1.g_debug_level := 0;
4690: ELSIF (p_debug_mode = 'ERROR') THEN
4691: fnd_flex_server1.g_debug_level := 1;
4692: ELSIF (p_debug_mode = 'EXCEPTION') THEN
4693: fnd_flex_server1.g_debug_level := 2;

Line 4691: fnd_flex_server1.g_debug_level := 1;

4687: BEGIN
4688: IF (p_debug_mode = 'OFF') THEN
4689: fnd_flex_server1.g_debug_level := 0;
4690: ELSIF (p_debug_mode = 'ERROR') THEN
4691: fnd_flex_server1.g_debug_level := 1;
4692: ELSIF (p_debug_mode = 'EXCEPTION') THEN
4693: fnd_flex_server1.g_debug_level := 2;
4694: ELSIF (p_debug_mode = 'EVENT') THEN
4695: fnd_flex_server1.g_debug_level := 3;

Line 4693: fnd_flex_server1.g_debug_level := 2;

4689: fnd_flex_server1.g_debug_level := 0;
4690: ELSIF (p_debug_mode = 'ERROR') THEN
4691: fnd_flex_server1.g_debug_level := 1;
4692: ELSIF (p_debug_mode = 'EXCEPTION') THEN
4693: fnd_flex_server1.g_debug_level := 2;
4694: ELSIF (p_debug_mode = 'EVENT') THEN
4695: fnd_flex_server1.g_debug_level := 3;
4696: ELSIF (p_debug_mode = 'PROCEDURE') THEN
4697: fnd_flex_server1.g_debug_level := 4;

Line 4695: fnd_flex_server1.g_debug_level := 3;

4691: fnd_flex_server1.g_debug_level := 1;
4692: ELSIF (p_debug_mode = 'EXCEPTION') THEN
4693: fnd_flex_server1.g_debug_level := 2;
4694: ELSIF (p_debug_mode = 'EVENT') THEN
4695: fnd_flex_server1.g_debug_level := 3;
4696: ELSIF (p_debug_mode = 'PROCEDURE') THEN
4697: fnd_flex_server1.g_debug_level := 4;
4698: ELSIF (p_debug_mode = 'STATEMENT') THEN
4699: fnd_flex_server1.g_debug_level := 5;

Line 4697: fnd_flex_server1.g_debug_level := 4;

4693: fnd_flex_server1.g_debug_level := 2;
4694: ELSIF (p_debug_mode = 'EVENT') THEN
4695: fnd_flex_server1.g_debug_level := 3;
4696: ELSIF (p_debug_mode = 'PROCEDURE') THEN
4697: fnd_flex_server1.g_debug_level := 4;
4698: ELSIF (p_debug_mode = 'STATEMENT') THEN
4699: fnd_flex_server1.g_debug_level := 5;
4700: ELSIF (p_debug_mode = 'ALL') THEN
4701: fnd_flex_server1.g_debug_level := 6;

Line 4699: fnd_flex_server1.g_debug_level := 5;

4695: fnd_flex_server1.g_debug_level := 3;
4696: ELSIF (p_debug_mode = 'PROCEDURE') THEN
4697: fnd_flex_server1.g_debug_level := 4;
4698: ELSIF (p_debug_mode = 'STATEMENT') THEN
4699: fnd_flex_server1.g_debug_level := 5;
4700: ELSIF (p_debug_mode = 'ALL') THEN
4701: fnd_flex_server1.g_debug_level := 6;
4702: fnd_flex_val_util.set_debugging(TRUE);
4703: ELSE

Line 4701: fnd_flex_server1.g_debug_level := 6;

4697: fnd_flex_server1.g_debug_level := 4;
4698: ELSIF (p_debug_mode = 'STATEMENT') THEN
4699: fnd_flex_server1.g_debug_level := 5;
4700: ELSIF (p_debug_mode = 'ALL') THEN
4701: fnd_flex_server1.g_debug_level := 6;
4702: fnd_flex_val_util.set_debugging(TRUE);
4703: ELSE
4704: fnd_flex_server1.g_debug_level := 0;
4705: END IF;

Line 4704: fnd_flex_server1.g_debug_level := 0;

4700: ELSIF (p_debug_mode = 'ALL') THEN
4701: fnd_flex_server1.g_debug_level := 6;
4702: fnd_flex_val_util.set_debugging(TRUE);
4703: ELSE
4704: fnd_flex_server1.g_debug_level := 0;
4705: END IF;
4706: EXCEPTION
4707: WHEN OTHERS THEN
4708: fnd_flex_server1.g_debug_level := 0;

Line 4708: fnd_flex_server1.g_debug_level := 0;

4704: fnd_flex_server1.g_debug_level := 0;
4705: END IF;
4706: EXCEPTION
4707: WHEN OTHERS THEN
4708: fnd_flex_server1.g_debug_level := 0;
4709: END set_debugging;
4710:
4711: /* ----------------------------------------------------------------------- */
4712: /* Adds to debug string */

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

4718: l_debug_string VARCHAR2(32000);
4719: l_newline_pos NUMBER;
4720: l_debug_line VARCHAR2(32000);
4721: BEGIN
4722: IF (fnd_flex_server1.g_debug_level = 0) THEN
4723: RETURN;
4724: END IF;
4725: IF (p_debug_mode = 'OFF') THEN
4726: l_code_level := 0;

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

4739: ELSE
4740: l_code_level := 0;
4741: END IF;
4742:
4743: IF (l_code_level <= fnd_flex_server1.g_debug_level) THEN
4744: IF (g_debug_array_size = 0) THEN
4745: g_debug_array_size := 1;
4746: g_debug_array(g_debug_array_size) :=
4747: ('DEBUG LEVEL:'||To_char(fnd_flex_server1.g_debug_level) ||

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

4743: IF (l_code_level <= fnd_flex_server1.g_debug_level) THEN
4744: IF (g_debug_array_size = 0) THEN
4745: g_debug_array_size := 1;
4746: g_debug_array(g_debug_array_size) :=
4747: ('DEBUG LEVEL:'||To_char(fnd_flex_server1.g_debug_level) ||
4748: chr_newline);
4749: END IF;
4750:
4751: l_debug_string := (Substr(Rtrim(Ltrim(p_debug_string)), 1, MAX_RETSTR_LEN-10) ||

Line 4804: x_nsql := fnd_flex_server1.get_nsql_internal;

4800: /* -------------------------------------------------- */
4801: PROCEDURE x_get_nsql(x_nsql OUT nocopy NUMBER)
4802: IS
4803: BEGIN
4804: x_nsql := fnd_flex_server1.get_nsql_internal;
4805: EXCEPTION
4806: WHEN OTHERS THEN
4807: x_nsql := 0;
4808: END;

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

4814: BEGIN
4815: l_sql_num := Nvl(p_sql_num, 0);
4816: x_npiece := 0;
4817: IF ((l_sql_num > 0) AND
4818: (l_sql_num <= fnd_flex_server1.get_nsql_internal)) THEN
4819: x_npiece :=Ceil(Nvl(Lengthb(sqlstrings(l_sql_num)),0)/MAX_RETSTR_LEN);
4820: END IF;
4821: EXCEPTION
4822: WHEN OTHERS THEN

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

4833: l_sql_num := Nvl(p_sql_num, 0);
4834: l_piece_num := Nvl(p_piece_num, 0);
4835: x_sql_piece := NULL;
4836: IF ((l_sql_num > 0) AND
4837: (l_sql_num <= fnd_flex_server1.get_nsql_internal) AND
4838: (l_piece_num > 0)) THEN
4839: x_sql_piece := substrb(sqlstrings(l_sql_num),
4840: 1 + (l_piece_num - 1) * MAX_RETSTR_LEN,
4841: MAX_RETSTR_LEN);

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

5007: l_segnum pls_integer;
5008: l_delimiter VARCHAR2(10);
5009: BEGIN
5010: l_delimiter := Substr(sepchar, 1, 1);
5011: IF (fnd_flex_server1.g_debug_level > 0) THEN
5012: fnd_flex_server1.add_debug('BEGIN SV1.from_stringarray()');
5013: END IF;
5014: --
5015: -- Make sure delimiter is valid.

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

5008: l_delimiter VARCHAR2(10);
5009: BEGIN
5010: l_delimiter := Substr(sepchar, 1, 1);
5011: IF (fnd_flex_server1.g_debug_level > 0) THEN
5012: fnd_flex_server1.add_debug('BEGIN SV1.from_stringarray()');
5013: END IF;
5014: --
5015: -- Make sure delimiter is valid.
5016: --

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

5074: END IF;
5075: END LOOP;
5076:
5077: <>
5078: IF (fnd_flex_server1.g_debug_level > 0) THEN
5079: fnd_flex_server1.add_debug('END SV1.from_stringarray()');
5080: END IF;
5081: RETURN(l_return);
5082: EXCEPTION

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

5075: END LOOP;
5076:
5077: <>
5078: IF (fnd_flex_server1.g_debug_level > 0) THEN
5079: fnd_flex_server1.add_debug('END SV1.from_stringarray()');
5080: END IF;
5081: RETURN(l_return);
5082: EXCEPTION
5083: WHEN OTHERS THEN

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

5080: END IF;
5081: RETURN(l_return);
5082: EXCEPTION
5083: WHEN OTHERS THEN
5084: IF (fnd_flex_server1.g_debug_level > 0) THEN
5085: fnd_flex_server1.add_debug('EXCEPTION SV1.from_stringarray()');
5086: END IF;
5087: raise_application_error(-20001, 'SV1.from_stringarray. SQLERRM : ' || Sqlerrm);
5088: END from_stringarray;

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

5081: RETURN(l_return);
5082: EXCEPTION
5083: WHEN OTHERS THEN
5084: IF (fnd_flex_server1.g_debug_level > 0) THEN
5085: fnd_flex_server1.add_debug('EXCEPTION SV1.from_stringarray()');
5086: END IF;
5087: raise_application_error(-20001, 'SV1.from_stringarray. SQLERRM : ' || Sqlerrm);
5088: END from_stringarray;
5089:

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

5153: sepchar IN VARCHAR2) RETURN VARCHAR2
5154: IS
5155: l_return VARCHAR2(2000) := NULL;
5156: BEGIN
5157: IF (fnd_flex_server1.g_debug_level > 0) THEN
5158: fnd_flex_server1.add_debug('CALL SV1.from_stringarray2()');
5159: END IF;
5160: --
5161: -- Concatenate the segment values. No separator after the last value.

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

5154: IS
5155: l_return VARCHAR2(2000) := NULL;
5156: BEGIN
5157: IF (fnd_flex_server1.g_debug_level > 0) THEN
5158: fnd_flex_server1.add_debug('CALL SV1.from_stringarray2()');
5159: END IF;
5160: --
5161: -- Concatenate the segment values. No separator after the last value.
5162: --

Line 5349: END fnd_flex_server1;

5345: m_nd := Substr(tmp_varchar2,1,1);
5346: ELSE
5347: m_nd := '.';
5348: END IF;
5349: END fnd_flex_server1;