[Home] [Help]
284: end_d := to_char(to_date(end_d, DATE_PASS_FORMAT), DATE_TEST_FMT);
285:
286: -- Translate returned encoded message
287: --
288: FND_MESSAGE.set_encoded(retmsg);
289: retmsg := FND_MESSAGE.get;
290:
291: retstr := 'VStatus: ' || to_char(v_stat);
292: retstr := retstr || ' CCID: ' || to_char(ccid_o);
285:
286: -- Translate returned encoded message
287: --
288: FND_MESSAGE.set_encoded(retmsg);
289: retmsg := FND_MESSAGE.get;
290:
291: retstr := 'VStatus: ' || to_char(v_stat);
292: retstr := retstr || ' CCID: ' || to_char(ccid_o);
293: retstr := retstr || ' Vals: ' || cat_vals;
352: cat_ids, cat_desc, dlim, v_stat, s_stat, errseg, retmsg);
353:
354: -- Translate returned encoded message
355: --
356: FND_MESSAGE.set_encoded(retmsg);
357: retmsg := FND_MESSAGE.get;
358:
359: retstr := 'VStatus: ' || to_char(v_stat);
360: retstr := retstr || ' Vals: ' || cat_vals;
353:
354: -- Translate returned encoded message
355: --
356: FND_MESSAGE.set_encoded(retmsg);
357: retmsg := FND_MESSAGE.get;
358:
359: retstr := 'VStatus: ' || to_char(v_stat);
360: retstr := retstr || ' Vals: ' || cat_vals;
361: retstr := retstr || ' Ids: ' || cat_ids;
406: retmsg);
407:
408: -- Translate returned encoded message
409: --
410: FND_MESSAGE.set_encoded(retmsg);
411: retmsg := FND_MESSAGE.get;
412:
413: retstr := 'VStatus: ' || to_char(v_stat);
414: retstr := retstr || ' Nsegs: ' || to_char(n_segs);
407:
408: -- Translate returned encoded message
409: --
410: FND_MESSAGE.set_encoded(retmsg);
411: retmsg := FND_MESSAGE.get;
412:
413: retstr := 'VStatus: ' || to_char(v_stat);
414: retstr := retstr || ' Nsegs: ' || to_char(n_segs);
415: retstr := retstr || ' Vals: ' || cat_vals;
452: n_segs, retmsg);
453:
454: -- Translate returned encoded message
455: --
456: FND_MESSAGE.set_encoded(retmsg);
457: retmsg := FND_MESSAGE.get;
458:
459: retstr := retstr || ' Insertable: ' || insrt_map;
460: retstr := retstr || ' Updatable: ' || updat_map;
453:
454: -- Translate returned encoded message
455: --
456: FND_MESSAGE.set_encoded(retmsg);
457: retmsg := FND_MESSAGE.get;
458:
459: retstr := retstr || ' Insertable: ' || insrt_map;
460: retstr := retstr || ' Updatable: ' || updat_map;
461: retstr := retstr || ' Displayable: ' || dspl_map;
490: display_segs, concat_segs, segnum, retmsg);
491:
492: -- Translate returned encoded message
493: --
494: FND_MESSAGE.set_encoded(retmsg);
495: retmsg := FND_MESSAGE.get;
496:
497: retstr := retstr || 'Secured_segment: ' || to_char(segnum);
498: retstr := retstr || ' Msg: ' || retmsg;
491:
492: -- Translate returned encoded message
493: --
494: FND_MESSAGE.set_encoded(retmsg);
495: retmsg := FND_MESSAGE.get;
496:
497: retstr := retstr || 'Secured_segment: ' || to_char(segnum);
498: retstr := retstr || ' Msg: ' || retmsg;
499: retstr := retstr || ' Debug: ' || get_debug(1);
513:
514: /* ------------------------------------------------------------------------ */
515: /* Externalized function so client can use hash-lock mechanism. */
516: /* Computes and locks hash value from ids passed in. */
517: /* Returns hash number 0-999 or sets FND_MESSAGE and returns < 0 */
518: /* if error. */
519: /* ------------------------------------------------------------------------ */
520:
521: FUNCTION hash_lock(application_id IN NUMBER,
564: return(hash_number);
565:
566: EXCEPTION
567: WHEN deadlock then
568: FND_MESSAGE.set_name('FND', 'FLEX-HASH DEADLOCK');
569: return(-60);
570: WHEN OTHERS then
571: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
572: FND_MESSAGE.set_token('MSG','hash_lock() exception: ' || SQLERRM);
567: WHEN deadlock then
568: FND_MESSAGE.set_name('FND', 'FLEX-HASH DEADLOCK');
569: return(-60);
570: WHEN OTHERS then
571: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
572: FND_MESSAGE.set_token('MSG','hash_lock() exception: ' || SQLERRM);
573: return(-10);
574:
575: END hash_lock;
568: FND_MESSAGE.set_name('FND', 'FLEX-HASH DEADLOCK');
569: return(-60);
570: WHEN OTHERS then
571: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
572: FND_MESSAGE.set_token('MSG','hash_lock() exception: ' || SQLERRM);
573: return(-10);
574:
575: END hash_lock;
576:
594: id_flex_num,
595: delimiter,
596: concat_ids);
597: IF (l_number < 0) THEN
598: l_encoded_message := fnd_message.get_encoded;
599: fnd_message.set_encoded(l_encoded_message);
600: l_message := fnd_message.get;
601: fnd_message.set_encoded(l_encoded_message);
602: END IF;
595: delimiter,
596: concat_ids);
597: IF (l_number < 0) THEN
598: l_encoded_message := fnd_message.get_encoded;
599: fnd_message.set_encoded(l_encoded_message);
600: l_message := fnd_message.get;
601: fnd_message.set_encoded(l_encoded_message);
602: END IF;
603: x_message := l_message;
596: concat_ids);
597: IF (l_number < 0) THEN
598: l_encoded_message := fnd_message.get_encoded;
599: fnd_message.set_encoded(l_encoded_message);
600: l_message := fnd_message.get;
601: fnd_message.set_encoded(l_encoded_message);
602: END IF;
603: x_message := l_message;
604: RETURN(l_number);
597: IF (l_number < 0) THEN
598: l_encoded_message := fnd_message.get_encoded;
599: fnd_message.set_encoded(l_encoded_message);
600: l_message := fnd_message.get;
601: fnd_message.set_encoded(l_encoded_message);
602: END IF;
603: x_message := l_message;
604: RETURN(l_number);
605: EXCEPTION
604: RETURN(l_number);
605: EXCEPTION
606: WHEN OTHERS THEN
607: --
608: -- This part is to take care of fnd_message exceptions.
609: -- I cannot call fnd_message here. Just return hard coded
610: -- error message.
611: --
612: x_message := 'FLEX : client_hash_lock() exception:' ||Sqlerrm;
605: EXCEPTION
606: WHEN OTHERS THEN
607: --
608: -- This part is to take care of fnd_message exceptions.
609: -- I cannot call fnd_message here. Just return hard coded
610: -- error message.
611: --
612: x_message := 'FLEX : client_hash_lock() exception:' ||Sqlerrm;
613: return(-99);
758: vstatus := FND_FLEX_SERVER1.VV_ERROR;
759:
760: <
761:
762: message := FND_MESSAGE.get_encoded;
763: IF (fnd_flex_server1.g_debug_level > 0) THEN
764: fnd_flex_server1.add_debug('END SSV.validate_combination()');
765: END IF;
766: return;
766: return;
767:
768: EXCEPTION
769: WHEN OTHERS then
770: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
771: FND_MESSAGE.set_token('MSG','SV1.validate_combination() exception: '||SQLERRM);
772: message := FND_MESSAGE.get_encoded;
773: vstatus := FND_FLEX_SERVER1.VV_ERROR;
774: IF (fnd_flex_server1.g_debug_level > 0) THEN
767:
768: EXCEPTION
769: WHEN OTHERS then
770: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
771: FND_MESSAGE.set_token('MSG','SV1.validate_combination() exception: '||SQLERRM);
772: message := FND_MESSAGE.get_encoded;
773: vstatus := FND_FLEX_SERVER1.VV_ERROR;
774: IF (fnd_flex_server1.g_debug_level > 0) THEN
775: fnd_flex_server1.add_debug
768: EXCEPTION
769: WHEN OTHERS then
770: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
771: FND_MESSAGE.set_token('MSG','SV1.validate_combination() exception: '||SQLERRM);
772: message := FND_MESSAGE.get_encoded;
773: vstatus := FND_FLEX_SERVER1.VV_ERROR;
774: IF (fnd_flex_server1.g_debug_level > 0) THEN
775: fnd_flex_server1.add_debug
776: ('EXCEPTION others SSV.validate_combination()');
871: concat_ids_out := concatenate_ids(nvalidated, value_ids, delim);
872: concat_desc := concatenate_fulldescs(nvalidated, value_descs,
873: disp_segs, delim);
874: seg_delimiter := delim;
875: message := FND_MESSAGE.get_encoded;
876: return;
877: end if;
878:
879: message := FND_MESSAGE.get_encoded;
875: message := FND_MESSAGE.get_encoded;
876: return;
877: end if;
878:
879: message := FND_MESSAGE.get_encoded;
880: vstatus := FND_FLEX_SERVER1.VV_ERROR;
881: return;
882:
883: EXCEPTION
881: return;
882:
883: EXCEPTION
884: WHEN OTHERS then
885: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
886: FND_MESSAGE.set_token('MSG','validate_descflex() exception: '||SQLERRM);
887: message := FND_MESSAGE.get_encoded;
888: vstatus := FND_FLEX_SERVER1.VV_ERROR;
889: return;
882:
883: EXCEPTION
884: WHEN OTHERS then
885: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
886: FND_MESSAGE.set_token('MSG','validate_descflex() exception: '||SQLERRM);
887: message := FND_MESSAGE.get_encoded;
888: vstatus := FND_FLEX_SERVER1.VV_ERROR;
889: return;
890: END validate_descflex;
883: EXCEPTION
884: WHEN OTHERS then
885: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
886: FND_MESSAGE.set_token('MSG','validate_descflex() exception: '||SQLERRM);
887: message := FND_MESSAGE.get_encoded;
888: vstatus := FND_FLEX_SERVER1.VV_ERROR;
889: return;
890: END validate_descflex;
891:
1056: seg_codes := segcodes;
1057: n_segments := nvals;
1058: err_segnum := errsegnum;
1059: v_status := errcode;
1060: message := FND_MESSAGE.get_encoded;
1061: return;
1062:
1063: <
1064: message := FND_MESSAGE.get_encoded;
1060: message := FND_MESSAGE.get_encoded;
1061: return;
1062:
1063: <
1064: message := FND_MESSAGE.get_encoded;
1065: v_status := FND_FLEX_SERVER1.VV_ERROR;
1066: return;
1067:
1068: EXCEPTION
1066: return;
1067:
1068: EXCEPTION
1069: WHEN OTHERS then
1070: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
1071: FND_MESSAGE.set_token('MSG','pre_window() exception: '||SQLERRM);
1072: message := FND_MESSAGE.get_encoded;
1073: n_segments := 0;
1074: return;
1067:
1068: EXCEPTION
1069: WHEN OTHERS then
1070: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
1071: FND_MESSAGE.set_token('MSG','pre_window() exception: '||SQLERRM);
1072: message := FND_MESSAGE.get_encoded;
1073: n_segments := 0;
1074: return;
1075: END pre_window;
1068: EXCEPTION
1069: WHEN OTHERS then
1070: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
1071: FND_MESSAGE.set_token('MSG','pre_window() exception: '||SQLERRM);
1072: message := FND_MESSAGE.get_encoded;
1073: n_segments := 0;
1074: return;
1075: END pre_window;
1076:
1185: insert_map := ins_map;
1186: update_map := upd_map;
1187: required_map := rqd_map;
1188: n_segments := n_segs;
1189: FND_MESSAGE.clear;
1190: return;
1191:
1192: <
1193: message := FND_MESSAGE.get_encoded;
1189: FND_MESSAGE.clear;
1190: return;
1191:
1192: <
1193: message := FND_MESSAGE.get_encoded;
1194: n_segments := 0;
1195: return;
1196:
1197: EXCEPTION
1195: return;
1196:
1197: EXCEPTION
1198: WHEN OTHERS then
1199: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
1200: FND_MESSAGE.set_token('MSG', 'segment_maps() exception: ' || SQLERRM);
1201: message := FND_MESSAGE.get_encoded;
1202: n_segments := 0;
1203: return;
1196:
1197: EXCEPTION
1198: WHEN OTHERS then
1199: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
1200: FND_MESSAGE.set_token('MSG', 'segment_maps() exception: ' || SQLERRM);
1201: message := FND_MESSAGE.get_encoded;
1202: n_segments := 0;
1203: return;
1204: END segment_maps;
1197: EXCEPTION
1198: WHEN OTHERS then
1199: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
1200: FND_MESSAGE.set_token('MSG', 'segment_maps() exception: ' || SQLERRM);
1201: message := FND_MESSAGE.get_encoded;
1202: n_segments := 0;
1203: return;
1204: END segment_maps;
1205:
1278: secseg := FND_FLEX_SERVER1.vals_secured(kff_id, nsegs, segs, disp_segs,
1279: resp_apid, resp_id);
1280: segnum := secseg;
1281: if(secseg = 0) then
1282: FND_MESSAGE.clear;
1283: else
1284: message := FND_MESSAGE.get_encoded;
1285: end if;
1286: return;
1280: segnum := secseg;
1281: if(secseg = 0) then
1282: FND_MESSAGE.clear;
1283: else
1284: message := FND_MESSAGE.get_encoded;
1285: end if;
1286: return;
1287:
1288: <
1285: end if;
1286: return;
1287:
1288: <
1289: message := FND_MESSAGE.get_encoded;
1290: segnum := -5;
1291: return;
1292:
1293: EXCEPTION
1291: return;
1292:
1293: EXCEPTION
1294: WHEN OTHERS then
1295: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
1296: FND_MESSAGE.set_token('MSG','segs_secured() exception: '||SQLERRM);
1297: message := FND_MESSAGE.get_encoded;
1298: segnum := -4;
1299: return;
1292:
1293: EXCEPTION
1294: WHEN OTHERS then
1295: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
1296: FND_MESSAGE.set_token('MSG','segs_secured() exception: '||SQLERRM);
1297: message := FND_MESSAGE.get_encoded;
1298: segnum := -4;
1299: return;
1300: END segs_secured;
1293: EXCEPTION
1294: WHEN OTHERS then
1295: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
1296: FND_MESSAGE.set_token('MSG','segs_secured() exception: '||SQLERRM);
1297: message := FND_MESSAGE.get_encoded;
1298: segnum := -4;
1299: return;
1300: END segs_secured;
1301:
1415: GOTO return_false;
1416: end if;
1417: ccid := to_number(ccid_string);
1418: if(ccid > MAX_CCID) then
1419: FND_MESSAGE.set_name('FND', 'FLEX-CCID TOO BIG');
1420: FND_MESSAGE.set_token('CCIDLIMIT', to_char(MAX_CCID));
1421: FND_MESSAGE.set_token('SEQNAME', combtbl.application_table_name||'_S');
1422: GOTO return_false;
1423: end if;
1416: end if;
1417: ccid := to_number(ccid_string);
1418: if(ccid > MAX_CCID) then
1419: FND_MESSAGE.set_name('FND', 'FLEX-CCID TOO BIG');
1420: FND_MESSAGE.set_token('CCIDLIMIT', to_char(MAX_CCID));
1421: FND_MESSAGE.set_token('SEQNAME', combtbl.application_table_name||'_S');
1422: GOTO return_false;
1423: end if;
1424: end if;
1417: ccid := to_number(ccid_string);
1418: if(ccid > MAX_CCID) then
1419: FND_MESSAGE.set_name('FND', 'FLEX-CCID TOO BIG');
1420: FND_MESSAGE.set_token('CCIDLIMIT', to_char(MAX_CCID));
1421: FND_MESSAGE.set_token('SEQNAME', combtbl.application_table_name||'_S');
1422: GOTO return_false;
1423: end if;
1424: end if;
1425:
1554: RETURN(FALSE);
1555:
1556: EXCEPTION
1557: WHEN NO_DATA_FOUND then
1558: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
1559: FND_MESSAGE.set_token('MSG', 'Hash value ' ||
1560: to_char(hash_number) || ' not found.');
1561: ROLLBACK TO SAVEPOINT pre_insert_comb_at;
1562: ROLLBACK; -- required by AT.
1555:
1556: EXCEPTION
1557: WHEN NO_DATA_FOUND then
1558: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
1559: FND_MESSAGE.set_token('MSG', 'Hash value ' ||
1560: to_char(hash_number) || ' not found.');
1561: ROLLBACK TO SAVEPOINT pre_insert_comb_at;
1562: ROLLBACK; -- required by AT.
1563: return(FALSE);
1561: ROLLBACK TO SAVEPOINT pre_insert_comb_at;
1562: ROLLBACK; -- required by AT.
1563: return(FALSE);
1564: WHEN TOO_MANY_ROWS then
1565: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
1566: FND_MESSAGE.set_token('MSG', 'Hash value ' ||
1567: to_char(hash_number) || ' not unique.');
1568: ROLLBACK TO SAVEPOINT pre_insert_comb_at;
1569: ROLLBACK; -- required by AT.
1562: ROLLBACK; -- required by AT.
1563: return(FALSE);
1564: WHEN TOO_MANY_ROWS then
1565: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
1566: FND_MESSAGE.set_token('MSG', 'Hash value ' ||
1567: to_char(hash_number) || ' not unique.');
1568: ROLLBACK TO SAVEPOINT pre_insert_comb_at;
1569: ROLLBACK; -- required by AT.
1570: return(FALSE);
1568: ROLLBACK TO SAVEPOINT pre_insert_comb_at;
1569: ROLLBACK; -- required by AT.
1570: return(FALSE);
1571: WHEN TIMEOUT_ON_RESOURCE then
1572: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
1573: FND_MESSAGE.set_token('MSG', 'Timeout waiting for lock on hash table.');
1574: ROLLBACK TO SAVEPOINT pre_insert_comb_at;
1575: ROLLBACK; -- required by AT.
1576: return(FALSE);
1569: ROLLBACK; -- required by AT.
1570: return(FALSE);
1571: WHEN TIMEOUT_ON_RESOURCE then
1572: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
1573: FND_MESSAGE.set_token('MSG', 'Timeout waiting for lock on hash table.');
1574: ROLLBACK TO SAVEPOINT pre_insert_comb_at;
1575: ROLLBACK; -- required by AT.
1576: return(FALSE);
1577: WHEN deadlock then
1574: ROLLBACK TO SAVEPOINT pre_insert_comb_at;
1575: ROLLBACK; -- required by AT.
1576: return(FALSE);
1577: WHEN deadlock then
1578: FND_MESSAGE.set_name('FND', 'FLEX-HASH DEADLOCK');
1579: ROLLBACK TO SAVEPOINT pre_insert_comb_at;
1580: ROLLBACK; -- required by AT.
1581: return(FALSE);
1582: WHEN OTHERS then
1579: ROLLBACK TO SAVEPOINT pre_insert_comb_at;
1580: ROLLBACK; -- required by AT.
1581: return(FALSE);
1582: WHEN OTHERS then
1583: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
1584: FND_MESSAGE.set_token('MSG','insert_combination() exception: '||SQLERRM);
1585: ROLLBACK TO SAVEPOINT pre_insert_comb_at;
1586: ROLLBACK; -- required by AT.
1587: return(FALSE);
1580: ROLLBACK; -- required by AT.
1581: return(FALSE);
1582: WHEN OTHERS then
1583: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
1584: FND_MESSAGE.set_token('MSG','insert_combination() exception: '||SQLERRM);
1585: ROLLBACK TO SAVEPOINT pre_insert_comb_at;
1586: ROLLBACK; -- required by AT.
1587: return(FALSE);
1588: END insert_combination_AT;
1784: big_arg := NULL;
1785: end if;
1786:
1787: if(big_arg is not null) then
1788: FND_MESSAGE.set_name('FND', 'FLEX-ARGUMENT TOO LONG');
1789: FND_MESSAGE.set_token('ARG', big_arg);
1790: FND_MESSAGE.set_token('MAXLEN', to_char(MAX_ARG_LEN));
1791: goto return_error;
1792: end if;
1785: end if;
1786:
1787: if(big_arg is not null) then
1788: FND_MESSAGE.set_name('FND', 'FLEX-ARGUMENT TOO LONG');
1789: FND_MESSAGE.set_token('ARG', big_arg);
1790: FND_MESSAGE.set_token('MAXLEN', to_char(MAX_ARG_LEN));
1791: goto return_error;
1792: end if;
1793:
1786:
1787: if(big_arg is not null) then
1788: FND_MESSAGE.set_name('FND', 'FLEX-ARGUMENT TOO LONG');
1789: FND_MESSAGE.set_token('ARG', big_arg);
1790: FND_MESSAGE.set_token('MAXLEN', to_char(MAX_ARG_LEN));
1791: goto return_error;
1792: end if;
1793:
1794: -- Limit concatenated segment length for compatibility with client
1793:
1794: -- Limit concatenated segment length for compatibility with client
1795: --
1796: if(LENGTHB(concat_segs) > MAX_CATSEG_LEN) then
1797: FND_MESSAGE.set_name('FND', 'FLEX-CONCAT LEN > IAPFLEN');
1798: FND_MESSAGE.set_token('MAXFLDLEN', to_char(MAX_CATSEG_LEN));
1799: goto return_error;
1800: end if;
1801:
1794: -- Limit concatenated segment length for compatibility with client
1795: --
1796: if(LENGTHB(concat_segs) > MAX_CATSEG_LEN) then
1797: FND_MESSAGE.set_name('FND', 'FLEX-CONCAT LEN > IAPFLEN');
1798: FND_MESSAGE.set_token('MAXFLDLEN', to_char(MAX_CATSEG_LEN));
1799: goto return_error;
1800: end if;
1801:
1802: -- First check that operation makes sense
1808: end if;
1809:
1810: if((invoking_mode_l is null) or
1811: (invoking_mode_l NOT IN ('V', 'P', 'L', 'G'))) then
1812: FND_MESSAGE.set_name('FND', 'FLEX-SSV BAD INVOKE');
1813: goto return_error;
1814: end if;
1815:
1816: if((validate_mode is null) or
1815:
1816: if((validate_mode is null) or
1817: (validate_mode not in
1818: ('FULL', 'PARTIAL', 'PARTIAL_IF_POSSIBLE', 'FOR_INSERT'))) then
1819: FND_MESSAGE.set_name('FND', 'FLEX-SSV BAD VALMODE');
1820: goto return_error;
1821: end if;
1822:
1823: if((invoking_mode_l in ('V', 'P', 'G')) and
1822:
1823: if((invoking_mode_l in ('V', 'P', 'G')) and
1824: ((vals_or_ids is null) or
1825: (vals_or_ids not in ('V', 'I')))) then
1826: FND_MESSAGE.set_name('FND', 'FLEX-SSV BAD FLAG');
1827: goto return_error;
1828: end if;
1829:
1830: -- Set validation flags.
1962: -- LOADID() in FULL mode.
1963: -- Look up the segment id's from the table before validating them.
1964: --
1965: if((ccid_in is null) or (ccid_in < 0)) then
1966: FND_MESSAGE.set_name('FND', 'FLEX-BAD CCID INPUT');
1967: FND_MESSAGE.set_token('CCID', to_char(ccid_in));
1968: goto return_error;
1969: end if;
1970:
1963: -- Look up the segment id's from the table before validating them.
1964: --
1965: if((ccid_in is null) or (ccid_in < 0)) then
1966: FND_MESSAGE.set_name('FND', 'FLEX-BAD CCID INPUT');
1967: FND_MESSAGE.set_token('CCID', to_char(ccid_in));
1968: goto return_error;
1969: end if;
1970:
1971: -- Get segment mapping to code combinations table
2012: tbl_quals.derived_cols, n_xcols, rq_xcols, NULL,
2013: comb_id, value_ids, tbl_derv, tbl_quals.sq_values,
2014: xcol_vals);
2015: if(nfound = 0) then
2016: FND_MESSAGE.set_name('FND', 'FLEX-COMBINATION NOT FOUND');
2017: FND_MESSAGE.set_token('CCID', ccid_in);
2018: FND_MESSAGE.set_token('APNM', flex_app_sname);
2019: FND_MESSAGE.set_token('CODE', flex_code);
2020: FND_MESSAGE.set_token('NUM', flex_num);
2013: comb_id, value_ids, tbl_derv, tbl_quals.sq_values,
2014: xcol_vals);
2015: if(nfound = 0) then
2016: FND_MESSAGE.set_name('FND', 'FLEX-COMBINATION NOT FOUND');
2017: FND_MESSAGE.set_token('CCID', ccid_in);
2018: FND_MESSAGE.set_token('APNM', flex_app_sname);
2019: FND_MESSAGE.set_token('CODE', flex_code);
2020: FND_MESSAGE.set_token('NUM', flex_num);
2021: end if;
2014: xcol_vals);
2015: if(nfound = 0) then
2016: FND_MESSAGE.set_name('FND', 'FLEX-COMBINATION NOT FOUND');
2017: FND_MESSAGE.set_token('CCID', ccid_in);
2018: FND_MESSAGE.set_token('APNM', flex_app_sname);
2019: FND_MESSAGE.set_token('CODE', flex_code);
2020: FND_MESSAGE.set_token('NUM', flex_num);
2021: end if;
2022: if(nfound <> 1) then
2015: if(nfound = 0) then
2016: FND_MESSAGE.set_name('FND', 'FLEX-COMBINATION NOT FOUND');
2017: FND_MESSAGE.set_token('CCID', ccid_in);
2018: FND_MESSAGE.set_token('APNM', flex_app_sname);
2019: FND_MESSAGE.set_token('CODE', flex_code);
2020: FND_MESSAGE.set_token('NUM', flex_num);
2021: end if;
2022: if(nfound <> 1) then
2023: goto return_error;
2016: FND_MESSAGE.set_name('FND', 'FLEX-COMBINATION NOT FOUND');
2017: FND_MESSAGE.set_token('CCID', ccid_in);
2018: FND_MESSAGE.set_token('APNM', flex_app_sname);
2019: FND_MESSAGE.set_token('CODE', flex_code);
2020: FND_MESSAGE.set_token('NUM', flex_num);
2021: end if;
2022: if(nfound <> 1) then
2023: goto return_error;
2024: end if;
2170: (ccid_in <> -1) and (comb_id = ccid_in)) then
2171: errcode := FND_FLEX_SERVER1.VV_VALID;
2172: goto return_outvars;
2173: elsif(nfound >= 1) then
2174: FND_MESSAGE.set_name('FND', 'FLEX-COMB. ALREADY EXISTS');
2175: errcode := FND_FLEX_SERVER1.VV_COMBEXISTS;
2176: goto return_outvars;
2177: else
2178: if(nfound <> 0) then
2218: comb_id, value_ids, tbl_derv, tbl_quals.sq_values,
2219: xcol_vals);
2220: if(nfound = 1) THEN
2221: IF (NOT parse_set_msg(where_clause_msg)) THEN
2222: FND_MESSAGE.set_name('FND', 'FLEX-WHERE CLAUSE FAILURE');
2223: FND_MESSAGE.set_token('WHERE', where_clause);
2224: END IF;
2225: errcode := FND_FLEX_SERVER1.VV_WHEREFAILURE;
2226: goto return_outvars;
2219: xcol_vals);
2220: if(nfound = 1) THEN
2221: IF (NOT parse_set_msg(where_clause_msg)) THEN
2222: FND_MESSAGE.set_name('FND', 'FLEX-WHERE CLAUSE FAILURE');
2223: FND_MESSAGE.set_token('WHERE', where_clause);
2224: END IF;
2225: errcode := FND_FLEX_SERVER1.VV_WHEREFAILURE;
2226: goto return_outvars;
2227: elsif((nfound > 1) or (nfound < 0)) then
2237: -- This part was before the WHERE_CLAUSE check.
2238: --
2239: if(not dynam_insrt) THEN
2240: IF (NOT parse_set_msg(no_combmsg)) THEN
2241: FND_MESSAGE.set_name('FND', 'FLEX-NO DYNAMIC INSERTS');
2242: END IF;
2243: errcode := FND_FLEX_SERVER1.VV_COMBNOTFOUND;
2244: goto return_outvars;
2245: end if;
2316: else
2317: ROLLBACK TO SAVEPOINT pre_insert_comb;
2318: if(for_insert and ((ccid_in is null) or (ccid_in = 0) or
2319: (ccid_in = -1) or (comb_id <> ccid_in))) then
2320: FND_MESSAGE.set_name('FND', 'FLEX-COMB. ALREADY EXISTS');
2321: errcode := FND_FLEX_SERVER1.VV_COMBEXISTS;
2322: goto return_error;
2323: end if;
2324: errcode:=check_table_comb(tbl_derv,tbl_quals,v_rules,
2347: errcode := FND_FLEX_SERVER1.VV_VALID;
2348: ELSE
2349: if(for_insert and ((ccid_in is null) or (ccid_in = 0) or
2350: (ccid_in = -1) or (comb_id <> ccid_in))) then
2351: FND_MESSAGE.set_name('FND', 'FLEX-COMB. ALREADY EXISTS');
2352: errcode := FND_FLEX_SERVER1.VV_COMBEXISTS;
2353: goto return_error;
2354: end if;
2355: errcode:=check_table_comb(tbl_derv,tbl_quals,v_rules,
2405: RETURN;
2406:
2407: EXCEPTION
2408: WHEN OTHERS then
2409: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2410: FND_MESSAGE.set_token('MSG','SSV.validation_engine() exception: '||SQLERRM);
2411: v_status := FND_FLEX_SERVER1.VV_ERROR;
2412: IF (fnd_flex_server1.g_debug_level > 0) THEN
2413: fnd_flex_server1.add_debug('EXCEPTION others SSV.validation_engine()');
2406:
2407: EXCEPTION
2408: WHEN OTHERS then
2409: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2410: FND_MESSAGE.set_token('MSG','SSV.validation_engine() exception: '||SQLERRM);
2411: v_status := FND_FLEX_SERVER1.VV_ERROR;
2412: IF (fnd_flex_server1.g_debug_level > 0) THEN
2413: fnd_flex_server1.add_debug('EXCEPTION others SSV.validation_engine()');
2414: END IF;
2453: l_posq := Instr(l_awc, '''''', l_posq + 2, 1);
2454: END LOOP;
2455:
2456: IF (l_pos2 = 0) THEN
2457: fnd_message.set_name('FND', 'FLEX-SQL MISSING QUOTE');
2458: fnd_message.set_token('CLAUSE', Substr(l_awc, 1, 1000));
2459: RETURN(FALSE);
2460: END IF;
2461:
2454: END LOOP;
2455:
2456: IF (l_pos2 = 0) THEN
2457: fnd_message.set_name('FND', 'FLEX-SQL MISSING QUOTE');
2458: fnd_message.set_token('CLAUSE', Substr(l_awc, 1, 1000));
2459: RETURN(FALSE);
2460: END IF;
2461:
2462: fnd_dsql.add_bind(REPLACE(Substr(l_awc, l_pos1 + 1, (l_pos2-l_pos1)- 1),
2470:
2471: RETURN(TRUE);
2472: EXCEPTION
2473: WHEN OTHERS THEN
2474: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2475: FND_MESSAGE.set_token('MSG','x_bind_additional_where_clause() exception: '||SQLERRM);
2476: RETURN(FALSE);
2477: END x_bind_additional_where_clause;
2478:
2471: RETURN(TRUE);
2472: EXCEPTION
2473: WHEN OTHERS THEN
2474: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2475: FND_MESSAGE.set_token('MSG','x_bind_additional_where_clause() exception: '||SQLERRM);
2476: RETURN(FALSE);
2477: END x_bind_additional_where_clause;
2478:
2479:
2640:
2641: end if;
2642:
2643: if(nrecords > 1) then
2644: FND_MESSAGE.set_name('FND', 'FLEX-DUPLICATE CCID');
2645: FND_MESSAGE.set_token('CCID', to_char(ccid));
2646: end if;
2647:
2648: return(nrecords);
2641: end if;
2642:
2643: if(nrecords > 1) then
2644: FND_MESSAGE.set_name('FND', 'FLEX-DUPLICATE CCID');
2645: FND_MESSAGE.set_token('CCID', to_char(ccid));
2646: end if;
2647:
2648: return(nrecords);
2649:
2648: return(nrecords);
2649:
2650: EXCEPTION
2651: WHEN OTHERS then
2652: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2653: FND_MESSAGE.set_token('MSG','SSV.find_combination() exception: '||SQLERRM);
2654: return(-3);
2655:
2656: END find_combination;
2649:
2650: EXCEPTION
2651: WHEN OTHERS then
2652: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2653: FND_MESSAGE.set_token('MSG','SSV.find_combination() exception: '||SQLERRM);
2654: return(-3);
2655:
2656: END find_combination;
2657:
2691: /* functionality. */
2692: /* If the user PLSQL validation function returns FALSE, */
2693: /* insert_combination() returns FALSE indicating a fatal error */
2694: /* condition. In this case the error message is already loaded */
2695: /* in FND_MESSAGE. */
2696: /* A SAVEPOINT must be issued externally to this function and */
2697: /* a rollback must occur if insert_combination returns an error */
2698: /* of if it returns new_comb = FALSE to unlock the hash number. */
2699: /* */
2806: return(FALSE);
2807: end if;
2808: ccid := to_number(ccid_string);
2809: if(ccid > MAX_CCID) then
2810: FND_MESSAGE.set_name('FND', 'FLEX-CCID TOO BIG');
2811: FND_MESSAGE.set_token('CCIDLIMIT', to_char(MAX_CCID));
2812: FND_MESSAGE.set_token('SEQNAME', combtbl.application_table_name||'_S');
2813: return(FALSE);
2814: end if;
2807: end if;
2808: ccid := to_number(ccid_string);
2809: if(ccid > MAX_CCID) then
2810: FND_MESSAGE.set_name('FND', 'FLEX-CCID TOO BIG');
2811: FND_MESSAGE.set_token('CCIDLIMIT', to_char(MAX_CCID));
2812: FND_MESSAGE.set_token('SEQNAME', combtbl.application_table_name||'_S');
2813: return(FALSE);
2814: end if;
2815: end if;
2808: ccid := to_number(ccid_string);
2809: if(ccid > MAX_CCID) then
2810: FND_MESSAGE.set_name('FND', 'FLEX-CCID TOO BIG');
2811: FND_MESSAGE.set_token('CCIDLIMIT', to_char(MAX_CCID));
2812: FND_MESSAGE.set_token('SEQNAME', combtbl.application_table_name||'_S');
2813: return(FALSE);
2814: end if;
2815: end if;
2816:
2917: return(TRUE);
2918:
2919: EXCEPTION
2920: WHEN NO_DATA_FOUND then
2921: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2922: FND_MESSAGE.set_token('MSG', 'Hash value ' ||
2923: to_char(hash_number) || ' not found.');
2924: return(FALSE);
2925: WHEN TOO_MANY_ROWS then
2918:
2919: EXCEPTION
2920: WHEN NO_DATA_FOUND then
2921: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2922: FND_MESSAGE.set_token('MSG', 'Hash value ' ||
2923: to_char(hash_number) || ' not found.');
2924: return(FALSE);
2925: WHEN TOO_MANY_ROWS then
2926: FND_MESSAGE.set_token('MSG', 'Hash value ' ||
2922: FND_MESSAGE.set_token('MSG', 'Hash value ' ||
2923: to_char(hash_number) || ' not found.');
2924: return(FALSE);
2925: WHEN TOO_MANY_ROWS then
2926: FND_MESSAGE.set_token('MSG', 'Hash value ' ||
2927: to_char(hash_number) || ' not unique.');
2928: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2929: return(FALSE);
2930: WHEN TIMEOUT_ON_RESOURCE then
2924: return(FALSE);
2925: WHEN TOO_MANY_ROWS then
2926: FND_MESSAGE.set_token('MSG', 'Hash value ' ||
2927: to_char(hash_number) || ' not unique.');
2928: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2929: return(FALSE);
2930: WHEN TIMEOUT_ON_RESOURCE then
2931: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2932: FND_MESSAGE.set_token('MSG', 'Timeout waiting for lock on hash table.');
2927: to_char(hash_number) || ' not unique.');
2928: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2929: return(FALSE);
2930: WHEN TIMEOUT_ON_RESOURCE then
2931: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2932: FND_MESSAGE.set_token('MSG', 'Timeout waiting for lock on hash table.');
2933: return(FALSE);
2934: WHEN deadlock then
2935: FND_MESSAGE.set_name('FND', 'FLEX-HASH DEADLOCK');
2928: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2929: return(FALSE);
2930: WHEN TIMEOUT_ON_RESOURCE then
2931: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2932: FND_MESSAGE.set_token('MSG', 'Timeout waiting for lock on hash table.');
2933: return(FALSE);
2934: WHEN deadlock then
2935: FND_MESSAGE.set_name('FND', 'FLEX-HASH DEADLOCK');
2936: return(FALSE);
2931: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2932: FND_MESSAGE.set_token('MSG', 'Timeout waiting for lock on hash table.');
2933: return(FALSE);
2934: WHEN deadlock then
2935: FND_MESSAGE.set_name('FND', 'FLEX-HASH DEADLOCK');
2936: return(FALSE);
2937: WHEN OTHERS then
2938: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2939: FND_MESSAGE.set_token('MSG','insert_combination() exception: '||SQLERRM);
2934: WHEN deadlock then
2935: FND_MESSAGE.set_name('FND', 'FLEX-HASH DEADLOCK');
2936: return(FALSE);
2937: WHEN OTHERS then
2938: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2939: FND_MESSAGE.set_token('MSG','insert_combination() exception: '||SQLERRM);
2940: return(FALSE);
2941:
2942: END insert_combination;
2935: FND_MESSAGE.set_name('FND', 'FLEX-HASH DEADLOCK');
2936: return(FALSE);
2937: WHEN OTHERS then
2938: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2939: FND_MESSAGE.set_token('MSG','insert_combination() exception: '||SQLERRM);
2940: return(FALSE);
2941:
2942: END insert_combination;
2943:
2973: return(MOD(hval, NHASH));
2974:
2975: EXCEPTION
2976: WHEN OTHERS then
2977: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2978: FND_MESSAGE.set_token('MSG', 'hash_segs() exception: ' || SQLERRM);
2979: return(-1);
2980:
2981: END hash_segs;
2974:
2975: EXCEPTION
2976: WHEN OTHERS then
2977: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2978: FND_MESSAGE.set_token('MSG', 'hash_segs() exception: ' || SQLERRM);
2979: return(-1);
2980:
2981: END hash_segs;
2982:
3019: -- Check if combination turned on
3020: --
3021: if(check_effective) then
3022: if(t_dval.enabled_flag <> 'Y') then
3023: FND_MESSAGE.set_name('FND', 'FLEX-COMBINATION DISABLED');
3024: return(FND_FLEX_SERVER1.VV_VALUES);
3025: end if;
3026: if((v_date is not null) and
3027: ((Trunc(v_date) < Trunc(nvl(t_dval.start_valid, v_date))) or
3025: end if;
3026: if((v_date is not null) and
3027: ((Trunc(v_date) < Trunc(nvl(t_dval.start_valid, v_date))) or
3028: (Trunc(v_date) > Trunc(nvl(t_dval.end_valid, v_date))))) then
3029: FND_MESSAGE.set_name('FND', 'FLEX-COMBINATION HAS EXPIRED');
3030: return(FND_FLEX_SERVER1.VV_VALUES);
3031: end if;
3032: end if;
3033:
3036: return(FND_FLEX_SERVER1.check_comb_vrules(v_rules, t_quals,
3037: t_dval.summary_flag));
3038: EXCEPTION
3039: WHEN OTHERS then
3040: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3041: FND_MESSAGE.set_token('MSG','check_table_comb() exception: '||SQLERRM);
3042: return(FND_FLEX_SERVER1.VV_ERROR);
3043:
3044: END check_table_comb;
3037: t_dval.summary_flag));
3038: EXCEPTION
3039: WHEN OTHERS then
3040: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3041: FND_MESSAGE.set_token('MSG','check_table_comb() exception: '||SQLERRM);
3042: return(FND_FLEX_SERVER1.VV_ERROR);
3043:
3044: END check_table_comb;
3045:
3323:
3324: -- Make sure it is not too big
3325: --
3326: if(LENGTHB(s) > MAX_ARG_LEN) then
3327: FND_MESSAGE.set_name('FND', 'FLEX-ARGUMENT TOO LONG');
3328: FND_MESSAGE.set_token('ARG', 'VALATT');
3329: FND_MESSAGE.set_token('MAXLEN', to_char(MAX_ARG_LEN));
3330: return(-6);
3331: end if;
3324: -- Make sure it is not too big
3325: --
3326: if(LENGTHB(s) > MAX_ARG_LEN) then
3327: FND_MESSAGE.set_name('FND', 'FLEX-ARGUMENT TOO LONG');
3328: FND_MESSAGE.set_token('ARG', 'VALATT');
3329: FND_MESSAGE.set_token('MAXLEN', to_char(MAX_ARG_LEN));
3330: return(-6);
3331: end if;
3332:
3325: --
3326: if(LENGTHB(s) > MAX_ARG_LEN) then
3327: FND_MESSAGE.set_name('FND', 'FLEX-ARGUMENT TOO LONG');
3328: FND_MESSAGE.set_token('ARG', 'VALATT');
3329: FND_MESSAGE.set_token('MAXLEN', to_char(MAX_ARG_LEN));
3330: return(-6);
3331: end if;
3332:
3333: IF (s IS NOT NULL) THEN
3340: for i in 1..nsegs loop
3341: if(fqsq_names(i) is not null) then
3342: fqname_end := INSTR(fqsq_names(i), FND_FLEX_SERVER1.SEPARATOR);
3343: if(fqname_end <= 0) then
3344: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VALATT NOSEP');
3345: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3346: FND_MESSAGE.set_token('NAME', fqsq_names(i));
3347: return(-1);
3348: elsif(fqname_end > 31) then
3341: if(fqsq_names(i) is not null) then
3342: fqname_end := INSTR(fqsq_names(i), FND_FLEX_SERVER1.SEPARATOR);
3343: if(fqname_end <= 0) then
3344: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VALATT NOSEP');
3345: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3346: FND_MESSAGE.set_token('NAME', fqsq_names(i));
3347: return(-1);
3348: elsif(fqname_end > 31) then
3349: FND_MESSAGE.set_name('FND', 'FLEX-QUALIFIER TOO LONG');
3342: fqname_end := INSTR(fqsq_names(i), FND_FLEX_SERVER1.SEPARATOR);
3343: if(fqname_end <= 0) then
3344: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VALATT NOSEP');
3345: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3346: FND_MESSAGE.set_token('NAME', fqsq_names(i));
3347: return(-1);
3348: elsif(fqname_end > 31) then
3349: FND_MESSAGE.set_name('FND', 'FLEX-QUALIFIER TOO LONG');
3350: FND_MESSAGE.set_token('TOKNAME', 'VALATT');
3345: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3346: FND_MESSAGE.set_token('NAME', fqsq_names(i));
3347: return(-1);
3348: elsif(fqname_end > 31) then
3349: FND_MESSAGE.set_name('FND', 'FLEX-QUALIFIER TOO LONG');
3350: FND_MESSAGE.set_token('TOKNAME', 'VALATT');
3351: FND_MESSAGE.set_token('NAME', SUBSTR(fqsq_names(i), 1, 30));
3352: return(-2);
3353: else
3346: FND_MESSAGE.set_token('NAME', fqsq_names(i));
3347: return(-1);
3348: elsif(fqname_end > 31) then
3349: FND_MESSAGE.set_name('FND', 'FLEX-QUALIFIER TOO LONG');
3350: FND_MESSAGE.set_token('TOKNAME', 'VALATT');
3351: FND_MESSAGE.set_token('NAME', SUBSTR(fqsq_names(i), 1, 30));
3352: return(-2);
3353: else
3354: var.fq_names(i) := UPPER(SUBSTR(fqsq_names(i), 1, fqname_end - 1));
3347: return(-1);
3348: elsif(fqname_end > 31) then
3349: FND_MESSAGE.set_name('FND', 'FLEX-QUALIFIER TOO LONG');
3350: FND_MESSAGE.set_token('TOKNAME', 'VALATT');
3351: FND_MESSAGE.set_token('NAME', SUBSTR(fqsq_names(i), 1, 30));
3352: return(-2);
3353: else
3354: var.fq_names(i) := UPPER(SUBSTR(fqsq_names(i), 1, fqname_end - 1));
3355: sq_name := UPPER(SUBSTR(fqsq_names(i),
3354: var.fq_names(i) := UPPER(SUBSTR(fqsq_names(i), 1, fqname_end - 1));
3355: sq_name := UPPER(SUBSTR(fqsq_names(i),
3356: fqname_end + LENGTH(FND_FLEX_SERVER1.SEPARATOR), 30));
3357: if(sq_name is null) then
3358: FND_MESSAGE.set_name('FND', 'FLEX-MISSING SQNAME');
3359: FND_MESSAGE.set_token('TOKNAME', 'VALATT');
3360: return(-3);
3361: end if;
3362: var.sq_names(i) := sq_name;
3355: sq_name := UPPER(SUBSTR(fqsq_names(i),
3356: fqname_end + LENGTH(FND_FLEX_SERVER1.SEPARATOR), 30));
3357: if(sq_name is null) then
3358: FND_MESSAGE.set_name('FND', 'FLEX-MISSING SQNAME');
3359: FND_MESSAGE.set_token('TOKNAME', 'VALATT');
3360: return(-3);
3361: end if;
3362: var.sq_names(i) := sq_name;
3363: end if;
3361: end if;
3362: var.sq_names(i) := sq_name;
3363: end if;
3364: else
3365: FND_MESSAGE.set_name('FND', 'FLEX-MISSING SQNAME');
3366: FND_MESSAGE.set_token('TOKNAME', 'VALATT');
3367: return(-4);
3368: end if;
3369: end loop;
3362: var.sq_names(i) := sq_name;
3363: end if;
3364: else
3365: FND_MESSAGE.set_name('FND', 'FLEX-MISSING SQNAME');
3366: FND_MESSAGE.set_token('TOKNAME', 'VALATT');
3367: return(-4);
3368: end if;
3369: end loop;
3370: var.nrqstd := nsegs;
3371: return(nsegs);
3372:
3373: EXCEPTION
3374: WHEN OTHERS then
3375: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3376: FND_MESSAGE.set_token('MSG', 'parse_va_rqst() exception: ' || SQLERRM);
3377: return(-5);
3378:
3379: END parse_va_rqst;
3372:
3373: EXCEPTION
3374: WHEN OTHERS then
3375: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3376: FND_MESSAGE.set_token('MSG', 'parse_va_rqst() exception: ' || SQLERRM);
3377: return(-5);
3378:
3379: END parse_va_rqst;
3380:
3393:
3394: -- Make sure it is not too big
3395: --
3396: if(LENGTHB(s) > MAX_ARG_LEN) then
3397: FND_MESSAGE.set_name('FND', 'FLEX-ARGUMENT TOO LONG');
3398: FND_MESSAGE.set_token('ARG', 'DERIVED');
3399: FND_MESSAGE.set_token('MAXLEN', to_char(MAX_ARG_LEN));
3400: return(-6);
3401: end if;
3394: -- Make sure it is not too big
3395: --
3396: if(LENGTHB(s) > MAX_ARG_LEN) then
3397: FND_MESSAGE.set_name('FND', 'FLEX-ARGUMENT TOO LONG');
3398: FND_MESSAGE.set_token('ARG', 'DERIVED');
3399: FND_MESSAGE.set_token('MAXLEN', to_char(MAX_ARG_LEN));
3400: return(-6);
3401: end if;
3402:
3395: --
3396: if(LENGTHB(s) > MAX_ARG_LEN) then
3397: FND_MESSAGE.set_name('FND', 'FLEX-ARGUMENT TOO LONG');
3398: FND_MESSAGE.set_token('ARG', 'DERIVED');
3399: FND_MESSAGE.set_token('MAXLEN', to_char(MAX_ARG_LEN));
3400: return(-6);
3401: end if;
3402:
3403: IF (s IS NOT NULL) THEN
3410: for i in 1..nsegs loop
3411: if(sqnames(i) is not null) then
3412: dr.sq_names(i) := UPPER(SUBSTR(sqnames(i), 1, 30));
3413: else
3414: FND_MESSAGE.set_name('FND', 'FLEX-MISSING SQNAME');
3415: FND_MESSAGE.set_token('TOKNAME', 'DERIVED');
3416: return(-1);
3417: end if;
3418: end loop;
3411: if(sqnames(i) is not null) then
3412: dr.sq_names(i) := UPPER(SUBSTR(sqnames(i), 1, 30));
3413: else
3414: FND_MESSAGE.set_name('FND', 'FLEX-MISSING SQNAME');
3415: FND_MESSAGE.set_token('TOKNAME', 'DERIVED');
3416: return(-1);
3417: end if;
3418: end loop;
3419: dr.nrqstd := nsegs;
3420: return(nsegs);
3421:
3422: EXCEPTION
3423: WHEN OTHERS then
3424: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3425: FND_MESSAGE.set_token('MSG', 'parse_drv_rqst() exception: '||SQLERRM);
3426: return(-2);
3427:
3428: END parse_drv_rqst;
3421:
3422: EXCEPTION
3423: WHEN OTHERS then
3424: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3425: FND_MESSAGE.set_token('MSG', 'parse_drv_rqst() exception: '||SQLERRM);
3426: return(-2);
3427:
3428: END parse_drv_rqst;
3429:
3481: -- Flexfield qualifier name
3482: --
3483: endp := INSTR(s, FND_FLEX_SERVER1.SEPARATOR, bgn);
3484: if(endp <= 0) then
3485: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NOSEP');
3486: FND_MESSAGE.set_token('TOKNUM', to_char(n));
3487: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3488: return(-1);
3489: else
3482: --
3483: endp := INSTR(s, FND_FLEX_SERVER1.SEPARATOR, bgn);
3484: if(endp <= 0) then
3485: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NOSEP');
3486: FND_MESSAGE.set_token('TOKNUM', to_char(n));
3487: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3488: return(-1);
3489: else
3490: tokn := UPPER(LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS));
3483: endp := INSTR(s, FND_FLEX_SERVER1.SEPARATOR, bgn);
3484: if(endp <= 0) then
3485: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NOSEP');
3486: FND_MESSAGE.set_token('TOKNUM', to_char(n));
3487: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3488: return(-1);
3489: else
3490: tokn := UPPER(LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS));
3491: if((tokn is not null) and (LENGTHB(tokn) > 30)) then
3488: return(-1);
3489: else
3490: tokn := UPPER(LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS));
3491: if((tokn is not null) and (LENGTHB(tokn) > 30)) then
3492: FND_MESSAGE.set_name('FND', 'FLEX-QUALIFIER TOO LONG');
3493: FND_MESSAGE.set_token('TOKNAME', 'VRULE');
3494: FND_MESSAGE.set_token('NAME', SUBSTR(s, bgn, 30));
3495: return(-1);
3496: end if;
3489: else
3490: tokn := UPPER(LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS));
3491: if((tokn is not null) and (LENGTHB(tokn) > 30)) then
3492: FND_MESSAGE.set_name('FND', 'FLEX-QUALIFIER TOO LONG');
3493: FND_MESSAGE.set_token('TOKNAME', 'VRULE');
3494: FND_MESSAGE.set_token('NAME', SUBSTR(s, bgn, 30));
3495: return(-1);
3496: end if;
3497: vr.fq_names(n) := tokn;
3490: tokn := UPPER(LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS));
3491: if((tokn is not null) and (LENGTHB(tokn) > 30)) then
3492: FND_MESSAGE.set_name('FND', 'FLEX-QUALIFIER TOO LONG');
3493: FND_MESSAGE.set_token('TOKNAME', 'VRULE');
3494: FND_MESSAGE.set_token('NAME', SUBSTR(s, bgn, 30));
3495: return(-1);
3496: end if;
3497: vr.fq_names(n) := tokn;
3498: bgn := endp + seplen;
3501: -- Segment qualifier name
3502: --
3503: endp := INSTR(s, FND_FLEX_SERVER1.SEPARATOR, bgn);
3504: if(endp <= 0) then
3505: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NOSEP');
3506: FND_MESSAGE.set_token('TOKNUM', to_char(n));
3507: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3508: return(-1);
3509: else
3502: --
3503: endp := INSTR(s, FND_FLEX_SERVER1.SEPARATOR, bgn);
3504: if(endp <= 0) then
3505: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NOSEP');
3506: FND_MESSAGE.set_token('TOKNUM', to_char(n));
3507: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3508: return(-1);
3509: else
3510: tokn := UPPER(LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS));
3503: endp := INSTR(s, FND_FLEX_SERVER1.SEPARATOR, bgn);
3504: if(endp <= 0) then
3505: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NOSEP');
3506: FND_MESSAGE.set_token('TOKNUM', to_char(n));
3507: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3508: return(-1);
3509: else
3510: tokn := UPPER(LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS));
3511: if(tokn is null) then
3508: return(-1);
3509: else
3510: tokn := UPPER(LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS));
3511: if(tokn is null) then
3512: FND_MESSAGE.set_name('FND', 'FLEX-MISSING SQNAME');
3513: FND_MESSAGE.set_token('TOKNAME', 'VRULE');
3514: return(-1);
3515: elsif(LENGTHB(tokn) > 30) then
3516: FND_MESSAGE.set_name('FND', 'FLEX-QUALIFIER TOO LONG');
3509: else
3510: tokn := UPPER(LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS));
3511: if(tokn is null) then
3512: FND_MESSAGE.set_name('FND', 'FLEX-MISSING SQNAME');
3513: FND_MESSAGE.set_token('TOKNAME', 'VRULE');
3514: return(-1);
3515: elsif(LENGTHB(tokn) > 30) then
3516: FND_MESSAGE.set_name('FND', 'FLEX-QUALIFIER TOO LONG');
3517: FND_MESSAGE.set_token('TOKNAME', 'VRULE');
3512: FND_MESSAGE.set_name('FND', 'FLEX-MISSING SQNAME');
3513: FND_MESSAGE.set_token('TOKNAME', 'VRULE');
3514: return(-1);
3515: elsif(LENGTHB(tokn) > 30) then
3516: FND_MESSAGE.set_name('FND', 'FLEX-QUALIFIER TOO LONG');
3517: FND_MESSAGE.set_token('TOKNAME', 'VRULE');
3518: FND_MESSAGE.set_token('NAME', SUBSTR(s, bgn, 30));
3519: return(-1);
3520: else
3513: FND_MESSAGE.set_token('TOKNAME', 'VRULE');
3514: return(-1);
3515: elsif(LENGTHB(tokn) > 30) then
3516: FND_MESSAGE.set_name('FND', 'FLEX-QUALIFIER TOO LONG');
3517: FND_MESSAGE.set_token('TOKNAME', 'VRULE');
3518: FND_MESSAGE.set_token('NAME', SUBSTR(s, bgn, 30));
3519: return(-1);
3520: else
3521: sq_name := tokn;
3514: return(-1);
3515: elsif(LENGTHB(tokn) > 30) then
3516: FND_MESSAGE.set_name('FND', 'FLEX-QUALIFIER TOO LONG');
3517: FND_MESSAGE.set_token('TOKNAME', 'VRULE');
3518: FND_MESSAGE.set_token('NAME', SUBSTR(s, bgn, 30));
3519: return(-1);
3520: else
3521: sq_name := tokn;
3522: vr.sq_names(n) := tokn;
3527: -- Include/Exclude indicator
3528: --
3529: endp := INSTR(s, FND_FLEX_SERVER1.SEPARATOR, bgn);
3530: if(endp <= 0) then
3531: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NOSEP');
3532: FND_MESSAGE.set_token('TOKNUM', to_char(n));
3533: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3534: return(-1);
3535: end if;
3528: --
3529: endp := INSTR(s, FND_FLEX_SERVER1.SEPARATOR, bgn);
3530: if(endp <= 0) then
3531: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NOSEP');
3532: FND_MESSAGE.set_token('TOKNUM', to_char(n));
3533: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3534: return(-1);
3535: end if;
3536: tokn := LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS);
3529: endp := INSTR(s, FND_FLEX_SERVER1.SEPARATOR, bgn);
3530: if(endp <= 0) then
3531: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NOSEP');
3532: FND_MESSAGE.set_token('TOKNUM', to_char(n));
3533: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3534: return(-1);
3535: end if;
3536: tokn := LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS);
3537: if(tokn is null) then
3534: return(-1);
3535: end if;
3536: tokn := LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS);
3537: if(tokn is null) then
3538: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NO IE');
3539: FND_MESSAGE.set_token('NAME', sq_name);
3540: return(-1);
3541: end if;
3542: ie_flag := SUBSTR(tokn, 1, 1);
3535: end if;
3536: tokn := LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS);
3537: if(tokn is null) then
3538: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NO IE');
3539: FND_MESSAGE.set_token('NAME', sq_name);
3540: return(-1);
3541: end if;
3542: ie_flag := SUBSTR(tokn, 1, 1);
3543: vr.ie_flags(n) := ie_flag;
3541: end if;
3542: ie_flag := SUBSTR(tokn, 1, 1);
3543: vr.ie_flags(n) := ie_flag;
3544: if(ie_flag not in ('I', 'E')) then
3545: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE BAD IE');
3546: FND_MESSAGE.set_token('NAME', sq_name);
3547: return(-1);
3548: end if;
3549: bgn := endp + seplen;
3542: ie_flag := SUBSTR(tokn, 1, 1);
3543: vr.ie_flags(n) := ie_flag;
3544: if(ie_flag not in ('I', 'E')) then
3545: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE BAD IE');
3546: FND_MESSAGE.set_token('NAME', sq_name);
3547: return(-1);
3548: end if;
3549: bgn := endp + seplen;
3550:
3551: -- Error Message and Application short name
3552: --
3553: endp := INSTR(s, FND_FLEX_SERVER1.SEPARATOR, bgn);
3554: if(endp <= 0) then
3555: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NOSEP');
3556: FND_MESSAGE.set_token('TOKNUM', to_char(n));
3557: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3558: return(-1);
3559: end if;
3552: --
3553: endp := INSTR(s, FND_FLEX_SERVER1.SEPARATOR, bgn);
3554: if(endp <= 0) then
3555: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NOSEP');
3556: FND_MESSAGE.set_token('TOKNUM', to_char(n));
3557: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3558: return(-1);
3559: end if;
3560: tokn := LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS);
3553: endp := INSTR(s, FND_FLEX_SERVER1.SEPARATOR, bgn);
3554: if(endp <= 0) then
3555: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NOSEP');
3556: FND_MESSAGE.set_token('TOKNUM', to_char(n));
3557: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3558: return(-1);
3559: end if;
3560: tokn := LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS);
3561: if(tokn is null) then
3558: return(-1);
3559: end if;
3560: tokn := LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS);
3561: if(tokn is null) then
3562: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NO MSG');
3563: FND_MESSAGE.set_token('NAME', sq_name);
3564: return(-1);
3565: elsif(LENGTHB(tokn) > 100) then
3566: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE BIG MSG');
3559: end if;
3560: tokn := LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS);
3561: if(tokn is null) then
3562: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NO MSG');
3563: FND_MESSAGE.set_token('NAME', sq_name);
3564: return(-1);
3565: elsif(LENGTHB(tokn) > 100) then
3566: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE BIG MSG');
3567: FND_MESSAGE.set_token('NAME', sq_name);
3562: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NO MSG');
3563: FND_MESSAGE.set_token('NAME', sq_name);
3564: return(-1);
3565: elsif(LENGTHB(tokn) > 100) then
3566: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE BIG MSG');
3567: FND_MESSAGE.set_token('NAME', sq_name);
3568: return(-1);
3569: else
3570: msg_begin := INSTR(tokn, 'NAME=');
3563: FND_MESSAGE.set_token('NAME', sq_name);
3564: return(-1);
3565: elsif(LENGTHB(tokn) > 100) then
3566: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE BIG MSG');
3567: FND_MESSAGE.set_token('NAME', sq_name);
3568: return(-1);
3569: else
3570: msg_begin := INSTR(tokn, 'NAME=');
3571: if(msg_begin <= 0) then
3573: vr.err_names(n) := tokn;
3574: else
3575: msg_begin := msg_begin + 5;
3576: if(LENGTH(tokn) < msg_begin) then
3577: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NO MSGNAME');
3578: FND_MESSAGE.set_token('NAME', sq_name);
3579: return(-1);
3580: end if;
3581: vr.err_names(n) := SUBSTR(tokn, msg_begin);
3574: else
3575: msg_begin := msg_begin + 5;
3576: if(LENGTH(tokn) < msg_begin) then
3577: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NO MSGNAME');
3578: FND_MESSAGE.set_token('NAME', sq_name);
3579: return(-1);
3580: end if;
3581: vr.err_names(n) := SUBSTR(tokn, msg_begin);
3582: msg_begin := INSTR(tokn, 'APPL=');
3584: if((msg_begin > 0) and (msg_end > 0) and
3585: (msg_end - msg_begin > 5)) then
3586: msg_begin := msg_begin + 5;
3587: if(msg_end - msg_begin > 50) then
3588: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE BIG APNAME');
3589: FND_MESSAGE.set_token('NAME', sq_name);
3590: return(-1);
3591: end if;
3592: vr.app_names(n) := SUBSTR(tokn, msg_begin, msg_end - msg_begin);
3585: (msg_end - msg_begin > 5)) then
3586: msg_begin := msg_begin + 5;
3587: if(msg_end - msg_begin > 50) then
3588: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE BIG APNAME');
3589: FND_MESSAGE.set_token('NAME', sq_name);
3590: return(-1);
3591: end if;
3592: vr.app_names(n) := SUBSTR(tokn, msg_begin, msg_end - msg_begin);
3593: else
3606: endp := vrulstr_len + 1;
3607: end if;
3608: tokn := LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS);
3609: if(tokn is null) then
3610: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NO VALS');
3611: FND_MESSAGE.set_token('NAME', sq_name);
3612: return(-1);
3613: end if;
3614: if(LENGTHB(tokn) > 236) then
3607: end if;
3608: tokn := LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS);
3609: if(tokn is null) then
3610: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NO VALS');
3611: FND_MESSAGE.set_token('NAME', sq_name);
3612: return(-1);
3613: end if;
3614: if(LENGTHB(tokn) > 236) then
3615: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE BIG VALSTR');
3611: FND_MESSAGE.set_token('NAME', sq_name);
3612: return(-1);
3613: end if;
3614: if(LENGTHB(tokn) > 236) then
3615: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE BIG VALSTR');
3616: FND_MESSAGE.set_token('NAME', sq_name);
3617: return(-1);
3618: end if;
3619: bgn := 1;
3612: return(-1);
3613: end if;
3614: if(LENGTHB(tokn) > 236) then
3615: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE BIG VALSTR');
3616: FND_MESSAGE.set_token('NAME', sq_name);
3617: return(-1);
3618: end if;
3619: bgn := 1;
3620: ieval := FND_FLEX_SERVER1.SEPARATOR;
3639: return(n);
3640:
3641: EXCEPTION
3642: WHEN OTHERS then
3643: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3644: FND_MESSAGE.set_token('MSG', 'parse_vrules() exception: ' || SQLERRM);
3645: return(-2);
3646:
3647: END parse_vrules;
3640:
3641: EXCEPTION
3642: WHEN OTHERS then
3643: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3644: FND_MESSAGE.set_token('MSG', 'parse_vrules() exception: ' || SQLERRM);
3645: return(-2);
3646:
3647: END parse_vrules;
3648:
3707: -- Message Name.
3708: --
3709: l_name := Substr(l_msg, l_pos_beg, l_pos_end - l_pos_beg);
3710:
3711: fnd_message.set_name(l_appl, l_name);
3712:
3713: RETURN TRUE;
3714: EXCEPTION
3715: WHEN OTHERS THEN
3783: return(TRUE);
3784:
3785: EXCEPTION
3786: WHEN OTHERS then
3787: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3788: FND_MESSAGE.set_token('MSG', 'parse_displayed() exception: '||SQLERRM);
3789: return(FALSE);
3790:
3791: END parse_displayed;
3784:
3785: EXCEPTION
3786: WHEN OTHERS then
3787: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3788: FND_MESSAGE.set_token('MSG', 'parse_displayed() exception: '||SQLERRM);
3789: return(FALSE);
3790:
3791: END parse_displayed;
3792:
3849: -- qualifier applies. Exit if any errors.
3850: --
3851: for i in 1..n_toks loop
3852: if(toks(i) is null) then
3853: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN DUI NULL');
3854: return(FALSE);
3855: end if;
3856: if(toks(i) = 'ALL') then
3857: for j in 1..n_segs loop
3858: s_ntokappl(j) := s_ntokappl(j) + 1;
3859: end loop;
3860: elsif(FND_FLEX_SERVER1.isa_number(toks(i), segindex)) then
3861: if((segindex < 1) or (segindex > n_segs)) then
3862: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN DUI BAD SEGNUM');
3863: FND_MESSAGE.set_token('SEGNUM', to_char(segindex));
3864: return(FALSE);
3865: end if;
3866: s_ntokappl(segindex) := s_ntokappl(segindex) + 1;
3859: end loop;
3860: elsif(FND_FLEX_SERVER1.isa_number(toks(i), segindex)) then
3861: if((segindex < 1) or (segindex > n_segs)) then
3862: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN DUI BAD SEGNUM');
3863: FND_MESSAGE.set_token('SEGNUM', to_char(segindex));
3864: return(FALSE);
3865: end if;
3866: s_ntokappl(segindex) := s_ntokappl(segindex) + 1;
3867: else
3873: s_ntokappl(segindex) := s_ntokappl(segindex) + 1;
3874: end if;
3875: end loop;
3876: if(segindex = 0) then
3877: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN DUI BAD QUAL');
3878: FND_MESSAGE.set_token('QTOKEN', toks(i));
3879: return(FALSE);
3880: end if;
3881: end if;
3874: end if;
3875: end loop;
3876: if(segindex = 0) then
3877: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN DUI BAD QUAL');
3878: FND_MESSAGE.set_token('QTOKEN', toks(i));
3879: return(FALSE);
3880: end if;
3881: end if;
3882: end loop;
3887: return(TRUE);
3888:
3889: EXCEPTION
3890: WHEN OTHERS then
3891: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3892: FND_MESSAGE.set_token('MSG', 'evaluate_token() exception: ' ||SQLERRM);
3893: return(FALSE);
3894:
3895: END evaluate_token;
3888:
3889: EXCEPTION
3890: WHEN OTHERS then
3891: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3892: FND_MESSAGE.set_token('MSG', 'evaluate_token() exception: ' ||SQLERRM);
3893: return(FALSE);
3894:
3895: END evaluate_token;
3896:
3948:
3949: -- Do not call FDFGLI just exit with TRUE if GL is not fully installed
3950: --
3951: if(FND_INSTALLATION.get(101, 101, i_status, i_industry) = FALSE) then
3952: FND_MESSAGE.set_name('FND', 'FLEX-CANT_GET_INSTALL');
3953: return(FALSE);
3954: end if;
3955: if((i_status is null) or (i_status <> 'I')) then
3956: return(TRUE);
3983: if dbms_sql.is_open(cursornum) then
3984: dbms_sql.close_cursor(cursornum);
3985: end if;
3986: if((SQLCODE = -6550) and (INSTR(SQLERRM, 'PLS-00201') > 0)) then
3987: FND_MESSAGE.set_name('FND', 'FLEX-FDFGLI MISSING');
3988: FND_MESSAGE.set_token('MSG', SQLERRM);
3989: else
3990: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3991: FND_MESSAGE.set_token('MSG', 'fdfgli() exception: '||SQLERRM);
3984: dbms_sql.close_cursor(cursornum);
3985: end if;
3986: if((SQLCODE = -6550) and (INSTR(SQLERRM, 'PLS-00201') > 0)) then
3987: FND_MESSAGE.set_name('FND', 'FLEX-FDFGLI MISSING');
3988: FND_MESSAGE.set_token('MSG', SQLERRM);
3989: else
3990: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3991: FND_MESSAGE.set_token('MSG', 'fdfgli() exception: '||SQLERRM);
3992: end if;
3986: if((SQLCODE = -6550) and (INSTR(SQLERRM, 'PLS-00201') > 0)) then
3987: FND_MESSAGE.set_name('FND', 'FLEX-FDFGLI MISSING');
3988: FND_MESSAGE.set_token('MSG', SQLERRM);
3989: else
3990: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3991: FND_MESSAGE.set_token('MSG', 'fdfgli() exception: '||SQLERRM);
3992: end if;
3993: return(FALSE);
3994:
3987: FND_MESSAGE.set_name('FND', 'FLEX-FDFGLI MISSING');
3988: FND_MESSAGE.set_token('MSG', SQLERRM);
3989: else
3990: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3991: FND_MESSAGE.set_token('MSG', 'fdfgli() exception: '||SQLERRM);
3992: end if;
3993: return(FALSE);
3994:
3995: END call_fdfgli;
4060: ids(10), ids(11), ids(12), ids(13), ids(14), ids(15), ids(16),
4061: ids(17), ids(18), ids(19), ids(20), ids(21), ids(22), ids(23),
4062: ids(24), ids(25), ids(26), ids(27), ids(28), ids(29), ids(30),
4063: errmsg) = FALSE) then
4064: FND_MESSAGE.set_name('FND', 'FLEX-PLSQL VALIDATION ERROR');
4065: FND_MESSAGE.set_token('ERROR_MSG', errmsg);
4066: return(FALSE);
4067: end if;
4068: return(TRUE);
4061: ids(17), ids(18), ids(19), ids(20), ids(21), ids(22), ids(23),
4062: ids(24), ids(25), ids(26), ids(27), ids(28), ids(29), ids(30),
4063: errmsg) = FALSE) then
4064: FND_MESSAGE.set_name('FND', 'FLEX-PLSQL VALIDATION ERROR');
4065: FND_MESSAGE.set_token('ERROR_MSG', errmsg);
4066: return(FALSE);
4067: end if;
4068: return(TRUE);
4069:
4068: return(TRUE);
4069:
4070: EXCEPTION
4071: WHEN OTHERS then
4072: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
4073: FND_MESSAGE.set_token('MSG', 'call_userval() exception: '||SQLERRM);
4074: return(FALSE);
4075:
4076: END call_userval;
4069:
4070: EXCEPTION
4071: WHEN OTHERS then
4072: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
4073: FND_MESSAGE.set_token('MSG', 'call_userval() exception: '||SQLERRM);
4074: return(FALSE);
4075:
4076: END call_userval;
4077:
4194: EXECUTE IMMEDIATE ('LOCK TABLE ' || p_application_table_name ||
4195: ' IN ROW SHARE MODE');
4196: EXCEPTION
4197: WHEN OTHERS THEN
4198: fnd_message.set_name('FND', 'FLEX-USER DEFINED ERROR');
4199: fnd_message.set_token('MSG', l_func_name ||
4200: ' is unable to lock table ' ||
4201: p_application_table_name || '. ' || l_newline ||
4202: 'SQLERRM: ' || Sqlerrm);
4195: ' IN ROW SHARE MODE');
4196: EXCEPTION
4197: WHEN OTHERS THEN
4198: fnd_message.set_name('FND', 'FLEX-USER DEFINED ERROR');
4199: fnd_message.set_token('MSG', l_func_name ||
4200: ' is unable to lock table ' ||
4201: p_application_table_name || '. ' || l_newline ||
4202: 'SQLERRM: ' || Sqlerrm);
4203: GOTO return_failure;
4240: WHERE hash_value = l_hash_value
4241: FOR UPDATE;
4242: EXCEPTION
4243: WHEN OTHERS THEN
4244: fnd_message.set_name('FND', 'FLEX-USER DEFINED ERROR');
4245: fnd_message.set_token('MSG', l_func_name ||
4246: ' is unable to lock FND_FLEX_HASH. ' ||
4247: 'Hash Value: ' || l_hash_value || l_newline ||
4248: 'SQLERRM: ' || Sqlerrm);
4241: FOR UPDATE;
4242: EXCEPTION
4243: WHEN OTHERS THEN
4244: fnd_message.set_name('FND', 'FLEX-USER DEFINED ERROR');
4245: fnd_message.set_token('MSG', l_func_name ||
4246: ' is unable to lock FND_FLEX_HASH. ' ||
4247: 'Hash Value: ' || l_hash_value || l_newline ||
4248: 'SQLERRM: ' || Sqlerrm);
4249: GOTO return_failure;
4296: --
4297: dbms_sql.close_cursor(l_cursor);
4298: WHEN OTHERS THEN
4299: dbms_sql.close_cursor(l_cursor);
4300: fnd_message.set_name('FND', 'FLEX-USER DEFINED ERROR');
4301: fnd_message.set_token('MSG', l_func_name ||
4302: ' is unable to select from table ' ||
4303: p_application_table_name || '. ' || l_newline ||
4304: 'SQLERRM: ' || Sqlerrm);
4297: dbms_sql.close_cursor(l_cursor);
4298: WHEN OTHERS THEN
4299: dbms_sql.close_cursor(l_cursor);
4300: fnd_message.set_name('FND', 'FLEX-USER DEFINED ERROR');
4301: fnd_message.set_token('MSG', l_func_name ||
4302: ' is unable to select from table ' ||
4303: p_application_table_name || '. ' || l_newline ||
4304: 'SQLERRM: ' || Sqlerrm);
4305: GOTO return_failure;
4352: '_S.NEXTVAL FROM dual')
4353: INTO l_ccid;
4354: EXCEPTION
4355: WHEN OTHERS THEN
4356: fnd_message.set_name('FND', 'FLEX-USER DEFINED ERROR');
4357: fnd_message.set_token('MSG', l_func_name ||
4358: ' is unable to get next value from sequence ' ||
4359: p_application_table_name || '_S. ' ||l_newline||
4360: 'SQLERRM: ' || Sqlerrm);
4353: INTO l_ccid;
4354: EXCEPTION
4355: WHEN OTHERS THEN
4356: fnd_message.set_name('FND', 'FLEX-USER DEFINED ERROR');
4357: fnd_message.set_token('MSG', l_func_name ||
4358: ' is unable to get next value from sequence ' ||
4359: p_application_table_name || '_S. ' ||l_newline||
4360: 'SQLERRM: ' || Sqlerrm);
4361: GOTO return_failure;
4387: END LOOP;
4388: l_num := dbms_sql.execute(l_cursor);
4389: dbms_sql.close_cursor(l_cursor);
4390: IF (l_num <> 1) THEN
4391: fnd_message.set_name('FND', 'FLEX-USER DEFINED ERROR');
4392: fnd_message.set_token('MSG', l_func_name ||
4393: ' is unable to insert new combination. ' ||
4394: ' Dynamic INSERT SQL returned ' || l_num ||
4395: ' rows, it was expected to return 1 row.');
4388: l_num := dbms_sql.execute(l_cursor);
4389: dbms_sql.close_cursor(l_cursor);
4390: IF (l_num <> 1) THEN
4391: fnd_message.set_name('FND', 'FLEX-USER DEFINED ERROR');
4392: fnd_message.set_token('MSG', l_func_name ||
4393: ' is unable to insert new combination. ' ||
4394: ' Dynamic INSERT SQL returned ' || l_num ||
4395: ' rows, it was expected to return 1 row.');
4396: GOTO return_failure;
4398: x_is_new := 'Y';
4399: EXCEPTION
4400: WHEN OTHERS THEN
4401: dbms_sql.close_cursor(l_cursor);
4402: fnd_message.set_name('FND', 'FLEX-USER DEFINED ERROR');
4403: fnd_message.set_token('MSG', l_func_name ||
4404: ' is unable to insert new combination. ' ||
4405: ' into table ' || p_application_table_name ||
4406: '. ' || l_newline ||
4399: EXCEPTION
4400: WHEN OTHERS THEN
4401: dbms_sql.close_cursor(l_cursor);
4402: fnd_message.set_name('FND', 'FLEX-USER DEFINED ERROR');
4403: fnd_message.set_token('MSG', l_func_name ||
4404: ' is unable to insert new combination. ' ||
4405: ' into table ' || p_application_table_name ||
4406: '. ' || l_newline ||
4407: 'SQLERRM: ' || Sqlerrm);
4423: COMMIT;
4424: RETURN;
4425:
4426: <
4427: x_encoded_error := fnd_message.get_encoded;
4428: x_ccid := -1;
4429: x_is_new := 'U';
4430: ROLLBACK;
4431: RETURN;
4430: ROLLBACK;
4431: RETURN;
4432: EXCEPTION
4433: WHEN OTHERS THEN
4434: fnd_message.set_name('FND', 'FLEX-USER DEFINED ERROR');
4435: fnd_message.set_token('MSG', 'Top level exception in ' || l_func_name ||
4436: l_newline || 'SQLERRM: ' || Sqlerrm);
4437: x_encoded_error := fnd_message.get_encoded;
4438: x_ccid := -1;
4431: RETURN;
4432: EXCEPTION
4433: WHEN OTHERS THEN
4434: fnd_message.set_name('FND', 'FLEX-USER DEFINED ERROR');
4435: fnd_message.set_token('MSG', 'Top level exception in ' || l_func_name ||
4436: l_newline || 'SQLERRM: ' || Sqlerrm);
4437: x_encoded_error := fnd_message.get_encoded;
4438: x_ccid := -1;
4439: ROLLBACK;
4433: WHEN OTHERS THEN
4434: fnd_message.set_name('FND', 'FLEX-USER DEFINED ERROR');
4435: fnd_message.set_token('MSG', 'Top level exception in ' || l_func_name ||
4436: l_newline || 'SQLERRM: ' || Sqlerrm);
4437: x_encoded_error := fnd_message.get_encoded;
4438: x_ccid := -1;
4439: ROLLBACK;
4440: RETURN;
4441: END do_dynamic_insert_for_java;
4696: WHERE 'AFFFSSVB.pls : $Revision: 120.28.12020000.2 $ : check_value_security' IS NOT NULL
4697: AND flex_value_set_id = p_flex_value_set_id;
4698: EXCEPTION
4699: WHEN OTHERS THEN
4700: fnd_message.set_name('FND', 'FLEX-ERROR LOADING VALUE SET');
4701: fnd_message.set_token('VALUE_SET_NAME', p_flex_value_set_id);
4702: l_x_security_status := 'VSET-NOTFOUND';
4703: l_x_error_message := fnd_message.get;
4704: GOTO goto_return;
4697: AND flex_value_set_id = p_flex_value_set_id;
4698: EXCEPTION
4699: WHEN OTHERS THEN
4700: fnd_message.set_name('FND', 'FLEX-ERROR LOADING VALUE SET');
4701: fnd_message.set_token('VALUE_SET_NAME', p_flex_value_set_id);
4702: l_x_security_status := 'VSET-NOTFOUND';
4703: l_x_error_message := fnd_message.get;
4704: GOTO goto_return;
4705: END;
4699: WHEN OTHERS THEN
4700: fnd_message.set_name('FND', 'FLEX-ERROR LOADING VALUE SET');
4701: fnd_message.set_token('VALUE_SET_NAME', p_flex_value_set_id);
4702: l_x_security_status := 'VSET-NOTFOUND';
4703: l_x_error_message := fnd_message.get;
4704: GOTO goto_return;
4705: END;
4706: fnd_plsql_cache.custom_1to1_get_put_index(vst_cache_controller,
4707: g_cache_key,
4834: p_flex_value, p_flex_value, p_flex_value;
4835: END IF;
4836: END IF;
4837:
4838: fnd_message.set_name('FND', 'FLEX-EXCLUDED BY SEC. RULE');
4839: fnd_message.set_token('MESSAGE', l_error_message);
4840:
4841: l_x_security_status := 'EXCLUDED';
4842: l_x_error_message := fnd_message.get;
4835: END IF;
4836: END IF;
4837:
4838: fnd_message.set_name('FND', 'FLEX-EXCLUDED BY SEC. RULE');
4839: fnd_message.set_token('MESSAGE', l_error_message);
4840:
4841: l_x_security_status := 'EXCLUDED';
4842: l_x_error_message := fnd_message.get;
4843: GOTO goto_cache_the_result;
4838: fnd_message.set_name('FND', 'FLEX-EXCLUDED BY SEC. RULE');
4839: fnd_message.set_token('MESSAGE', l_error_message);
4840:
4841: l_x_security_status := 'EXCLUDED';
4842: l_x_error_message := fnd_message.get;
4843: GOTO goto_cache_the_result;
4844: EXCEPTION
4845: WHEN NO_DATA_FOUND THEN
4846: --
4876: p_resp_application_id,
4877: p_responsibility_id,
4878: p_flex_value;
4879:
4880: fnd_message.set_name('FND', 'FLEX-EXCLUDED BY SEC. RULE');
4881: fnd_message.set_token('MESSAGE', l_error_message);
4882:
4883: l_x_security_status := 'HIER-EXCLUDED';
4884: l_x_error_message := fnd_message.get;
4877: p_responsibility_id,
4878: p_flex_value;
4879:
4880: fnd_message.set_name('FND', 'FLEX-EXCLUDED BY SEC. RULE');
4881: fnd_message.set_token('MESSAGE', l_error_message);
4882:
4883: l_x_security_status := 'HIER-EXCLUDED';
4884: l_x_error_message := fnd_message.get;
4885: GOTO goto_cache_the_result;
4880: fnd_message.set_name('FND', 'FLEX-EXCLUDED BY SEC. RULE');
4881: fnd_message.set_token('MESSAGE', l_error_message);
4882:
4883: l_x_security_status := 'HIER-EXCLUDED';
4884: l_x_error_message := fnd_message.get;
4885: GOTO goto_cache_the_result;
4886: EXCEPTION
4887: WHEN NO_DATA_FOUND THEN
4888: --
4946: p_flex_value, p_flex_value, p_flex_value;
4947: END IF;
4948: END IF;
4949:
4950: fnd_message.set_name('FND', 'FLEX-NOT INCL. BY SEC RULE');
4951: fnd_message.set_token('MESSAGE', l_error_message);
4952:
4953: l_x_security_status := 'NOT-INCLUDED';
4954: l_x_error_message := fnd_message.get;
4947: END IF;
4948: END IF;
4949:
4950: fnd_message.set_name('FND', 'FLEX-NOT INCL. BY SEC RULE');
4951: fnd_message.set_token('MESSAGE', l_error_message);
4952:
4953: l_x_security_status := 'NOT-INCLUDED';
4954: l_x_error_message := fnd_message.get;
4955:
4950: fnd_message.set_name('FND', 'FLEX-NOT INCL. BY SEC RULE');
4951: fnd_message.set_token('MESSAGE', l_error_message);
4952:
4953: l_x_security_status := 'NOT-INCLUDED';
4954: l_x_error_message := fnd_message.get;
4955:
4956: --
4957: -- NOT directly included, it might be hierarchically included...
4958: --
5000: --
5001: -- Bug 9746618 Setting message from previous check does not
5002: -- give accurate message when a violation is found from
5003: -- this security check. Need to set message from this check.
5004: fnd_message.set_name('FND', 'FLEX-NOT INCL. BY SEC RULE');
5005: fnd_message.set_token('MESSAGE', l_error_message);
5006:
5007: l_x_security_status := 'NOT-HIER-INCLUDED';
5008: l_x_error_message := fnd_message.get;
5001: -- Bug 9746618 Setting message from previous check does not
5002: -- give accurate message when a violation is found from
5003: -- this security check. Need to set message from this check.
5004: fnd_message.set_name('FND', 'FLEX-NOT INCL. BY SEC RULE');
5005: fnd_message.set_token('MESSAGE', l_error_message);
5006:
5007: l_x_security_status := 'NOT-HIER-INCLUDED';
5008: l_x_error_message := fnd_message.get;
5009:
5004: fnd_message.set_name('FND', 'FLEX-NOT INCL. BY SEC RULE');
5005: fnd_message.set_token('MESSAGE', l_error_message);
5006:
5007: l_x_security_status := 'NOT-HIER-INCLUDED';
5008: l_x_error_message := fnd_message.get;
5009:
5010:
5011: GOTO goto_cache_the_result;
5012: EXCEPTION
5043: WHEN OTHERS THEN
5044: IF (l_lock_handle IS NOT NULL) THEN
5045: fnd_flex_hierarchy_compiler.release_lock(l_vset.flex_value_set_name, l_lock_handle);
5046: END IF;
5047: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
5048: FND_MESSAGE.set_token('MSG', 'SSV.check_value_security(): ' || SQLERRM);
5049: x_security_status := 'EXCEPTION';
5050: x_error_message := Substrb(fnd_message.get, 1, 1950);
5051: COMMIT; -- To end snap shot of Serializable.
5044: IF (l_lock_handle IS NOT NULL) THEN
5045: fnd_flex_hierarchy_compiler.release_lock(l_vset.flex_value_set_name, l_lock_handle);
5046: END IF;
5047: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
5048: FND_MESSAGE.set_token('MSG', 'SSV.check_value_security(): ' || SQLERRM);
5049: x_security_status := 'EXCEPTION';
5050: x_error_message := Substrb(fnd_message.get, 1, 1950);
5051: COMMIT; -- To end snap shot of Serializable.
5052: END check_value_security;
5046: END IF;
5047: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
5048: FND_MESSAGE.set_token('MSG', 'SSV.check_value_security(): ' || SQLERRM);
5049: x_security_status := 'EXCEPTION';
5050: x_error_message := Substrb(fnd_message.get, 1, 1950);
5051: COMMIT; -- To end snap shot of Serializable.
5052: END check_value_security;
5053:
5054: -- ==================================================
5246: p_descriptive_flexfield_name); */
5247: --
5248: -- Raise the exception.
5249: --
5250: FND_MESSAGE.set_name('FND', 'FLEX-COMPILE-WF_EVENT-ERROR');
5251: FND_MESSAGE.set_token('EVENT_NAME', 'oracle.apps.fnd.flex.dff.compiled');
5252: FND_MESSAGE.set_token('EVENT_KEY', l_application_short_name || '.' || p_descriptive_flexfield_name);
5253: FND_MESSAGE.set_token('ERROR', SQLERRM);
5254: FND_MESSAGE.RAISE_ERROR();
5247: --
5248: -- Raise the exception.
5249: --
5250: FND_MESSAGE.set_name('FND', 'FLEX-COMPILE-WF_EVENT-ERROR');
5251: FND_MESSAGE.set_token('EVENT_NAME', 'oracle.apps.fnd.flex.dff.compiled');
5252: FND_MESSAGE.set_token('EVENT_KEY', l_application_short_name || '.' || p_descriptive_flexfield_name);
5253: FND_MESSAGE.set_token('ERROR', SQLERRM);
5254: FND_MESSAGE.RAISE_ERROR();
5255: END;
5248: -- Raise the exception.
5249: --
5250: FND_MESSAGE.set_name('FND', 'FLEX-COMPILE-WF_EVENT-ERROR');
5251: FND_MESSAGE.set_token('EVENT_NAME', 'oracle.apps.fnd.flex.dff.compiled');
5252: FND_MESSAGE.set_token('EVENT_KEY', l_application_short_name || '.' || p_descriptive_flexfield_name);
5253: FND_MESSAGE.set_token('ERROR', SQLERRM);
5254: FND_MESSAGE.RAISE_ERROR();
5255: END;
5256:
5249: --
5250: FND_MESSAGE.set_name('FND', 'FLEX-COMPILE-WF_EVENT-ERROR');
5251: FND_MESSAGE.set_token('EVENT_NAME', 'oracle.apps.fnd.flex.dff.compiled');
5252: FND_MESSAGE.set_token('EVENT_KEY', l_application_short_name || '.' || p_descriptive_flexfield_name);
5253: FND_MESSAGE.set_token('ERROR', SQLERRM);
5254: FND_MESSAGE.RAISE_ERROR();
5255: END;
5256:
5257: -- No Exception handling here, let it go up to caller.
5250: FND_MESSAGE.set_name('FND', 'FLEX-COMPILE-WF_EVENT-ERROR');
5251: FND_MESSAGE.set_token('EVENT_NAME', 'oracle.apps.fnd.flex.dff.compiled');
5252: FND_MESSAGE.set_token('EVENT_KEY', l_application_short_name || '.' || p_descriptive_flexfield_name);
5253: FND_MESSAGE.set_token('ERROR', SQLERRM);
5254: FND_MESSAGE.RAISE_ERROR();
5255: END;
5256:
5257: -- No Exception handling here, let it go up to caller.
5258:
5346: p_id_flex_num); */
5347: --
5348: -- Raise the exception.
5349: --
5350: FND_MESSAGE.set_name('FND', 'FLEX-COMPILE-WF_EVENT-ERROR');
5351: FND_MESSAGE.set_token('EVENT_NAME', 'oracle.apps.fnd.flex.kff.structure.compiled');
5352: FND_MESSAGE.set_token('EVENT_KEY', l_application_short_name || '.' || p_id_flex_code || '.' || l_id_flex_structure_code);
5353: FND_MESSAGE.set_token('ERROR', SQLERRM);
5354: FND_MESSAGE.RAISE_ERROR();
5347: --
5348: -- Raise the exception.
5349: --
5350: FND_MESSAGE.set_name('FND', 'FLEX-COMPILE-WF_EVENT-ERROR');
5351: FND_MESSAGE.set_token('EVENT_NAME', 'oracle.apps.fnd.flex.kff.structure.compiled');
5352: FND_MESSAGE.set_token('EVENT_KEY', l_application_short_name || '.' || p_id_flex_code || '.' || l_id_flex_structure_code);
5353: FND_MESSAGE.set_token('ERROR', SQLERRM);
5354: FND_MESSAGE.RAISE_ERROR();
5355:
5348: -- Raise the exception.
5349: --
5350: FND_MESSAGE.set_name('FND', 'FLEX-COMPILE-WF_EVENT-ERROR');
5351: FND_MESSAGE.set_token('EVENT_NAME', 'oracle.apps.fnd.flex.kff.structure.compiled');
5352: FND_MESSAGE.set_token('EVENT_KEY', l_application_short_name || '.' || p_id_flex_code || '.' || l_id_flex_structure_code);
5353: FND_MESSAGE.set_token('ERROR', SQLERRM);
5354: FND_MESSAGE.RAISE_ERROR();
5355:
5356: END;
5349: --
5350: FND_MESSAGE.set_name('FND', 'FLEX-COMPILE-WF_EVENT-ERROR');
5351: FND_MESSAGE.set_token('EVENT_NAME', 'oracle.apps.fnd.flex.kff.structure.compiled');
5352: FND_MESSAGE.set_token('EVENT_KEY', l_application_short_name || '.' || p_id_flex_code || '.' || l_id_flex_structure_code);
5353: FND_MESSAGE.set_token('ERROR', SQLERRM);
5354: FND_MESSAGE.RAISE_ERROR();
5355:
5356: END;
5357:
5350: FND_MESSAGE.set_name('FND', 'FLEX-COMPILE-WF_EVENT-ERROR');
5351: FND_MESSAGE.set_token('EVENT_NAME', 'oracle.apps.fnd.flex.kff.structure.compiled');
5352: FND_MESSAGE.set_token('EVENT_KEY', l_application_short_name || '.' || p_id_flex_code || '.' || l_id_flex_structure_code);
5353: FND_MESSAGE.set_token('ERROR', SQLERRM);
5354: FND_MESSAGE.RAISE_ERROR();
5355:
5356: END;
5357:
5358: -- No Exception handling here, let it go up to caller.
6159: parse_bind_names(l_additional_quickpick_columns, l_non_forms_warn_table_type, l_num_binds);
6160: IF (l_num_binds > 0) THEN
6161: FOR i IN 1 .. l_num_binds
6162: LOOP
6163: fnd_message.set_name('FND','FLEX-BLK_FLD_CTX_VSET_WARN_DFF');
6164: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6165: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6166: queue_non_forms_warnings(fnd_message.get());
6167: END LOOP;
6160: IF (l_num_binds > 0) THEN
6161: FOR i IN 1 .. l_num_binds
6162: LOOP
6163: fnd_message.set_name('FND','FLEX-BLK_FLD_CTX_VSET_WARN_DFF');
6164: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6165: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6166: queue_non_forms_warnings(fnd_message.get());
6167: END LOOP;
6168: END IF;
6161: FOR i IN 1 .. l_num_binds
6162: LOOP
6163: fnd_message.set_name('FND','FLEX-BLK_FLD_CTX_VSET_WARN_DFF');
6164: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6165: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6166: queue_non_forms_warnings(fnd_message.get());
6167: END LOOP;
6168: END IF;
6169: END IF;
6162: LOOP
6163: fnd_message.set_name('FND','FLEX-BLK_FLD_CTX_VSET_WARN_DFF');
6164: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6165: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6166: queue_non_forms_warnings(fnd_message.get());
6167: END LOOP;
6168: END IF;
6169: END IF;
6170:
6172: parse_bind_names(l_additional_where_clause, l_non_forms_warn_table_type, l_num_binds);
6173: IF (l_num_binds > 0) THEN
6174: FOR i IN 1 .. l_num_binds
6175: LOOP
6176: fnd_message.set_name('FND','FLEX-BLK_FLD_CTX_VSET_WARN_DFF');
6177: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6178: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6179: queue_non_forms_warnings(fnd_message.get());
6180: END LOOP;
6173: IF (l_num_binds > 0) THEN
6174: FOR i IN 1 .. l_num_binds
6175: LOOP
6176: fnd_message.set_name('FND','FLEX-BLK_FLD_CTX_VSET_WARN_DFF');
6177: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6178: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6179: queue_non_forms_warnings(fnd_message.get());
6180: END LOOP;
6181: END IF;
6174: FOR i IN 1 .. l_num_binds
6175: LOOP
6176: fnd_message.set_name('FND','FLEX-BLK_FLD_CTX_VSET_WARN_DFF');
6177: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6178: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6179: queue_non_forms_warnings(fnd_message.get());
6180: END LOOP;
6181: END IF;
6182: END IF;
6175: LOOP
6176: fnd_message.set_name('FND','FLEX-BLK_FLD_CTX_VSET_WARN_DFF');
6177: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6178: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6179: queue_non_forms_warnings(fnd_message.get());
6180: END LOOP;
6181: END IF;
6182: END IF;
6183: END IF;
6182: END IF;
6183: END IF;
6184: IF l_reference_field IS NOT NULL THEN
6185: IF (INSTR(l_reference_field,':$PROFILES$.') <> 1) THEN
6186: fnd_message.set_name('FND','FLEX-CTX_REF_FIELD_WARN_DFF');
6187: fnd_message.set_token('REFERENCE_FIELD',SUBSTR(l_reference_field,INSTR(l_reference_field,':')+1));
6188: queue_non_forms_warnings(fnd_message.get());
6189: END IF;
6190: END IF;
6183: END IF;
6184: IF l_reference_field IS NOT NULL THEN
6185: IF (INSTR(l_reference_field,':$PROFILES$.') <> 1) THEN
6186: fnd_message.set_name('FND','FLEX-CTX_REF_FIELD_WARN_DFF');
6187: fnd_message.set_token('REFERENCE_FIELD',SUBSTR(l_reference_field,INSTR(l_reference_field,':')+1));
6188: queue_non_forms_warnings(fnd_message.get());
6189: END IF;
6190: END IF;
6191: EXCEPTION
6184: IF l_reference_field IS NOT NULL THEN
6185: IF (INSTR(l_reference_field,':$PROFILES$.') <> 1) THEN
6186: fnd_message.set_name('FND','FLEX-CTX_REF_FIELD_WARN_DFF');
6187: fnd_message.set_token('REFERENCE_FIELD',SUBSTR(l_reference_field,INSTR(l_reference_field,':')+1));
6188: queue_non_forms_warnings(fnd_message.get());
6189: END IF;
6190: END IF;
6191: EXCEPTION
6192: WHEN NO_DATA_FOUND THEN
6237: END IF;
6238: EXCEPTION
6239: WHEN e_DefaultTypeField THEN
6240: IF l_srs_flag = FALSE THEN
6241: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_DFF');
6242: fnd_message.set_token('CONTEXT_CODE', p_context_code);
6243: ELSE
6244: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_SRS');
6245: END IF;
6238: EXCEPTION
6239: WHEN e_DefaultTypeField THEN
6240: IF l_srs_flag = FALSE THEN
6241: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_DFF');
6242: fnd_message.set_token('CONTEXT_CODE', p_context_code);
6243: ELSE
6244: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_SRS');
6245: END IF;
6246: fnd_message.set_token('SEGMENT_NAME', l_segment_name);
6240: IF l_srs_flag = FALSE THEN
6241: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_DFF');
6242: fnd_message.set_token('CONTEXT_CODE', p_context_code);
6243: ELSE
6244: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_SRS');
6245: END IF;
6246: fnd_message.set_token('SEGMENT_NAME', l_segment_name);
6247: fnd_message.set_token('BLOCK_FIELD', substr(l_default_value, instr(l_default_value, ':')+1));
6248: queue_non_forms_warnings(fnd_message.get());
6242: fnd_message.set_token('CONTEXT_CODE', p_context_code);
6243: ELSE
6244: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_SRS');
6245: END IF;
6246: fnd_message.set_token('SEGMENT_NAME', l_segment_name);
6247: fnd_message.set_token('BLOCK_FIELD', substr(l_default_value, instr(l_default_value, ':')+1));
6248: queue_non_forms_warnings(fnd_message.get());
6249: WHEN e_DefaultTypeSQL THEN
6250: parse_bind_names(l_default_value, l_non_forms_warn_table_type, l_num_binds);
6243: ELSE
6244: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_SRS');
6245: END IF;
6246: fnd_message.set_token('SEGMENT_NAME', l_segment_name);
6247: fnd_message.set_token('BLOCK_FIELD', substr(l_default_value, instr(l_default_value, ':')+1));
6248: queue_non_forms_warnings(fnd_message.get());
6249: WHEN e_DefaultTypeSQL THEN
6250: parse_bind_names(l_default_value, l_non_forms_warn_table_type, l_num_binds);
6251: IF (l_num_binds > 0) then
6244: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_SRS');
6245: END IF;
6246: fnd_message.set_token('SEGMENT_NAME', l_segment_name);
6247: fnd_message.set_token('BLOCK_FIELD', substr(l_default_value, instr(l_default_value, ':')+1));
6248: queue_non_forms_warnings(fnd_message.get());
6249: WHEN e_DefaultTypeSQL THEN
6250: parse_bind_names(l_default_value, l_non_forms_warn_table_type, l_num_binds);
6251: IF (l_num_binds > 0) then
6252: FOR i in 1 .. l_num_binds
6251: IF (l_num_binds > 0) then
6252: FOR i in 1 .. l_num_binds
6253: LOOP
6254: IF l_srs_flag = FALSE THEN
6255: fnd_message.set_name('FND','FLEX-BLK_FLD_DEF_WARN_DFF');
6256: fnd_message.set_token('CONTEXT_CODE', p_context_code);
6257: ELSE
6258: fnd_message.set_name('FND','FLEX-BLK_FLD_DEF_WARN_SRS');
6259: END IF;
6252: FOR i in 1 .. l_num_binds
6253: LOOP
6254: IF l_srs_flag = FALSE THEN
6255: fnd_message.set_name('FND','FLEX-BLK_FLD_DEF_WARN_DFF');
6256: fnd_message.set_token('CONTEXT_CODE', p_context_code);
6257: ELSE
6258: fnd_message.set_name('FND','FLEX-BLK_FLD_DEF_WARN_SRS');
6259: END IF;
6260: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6254: IF l_srs_flag = FALSE THEN
6255: fnd_message.set_name('FND','FLEX-BLK_FLD_DEF_WARN_DFF');
6256: fnd_message.set_token('CONTEXT_CODE', p_context_code);
6257: ELSE
6258: fnd_message.set_name('FND','FLEX-BLK_FLD_DEF_WARN_SRS');
6259: END IF;
6260: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6261: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6262: queue_non_forms_warnings(fnd_message.get());
6256: fnd_message.set_token('CONTEXT_CODE', p_context_code);
6257: ELSE
6258: fnd_message.set_name('FND','FLEX-BLK_FLD_DEF_WARN_SRS');
6259: END IF;
6260: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6261: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6262: queue_non_forms_warnings(fnd_message.get());
6263: END LOOP;
6264: END IF;
6257: ELSE
6258: fnd_message.set_name('FND','FLEX-BLK_FLD_DEF_WARN_SRS');
6259: END IF;
6260: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6261: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6262: queue_non_forms_warnings(fnd_message.get());
6263: END LOOP;
6264: END IF;
6265: END; -- Check segment's defaulting logic
6258: fnd_message.set_name('FND','FLEX-BLK_FLD_DEF_WARN_SRS');
6259: END IF;
6260: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6261: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6262: queue_non_forms_warnings(fnd_message.get());
6263: END LOOP;
6264: END IF;
6265: END; -- Check segment's defaulting logic
6266:
6275: END IF;
6276: EXCEPTION
6277: WHEN e_PairOrSpecial THEN
6278: IF l_srs_flag = FALSE THEN
6279: fnd_message.set_name('FND','FLEX-USER_EXIT_VSET_WARN_DFF');
6280: fnd_message.set_token('CONTEXT_CODE',p_context_code);
6281: ELSE
6282: fnd_message.set_name('FND','FLEX-USER_EXIT_VSET_WARN_SRS');
6283: END IF;
6276: EXCEPTION
6277: WHEN e_PairOrSpecial THEN
6278: IF l_srs_flag = FALSE THEN
6279: fnd_message.set_name('FND','FLEX-USER_EXIT_VSET_WARN_DFF');
6280: fnd_message.set_token('CONTEXT_CODE',p_context_code);
6281: ELSE
6282: fnd_message.set_name('FND','FLEX-USER_EXIT_VSET_WARN_SRS');
6283: END IF;
6284: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6278: IF l_srs_flag = FALSE THEN
6279: fnd_message.set_name('FND','FLEX-USER_EXIT_VSET_WARN_DFF');
6280: fnd_message.set_token('CONTEXT_CODE',p_context_code);
6281: ELSE
6282: fnd_message.set_name('FND','FLEX-USER_EXIT_VSET_WARN_SRS');
6283: END IF;
6284: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6285: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6286: SELECT meaning
6280: fnd_message.set_token('CONTEXT_CODE',p_context_code);
6281: ELSE
6282: fnd_message.set_name('FND','FLEX-USER_EXIT_VSET_WARN_SRS');
6283: END IF;
6284: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6285: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6286: SELECT meaning
6287: INTO l_meaning
6288: FROM fnd_lookup_values_vl
6281: ELSE
6282: fnd_message.set_name('FND','FLEX-USER_EXIT_VSET_WARN_SRS');
6283: END IF;
6284: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6285: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6286: SELECT meaning
6287: INTO l_meaning
6288: FROM fnd_lookup_values_vl
6289: WHERE lookup_type='SEG_VAL_TYPES'
6287: INTO l_meaning
6288: FROM fnd_lookup_values_vl
6289: WHERE lookup_type='SEG_VAL_TYPES'
6290: AND lookup_code = l_validation_type;
6291: fnd_message.set_token('VALIDATION_TYPE',l_meaning);
6292: queue_non_forms_warnings(fnd_message.get());
6293: WHEN e_TableValidated THEN
6294: SELECT additional_where_clause,additional_quickpick_columns
6295: INTO l_additional_where_clause,l_additional_quickpick_columns
6288: FROM fnd_lookup_values_vl
6289: WHERE lookup_type='SEG_VAL_TYPES'
6290: AND lookup_code = l_validation_type;
6291: fnd_message.set_token('VALIDATION_TYPE',l_meaning);
6292: queue_non_forms_warnings(fnd_message.get());
6293: WHEN e_TableValidated THEN
6294: SELECT additional_where_clause,additional_quickpick_columns
6295: INTO l_additional_where_clause,l_additional_quickpick_columns
6296: FROM fnd_flex_validation_tables
6300: IF (l_num_binds > 0) THEN
6301: FOR i IN 1 .. l_num_binds
6302: LOOP
6303: IF l_srs_flag = FALSE THEN
6304: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_DFF');
6305: fnd_message.set_token('CONTEXT_CODE',p_context_code);
6306: ELSE
6307: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_SRS');
6308: END IF;
6301: FOR i IN 1 .. l_num_binds
6302: LOOP
6303: IF l_srs_flag = FALSE THEN
6304: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_DFF');
6305: fnd_message.set_token('CONTEXT_CODE',p_context_code);
6306: ELSE
6307: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_SRS');
6308: END IF;
6309: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6303: IF l_srs_flag = FALSE THEN
6304: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_DFF');
6305: fnd_message.set_token('CONTEXT_CODE',p_context_code);
6306: ELSE
6307: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_SRS');
6308: END IF;
6309: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6310: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6311: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6305: fnd_message.set_token('CONTEXT_CODE',p_context_code);
6306: ELSE
6307: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_SRS');
6308: END IF;
6309: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6310: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6311: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6312: queue_non_forms_warnings(fnd_message.get());
6313: END LOOP;
6306: ELSE
6307: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_SRS');
6308: END IF;
6309: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6310: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6311: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6312: queue_non_forms_warnings(fnd_message.get());
6313: END LOOP;
6314: END IF;
6307: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_SRS');
6308: END IF;
6309: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6310: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6311: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6312: queue_non_forms_warnings(fnd_message.get());
6313: END LOOP;
6314: END IF;
6315: END IF;
6308: END IF;
6309: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6310: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6311: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6312: queue_non_forms_warnings(fnd_message.get());
6313: END LOOP;
6314: END IF;
6315: END IF;
6316:
6320: IF (l_num_binds > 0) THEN
6321: FOR i IN 1 .. l_num_binds
6322: LOOP
6323: IF l_srs_flag = FALSE THEN
6324: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_DFF');
6325: fnd_message.set_token('CONTEXT_CODE',p_context_code);
6326: ELSE
6327: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_SRS');
6328: END IF;
6321: FOR i IN 1 .. l_num_binds
6322: LOOP
6323: IF l_srs_flag = FALSE THEN
6324: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_DFF');
6325: fnd_message.set_token('CONTEXT_CODE',p_context_code);
6326: ELSE
6327: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_SRS');
6328: END IF;
6329: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6323: IF l_srs_flag = FALSE THEN
6324: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_DFF');
6325: fnd_message.set_token('CONTEXT_CODE',p_context_code);
6326: ELSE
6327: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_SRS');
6328: END IF;
6329: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6330: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6331: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6325: fnd_message.set_token('CONTEXT_CODE',p_context_code);
6326: ELSE
6327: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_SRS');
6328: END IF;
6329: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6330: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6331: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6332: queue_non_forms_warnings(fnd_message.get());
6333: END LOOP;
6326: ELSE
6327: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_SRS');
6328: END IF;
6329: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6330: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6331: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6332: queue_non_forms_warnings(fnd_message.get());
6333: END LOOP;
6334: END IF;
6327: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_SRS');
6328: END IF;
6329: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6330: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6331: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6332: queue_non_forms_warnings(fnd_message.get());
6333: END LOOP;
6334: END IF;
6335: END IF;
6328: END IF;
6329: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6330: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6331: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6332: queue_non_forms_warnings(fnd_message.get());
6333: END LOOP;
6334: END IF;
6335: END IF;
6336: WHEN e_DateTime THEN
6334: END IF;
6335: END IF;
6336: WHEN e_DateTime THEN
6337: IF l_srs_flag = FALSE THEN
6338: fnd_message.set_name('FND','FLEX-DATE_VSET_WARN_DFF');
6339: fnd_message.set_token('CONTEXT_CODE',p_context_code);
6340: ELSE
6341: fnd_message.set_name('FND','FLEX-DATE_VSET_WARN_SRS');
6342: END IF;
6335: END IF;
6336: WHEN e_DateTime THEN
6337: IF l_srs_flag = FALSE THEN
6338: fnd_message.set_name('FND','FLEX-DATE_VSET_WARN_DFF');
6339: fnd_message.set_token('CONTEXT_CODE',p_context_code);
6340: ELSE
6341: fnd_message.set_name('FND','FLEX-DATE_VSET_WARN_SRS');
6342: END IF;
6343: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6337: IF l_srs_flag = FALSE THEN
6338: fnd_message.set_name('FND','FLEX-DATE_VSET_WARN_DFF');
6339: fnd_message.set_token('CONTEXT_CODE',p_context_code);
6340: ELSE
6341: fnd_message.set_name('FND','FLEX-DATE_VSET_WARN_SRS');
6342: END IF;
6343: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6344: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6345: SELECT meaning
6339: fnd_message.set_token('CONTEXT_CODE',p_context_code);
6340: ELSE
6341: fnd_message.set_name('FND','FLEX-DATE_VSET_WARN_SRS');
6342: END IF;
6343: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6344: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6345: SELECT meaning
6346: INTO l_meaning
6347: FROM fnd_lookup_values_vl
6340: ELSE
6341: fnd_message.set_name('FND','FLEX-DATE_VSET_WARN_SRS');
6342: END IF;
6343: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6344: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6345: SELECT meaning
6346: INTO l_meaning
6347: FROM fnd_lookup_values_vl
6348: WHERE lookup_type='FIELD_TYPE'
6346: INTO l_meaning
6347: FROM fnd_lookup_values_vl
6348: WHERE lookup_type='FIELD_TYPE'
6349: AND lookup_code = l_format_type;
6350: fnd_message.set_token('FORMAT_TYPE',l_meaning);
6351: queue_non_forms_warnings(fnd_message.get());
6352: END; -- Check segment's value set's warnings
6353: EXCEPTION
6354: WHEN NO_DATA_FOUND THEN
6347: FROM fnd_lookup_values_vl
6348: WHERE lookup_type='FIELD_TYPE'
6349: AND lookup_code = l_format_type;
6350: fnd_message.set_token('FORMAT_TYPE',l_meaning);
6351: queue_non_forms_warnings(fnd_message.get());
6352: END; -- Check segment's value set's warnings
6353: EXCEPTION
6354: WHEN NO_DATA_FOUND THEN
6355: NULL;
6411: --
6412:
6413: IF (g_non_forms_warnings_count > 0) THEN
6414: IF (p_descriptive_flexfield_name LIKE '$SRS$.%') THEN
6415: fnd_message.set_name('FND', 'FLEX-FORMS_ONLY_WARN_SRS');
6416: fnd_message.set_token('PROGRAM_SHORT_NAME', Substr(p_descriptive_flexfield_name, Length('$SRS$.') + 1));
6417: ELSE
6418: fnd_message.set_name('FND', 'FLEX-FORMS_ONLY_WARN_DFF');
6419: fnd_message.set_token('TITLE', l_title);
6412:
6413: IF (g_non_forms_warnings_count > 0) THEN
6414: IF (p_descriptive_flexfield_name LIKE '$SRS$.%') THEN
6415: fnd_message.set_name('FND', 'FLEX-FORMS_ONLY_WARN_SRS');
6416: fnd_message.set_token('PROGRAM_SHORT_NAME', Substr(p_descriptive_flexfield_name, Length('$SRS$.') + 1));
6417: ELSE
6418: fnd_message.set_name('FND', 'FLEX-FORMS_ONLY_WARN_DFF');
6419: fnd_message.set_token('TITLE', l_title);
6420: END IF;
6414: IF (p_descriptive_flexfield_name LIKE '$SRS$.%') THEN
6415: fnd_message.set_name('FND', 'FLEX-FORMS_ONLY_WARN_SRS');
6416: fnd_message.set_token('PROGRAM_SHORT_NAME', Substr(p_descriptive_flexfield_name, Length('$SRS$.') + 1));
6417: ELSE
6418: fnd_message.set_name('FND', 'FLEX-FORMS_ONLY_WARN_DFF');
6419: fnd_message.set_token('TITLE', l_title);
6420: END IF;
6421: fnd_message.set_token('APPLICATION_NAME', l_application_name);
6422: fnd_message.set_token('WARNING_COUNT', g_non_forms_warnings_count);
6415: fnd_message.set_name('FND', 'FLEX-FORMS_ONLY_WARN_SRS');
6416: fnd_message.set_token('PROGRAM_SHORT_NAME', Substr(p_descriptive_flexfield_name, Length('$SRS$.') + 1));
6417: ELSE
6418: fnd_message.set_name('FND', 'FLEX-FORMS_ONLY_WARN_DFF');
6419: fnd_message.set_token('TITLE', l_title);
6420: END IF;
6421: fnd_message.set_token('APPLICATION_NAME', l_application_name);
6422: fnd_message.set_token('WARNING_COUNT', g_non_forms_warnings_count);
6423: g_non_forms_warnings(0) := fnd_message.get();
6417: ELSE
6418: fnd_message.set_name('FND', 'FLEX-FORMS_ONLY_WARN_DFF');
6419: fnd_message.set_token('TITLE', l_title);
6420: END IF;
6421: fnd_message.set_token('APPLICATION_NAME', l_application_name);
6422: fnd_message.set_token('WARNING_COUNT', g_non_forms_warnings_count);
6423: g_non_forms_warnings(0) := fnd_message.get();
6424: END IF;
6425: x_warning_count := g_non_forms_warnings_count;
6418: fnd_message.set_name('FND', 'FLEX-FORMS_ONLY_WARN_DFF');
6419: fnd_message.set_token('TITLE', l_title);
6420: END IF;
6421: fnd_message.set_token('APPLICATION_NAME', l_application_name);
6422: fnd_message.set_token('WARNING_COUNT', g_non_forms_warnings_count);
6423: g_non_forms_warnings(0) := fnd_message.get();
6424: END IF;
6425: x_warning_count := g_non_forms_warnings_count;
6426:
6419: fnd_message.set_token('TITLE', l_title);
6420: END IF;
6421: fnd_message.set_token('APPLICATION_NAME', l_application_name);
6422: fnd_message.set_token('WARNING_COUNT', g_non_forms_warnings_count);
6423: g_non_forms_warnings(0) := fnd_message.get();
6424: END IF;
6425: x_warning_count := g_non_forms_warnings_count;
6426:
6427: END compute_non_forms_warnings_dff;
6465: if (l_segtype.value_set_id is not null) then
6466:
6467: fnd_vset.get_valueset(l_segtype.value_set_id, l_vset_r, l_vset_dr);
6468: if (l_vset_r.validation_type in ('P', 'U')) then
6469: fnd_message.set_name('FND', 'FLEX-USER_EXIT_VSET_WARN_KFF');
6470: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6471: fnd_message.set_token('VALUE_SET_NAME', l_vset_r.name);
6472: select meaning into l_validation_type
6473: from fnd_lookup_values_vl
6466:
6467: fnd_vset.get_valueset(l_segtype.value_set_id, l_vset_r, l_vset_dr);
6468: if (l_vset_r.validation_type in ('P', 'U')) then
6469: fnd_message.set_name('FND', 'FLEX-USER_EXIT_VSET_WARN_KFF');
6470: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6471: fnd_message.set_token('VALUE_SET_NAME', l_vset_r.name);
6472: select meaning into l_validation_type
6473: from fnd_lookup_values_vl
6474: where lookup_type='SEG_VAL_TYPES'
6467: fnd_vset.get_valueset(l_segtype.value_set_id, l_vset_r, l_vset_dr);
6468: if (l_vset_r.validation_type in ('P', 'U')) then
6469: fnd_message.set_name('FND', 'FLEX-USER_EXIT_VSET_WARN_KFF');
6470: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6471: fnd_message.set_token('VALUE_SET_NAME', l_vset_r.name);
6472: select meaning into l_validation_type
6473: from fnd_lookup_values_vl
6474: where lookup_type='SEG_VAL_TYPES'
6475: and lookup_code=l_vset_r.validation_type;
6472: select meaning into l_validation_type
6473: from fnd_lookup_values_vl
6474: where lookup_type='SEG_VAL_TYPES'
6475: and lookup_code=l_vset_r.validation_type;
6476: fnd_message.set_token('VALIDATION_TYPE', l_validation_type);
6477: l_message := FND_MESSAGE.get;
6478: queue_non_forms_warnings(l_message);
6479: end if;
6480:
6473: from fnd_lookup_values_vl
6474: where lookup_type='SEG_VAL_TYPES'
6475: and lookup_code=l_vset_r.validation_type;
6476: fnd_message.set_token('VALIDATION_TYPE', l_validation_type);
6477: l_message := FND_MESSAGE.get;
6478: queue_non_forms_warnings(l_message);
6479: end if;
6480:
6481: if (l_vset_dr.format_type in ('D', 'T')) then
6478: queue_non_forms_warnings(l_message);
6479: end if;
6480:
6481: if (l_vset_dr.format_type in ('D', 'T')) then
6482: fnd_message.set_name('FND', 'FLEX-DATE_VSET_WARN_KFF');
6483: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6484: fnd_message.set_token('VALUE_SET_NAME', l_vset_r.name);
6485: select meaning into l_format_type
6486: from fnd_lookup_values_vl
6479: end if;
6480:
6481: if (l_vset_dr.format_type in ('D', 'T')) then
6482: fnd_message.set_name('FND', 'FLEX-DATE_VSET_WARN_KFF');
6483: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6484: fnd_message.set_token('VALUE_SET_NAME', l_vset_r.name);
6485: select meaning into l_format_type
6486: from fnd_lookup_values_vl
6487: where lookup_type='FIELD_TYPE'
6480:
6481: if (l_vset_dr.format_type in ('D', 'T')) then
6482: fnd_message.set_name('FND', 'FLEX-DATE_VSET_WARN_KFF');
6483: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6484: fnd_message.set_token('VALUE_SET_NAME', l_vset_r.name);
6485: select meaning into l_format_type
6486: from fnd_lookup_values_vl
6487: where lookup_type='FIELD_TYPE'
6488: and lookup_code=l_vset_dr.format_type;
6485: select meaning into l_format_type
6486: from fnd_lookup_values_vl
6487: where lookup_type='FIELD_TYPE'
6488: and lookup_code=l_vset_dr.format_type;
6489: fnd_message.set_token('FORMAT_TYPE', l_format_type);
6490: l_message := FND_MESSAGE.get;
6491: queue_non_forms_warnings(l_message);
6492: end if;
6493:
6486: from fnd_lookup_values_vl
6487: where lookup_type='FIELD_TYPE'
6488: and lookup_code=l_vset_dr.format_type;
6489: fnd_message.set_token('FORMAT_TYPE', l_format_type);
6490: l_message := FND_MESSAGE.get;
6491: queue_non_forms_warnings(l_message);
6492: end if;
6493:
6494: if (l_vset_r.validation_type = 'F') then
6499: parse_bind_names(l_additional_quickpick_columns, l_table_of_varchar2_32000, l_num_binds);
6500: if (l_num_binds > 0) then
6501: for i in 1 .. l_num_binds
6502: loop
6503: fnd_message.set_name('FND', 'FLEX-BLK_FLD_VSET_WARN_KFF');
6504: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6505: fnd_message.set_token('VALUE_SET_NAME', l_vset_r.name);
6506: fnd_message.set_token('BLOCK_FIELD', l_table_of_varchar2_32000(i));
6507: l_message := fnd_message.get;
6500: if (l_num_binds > 0) then
6501: for i in 1 .. l_num_binds
6502: loop
6503: fnd_message.set_name('FND', 'FLEX-BLK_FLD_VSET_WARN_KFF');
6504: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6505: fnd_message.set_token('VALUE_SET_NAME', l_vset_r.name);
6506: fnd_message.set_token('BLOCK_FIELD', l_table_of_varchar2_32000(i));
6507: l_message := fnd_message.get;
6508: queue_non_forms_warnings(l_message);
6501: for i in 1 .. l_num_binds
6502: loop
6503: fnd_message.set_name('FND', 'FLEX-BLK_FLD_VSET_WARN_KFF');
6504: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6505: fnd_message.set_token('VALUE_SET_NAME', l_vset_r.name);
6506: fnd_message.set_token('BLOCK_FIELD', l_table_of_varchar2_32000(i));
6507: l_message := fnd_message.get;
6508: queue_non_forms_warnings(l_message);
6509: end loop;
6502: loop
6503: fnd_message.set_name('FND', 'FLEX-BLK_FLD_VSET_WARN_KFF');
6504: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6505: fnd_message.set_token('VALUE_SET_NAME', l_vset_r.name);
6506: fnd_message.set_token('BLOCK_FIELD', l_table_of_varchar2_32000(i));
6507: l_message := fnd_message.get;
6508: queue_non_forms_warnings(l_message);
6509: end loop;
6510: end if;
6503: fnd_message.set_name('FND', 'FLEX-BLK_FLD_VSET_WARN_KFF');
6504: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6505: fnd_message.set_token('VALUE_SET_NAME', l_vset_r.name);
6506: fnd_message.set_token('BLOCK_FIELD', l_table_of_varchar2_32000(i));
6507: l_message := fnd_message.get;
6508: queue_non_forms_warnings(l_message);
6509: end loop;
6510: end if;
6511: end if;
6514: parse_bind_names(l_vset_r.table_info.where_clause, l_table_of_varchar2_32000, l_num_binds);
6515: if (l_num_binds > 0) then
6516: for i in 1 .. l_num_binds
6517: loop
6518: fnd_message.set_name('FND', 'FLEX-BLK_FLD_VSET_WARN_KFF');
6519: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6520: fnd_message.set_token('VALUE_SET_NAME', l_vset_r.name);
6521: fnd_message.set_token('BLOCK_FIELD', l_table_of_varchar2_32000(i));
6522: l_message := fnd_message.get;
6515: if (l_num_binds > 0) then
6516: for i in 1 .. l_num_binds
6517: loop
6518: fnd_message.set_name('FND', 'FLEX-BLK_FLD_VSET_WARN_KFF');
6519: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6520: fnd_message.set_token('VALUE_SET_NAME', l_vset_r.name);
6521: fnd_message.set_token('BLOCK_FIELD', l_table_of_varchar2_32000(i));
6522: l_message := fnd_message.get;
6523: queue_non_forms_warnings(l_message);
6516: for i in 1 .. l_num_binds
6517: loop
6518: fnd_message.set_name('FND', 'FLEX-BLK_FLD_VSET_WARN_KFF');
6519: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6520: fnd_message.set_token('VALUE_SET_NAME', l_vset_r.name);
6521: fnd_message.set_token('BLOCK_FIELD', l_table_of_varchar2_32000(i));
6522: l_message := fnd_message.get;
6523: queue_non_forms_warnings(l_message);
6524: end loop;
6517: loop
6518: fnd_message.set_name('FND', 'FLEX-BLK_FLD_VSET_WARN_KFF');
6519: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6520: fnd_message.set_token('VALUE_SET_NAME', l_vset_r.name);
6521: fnd_message.set_token('BLOCK_FIELD', l_table_of_varchar2_32000(i));
6522: l_message := fnd_message.get;
6523: queue_non_forms_warnings(l_message);
6524: end loop;
6525: end if;
6518: fnd_message.set_name('FND', 'FLEX-BLK_FLD_VSET_WARN_KFF');
6519: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6520: fnd_message.set_token('VALUE_SET_NAME', l_vset_r.name);
6521: fnd_message.set_token('BLOCK_FIELD', l_table_of_varchar2_32000(i));
6522: l_message := fnd_message.get;
6523: queue_non_forms_warnings(l_message);
6524: end loop;
6525: end if;
6526: end if;
6533: parse_bind_names(l_segtype.default_value, l_table_of_varchar2_32000, l_num_binds);
6534: if (l_num_binds > 0) then
6535: for i in 1 .. l_num_binds
6536: loop
6537: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_KFF');
6538: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6539: fnd_message.set_token('BLOCK_FIELD', l_table_of_varchar2_32000(i));
6540: l_message := fnd_message.get;
6541: queue_non_forms_warnings(l_message);
6534: if (l_num_binds > 0) then
6535: for i in 1 .. l_num_binds
6536: loop
6537: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_KFF');
6538: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6539: fnd_message.set_token('BLOCK_FIELD', l_table_of_varchar2_32000(i));
6540: l_message := fnd_message.get;
6541: queue_non_forms_warnings(l_message);
6542: end loop;
6535: for i in 1 .. l_num_binds
6536: loop
6537: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_KFF');
6538: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6539: fnd_message.set_token('BLOCK_FIELD', l_table_of_varchar2_32000(i));
6540: l_message := fnd_message.get;
6541: queue_non_forms_warnings(l_message);
6542: end loop;
6543: end if;
6536: loop
6537: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_KFF');
6538: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6539: fnd_message.set_token('BLOCK_FIELD', l_table_of_varchar2_32000(i));
6540: l_message := fnd_message.get;
6541: queue_non_forms_warnings(l_message);
6542: end loop;
6543: end if;
6544: end if;
6543: end if;
6544: end if;
6545:
6546: if (l_segtype.default_type = 'F') then
6547: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_KFF');
6548: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6549: fnd_message.set_token('BLOCK_FIELD', substr(l_segtype.default_value, instr(l_segtype.default_value, ':')+1));
6550: l_message := fnd_message.get;
6551: queue_non_forms_warnings(l_message);
6544: end if;
6545:
6546: if (l_segtype.default_type = 'F') then
6547: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_KFF');
6548: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6549: fnd_message.set_token('BLOCK_FIELD', substr(l_segtype.default_value, instr(l_segtype.default_value, ':')+1));
6550: l_message := fnd_message.get;
6551: queue_non_forms_warnings(l_message);
6552: end if;
6545:
6546: if (l_segtype.default_type = 'F') then
6547: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_KFF');
6548: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6549: fnd_message.set_token('BLOCK_FIELD', substr(l_segtype.default_value, instr(l_segtype.default_value, ':')+1));
6550: l_message := fnd_message.get;
6551: queue_non_forms_warnings(l_message);
6552: end if;
6553:
6546: if (l_segtype.default_type = 'F') then
6547: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_KFF');
6548: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6549: fnd_message.set_token('BLOCK_FIELD', substr(l_segtype.default_value, instr(l_segtype.default_value, ':')+1));
6550: l_message := fnd_message.get;
6551: queue_non_forms_warnings(l_message);
6552: end if;
6553:
6554: EXCEPTION
6589: --
6590: -- Top Warning Message
6591: --
6592: IF (g_non_forms_warnings_count > 0) THEN
6593: fnd_message.set_name('FND', 'FLEX-FORMS_ONLY_WARN_KFF');
6594: fnd_message.set_token('STRUCTURE_CODE', l_id_flex_structure_code);
6595: fnd_message.set_token('TITLE', l_flextype.flex_title);
6596: fnd_message.set_token('APPLICATION_NAME', l_application_name);
6597: fnd_message.set_token('WARNING_COUNT', g_non_forms_warnings_count);
6590: -- Top Warning Message
6591: --
6592: IF (g_non_forms_warnings_count > 0) THEN
6593: fnd_message.set_name('FND', 'FLEX-FORMS_ONLY_WARN_KFF');
6594: fnd_message.set_token('STRUCTURE_CODE', l_id_flex_structure_code);
6595: fnd_message.set_token('TITLE', l_flextype.flex_title);
6596: fnd_message.set_token('APPLICATION_NAME', l_application_name);
6597: fnd_message.set_token('WARNING_COUNT', g_non_forms_warnings_count);
6598: g_non_forms_warnings(0) := fnd_message.get();
6591: --
6592: IF (g_non_forms_warnings_count > 0) THEN
6593: fnd_message.set_name('FND', 'FLEX-FORMS_ONLY_WARN_KFF');
6594: fnd_message.set_token('STRUCTURE_CODE', l_id_flex_structure_code);
6595: fnd_message.set_token('TITLE', l_flextype.flex_title);
6596: fnd_message.set_token('APPLICATION_NAME', l_application_name);
6597: fnd_message.set_token('WARNING_COUNT', g_non_forms_warnings_count);
6598: g_non_forms_warnings(0) := fnd_message.get();
6599: END IF;
6592: IF (g_non_forms_warnings_count > 0) THEN
6593: fnd_message.set_name('FND', 'FLEX-FORMS_ONLY_WARN_KFF');
6594: fnd_message.set_token('STRUCTURE_CODE', l_id_flex_structure_code);
6595: fnd_message.set_token('TITLE', l_flextype.flex_title);
6596: fnd_message.set_token('APPLICATION_NAME', l_application_name);
6597: fnd_message.set_token('WARNING_COUNT', g_non_forms_warnings_count);
6598: g_non_forms_warnings(0) := fnd_message.get();
6599: END IF;
6600: x_warning_count := g_non_forms_warnings_count;
6593: fnd_message.set_name('FND', 'FLEX-FORMS_ONLY_WARN_KFF');
6594: fnd_message.set_token('STRUCTURE_CODE', l_id_flex_structure_code);
6595: fnd_message.set_token('TITLE', l_flextype.flex_title);
6596: fnd_message.set_token('APPLICATION_NAME', l_application_name);
6597: fnd_message.set_token('WARNING_COUNT', g_non_forms_warnings_count);
6598: g_non_forms_warnings(0) := fnd_message.get();
6599: END IF;
6600: x_warning_count := g_non_forms_warnings_count;
6601:
6594: fnd_message.set_token('STRUCTURE_CODE', l_id_flex_structure_code);
6595: fnd_message.set_token('TITLE', l_flextype.flex_title);
6596: fnd_message.set_token('APPLICATION_NAME', l_application_name);
6597: fnd_message.set_token('WARNING_COUNT', g_non_forms_warnings_count);
6598: g_non_forms_warnings(0) := fnd_message.get();
6599: END IF;
6600: x_warning_count := g_non_forms_warnings_count;
6601:
6602: END compute_non_forms_warnings_kff;