[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;
1780: big_arg := NULL;
1781: end if;
1782:
1783: if(big_arg is not null) then
1784: FND_MESSAGE.set_name('FND', 'FLEX-ARGUMENT TOO LONG');
1785: FND_MESSAGE.set_token('ARG', big_arg);
1786: FND_MESSAGE.set_token('MAXLEN', to_char(MAX_ARG_LEN));
1787: goto return_error;
1788: end if;
1781: end if;
1782:
1783: if(big_arg is not null) then
1784: FND_MESSAGE.set_name('FND', 'FLEX-ARGUMENT TOO LONG');
1785: FND_MESSAGE.set_token('ARG', big_arg);
1786: FND_MESSAGE.set_token('MAXLEN', to_char(MAX_ARG_LEN));
1787: goto return_error;
1788: end if;
1789:
1782:
1783: if(big_arg is not null) then
1784: FND_MESSAGE.set_name('FND', 'FLEX-ARGUMENT TOO LONG');
1785: FND_MESSAGE.set_token('ARG', big_arg);
1786: FND_MESSAGE.set_token('MAXLEN', to_char(MAX_ARG_LEN));
1787: goto return_error;
1788: end if;
1789:
1790: -- Limit concatenated segment length for compatibility with client
1789:
1790: -- Limit concatenated segment length for compatibility with client
1791: --
1792: if(LENGTHB(concat_segs) > MAX_CATSEG_LEN) then
1793: FND_MESSAGE.set_name('FND', 'FLEX-CONCAT LEN > IAPFLEN');
1794: FND_MESSAGE.set_token('MAXFLDLEN', to_char(MAX_CATSEG_LEN));
1795: goto return_error;
1796: end if;
1797:
1790: -- Limit concatenated segment length for compatibility with client
1791: --
1792: if(LENGTHB(concat_segs) > MAX_CATSEG_LEN) then
1793: FND_MESSAGE.set_name('FND', 'FLEX-CONCAT LEN > IAPFLEN');
1794: FND_MESSAGE.set_token('MAXFLDLEN', to_char(MAX_CATSEG_LEN));
1795: goto return_error;
1796: end if;
1797:
1798: -- First check that operation makes sense
1798: -- First check that operation makes sense
1799: --
1800: if((invoking_mode is null) or
1801: (invoking_mode NOT IN ('V', 'P', 'L'))) then
1802: FND_MESSAGE.set_name('FND', 'FLEX-SSV BAD INVOKE');
1803: goto return_error;
1804: end if;
1805:
1806: if((validate_mode is null) or
1805:
1806: if((validate_mode is null) or
1807: (validate_mode not in
1808: ('FULL', 'PARTIAL', 'PARTIAL_IF_POSSIBLE', 'FOR_INSERT'))) then
1809: FND_MESSAGE.set_name('FND', 'FLEX-SSV BAD VALMODE');
1810: goto return_error;
1811: end if;
1812:
1813: if((invoking_mode in ('V', 'P')) and
1812:
1813: if((invoking_mode in ('V', 'P')) and
1814: ((vals_or_ids is null) or
1815: (vals_or_ids not in ('V', 'I')))) then
1816: FND_MESSAGE.set_name('FND', 'FLEX-SSV BAD FLAG');
1817: goto return_error;
1818: end if;
1819:
1820: -- Set validation flags.
1945: -- LOADID() in FULL mode.
1946: -- Look up the segment id's from the table before validating them.
1947: --
1948: if((ccid_in is null) or (ccid_in < 0)) then
1949: FND_MESSAGE.set_name('FND', 'FLEX-BAD CCID INPUT');
1950: FND_MESSAGE.set_token('CCID', to_char(ccid_in));
1951: goto return_error;
1952: end if;
1953:
1946: -- Look up the segment id's from the table before validating them.
1947: --
1948: if((ccid_in is null) or (ccid_in < 0)) then
1949: FND_MESSAGE.set_name('FND', 'FLEX-BAD CCID INPUT');
1950: FND_MESSAGE.set_token('CCID', to_char(ccid_in));
1951: goto return_error;
1952: end if;
1953:
1954: -- Get segment mapping to code combinations table
1995: tbl_quals.derived_cols, n_xcols, rq_xcols, NULL,
1996: comb_id, value_ids, tbl_derv, tbl_quals.sq_values,
1997: xcol_vals);
1998: if(nfound = 0) then
1999: FND_MESSAGE.set_name('FND', 'FLEX-COMBINATION NOT FOUND');
2000: FND_MESSAGE.set_token('CCID', ccid_in);
2001: FND_MESSAGE.set_token('APNM', flex_app_sname);
2002: FND_MESSAGE.set_token('CODE', flex_code);
2003: FND_MESSAGE.set_token('NUM', flex_num);
1996: comb_id, value_ids, tbl_derv, tbl_quals.sq_values,
1997: xcol_vals);
1998: if(nfound = 0) then
1999: FND_MESSAGE.set_name('FND', 'FLEX-COMBINATION NOT FOUND');
2000: FND_MESSAGE.set_token('CCID', ccid_in);
2001: FND_MESSAGE.set_token('APNM', flex_app_sname);
2002: FND_MESSAGE.set_token('CODE', flex_code);
2003: FND_MESSAGE.set_token('NUM', flex_num);
2004: end if;
1997: xcol_vals);
1998: if(nfound = 0) then
1999: FND_MESSAGE.set_name('FND', 'FLEX-COMBINATION NOT FOUND');
2000: FND_MESSAGE.set_token('CCID', ccid_in);
2001: FND_MESSAGE.set_token('APNM', flex_app_sname);
2002: FND_MESSAGE.set_token('CODE', flex_code);
2003: FND_MESSAGE.set_token('NUM', flex_num);
2004: end if;
2005: if(nfound <> 1) then
1998: if(nfound = 0) then
1999: FND_MESSAGE.set_name('FND', 'FLEX-COMBINATION NOT FOUND');
2000: FND_MESSAGE.set_token('CCID', ccid_in);
2001: FND_MESSAGE.set_token('APNM', flex_app_sname);
2002: FND_MESSAGE.set_token('CODE', flex_code);
2003: FND_MESSAGE.set_token('NUM', flex_num);
2004: end if;
2005: if(nfound <> 1) then
2006: goto return_error;
1999: FND_MESSAGE.set_name('FND', 'FLEX-COMBINATION NOT FOUND');
2000: FND_MESSAGE.set_token('CCID', ccid_in);
2001: FND_MESSAGE.set_token('APNM', flex_app_sname);
2002: FND_MESSAGE.set_token('CODE', flex_code);
2003: FND_MESSAGE.set_token('NUM', flex_num);
2004: end if;
2005: if(nfound <> 1) then
2006: goto return_error;
2007: end if;
2145: (ccid_in <> -1) and (comb_id = ccid_in)) then
2146: errcode := FND_FLEX_SERVER1.VV_VALID;
2147: goto return_outvars;
2148: elsif(nfound >= 1) then
2149: FND_MESSAGE.set_name('FND', 'FLEX-COMB. ALREADY EXISTS');
2150: errcode := FND_FLEX_SERVER1.VV_COMBEXISTS;
2151: goto return_outvars;
2152: else
2153: if(nfound <> 0) then
2193: comb_id, value_ids, tbl_derv, tbl_quals.sq_values,
2194: xcol_vals);
2195: if(nfound = 1) THEN
2196: IF (NOT parse_set_msg(where_clause_msg)) THEN
2197: FND_MESSAGE.set_name('FND', 'FLEX-WHERE CLAUSE FAILURE');
2198: FND_MESSAGE.set_token('WHERE', where_clause);
2199: END IF;
2200: errcode := FND_FLEX_SERVER1.VV_WHEREFAILURE;
2201: goto return_outvars;
2194: xcol_vals);
2195: if(nfound = 1) THEN
2196: IF (NOT parse_set_msg(where_clause_msg)) THEN
2197: FND_MESSAGE.set_name('FND', 'FLEX-WHERE CLAUSE FAILURE');
2198: FND_MESSAGE.set_token('WHERE', where_clause);
2199: END IF;
2200: errcode := FND_FLEX_SERVER1.VV_WHEREFAILURE;
2201: goto return_outvars;
2202: elsif((nfound > 1) or (nfound < 0)) then
2212: -- This part was before the WHERE_CLAUSE check.
2213: --
2214: if(not dynam_insrt) THEN
2215: IF (NOT parse_set_msg(no_combmsg)) THEN
2216: FND_MESSAGE.set_name('FND', 'FLEX-NO DYNAMIC INSERTS');
2217: END IF;
2218: errcode := FND_FLEX_SERVER1.VV_COMBNOTFOUND;
2219: goto return_outvars;
2220: end if;
2291: else
2292: ROLLBACK TO SAVEPOINT pre_insert_comb;
2293: if(for_insert and ((ccid_in is null) or (ccid_in = 0) or
2294: (ccid_in = -1) or (comb_id <> ccid_in))) then
2295: FND_MESSAGE.set_name('FND', 'FLEX-COMB. ALREADY EXISTS');
2296: errcode := FND_FLEX_SERVER1.VV_COMBEXISTS;
2297: goto return_error;
2298: end if;
2299: errcode:=check_table_comb(tbl_derv,tbl_quals,v_rules,
2322: errcode := FND_FLEX_SERVER1.VV_VALID;
2323: ELSE
2324: if(for_insert and ((ccid_in is null) or (ccid_in = 0) or
2325: (ccid_in = -1) or (comb_id <> ccid_in))) then
2326: FND_MESSAGE.set_name('FND', 'FLEX-COMB. ALREADY EXISTS');
2327: errcode := FND_FLEX_SERVER1.VV_COMBEXISTS;
2328: goto return_error;
2329: end if;
2330: errcode:=check_table_comb(tbl_derv,tbl_quals,v_rules,
2380: RETURN;
2381:
2382: EXCEPTION
2383: WHEN OTHERS then
2384: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2385: FND_MESSAGE.set_token('MSG','SSV.validation_engine() exception: '||SQLERRM);
2386: v_status := FND_FLEX_SERVER1.VV_ERROR;
2387: IF (fnd_flex_server1.g_debug_level > 0) THEN
2388: fnd_flex_server1.add_debug('EXCEPTION others SSV.validation_engine()');
2381:
2382: EXCEPTION
2383: WHEN OTHERS then
2384: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2385: FND_MESSAGE.set_token('MSG','SSV.validation_engine() exception: '||SQLERRM);
2386: v_status := FND_FLEX_SERVER1.VV_ERROR;
2387: IF (fnd_flex_server1.g_debug_level > 0) THEN
2388: fnd_flex_server1.add_debug('EXCEPTION others SSV.validation_engine()');
2389: END IF;
2428: l_posq := Instr(l_awc, '''''', l_posq + 2, 1);
2429: END LOOP;
2430:
2431: IF (l_pos2 = 0) THEN
2432: fnd_message.set_name('FND', 'FLEX-SQL MISSING QUOTE');
2433: fnd_message.set_token('CLAUSE', Substr(l_awc, 1, 1000));
2434: RETURN(FALSE);
2435: END IF;
2436:
2429: END LOOP;
2430:
2431: IF (l_pos2 = 0) THEN
2432: fnd_message.set_name('FND', 'FLEX-SQL MISSING QUOTE');
2433: fnd_message.set_token('CLAUSE', Substr(l_awc, 1, 1000));
2434: RETURN(FALSE);
2435: END IF;
2436:
2437: fnd_dsql.add_bind(REPLACE(Substr(l_awc, l_pos1 + 1, (l_pos2-l_pos1)- 1),
2445:
2446: RETURN(TRUE);
2447: EXCEPTION
2448: WHEN OTHERS THEN
2449: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2450: FND_MESSAGE.set_token('MSG','x_bind_additional_where_clause() exception: '||SQLERRM);
2451: RETURN(FALSE);
2452: END x_bind_additional_where_clause;
2453:
2446: RETURN(TRUE);
2447: EXCEPTION
2448: WHEN OTHERS THEN
2449: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2450: FND_MESSAGE.set_token('MSG','x_bind_additional_where_clause() exception: '||SQLERRM);
2451: RETURN(FALSE);
2452: END x_bind_additional_where_clause;
2453:
2454:
2615:
2616: end if;
2617:
2618: if(nrecords > 1) then
2619: FND_MESSAGE.set_name('FND', 'FLEX-DUPLICATE CCID');
2620: FND_MESSAGE.set_token('CCID', to_char(ccid));
2621: end if;
2622:
2623: return(nrecords);
2616: end if;
2617:
2618: if(nrecords > 1) then
2619: FND_MESSAGE.set_name('FND', 'FLEX-DUPLICATE CCID');
2620: FND_MESSAGE.set_token('CCID', to_char(ccid));
2621: end if;
2622:
2623: return(nrecords);
2624:
2623: return(nrecords);
2624:
2625: EXCEPTION
2626: WHEN OTHERS then
2627: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2628: FND_MESSAGE.set_token('MSG','SSV.find_combination() exception: '||SQLERRM);
2629: return(-3);
2630:
2631: END find_combination;
2624:
2625: EXCEPTION
2626: WHEN OTHERS then
2627: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2628: FND_MESSAGE.set_token('MSG','SSV.find_combination() exception: '||SQLERRM);
2629: return(-3);
2630:
2631: END find_combination;
2632:
2666: /* functionality. */
2667: /* If the user PLSQL validation function returns FALSE, */
2668: /* insert_combination() returns FALSE indicating a fatal error */
2669: /* condition. In this case the error message is already loaded */
2670: /* in FND_MESSAGE. */
2671: /* A SAVEPOINT must be issued externally to this function and */
2672: /* a rollback must occur if insert_combination returns an error */
2673: /* of if it returns new_comb = FALSE to unlock the hash number. */
2674: /* */
2781: return(FALSE);
2782: end if;
2783: ccid := to_number(ccid_string);
2784: if(ccid > MAX_CCID) then
2785: FND_MESSAGE.set_name('FND', 'FLEX-CCID TOO BIG');
2786: FND_MESSAGE.set_token('CCIDLIMIT', to_char(MAX_CCID));
2787: FND_MESSAGE.set_token('SEQNAME', combtbl.application_table_name||'_S');
2788: return(FALSE);
2789: end if;
2782: end if;
2783: ccid := to_number(ccid_string);
2784: if(ccid > MAX_CCID) then
2785: FND_MESSAGE.set_name('FND', 'FLEX-CCID TOO BIG');
2786: FND_MESSAGE.set_token('CCIDLIMIT', to_char(MAX_CCID));
2787: FND_MESSAGE.set_token('SEQNAME', combtbl.application_table_name||'_S');
2788: return(FALSE);
2789: end if;
2790: end if;
2783: ccid := to_number(ccid_string);
2784: if(ccid > MAX_CCID) then
2785: FND_MESSAGE.set_name('FND', 'FLEX-CCID TOO BIG');
2786: FND_MESSAGE.set_token('CCIDLIMIT', to_char(MAX_CCID));
2787: FND_MESSAGE.set_token('SEQNAME', combtbl.application_table_name||'_S');
2788: return(FALSE);
2789: end if;
2790: end if;
2791:
2892: return(TRUE);
2893:
2894: EXCEPTION
2895: WHEN NO_DATA_FOUND then
2896: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2897: FND_MESSAGE.set_token('MSG', 'Hash value ' ||
2898: to_char(hash_number) || ' not found.');
2899: return(FALSE);
2900: WHEN TOO_MANY_ROWS then
2893:
2894: EXCEPTION
2895: WHEN NO_DATA_FOUND then
2896: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2897: FND_MESSAGE.set_token('MSG', 'Hash value ' ||
2898: to_char(hash_number) || ' not found.');
2899: return(FALSE);
2900: WHEN TOO_MANY_ROWS then
2901: FND_MESSAGE.set_token('MSG', 'Hash value ' ||
2897: FND_MESSAGE.set_token('MSG', 'Hash value ' ||
2898: to_char(hash_number) || ' not found.');
2899: return(FALSE);
2900: WHEN TOO_MANY_ROWS then
2901: FND_MESSAGE.set_token('MSG', 'Hash value ' ||
2902: to_char(hash_number) || ' not unique.');
2903: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2904: return(FALSE);
2905: WHEN TIMEOUT_ON_RESOURCE then
2899: return(FALSE);
2900: WHEN TOO_MANY_ROWS then
2901: FND_MESSAGE.set_token('MSG', 'Hash value ' ||
2902: to_char(hash_number) || ' not unique.');
2903: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2904: return(FALSE);
2905: WHEN TIMEOUT_ON_RESOURCE then
2906: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2907: FND_MESSAGE.set_token('MSG', 'Timeout waiting for lock on hash table.');
2902: to_char(hash_number) || ' not unique.');
2903: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2904: return(FALSE);
2905: WHEN TIMEOUT_ON_RESOURCE then
2906: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2907: FND_MESSAGE.set_token('MSG', 'Timeout waiting for lock on hash table.');
2908: return(FALSE);
2909: WHEN deadlock then
2910: FND_MESSAGE.set_name('FND', 'FLEX-HASH DEADLOCK');
2903: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2904: return(FALSE);
2905: WHEN TIMEOUT_ON_RESOURCE then
2906: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2907: FND_MESSAGE.set_token('MSG', 'Timeout waiting for lock on hash table.');
2908: return(FALSE);
2909: WHEN deadlock then
2910: FND_MESSAGE.set_name('FND', 'FLEX-HASH DEADLOCK');
2911: return(FALSE);
2906: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2907: FND_MESSAGE.set_token('MSG', 'Timeout waiting for lock on hash table.');
2908: return(FALSE);
2909: WHEN deadlock then
2910: FND_MESSAGE.set_name('FND', 'FLEX-HASH DEADLOCK');
2911: return(FALSE);
2912: WHEN OTHERS then
2913: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2914: FND_MESSAGE.set_token('MSG','insert_combination() exception: '||SQLERRM);
2909: WHEN deadlock then
2910: FND_MESSAGE.set_name('FND', 'FLEX-HASH DEADLOCK');
2911: return(FALSE);
2912: WHEN OTHERS then
2913: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2914: FND_MESSAGE.set_token('MSG','insert_combination() exception: '||SQLERRM);
2915: return(FALSE);
2916:
2917: END insert_combination;
2910: FND_MESSAGE.set_name('FND', 'FLEX-HASH DEADLOCK');
2911: return(FALSE);
2912: WHEN OTHERS then
2913: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2914: FND_MESSAGE.set_token('MSG','insert_combination() exception: '||SQLERRM);
2915: return(FALSE);
2916:
2917: END insert_combination;
2918:
2948: return(MOD(hval, NHASH));
2949:
2950: EXCEPTION
2951: WHEN OTHERS then
2952: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2953: FND_MESSAGE.set_token('MSG', 'hash_segs() exception: ' || SQLERRM);
2954: return(-1);
2955:
2956: END hash_segs;
2949:
2950: EXCEPTION
2951: WHEN OTHERS then
2952: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2953: FND_MESSAGE.set_token('MSG', 'hash_segs() exception: ' || SQLERRM);
2954: return(-1);
2955:
2956: END hash_segs;
2957:
2994: -- Check if combination turned on
2995: --
2996: if(check_effective) then
2997: if(t_dval.enabled_flag <> 'Y') then
2998: FND_MESSAGE.set_name('FND', 'FLEX-COMBINATION DISABLED');
2999: return(FND_FLEX_SERVER1.VV_VALUES);
3000: end if;
3001: if((v_date is not null) and
3002: ((Trunc(v_date) < Trunc(nvl(t_dval.start_valid, v_date))) or
3000: end if;
3001: if((v_date is not null) and
3002: ((Trunc(v_date) < Trunc(nvl(t_dval.start_valid, v_date))) or
3003: (Trunc(v_date) > Trunc(nvl(t_dval.end_valid, v_date))))) then
3004: FND_MESSAGE.set_name('FND', 'FLEX-COMBINATION HAS EXPIRED');
3005: return(FND_FLEX_SERVER1.VV_VALUES);
3006: end if;
3007: end if;
3008:
3011: return(FND_FLEX_SERVER1.check_comb_vrules(v_rules, t_quals,
3012: t_dval.summary_flag));
3013: EXCEPTION
3014: WHEN OTHERS then
3015: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3016: FND_MESSAGE.set_token('MSG','check_table_comb() exception: '||SQLERRM);
3017: return(FND_FLEX_SERVER1.VV_ERROR);
3018:
3019: END check_table_comb;
3012: t_dval.summary_flag));
3013: EXCEPTION
3014: WHEN OTHERS then
3015: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3016: FND_MESSAGE.set_token('MSG','check_table_comb() exception: '||SQLERRM);
3017: return(FND_FLEX_SERVER1.VV_ERROR);
3018:
3019: END check_table_comb;
3020:
3298:
3299: -- Make sure it is not too big
3300: --
3301: if(LENGTHB(s) > MAX_ARG_LEN) then
3302: FND_MESSAGE.set_name('FND', 'FLEX-ARGUMENT TOO LONG');
3303: FND_MESSAGE.set_token('ARG', 'VALATT');
3304: FND_MESSAGE.set_token('MAXLEN', to_char(MAX_ARG_LEN));
3305: return(-6);
3306: end if;
3299: -- Make sure it is not too big
3300: --
3301: if(LENGTHB(s) > MAX_ARG_LEN) then
3302: FND_MESSAGE.set_name('FND', 'FLEX-ARGUMENT TOO LONG');
3303: FND_MESSAGE.set_token('ARG', 'VALATT');
3304: FND_MESSAGE.set_token('MAXLEN', to_char(MAX_ARG_LEN));
3305: return(-6);
3306: end if;
3307:
3300: --
3301: if(LENGTHB(s) > MAX_ARG_LEN) then
3302: FND_MESSAGE.set_name('FND', 'FLEX-ARGUMENT TOO LONG');
3303: FND_MESSAGE.set_token('ARG', 'VALATT');
3304: FND_MESSAGE.set_token('MAXLEN', to_char(MAX_ARG_LEN));
3305: return(-6);
3306: end if;
3307:
3308: IF (s IS NOT NULL) THEN
3315: for i in 1..nsegs loop
3316: if(fqsq_names(i) is not null) then
3317: fqname_end := INSTR(fqsq_names(i), FND_FLEX_SERVER1.SEPARATOR);
3318: if(fqname_end <= 0) then
3319: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VALATT NOSEP');
3320: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3321: FND_MESSAGE.set_token('NAME', fqsq_names(i));
3322: return(-1);
3323: elsif(fqname_end > 31) then
3316: if(fqsq_names(i) is not null) then
3317: fqname_end := INSTR(fqsq_names(i), FND_FLEX_SERVER1.SEPARATOR);
3318: if(fqname_end <= 0) then
3319: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VALATT NOSEP');
3320: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3321: FND_MESSAGE.set_token('NAME', fqsq_names(i));
3322: return(-1);
3323: elsif(fqname_end > 31) then
3324: FND_MESSAGE.set_name('FND', 'FLEX-QUALIFIER TOO LONG');
3317: fqname_end := INSTR(fqsq_names(i), FND_FLEX_SERVER1.SEPARATOR);
3318: if(fqname_end <= 0) then
3319: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VALATT NOSEP');
3320: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3321: FND_MESSAGE.set_token('NAME', fqsq_names(i));
3322: return(-1);
3323: elsif(fqname_end > 31) then
3324: FND_MESSAGE.set_name('FND', 'FLEX-QUALIFIER TOO LONG');
3325: FND_MESSAGE.set_token('TOKNAME', 'VALATT');
3320: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3321: FND_MESSAGE.set_token('NAME', fqsq_names(i));
3322: return(-1);
3323: elsif(fqname_end > 31) then
3324: FND_MESSAGE.set_name('FND', 'FLEX-QUALIFIER TOO LONG');
3325: FND_MESSAGE.set_token('TOKNAME', 'VALATT');
3326: FND_MESSAGE.set_token('NAME', SUBSTR(fqsq_names(i), 1, 30));
3327: return(-2);
3328: else
3321: FND_MESSAGE.set_token('NAME', fqsq_names(i));
3322: return(-1);
3323: elsif(fqname_end > 31) then
3324: FND_MESSAGE.set_name('FND', 'FLEX-QUALIFIER TOO LONG');
3325: FND_MESSAGE.set_token('TOKNAME', 'VALATT');
3326: FND_MESSAGE.set_token('NAME', SUBSTR(fqsq_names(i), 1, 30));
3327: return(-2);
3328: else
3329: var.fq_names(i) := UPPER(SUBSTR(fqsq_names(i), 1, fqname_end - 1));
3322: return(-1);
3323: elsif(fqname_end > 31) then
3324: FND_MESSAGE.set_name('FND', 'FLEX-QUALIFIER TOO LONG');
3325: FND_MESSAGE.set_token('TOKNAME', 'VALATT');
3326: FND_MESSAGE.set_token('NAME', SUBSTR(fqsq_names(i), 1, 30));
3327: return(-2);
3328: else
3329: var.fq_names(i) := UPPER(SUBSTR(fqsq_names(i), 1, fqname_end - 1));
3330: sq_name := UPPER(SUBSTR(fqsq_names(i),
3329: var.fq_names(i) := UPPER(SUBSTR(fqsq_names(i), 1, fqname_end - 1));
3330: sq_name := UPPER(SUBSTR(fqsq_names(i),
3331: fqname_end + LENGTH(FND_FLEX_SERVER1.SEPARATOR), 30));
3332: if(sq_name is null) then
3333: FND_MESSAGE.set_name('FND', 'FLEX-MISSING SQNAME');
3334: FND_MESSAGE.set_token('TOKNAME', 'VALATT');
3335: return(-3);
3336: end if;
3337: var.sq_names(i) := sq_name;
3330: sq_name := UPPER(SUBSTR(fqsq_names(i),
3331: fqname_end + LENGTH(FND_FLEX_SERVER1.SEPARATOR), 30));
3332: if(sq_name is null) then
3333: FND_MESSAGE.set_name('FND', 'FLEX-MISSING SQNAME');
3334: FND_MESSAGE.set_token('TOKNAME', 'VALATT');
3335: return(-3);
3336: end if;
3337: var.sq_names(i) := sq_name;
3338: end if;
3336: end if;
3337: var.sq_names(i) := sq_name;
3338: end if;
3339: else
3340: FND_MESSAGE.set_name('FND', 'FLEX-MISSING SQNAME');
3341: FND_MESSAGE.set_token('TOKNAME', 'VALATT');
3342: return(-4);
3343: end if;
3344: end loop;
3337: var.sq_names(i) := sq_name;
3338: end if;
3339: else
3340: FND_MESSAGE.set_name('FND', 'FLEX-MISSING SQNAME');
3341: FND_MESSAGE.set_token('TOKNAME', 'VALATT');
3342: return(-4);
3343: end if;
3344: end loop;
3345: var.nrqstd := nsegs;
3346: return(nsegs);
3347:
3348: EXCEPTION
3349: WHEN OTHERS then
3350: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3351: FND_MESSAGE.set_token('MSG', 'parse_va_rqst() exception: ' || SQLERRM);
3352: return(-5);
3353:
3354: END parse_va_rqst;
3347:
3348: EXCEPTION
3349: WHEN OTHERS then
3350: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3351: FND_MESSAGE.set_token('MSG', 'parse_va_rqst() exception: ' || SQLERRM);
3352: return(-5);
3353:
3354: END parse_va_rqst;
3355:
3368:
3369: -- Make sure it is not too big
3370: --
3371: if(LENGTHB(s) > MAX_ARG_LEN) then
3372: FND_MESSAGE.set_name('FND', 'FLEX-ARGUMENT TOO LONG');
3373: FND_MESSAGE.set_token('ARG', 'DERIVED');
3374: FND_MESSAGE.set_token('MAXLEN', to_char(MAX_ARG_LEN));
3375: return(-6);
3376: end if;
3369: -- Make sure it is not too big
3370: --
3371: if(LENGTHB(s) > MAX_ARG_LEN) then
3372: FND_MESSAGE.set_name('FND', 'FLEX-ARGUMENT TOO LONG');
3373: FND_MESSAGE.set_token('ARG', 'DERIVED');
3374: FND_MESSAGE.set_token('MAXLEN', to_char(MAX_ARG_LEN));
3375: return(-6);
3376: end if;
3377:
3370: --
3371: if(LENGTHB(s) > MAX_ARG_LEN) then
3372: FND_MESSAGE.set_name('FND', 'FLEX-ARGUMENT TOO LONG');
3373: FND_MESSAGE.set_token('ARG', 'DERIVED');
3374: FND_MESSAGE.set_token('MAXLEN', to_char(MAX_ARG_LEN));
3375: return(-6);
3376: end if;
3377:
3378: IF (s IS NOT NULL) THEN
3385: for i in 1..nsegs loop
3386: if(sqnames(i) is not null) then
3387: dr.sq_names(i) := UPPER(SUBSTR(sqnames(i), 1, 30));
3388: else
3389: FND_MESSAGE.set_name('FND', 'FLEX-MISSING SQNAME');
3390: FND_MESSAGE.set_token('TOKNAME', 'DERIVED');
3391: return(-1);
3392: end if;
3393: end loop;
3386: if(sqnames(i) is not null) then
3387: dr.sq_names(i) := UPPER(SUBSTR(sqnames(i), 1, 30));
3388: else
3389: FND_MESSAGE.set_name('FND', 'FLEX-MISSING SQNAME');
3390: FND_MESSAGE.set_token('TOKNAME', 'DERIVED');
3391: return(-1);
3392: end if;
3393: end loop;
3394: dr.nrqstd := nsegs;
3395: return(nsegs);
3396:
3397: EXCEPTION
3398: WHEN OTHERS then
3399: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3400: FND_MESSAGE.set_token('MSG', 'parse_drv_rqst() exception: '||SQLERRM);
3401: return(-2);
3402:
3403: END parse_drv_rqst;
3396:
3397: EXCEPTION
3398: WHEN OTHERS then
3399: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3400: FND_MESSAGE.set_token('MSG', 'parse_drv_rqst() exception: '||SQLERRM);
3401: return(-2);
3402:
3403: END parse_drv_rqst;
3404:
3456: -- Flexfield qualifier name
3457: --
3458: endp := INSTR(s, FND_FLEX_SERVER1.SEPARATOR, bgn);
3459: if(endp <= 0) then
3460: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NOSEP');
3461: FND_MESSAGE.set_token('TOKNUM', to_char(n));
3462: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3463: return(-1);
3464: else
3457: --
3458: endp := INSTR(s, FND_FLEX_SERVER1.SEPARATOR, bgn);
3459: if(endp <= 0) then
3460: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NOSEP');
3461: FND_MESSAGE.set_token('TOKNUM', to_char(n));
3462: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3463: return(-1);
3464: else
3465: tokn := UPPER(LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS));
3458: endp := INSTR(s, FND_FLEX_SERVER1.SEPARATOR, bgn);
3459: if(endp <= 0) then
3460: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NOSEP');
3461: FND_MESSAGE.set_token('TOKNUM', to_char(n));
3462: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3463: return(-1);
3464: else
3465: tokn := UPPER(LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS));
3466: if((tokn is not null) and (LENGTHB(tokn) > 30)) then
3463: return(-1);
3464: else
3465: tokn := UPPER(LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS));
3466: if((tokn is not null) and (LENGTHB(tokn) > 30)) then
3467: FND_MESSAGE.set_name('FND', 'FLEX-QUALIFIER TOO LONG');
3468: FND_MESSAGE.set_token('TOKNAME', 'VRULE');
3469: FND_MESSAGE.set_token('NAME', SUBSTR(s, bgn, 30));
3470: return(-1);
3471: end if;
3464: else
3465: tokn := UPPER(LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS));
3466: if((tokn is not null) and (LENGTHB(tokn) > 30)) then
3467: FND_MESSAGE.set_name('FND', 'FLEX-QUALIFIER TOO LONG');
3468: FND_MESSAGE.set_token('TOKNAME', 'VRULE');
3469: FND_MESSAGE.set_token('NAME', SUBSTR(s, bgn, 30));
3470: return(-1);
3471: end if;
3472: vr.fq_names(n) := tokn;
3465: tokn := UPPER(LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS));
3466: if((tokn is not null) and (LENGTHB(tokn) > 30)) then
3467: FND_MESSAGE.set_name('FND', 'FLEX-QUALIFIER TOO LONG');
3468: FND_MESSAGE.set_token('TOKNAME', 'VRULE');
3469: FND_MESSAGE.set_token('NAME', SUBSTR(s, bgn, 30));
3470: return(-1);
3471: end if;
3472: vr.fq_names(n) := tokn;
3473: bgn := endp + seplen;
3476: -- Segment qualifier name
3477: --
3478: endp := INSTR(s, FND_FLEX_SERVER1.SEPARATOR, bgn);
3479: if(endp <= 0) then
3480: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NOSEP');
3481: FND_MESSAGE.set_token('TOKNUM', to_char(n));
3482: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3483: return(-1);
3484: else
3477: --
3478: endp := INSTR(s, FND_FLEX_SERVER1.SEPARATOR, bgn);
3479: if(endp <= 0) then
3480: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NOSEP');
3481: FND_MESSAGE.set_token('TOKNUM', to_char(n));
3482: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3483: return(-1);
3484: else
3485: tokn := UPPER(LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS));
3478: endp := INSTR(s, FND_FLEX_SERVER1.SEPARATOR, bgn);
3479: if(endp <= 0) then
3480: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NOSEP');
3481: FND_MESSAGE.set_token('TOKNUM', to_char(n));
3482: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3483: return(-1);
3484: else
3485: tokn := UPPER(LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS));
3486: if(tokn is null) then
3483: return(-1);
3484: else
3485: tokn := UPPER(LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS));
3486: if(tokn is null) then
3487: FND_MESSAGE.set_name('FND', 'FLEX-MISSING SQNAME');
3488: FND_MESSAGE.set_token('TOKNAME', 'VRULE');
3489: return(-1);
3490: elsif(LENGTHB(tokn) > 30) then
3491: FND_MESSAGE.set_name('FND', 'FLEX-QUALIFIER TOO LONG');
3484: else
3485: tokn := UPPER(LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS));
3486: if(tokn is null) then
3487: FND_MESSAGE.set_name('FND', 'FLEX-MISSING SQNAME');
3488: FND_MESSAGE.set_token('TOKNAME', 'VRULE');
3489: return(-1);
3490: elsif(LENGTHB(tokn) > 30) then
3491: FND_MESSAGE.set_name('FND', 'FLEX-QUALIFIER TOO LONG');
3492: FND_MESSAGE.set_token('TOKNAME', 'VRULE');
3487: FND_MESSAGE.set_name('FND', 'FLEX-MISSING SQNAME');
3488: FND_MESSAGE.set_token('TOKNAME', 'VRULE');
3489: return(-1);
3490: elsif(LENGTHB(tokn) > 30) then
3491: FND_MESSAGE.set_name('FND', 'FLEX-QUALIFIER TOO LONG');
3492: FND_MESSAGE.set_token('TOKNAME', 'VRULE');
3493: FND_MESSAGE.set_token('NAME', SUBSTR(s, bgn, 30));
3494: return(-1);
3495: else
3488: FND_MESSAGE.set_token('TOKNAME', 'VRULE');
3489: return(-1);
3490: elsif(LENGTHB(tokn) > 30) then
3491: FND_MESSAGE.set_name('FND', 'FLEX-QUALIFIER TOO LONG');
3492: FND_MESSAGE.set_token('TOKNAME', 'VRULE');
3493: FND_MESSAGE.set_token('NAME', SUBSTR(s, bgn, 30));
3494: return(-1);
3495: else
3496: sq_name := tokn;
3489: return(-1);
3490: elsif(LENGTHB(tokn) > 30) then
3491: FND_MESSAGE.set_name('FND', 'FLEX-QUALIFIER TOO LONG');
3492: FND_MESSAGE.set_token('TOKNAME', 'VRULE');
3493: FND_MESSAGE.set_token('NAME', SUBSTR(s, bgn, 30));
3494: return(-1);
3495: else
3496: sq_name := tokn;
3497: vr.sq_names(n) := tokn;
3502: -- Include/Exclude indicator
3503: --
3504: endp := INSTR(s, FND_FLEX_SERVER1.SEPARATOR, bgn);
3505: if(endp <= 0) then
3506: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NOSEP');
3507: FND_MESSAGE.set_token('TOKNUM', to_char(n));
3508: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3509: return(-1);
3510: end if;
3503: --
3504: endp := INSTR(s, FND_FLEX_SERVER1.SEPARATOR, bgn);
3505: if(endp <= 0) then
3506: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NOSEP');
3507: FND_MESSAGE.set_token('TOKNUM', to_char(n));
3508: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3509: return(-1);
3510: end if;
3511: tokn := LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS);
3504: endp := INSTR(s, FND_FLEX_SERVER1.SEPARATOR, bgn);
3505: if(endp <= 0) then
3506: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NOSEP');
3507: FND_MESSAGE.set_token('TOKNUM', to_char(n));
3508: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3509: return(-1);
3510: end if;
3511: tokn := LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS);
3512: if(tokn is null) then
3509: return(-1);
3510: end if;
3511: tokn := LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS);
3512: if(tokn is null) then
3513: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NO IE');
3514: FND_MESSAGE.set_token('NAME', sq_name);
3515: return(-1);
3516: end if;
3517: ie_flag := SUBSTR(tokn, 1, 1);
3510: end if;
3511: tokn := LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS);
3512: if(tokn is null) then
3513: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NO IE');
3514: FND_MESSAGE.set_token('NAME', sq_name);
3515: return(-1);
3516: end if;
3517: ie_flag := SUBSTR(tokn, 1, 1);
3518: vr.ie_flags(n) := ie_flag;
3516: end if;
3517: ie_flag := SUBSTR(tokn, 1, 1);
3518: vr.ie_flags(n) := ie_flag;
3519: if(ie_flag not in ('I', 'E')) then
3520: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE BAD IE');
3521: FND_MESSAGE.set_token('NAME', sq_name);
3522: return(-1);
3523: end if;
3524: bgn := endp + seplen;
3517: ie_flag := SUBSTR(tokn, 1, 1);
3518: vr.ie_flags(n) := ie_flag;
3519: if(ie_flag not in ('I', 'E')) then
3520: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE BAD IE');
3521: FND_MESSAGE.set_token('NAME', sq_name);
3522: return(-1);
3523: end if;
3524: bgn := endp + seplen;
3525:
3526: -- Error Message and Application short name
3527: --
3528: endp := INSTR(s, FND_FLEX_SERVER1.SEPARATOR, bgn);
3529: if(endp <= 0) then
3530: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NOSEP');
3531: FND_MESSAGE.set_token('TOKNUM', to_char(n));
3532: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3533: return(-1);
3534: end if;
3527: --
3528: endp := INSTR(s, FND_FLEX_SERVER1.SEPARATOR, bgn);
3529: if(endp <= 0) then
3530: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NOSEP');
3531: FND_MESSAGE.set_token('TOKNUM', to_char(n));
3532: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3533: return(-1);
3534: end if;
3535: tokn := LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS);
3528: endp := INSTR(s, FND_FLEX_SERVER1.SEPARATOR, bgn);
3529: if(endp <= 0) then
3530: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NOSEP');
3531: FND_MESSAGE.set_token('TOKNUM', to_char(n));
3532: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3533: return(-1);
3534: end if;
3535: tokn := LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS);
3536: if(tokn is null) then
3533: return(-1);
3534: end if;
3535: tokn := LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS);
3536: if(tokn is null) then
3537: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NO MSG');
3538: FND_MESSAGE.set_token('NAME', sq_name);
3539: return(-1);
3540: elsif(LENGTHB(tokn) > 100) then
3541: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE BIG MSG');
3534: end if;
3535: tokn := LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS);
3536: if(tokn is null) then
3537: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NO MSG');
3538: FND_MESSAGE.set_token('NAME', sq_name);
3539: return(-1);
3540: elsif(LENGTHB(tokn) > 100) then
3541: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE BIG MSG');
3542: FND_MESSAGE.set_token('NAME', sq_name);
3537: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NO MSG');
3538: FND_MESSAGE.set_token('NAME', sq_name);
3539: return(-1);
3540: elsif(LENGTHB(tokn) > 100) then
3541: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE BIG MSG');
3542: FND_MESSAGE.set_token('NAME', sq_name);
3543: return(-1);
3544: else
3545: msg_begin := INSTR(tokn, 'NAME=');
3538: FND_MESSAGE.set_token('NAME', sq_name);
3539: return(-1);
3540: elsif(LENGTHB(tokn) > 100) then
3541: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE BIG MSG');
3542: FND_MESSAGE.set_token('NAME', sq_name);
3543: return(-1);
3544: else
3545: msg_begin := INSTR(tokn, 'NAME=');
3546: if(msg_begin <= 0) then
3548: vr.err_names(n) := tokn;
3549: else
3550: msg_begin := msg_begin + 5;
3551: if(LENGTH(tokn) < msg_begin) then
3552: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NO MSGNAME');
3553: FND_MESSAGE.set_token('NAME', sq_name);
3554: return(-1);
3555: end if;
3556: vr.err_names(n) := SUBSTR(tokn, msg_begin);
3549: else
3550: msg_begin := msg_begin + 5;
3551: if(LENGTH(tokn) < msg_begin) then
3552: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NO MSGNAME');
3553: FND_MESSAGE.set_token('NAME', sq_name);
3554: return(-1);
3555: end if;
3556: vr.err_names(n) := SUBSTR(tokn, msg_begin);
3557: msg_begin := INSTR(tokn, 'APPL=');
3559: if((msg_begin > 0) and (msg_end > 0) and
3560: (msg_end - msg_begin > 5)) then
3561: msg_begin := msg_begin + 5;
3562: if(msg_end - msg_begin > 50) then
3563: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE BIG APNAME');
3564: FND_MESSAGE.set_token('NAME', sq_name);
3565: return(-1);
3566: end if;
3567: vr.app_names(n) := SUBSTR(tokn, msg_begin, msg_end - msg_begin);
3560: (msg_end - msg_begin > 5)) then
3561: msg_begin := msg_begin + 5;
3562: if(msg_end - msg_begin > 50) then
3563: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE BIG APNAME');
3564: FND_MESSAGE.set_token('NAME', sq_name);
3565: return(-1);
3566: end if;
3567: vr.app_names(n) := SUBSTR(tokn, msg_begin, msg_end - msg_begin);
3568: else
3581: endp := vrulstr_len + 1;
3582: end if;
3583: tokn := LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS);
3584: if(tokn is null) then
3585: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NO VALS');
3586: FND_MESSAGE.set_token('NAME', sq_name);
3587: return(-1);
3588: end if;
3589: if(LENGTHB(tokn) > 236) then
3582: end if;
3583: tokn := LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS);
3584: if(tokn is null) then
3585: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NO VALS');
3586: FND_MESSAGE.set_token('NAME', sq_name);
3587: return(-1);
3588: end if;
3589: if(LENGTHB(tokn) > 236) then
3590: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE BIG VALSTR');
3586: FND_MESSAGE.set_token('NAME', sq_name);
3587: return(-1);
3588: end if;
3589: if(LENGTHB(tokn) > 236) then
3590: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE BIG VALSTR');
3591: FND_MESSAGE.set_token('NAME', sq_name);
3592: return(-1);
3593: end if;
3594: bgn := 1;
3587: return(-1);
3588: end if;
3589: if(LENGTHB(tokn) > 236) then
3590: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE BIG VALSTR');
3591: FND_MESSAGE.set_token('NAME', sq_name);
3592: return(-1);
3593: end if;
3594: bgn := 1;
3595: ieval := FND_FLEX_SERVER1.SEPARATOR;
3614: return(n);
3615:
3616: EXCEPTION
3617: WHEN OTHERS then
3618: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3619: FND_MESSAGE.set_token('MSG', 'parse_vrules() exception: ' || SQLERRM);
3620: return(-2);
3621:
3622: END parse_vrules;
3615:
3616: EXCEPTION
3617: WHEN OTHERS then
3618: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3619: FND_MESSAGE.set_token('MSG', 'parse_vrules() exception: ' || SQLERRM);
3620: return(-2);
3621:
3622: END parse_vrules;
3623:
3682: -- Message Name.
3683: --
3684: l_name := Substr(l_msg, l_pos_beg, l_pos_end - l_pos_beg);
3685:
3686: fnd_message.set_name(l_appl, l_name);
3687:
3688: RETURN TRUE;
3689: EXCEPTION
3690: WHEN OTHERS THEN
3758: return(TRUE);
3759:
3760: EXCEPTION
3761: WHEN OTHERS then
3762: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3763: FND_MESSAGE.set_token('MSG', 'parse_displayed() exception: '||SQLERRM);
3764: return(FALSE);
3765:
3766: END parse_displayed;
3759:
3760: EXCEPTION
3761: WHEN OTHERS then
3762: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3763: FND_MESSAGE.set_token('MSG', 'parse_displayed() exception: '||SQLERRM);
3764: return(FALSE);
3765:
3766: END parse_displayed;
3767:
3824: -- qualifier applies. Exit if any errors.
3825: --
3826: for i in 1..n_toks loop
3827: if(toks(i) is null) then
3828: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN DUI NULL');
3829: return(FALSE);
3830: end if;
3831: if(toks(i) = 'ALL') then
3832: for j in 1..n_segs loop
3833: s_ntokappl(j) := s_ntokappl(j) + 1;
3834: end loop;
3835: elsif(FND_FLEX_SERVER1.isa_number(toks(i), segindex)) then
3836: if((segindex < 1) or (segindex > n_segs)) then
3837: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN DUI BAD SEGNUM');
3838: FND_MESSAGE.set_token('SEGNUM', to_char(segindex));
3839: return(FALSE);
3840: end if;
3841: s_ntokappl(segindex) := s_ntokappl(segindex) + 1;
3834: end loop;
3835: elsif(FND_FLEX_SERVER1.isa_number(toks(i), segindex)) then
3836: if((segindex < 1) or (segindex > n_segs)) then
3837: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN DUI BAD SEGNUM');
3838: FND_MESSAGE.set_token('SEGNUM', to_char(segindex));
3839: return(FALSE);
3840: end if;
3841: s_ntokappl(segindex) := s_ntokappl(segindex) + 1;
3842: else
3848: s_ntokappl(segindex) := s_ntokappl(segindex) + 1;
3849: end if;
3850: end loop;
3851: if(segindex = 0) then
3852: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN DUI BAD QUAL');
3853: FND_MESSAGE.set_token('QTOKEN', toks(i));
3854: return(FALSE);
3855: end if;
3856: end if;
3849: end if;
3850: end loop;
3851: if(segindex = 0) then
3852: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN DUI BAD QUAL');
3853: FND_MESSAGE.set_token('QTOKEN', toks(i));
3854: return(FALSE);
3855: end if;
3856: end if;
3857: end loop;
3862: return(TRUE);
3863:
3864: EXCEPTION
3865: WHEN OTHERS then
3866: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3867: FND_MESSAGE.set_token('MSG', 'evaluate_token() exception: ' ||SQLERRM);
3868: return(FALSE);
3869:
3870: END evaluate_token;
3863:
3864: EXCEPTION
3865: WHEN OTHERS then
3866: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3867: FND_MESSAGE.set_token('MSG', 'evaluate_token() exception: ' ||SQLERRM);
3868: return(FALSE);
3869:
3870: END evaluate_token;
3871:
3923:
3924: -- Do not call FDFGLI just exit with TRUE if GL is not fully installed
3925: --
3926: if(FND_INSTALLATION.get(101, 101, i_status, i_industry) = FALSE) then
3927: FND_MESSAGE.set_name('FND', 'FLEX-CANT_GET_INSTALL');
3928: return(FALSE);
3929: end if;
3930: if((i_status is null) or (i_status <> 'I')) then
3931: return(TRUE);
3958: if dbms_sql.is_open(cursornum) then
3959: dbms_sql.close_cursor(cursornum);
3960: end if;
3961: if((SQLCODE = -6550) and (INSTR(SQLERRM, 'PLS-00201') > 0)) then
3962: FND_MESSAGE.set_name('FND', 'FLEX-FDFGLI MISSING');
3963: FND_MESSAGE.set_token('MSG', SQLERRM);
3964: else
3965: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3966: FND_MESSAGE.set_token('MSG', 'fdfgli() exception: '||SQLERRM);
3959: dbms_sql.close_cursor(cursornum);
3960: end if;
3961: if((SQLCODE = -6550) and (INSTR(SQLERRM, 'PLS-00201') > 0)) then
3962: FND_MESSAGE.set_name('FND', 'FLEX-FDFGLI MISSING');
3963: FND_MESSAGE.set_token('MSG', SQLERRM);
3964: else
3965: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3966: FND_MESSAGE.set_token('MSG', 'fdfgli() exception: '||SQLERRM);
3967: end if;
3961: if((SQLCODE = -6550) and (INSTR(SQLERRM, 'PLS-00201') > 0)) then
3962: FND_MESSAGE.set_name('FND', 'FLEX-FDFGLI MISSING');
3963: FND_MESSAGE.set_token('MSG', SQLERRM);
3964: else
3965: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3966: FND_MESSAGE.set_token('MSG', 'fdfgli() exception: '||SQLERRM);
3967: end if;
3968: return(FALSE);
3969:
3962: FND_MESSAGE.set_name('FND', 'FLEX-FDFGLI MISSING');
3963: FND_MESSAGE.set_token('MSG', SQLERRM);
3964: else
3965: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3966: FND_MESSAGE.set_token('MSG', 'fdfgli() exception: '||SQLERRM);
3967: end if;
3968: return(FALSE);
3969:
3970: END call_fdfgli;
4035: ids(10), ids(11), ids(12), ids(13), ids(14), ids(15), ids(16),
4036: ids(17), ids(18), ids(19), ids(20), ids(21), ids(22), ids(23),
4037: ids(24), ids(25), ids(26), ids(27), ids(28), ids(29), ids(30),
4038: errmsg) = FALSE) then
4039: FND_MESSAGE.set_name('FND', 'FLEX-PLSQL VALIDATION ERROR');
4040: FND_MESSAGE.set_token('ERROR_MSG', errmsg);
4041: return(FALSE);
4042: end if;
4043: return(TRUE);
4036: ids(17), ids(18), ids(19), ids(20), ids(21), ids(22), ids(23),
4037: ids(24), ids(25), ids(26), ids(27), ids(28), ids(29), ids(30),
4038: errmsg) = FALSE) then
4039: FND_MESSAGE.set_name('FND', 'FLEX-PLSQL VALIDATION ERROR');
4040: FND_MESSAGE.set_token('ERROR_MSG', errmsg);
4041: return(FALSE);
4042: end if;
4043: return(TRUE);
4044:
4043: return(TRUE);
4044:
4045: EXCEPTION
4046: WHEN OTHERS then
4047: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
4048: FND_MESSAGE.set_token('MSG', 'call_userval() exception: '||SQLERRM);
4049: return(FALSE);
4050:
4051: END call_userval;
4044:
4045: EXCEPTION
4046: WHEN OTHERS then
4047: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
4048: FND_MESSAGE.set_token('MSG', 'call_userval() exception: '||SQLERRM);
4049: return(FALSE);
4050:
4051: END call_userval;
4052:
4168: EXECUTE IMMEDIATE ('LOCK TABLE ' || p_application_table_name ||
4169: ' IN ROW SHARE MODE');
4170: EXCEPTION
4171: WHEN OTHERS THEN
4172: fnd_message.set_name('FND', 'FLEX-USER DEFINED ERROR');
4173: fnd_message.set_token('MSG', l_func_name ||
4174: ' is unable to lock table ' ||
4175: p_application_table_name || '. ' || l_newline ||
4176: 'SQLERRM: ' || Sqlerrm);
4169: ' IN ROW SHARE MODE');
4170: EXCEPTION
4171: WHEN OTHERS THEN
4172: fnd_message.set_name('FND', 'FLEX-USER DEFINED ERROR');
4173: fnd_message.set_token('MSG', l_func_name ||
4174: ' is unable to lock table ' ||
4175: p_application_table_name || '. ' || l_newline ||
4176: 'SQLERRM: ' || Sqlerrm);
4177: GOTO return_failure;
4211: WHERE hash_value = l_hash_value
4212: FOR UPDATE;
4213: EXCEPTION
4214: WHEN OTHERS THEN
4215: fnd_message.set_name('FND', 'FLEX-USER DEFINED ERROR');
4216: fnd_message.set_token('MSG', l_func_name ||
4217: ' is unable to lock FND_FLEX_HASH. ' ||
4218: 'Hash Value: ' || l_hash_value || l_newline ||
4219: 'SQLERRM: ' || Sqlerrm);
4212: FOR UPDATE;
4213: EXCEPTION
4214: WHEN OTHERS THEN
4215: fnd_message.set_name('FND', 'FLEX-USER DEFINED ERROR');
4216: fnd_message.set_token('MSG', l_func_name ||
4217: ' is unable to lock FND_FLEX_HASH. ' ||
4218: 'Hash Value: ' || l_hash_value || l_newline ||
4219: 'SQLERRM: ' || Sqlerrm);
4220: GOTO return_failure;
4267: --
4268: dbms_sql.close_cursor(l_cursor);
4269: WHEN OTHERS THEN
4270: dbms_sql.close_cursor(l_cursor);
4271: fnd_message.set_name('FND', 'FLEX-USER DEFINED ERROR');
4272: fnd_message.set_token('MSG', l_func_name ||
4273: ' is unable to select from table ' ||
4274: p_application_table_name || '. ' || l_newline ||
4275: 'SQLERRM: ' || Sqlerrm);
4268: dbms_sql.close_cursor(l_cursor);
4269: WHEN OTHERS THEN
4270: dbms_sql.close_cursor(l_cursor);
4271: fnd_message.set_name('FND', 'FLEX-USER DEFINED ERROR');
4272: fnd_message.set_token('MSG', l_func_name ||
4273: ' is unable to select from table ' ||
4274: p_application_table_name || '. ' || l_newline ||
4275: 'SQLERRM: ' || Sqlerrm);
4276: GOTO return_failure;
4323: '_S.NEXTVAL FROM dual')
4324: INTO l_ccid;
4325: EXCEPTION
4326: WHEN OTHERS THEN
4327: fnd_message.set_name('FND', 'FLEX-USER DEFINED ERROR');
4328: fnd_message.set_token('MSG', l_func_name ||
4329: ' is unable to get next value from sequence ' ||
4330: p_application_table_name || '_S. ' ||l_newline||
4331: 'SQLERRM: ' || Sqlerrm);
4324: INTO l_ccid;
4325: EXCEPTION
4326: WHEN OTHERS THEN
4327: fnd_message.set_name('FND', 'FLEX-USER DEFINED ERROR');
4328: fnd_message.set_token('MSG', l_func_name ||
4329: ' is unable to get next value from sequence ' ||
4330: p_application_table_name || '_S. ' ||l_newline||
4331: 'SQLERRM: ' || Sqlerrm);
4332: GOTO return_failure;
4358: END LOOP;
4359: l_num := dbms_sql.execute(l_cursor);
4360: dbms_sql.close_cursor(l_cursor);
4361: IF (l_num <> 1) THEN
4362: fnd_message.set_name('FND', 'FLEX-USER DEFINED ERROR');
4363: fnd_message.set_token('MSG', l_func_name ||
4364: ' is unable to insert new combination. ' ||
4365: ' Dynamic INSERT SQL returned ' || l_num ||
4366: ' rows, it was expected to return 1 row.');
4359: l_num := dbms_sql.execute(l_cursor);
4360: dbms_sql.close_cursor(l_cursor);
4361: IF (l_num <> 1) THEN
4362: fnd_message.set_name('FND', 'FLEX-USER DEFINED ERROR');
4363: fnd_message.set_token('MSG', l_func_name ||
4364: ' is unable to insert new combination. ' ||
4365: ' Dynamic INSERT SQL returned ' || l_num ||
4366: ' rows, it was expected to return 1 row.');
4367: GOTO return_failure;
4369: x_is_new := 'Y';
4370: EXCEPTION
4371: WHEN OTHERS THEN
4372: dbms_sql.close_cursor(l_cursor);
4373: fnd_message.set_name('FND', 'FLEX-USER DEFINED ERROR');
4374: fnd_message.set_token('MSG', l_func_name ||
4375: ' is unable to insert new combination. ' ||
4376: ' into table ' || p_application_table_name ||
4377: '. ' || l_newline ||
4370: EXCEPTION
4371: WHEN OTHERS THEN
4372: dbms_sql.close_cursor(l_cursor);
4373: fnd_message.set_name('FND', 'FLEX-USER DEFINED ERROR');
4374: fnd_message.set_token('MSG', l_func_name ||
4375: ' is unable to insert new combination. ' ||
4376: ' into table ' || p_application_table_name ||
4377: '. ' || l_newline ||
4378: 'SQLERRM: ' || Sqlerrm);
4394: COMMIT;
4395: RETURN;
4396:
4397: <
4398: x_encoded_error := fnd_message.get_encoded;
4399: x_ccid := -1;
4400: x_is_new := 'U';
4401: ROLLBACK;
4402: RETURN;
4401: ROLLBACK;
4402: RETURN;
4403: EXCEPTION
4404: WHEN OTHERS THEN
4405: fnd_message.set_name('FND', 'FLEX-USER DEFINED ERROR');
4406: fnd_message.set_token('MSG', 'Top level exception in ' || l_func_name ||
4407: l_newline || 'SQLERRM: ' || Sqlerrm);
4408: x_encoded_error := fnd_message.get_encoded;
4409: x_ccid := -1;
4402: RETURN;
4403: EXCEPTION
4404: WHEN OTHERS THEN
4405: fnd_message.set_name('FND', 'FLEX-USER DEFINED ERROR');
4406: fnd_message.set_token('MSG', 'Top level exception in ' || l_func_name ||
4407: l_newline || 'SQLERRM: ' || Sqlerrm);
4408: x_encoded_error := fnd_message.get_encoded;
4409: x_ccid := -1;
4410: ROLLBACK;
4404: WHEN OTHERS THEN
4405: fnd_message.set_name('FND', 'FLEX-USER DEFINED ERROR');
4406: fnd_message.set_token('MSG', 'Top level exception in ' || l_func_name ||
4407: l_newline || 'SQLERRM: ' || Sqlerrm);
4408: x_encoded_error := fnd_message.get_encoded;
4409: x_ccid := -1;
4410: ROLLBACK;
4411: RETURN;
4412: END do_dynamic_insert_for_java;
4568: WHERE 'AFFFSSVB.pls : $Revision: 120.13.12010000.3 $ : check_value_security' IS NOT NULL
4569: AND flex_value_set_id = p_flex_value_set_id;
4570: EXCEPTION
4571: WHEN OTHERS THEN
4572: fnd_message.set_name('FND', 'FLEX-ERROR LOADING VALUE SET');
4573: fnd_message.set_token('VALUE_SET_NAME', p_flex_value_set_id);
4574: l_x_security_status := 'VSET-NOTFOUND';
4575: l_x_error_message := fnd_message.get;
4576: GOTO goto_return;
4569: AND flex_value_set_id = p_flex_value_set_id;
4570: EXCEPTION
4571: WHEN OTHERS THEN
4572: fnd_message.set_name('FND', 'FLEX-ERROR LOADING VALUE SET');
4573: fnd_message.set_token('VALUE_SET_NAME', p_flex_value_set_id);
4574: l_x_security_status := 'VSET-NOTFOUND';
4575: l_x_error_message := fnd_message.get;
4576: GOTO goto_return;
4577: END;
4571: WHEN OTHERS THEN
4572: fnd_message.set_name('FND', 'FLEX-ERROR LOADING VALUE SET');
4573: fnd_message.set_token('VALUE_SET_NAME', p_flex_value_set_id);
4574: l_x_security_status := 'VSET-NOTFOUND';
4575: l_x_error_message := fnd_message.get;
4576: GOTO goto_return;
4577: END;
4578: fnd_plsql_cache.custom_1to1_get_put_index(vst_cache_controller,
4579: g_cache_key,
4666: p_responsibility_id,
4667: p_flex_value, p_flex_value, p_flex_value;
4668: END IF;
4669:
4670: fnd_message.set_name('FND', 'FLEX-EXCLUDED BY SEC. RULE');
4671: fnd_message.set_token('MESSAGE', l_error_message);
4672:
4673: l_x_security_status := 'EXCLUDED';
4674: l_x_error_message := fnd_message.get;
4667: p_flex_value, p_flex_value, p_flex_value;
4668: END IF;
4669:
4670: fnd_message.set_name('FND', 'FLEX-EXCLUDED BY SEC. RULE');
4671: fnd_message.set_token('MESSAGE', l_error_message);
4672:
4673: l_x_security_status := 'EXCLUDED';
4674: l_x_error_message := fnd_message.get;
4675: GOTO goto_cache_the_result;
4670: fnd_message.set_name('FND', 'FLEX-EXCLUDED BY SEC. RULE');
4671: fnd_message.set_token('MESSAGE', l_error_message);
4672:
4673: l_x_security_status := 'EXCLUDED';
4674: l_x_error_message := fnd_message.get;
4675: GOTO goto_cache_the_result;
4676: EXCEPTION
4677: WHEN NO_DATA_FOUND THEN
4678: --
4710: p_resp_application_id,
4711: p_responsibility_id,
4712: p_flex_value;
4713:
4714: fnd_message.set_name('FND', 'FLEX-EXCLUDED BY SEC. RULE');
4715: fnd_message.set_token('MESSAGE', l_error_message);
4716:
4717: l_x_security_status := 'HIER-EXCLUDED';
4718: l_x_error_message := fnd_message.get;
4711: p_responsibility_id,
4712: p_flex_value;
4713:
4714: fnd_message.set_name('FND', 'FLEX-EXCLUDED BY SEC. RULE');
4715: fnd_message.set_token('MESSAGE', l_error_message);
4716:
4717: l_x_security_status := 'HIER-EXCLUDED';
4718: l_x_error_message := fnd_message.get;
4719: GOTO goto_cache_the_result;
4714: fnd_message.set_name('FND', 'FLEX-EXCLUDED BY SEC. RULE');
4715: fnd_message.set_token('MESSAGE', l_error_message);
4716:
4717: l_x_security_status := 'HIER-EXCLUDED';
4718: l_x_error_message := fnd_message.get;
4719: GOTO goto_cache_the_result;
4720: EXCEPTION
4721: WHEN NO_DATA_FOUND THEN
4722: --
4761: p_responsibility_id,
4762: p_flex_value, p_flex_value, p_flex_value;
4763: END IF;
4764:
4765: fnd_message.set_name('FND', 'FLEX-NOT INCL. BY SEC RULE');
4766: fnd_message.set_token('MESSAGE', l_error_message);
4767:
4768: l_x_security_status := 'NOT-INCLUDED';
4769: l_x_error_message := fnd_message.get;
4762: p_flex_value, p_flex_value, p_flex_value;
4763: END IF;
4764:
4765: fnd_message.set_name('FND', 'FLEX-NOT INCL. BY SEC RULE');
4766: fnd_message.set_token('MESSAGE', l_error_message);
4767:
4768: l_x_security_status := 'NOT-INCLUDED';
4769: l_x_error_message := fnd_message.get;
4770:
4765: fnd_message.set_name('FND', 'FLEX-NOT INCL. BY SEC RULE');
4766: fnd_message.set_token('MESSAGE', l_error_message);
4767:
4768: l_x_security_status := 'NOT-INCLUDED';
4769: l_x_error_message := fnd_message.get;
4770:
4771: --
4772: -- NOT directly included, it might be hierarchically included...
4773: --
4851: WHEN OTHERS THEN
4852: IF (l_lock_handle IS NOT NULL) THEN
4853: fnd_flex_hierarchy_compiler.release_lock(l_vset.flex_value_set_name, l_lock_handle);
4854: END IF;
4855: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
4856: FND_MESSAGE.set_token('MSG', 'SSV.check_value_security(): ' || SQLERRM);
4857: x_security_status := 'EXCEPTION';
4858: x_error_message := Substrb(fnd_message.get, 1, 1950);
4859: END check_value_security;
4852: IF (l_lock_handle IS NOT NULL) THEN
4853: fnd_flex_hierarchy_compiler.release_lock(l_vset.flex_value_set_name, l_lock_handle);
4854: END IF;
4855: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
4856: FND_MESSAGE.set_token('MSG', 'SSV.check_value_security(): ' || SQLERRM);
4857: x_security_status := 'EXCEPTION';
4858: x_error_message := Substrb(fnd_message.get, 1, 1950);
4859: END check_value_security;
4860:
4854: END IF;
4855: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
4856: FND_MESSAGE.set_token('MSG', 'SSV.check_value_security(): ' || SQLERRM);
4857: x_security_status := 'EXCEPTION';
4858: x_error_message := Substrb(fnd_message.get, 1, 1950);
4859: END check_value_security;
4860:
4861: -- ==================================================
4862: -- PROCEDURE : parse_flex_values
5053: p_descriptive_flexfield_name); */
5054: --
5055: -- Raise the exception.
5056: --
5057: FND_MESSAGE.set_name('FND', 'FLEX-COMPILE-WF_EVENT-ERROR');
5058: FND_MESSAGE.set_token('EVENT_NAME', 'oracle.apps.fnd.flex.dff.compiled');
5059: FND_MESSAGE.set_token('EVENT_KEY', l_application_short_name || '.' || p_descriptive_flexfield_name);
5060: FND_MESSAGE.set_token('ERROR', SQLERRM);
5061: FND_MESSAGE.RAISE_ERROR();
5054: --
5055: -- Raise the exception.
5056: --
5057: FND_MESSAGE.set_name('FND', 'FLEX-COMPILE-WF_EVENT-ERROR');
5058: FND_MESSAGE.set_token('EVENT_NAME', 'oracle.apps.fnd.flex.dff.compiled');
5059: FND_MESSAGE.set_token('EVENT_KEY', l_application_short_name || '.' || p_descriptive_flexfield_name);
5060: FND_MESSAGE.set_token('ERROR', SQLERRM);
5061: FND_MESSAGE.RAISE_ERROR();
5062: END;
5055: -- Raise the exception.
5056: --
5057: FND_MESSAGE.set_name('FND', 'FLEX-COMPILE-WF_EVENT-ERROR');
5058: FND_MESSAGE.set_token('EVENT_NAME', 'oracle.apps.fnd.flex.dff.compiled');
5059: FND_MESSAGE.set_token('EVENT_KEY', l_application_short_name || '.' || p_descriptive_flexfield_name);
5060: FND_MESSAGE.set_token('ERROR', SQLERRM);
5061: FND_MESSAGE.RAISE_ERROR();
5062: END;
5063:
5056: --
5057: FND_MESSAGE.set_name('FND', 'FLEX-COMPILE-WF_EVENT-ERROR');
5058: FND_MESSAGE.set_token('EVENT_NAME', 'oracle.apps.fnd.flex.dff.compiled');
5059: FND_MESSAGE.set_token('EVENT_KEY', l_application_short_name || '.' || p_descriptive_flexfield_name);
5060: FND_MESSAGE.set_token('ERROR', SQLERRM);
5061: FND_MESSAGE.RAISE_ERROR();
5062: END;
5063:
5064: -- No Exception handling here, let it go up to caller.
5057: FND_MESSAGE.set_name('FND', 'FLEX-COMPILE-WF_EVENT-ERROR');
5058: FND_MESSAGE.set_token('EVENT_NAME', 'oracle.apps.fnd.flex.dff.compiled');
5059: FND_MESSAGE.set_token('EVENT_KEY', l_application_short_name || '.' || p_descriptive_flexfield_name);
5060: FND_MESSAGE.set_token('ERROR', SQLERRM);
5061: FND_MESSAGE.RAISE_ERROR();
5062: END;
5063:
5064: -- No Exception handling here, let it go up to caller.
5065:
5153: p_id_flex_num); */
5154: --
5155: -- Raise the exception.
5156: --
5157: FND_MESSAGE.set_name('FND', 'FLEX-COMPILE-WF_EVENT-ERROR');
5158: FND_MESSAGE.set_token('EVENT_NAME', 'oracle.apps.fnd.flex.kff.structure.compiled');
5159: FND_MESSAGE.set_token('EVENT_KEY', l_application_short_name || '.' || p_id_flex_code || '.' || l_id_flex_structure_code);
5160: FND_MESSAGE.set_token('ERROR', SQLERRM);
5161: FND_MESSAGE.RAISE_ERROR();
5154: --
5155: -- Raise the exception.
5156: --
5157: FND_MESSAGE.set_name('FND', 'FLEX-COMPILE-WF_EVENT-ERROR');
5158: FND_MESSAGE.set_token('EVENT_NAME', 'oracle.apps.fnd.flex.kff.structure.compiled');
5159: FND_MESSAGE.set_token('EVENT_KEY', l_application_short_name || '.' || p_id_flex_code || '.' || l_id_flex_structure_code);
5160: FND_MESSAGE.set_token('ERROR', SQLERRM);
5161: FND_MESSAGE.RAISE_ERROR();
5162:
5155: -- Raise the exception.
5156: --
5157: FND_MESSAGE.set_name('FND', 'FLEX-COMPILE-WF_EVENT-ERROR');
5158: FND_MESSAGE.set_token('EVENT_NAME', 'oracle.apps.fnd.flex.kff.structure.compiled');
5159: FND_MESSAGE.set_token('EVENT_KEY', l_application_short_name || '.' || p_id_flex_code || '.' || l_id_flex_structure_code);
5160: FND_MESSAGE.set_token('ERROR', SQLERRM);
5161: FND_MESSAGE.RAISE_ERROR();
5162:
5163: END;
5156: --
5157: FND_MESSAGE.set_name('FND', 'FLEX-COMPILE-WF_EVENT-ERROR');
5158: FND_MESSAGE.set_token('EVENT_NAME', 'oracle.apps.fnd.flex.kff.structure.compiled');
5159: FND_MESSAGE.set_token('EVENT_KEY', l_application_short_name || '.' || p_id_flex_code || '.' || l_id_flex_structure_code);
5160: FND_MESSAGE.set_token('ERROR', SQLERRM);
5161: FND_MESSAGE.RAISE_ERROR();
5162:
5163: END;
5164:
5157: FND_MESSAGE.set_name('FND', 'FLEX-COMPILE-WF_EVENT-ERROR');
5158: FND_MESSAGE.set_token('EVENT_NAME', 'oracle.apps.fnd.flex.kff.structure.compiled');
5159: FND_MESSAGE.set_token('EVENT_KEY', l_application_short_name || '.' || p_id_flex_code || '.' || l_id_flex_structure_code);
5160: FND_MESSAGE.set_token('ERROR', SQLERRM);
5161: FND_MESSAGE.RAISE_ERROR();
5162:
5163: END;
5164:
5165: -- No Exception handling here, let it go up to caller.
5966: parse_bind_names(l_additional_quickpick_columns, l_non_forms_warn_table_type, l_num_binds);
5967: IF (l_num_binds > 0) THEN
5968: FOR i IN 1 .. l_num_binds
5969: LOOP
5970: fnd_message.set_name('FND','FLEX-BLK_FLD_CTX_VSET_WARN_DFF');
5971: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
5972: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
5973: queue_non_forms_warnings(fnd_message.get());
5974: END LOOP;
5967: IF (l_num_binds > 0) THEN
5968: FOR i IN 1 .. l_num_binds
5969: LOOP
5970: fnd_message.set_name('FND','FLEX-BLK_FLD_CTX_VSET_WARN_DFF');
5971: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
5972: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
5973: queue_non_forms_warnings(fnd_message.get());
5974: END LOOP;
5975: END IF;
5968: FOR i IN 1 .. l_num_binds
5969: LOOP
5970: fnd_message.set_name('FND','FLEX-BLK_FLD_CTX_VSET_WARN_DFF');
5971: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
5972: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
5973: queue_non_forms_warnings(fnd_message.get());
5974: END LOOP;
5975: END IF;
5976: END IF;
5969: LOOP
5970: fnd_message.set_name('FND','FLEX-BLK_FLD_CTX_VSET_WARN_DFF');
5971: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
5972: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
5973: queue_non_forms_warnings(fnd_message.get());
5974: END LOOP;
5975: END IF;
5976: END IF;
5977:
5979: parse_bind_names(l_additional_where_clause, l_non_forms_warn_table_type, l_num_binds);
5980: IF (l_num_binds > 0) THEN
5981: FOR i IN 1 .. l_num_binds
5982: LOOP
5983: fnd_message.set_name('FND','FLEX-BLK_FLD_CTX_VSET_WARN_DFF');
5984: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
5985: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
5986: queue_non_forms_warnings(fnd_message.get());
5987: END LOOP;
5980: IF (l_num_binds > 0) THEN
5981: FOR i IN 1 .. l_num_binds
5982: LOOP
5983: fnd_message.set_name('FND','FLEX-BLK_FLD_CTX_VSET_WARN_DFF');
5984: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
5985: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
5986: queue_non_forms_warnings(fnd_message.get());
5987: END LOOP;
5988: END IF;
5981: FOR i IN 1 .. l_num_binds
5982: LOOP
5983: fnd_message.set_name('FND','FLEX-BLK_FLD_CTX_VSET_WARN_DFF');
5984: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
5985: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
5986: queue_non_forms_warnings(fnd_message.get());
5987: END LOOP;
5988: END IF;
5989: END IF;
5982: LOOP
5983: fnd_message.set_name('FND','FLEX-BLK_FLD_CTX_VSET_WARN_DFF');
5984: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
5985: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
5986: queue_non_forms_warnings(fnd_message.get());
5987: END LOOP;
5988: END IF;
5989: END IF;
5990: END IF;
5989: END IF;
5990: END IF;
5991: IF l_reference_field IS NOT NULL THEN
5992: IF (INSTR(l_reference_field,':$PROFILES$.') <> 1) THEN
5993: fnd_message.set_name('FND','FLEX-CTX_REF_FIELD_WARN_DFF');
5994: fnd_message.set_token('REFERENCE_FIELD',SUBSTR(l_reference_field,INSTR(l_reference_field,':')+1));
5995: queue_non_forms_warnings(fnd_message.get());
5996: END IF;
5997: END IF;
5990: END IF;
5991: IF l_reference_field IS NOT NULL THEN
5992: IF (INSTR(l_reference_field,':$PROFILES$.') <> 1) THEN
5993: fnd_message.set_name('FND','FLEX-CTX_REF_FIELD_WARN_DFF');
5994: fnd_message.set_token('REFERENCE_FIELD',SUBSTR(l_reference_field,INSTR(l_reference_field,':')+1));
5995: queue_non_forms_warnings(fnd_message.get());
5996: END IF;
5997: END IF;
5998: EXCEPTION
5991: IF l_reference_field IS NOT NULL THEN
5992: IF (INSTR(l_reference_field,':$PROFILES$.') <> 1) THEN
5993: fnd_message.set_name('FND','FLEX-CTX_REF_FIELD_WARN_DFF');
5994: fnd_message.set_token('REFERENCE_FIELD',SUBSTR(l_reference_field,INSTR(l_reference_field,':')+1));
5995: queue_non_forms_warnings(fnd_message.get());
5996: END IF;
5997: END IF;
5998: EXCEPTION
5999: WHEN NO_DATA_FOUND THEN
6044: END IF;
6045: EXCEPTION
6046: WHEN e_DefaultTypeField THEN
6047: IF l_srs_flag = FALSE THEN
6048: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_DFF');
6049: fnd_message.set_token('CONTEXT_CODE', p_context_code);
6050: ELSE
6051: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_SRS');
6052: END IF;
6045: EXCEPTION
6046: WHEN e_DefaultTypeField THEN
6047: IF l_srs_flag = FALSE THEN
6048: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_DFF');
6049: fnd_message.set_token('CONTEXT_CODE', p_context_code);
6050: ELSE
6051: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_SRS');
6052: END IF;
6053: fnd_message.set_token('SEGMENT_NAME', l_segment_name);
6047: IF l_srs_flag = FALSE THEN
6048: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_DFF');
6049: fnd_message.set_token('CONTEXT_CODE', p_context_code);
6050: ELSE
6051: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_SRS');
6052: END IF;
6053: fnd_message.set_token('SEGMENT_NAME', l_segment_name);
6054: fnd_message.set_token('BLOCK_FIELD', substr(l_default_value, instr(l_default_value, ':')+1));
6055: queue_non_forms_warnings(fnd_message.get());
6049: fnd_message.set_token('CONTEXT_CODE', p_context_code);
6050: ELSE
6051: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_SRS');
6052: END IF;
6053: fnd_message.set_token('SEGMENT_NAME', l_segment_name);
6054: fnd_message.set_token('BLOCK_FIELD', substr(l_default_value, instr(l_default_value, ':')+1));
6055: queue_non_forms_warnings(fnd_message.get());
6056: WHEN e_DefaultTypeSQL THEN
6057: parse_bind_names(l_default_value, l_non_forms_warn_table_type, l_num_binds);
6050: ELSE
6051: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_SRS');
6052: END IF;
6053: fnd_message.set_token('SEGMENT_NAME', l_segment_name);
6054: fnd_message.set_token('BLOCK_FIELD', substr(l_default_value, instr(l_default_value, ':')+1));
6055: queue_non_forms_warnings(fnd_message.get());
6056: WHEN e_DefaultTypeSQL THEN
6057: parse_bind_names(l_default_value, l_non_forms_warn_table_type, l_num_binds);
6058: IF (l_num_binds > 0) then
6051: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_SRS');
6052: END IF;
6053: fnd_message.set_token('SEGMENT_NAME', l_segment_name);
6054: fnd_message.set_token('BLOCK_FIELD', substr(l_default_value, instr(l_default_value, ':')+1));
6055: queue_non_forms_warnings(fnd_message.get());
6056: WHEN e_DefaultTypeSQL THEN
6057: parse_bind_names(l_default_value, l_non_forms_warn_table_type, l_num_binds);
6058: IF (l_num_binds > 0) then
6059: FOR i in 1 .. l_num_binds
6058: IF (l_num_binds > 0) then
6059: FOR i in 1 .. l_num_binds
6060: LOOP
6061: IF l_srs_flag = FALSE THEN
6062: fnd_message.set_name('FND','FLEX-BLK_FLD_DEF_WARN_DFF');
6063: fnd_message.set_token('CONTEXT_CODE', p_context_code);
6064: ELSE
6065: fnd_message.set_name('FND','FLEX-BLK_FLD_DEF_WARN_SRS');
6066: END IF;
6059: FOR i in 1 .. l_num_binds
6060: LOOP
6061: IF l_srs_flag = FALSE THEN
6062: fnd_message.set_name('FND','FLEX-BLK_FLD_DEF_WARN_DFF');
6063: fnd_message.set_token('CONTEXT_CODE', p_context_code);
6064: ELSE
6065: fnd_message.set_name('FND','FLEX-BLK_FLD_DEF_WARN_SRS');
6066: END IF;
6067: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6061: IF l_srs_flag = FALSE THEN
6062: fnd_message.set_name('FND','FLEX-BLK_FLD_DEF_WARN_DFF');
6063: fnd_message.set_token('CONTEXT_CODE', p_context_code);
6064: ELSE
6065: fnd_message.set_name('FND','FLEX-BLK_FLD_DEF_WARN_SRS');
6066: END IF;
6067: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6068: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6069: queue_non_forms_warnings(fnd_message.get());
6063: fnd_message.set_token('CONTEXT_CODE', p_context_code);
6064: ELSE
6065: fnd_message.set_name('FND','FLEX-BLK_FLD_DEF_WARN_SRS');
6066: END IF;
6067: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6068: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6069: queue_non_forms_warnings(fnd_message.get());
6070: END LOOP;
6071: END IF;
6064: ELSE
6065: fnd_message.set_name('FND','FLEX-BLK_FLD_DEF_WARN_SRS');
6066: END IF;
6067: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6068: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6069: queue_non_forms_warnings(fnd_message.get());
6070: END LOOP;
6071: END IF;
6072: END; -- Check segment's defaulting logic
6065: fnd_message.set_name('FND','FLEX-BLK_FLD_DEF_WARN_SRS');
6066: END IF;
6067: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6068: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6069: queue_non_forms_warnings(fnd_message.get());
6070: END LOOP;
6071: END IF;
6072: END; -- Check segment's defaulting logic
6073:
6082: END IF;
6083: EXCEPTION
6084: WHEN e_PairOrSpecial THEN
6085: IF l_srs_flag = FALSE THEN
6086: fnd_message.set_name('FND','FLEX-USER_EXIT_VSET_WARN_DFF');
6087: fnd_message.set_token('CONTEXT_CODE',p_context_code);
6088: ELSE
6089: fnd_message.set_name('FND','FLEX-USER_EXIT_VSET_WARN_SRS');
6090: END IF;
6083: EXCEPTION
6084: WHEN e_PairOrSpecial THEN
6085: IF l_srs_flag = FALSE THEN
6086: fnd_message.set_name('FND','FLEX-USER_EXIT_VSET_WARN_DFF');
6087: fnd_message.set_token('CONTEXT_CODE',p_context_code);
6088: ELSE
6089: fnd_message.set_name('FND','FLEX-USER_EXIT_VSET_WARN_SRS');
6090: END IF;
6091: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6085: IF l_srs_flag = FALSE THEN
6086: fnd_message.set_name('FND','FLEX-USER_EXIT_VSET_WARN_DFF');
6087: fnd_message.set_token('CONTEXT_CODE',p_context_code);
6088: ELSE
6089: fnd_message.set_name('FND','FLEX-USER_EXIT_VSET_WARN_SRS');
6090: END IF;
6091: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6092: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6093: SELECT meaning
6087: fnd_message.set_token('CONTEXT_CODE',p_context_code);
6088: ELSE
6089: fnd_message.set_name('FND','FLEX-USER_EXIT_VSET_WARN_SRS');
6090: END IF;
6091: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6092: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6093: SELECT meaning
6094: INTO l_meaning
6095: FROM fnd_lookup_values_vl
6088: ELSE
6089: fnd_message.set_name('FND','FLEX-USER_EXIT_VSET_WARN_SRS');
6090: END IF;
6091: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6092: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6093: SELECT meaning
6094: INTO l_meaning
6095: FROM fnd_lookup_values_vl
6096: WHERE lookup_type='SEG_VAL_TYPES'
6094: INTO l_meaning
6095: FROM fnd_lookup_values_vl
6096: WHERE lookup_type='SEG_VAL_TYPES'
6097: AND lookup_code = l_validation_type;
6098: fnd_message.set_token('VALIDATION_TYPE',l_meaning);
6099: queue_non_forms_warnings(fnd_message.get());
6100: WHEN e_TableValidated THEN
6101: SELECT additional_where_clause,additional_quickpick_columns
6102: INTO l_additional_where_clause,l_additional_quickpick_columns
6095: FROM fnd_lookup_values_vl
6096: WHERE lookup_type='SEG_VAL_TYPES'
6097: AND lookup_code = l_validation_type;
6098: fnd_message.set_token('VALIDATION_TYPE',l_meaning);
6099: queue_non_forms_warnings(fnd_message.get());
6100: WHEN e_TableValidated THEN
6101: SELECT additional_where_clause,additional_quickpick_columns
6102: INTO l_additional_where_clause,l_additional_quickpick_columns
6103: FROM fnd_flex_validation_tables
6107: IF (l_num_binds > 0) THEN
6108: FOR i IN 1 .. l_num_binds
6109: LOOP
6110: IF l_srs_flag = FALSE THEN
6111: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_DFF');
6112: fnd_message.set_token('CONTEXT_CODE',p_context_code);
6113: ELSE
6114: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_SRS');
6115: END IF;
6108: FOR i IN 1 .. l_num_binds
6109: LOOP
6110: IF l_srs_flag = FALSE THEN
6111: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_DFF');
6112: fnd_message.set_token('CONTEXT_CODE',p_context_code);
6113: ELSE
6114: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_SRS');
6115: END IF;
6116: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6110: IF l_srs_flag = FALSE THEN
6111: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_DFF');
6112: fnd_message.set_token('CONTEXT_CODE',p_context_code);
6113: ELSE
6114: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_SRS');
6115: END IF;
6116: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6117: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6118: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6112: fnd_message.set_token('CONTEXT_CODE',p_context_code);
6113: ELSE
6114: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_SRS');
6115: END IF;
6116: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6117: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6118: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6119: queue_non_forms_warnings(fnd_message.get());
6120: END LOOP;
6113: ELSE
6114: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_SRS');
6115: END IF;
6116: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6117: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6118: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6119: queue_non_forms_warnings(fnd_message.get());
6120: END LOOP;
6121: END IF;
6114: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_SRS');
6115: END IF;
6116: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6117: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6118: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6119: queue_non_forms_warnings(fnd_message.get());
6120: END LOOP;
6121: END IF;
6122: END IF;
6115: END IF;
6116: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6117: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6118: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6119: queue_non_forms_warnings(fnd_message.get());
6120: END LOOP;
6121: END IF;
6122: END IF;
6123:
6127: IF (l_num_binds > 0) THEN
6128: FOR i IN 1 .. l_num_binds
6129: LOOP
6130: IF l_srs_flag = FALSE THEN
6131: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_DFF');
6132: fnd_message.set_token('CONTEXT_CODE',p_context_code);
6133: ELSE
6134: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_SRS');
6135: END IF;
6128: FOR i IN 1 .. l_num_binds
6129: LOOP
6130: IF l_srs_flag = FALSE THEN
6131: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_DFF');
6132: fnd_message.set_token('CONTEXT_CODE',p_context_code);
6133: ELSE
6134: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_SRS');
6135: END IF;
6136: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6130: IF l_srs_flag = FALSE THEN
6131: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_DFF');
6132: fnd_message.set_token('CONTEXT_CODE',p_context_code);
6133: ELSE
6134: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_SRS');
6135: END IF;
6136: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6137: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6138: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6132: fnd_message.set_token('CONTEXT_CODE',p_context_code);
6133: ELSE
6134: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_SRS');
6135: END IF;
6136: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6137: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6138: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6139: queue_non_forms_warnings(fnd_message.get());
6140: END LOOP;
6133: ELSE
6134: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_SRS');
6135: END IF;
6136: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6137: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6138: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6139: queue_non_forms_warnings(fnd_message.get());
6140: END LOOP;
6141: END IF;
6134: fnd_message.set_name('FND','FLEX-BLK_FLD_VSET_WARN_SRS');
6135: END IF;
6136: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6137: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6138: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6139: queue_non_forms_warnings(fnd_message.get());
6140: END LOOP;
6141: END IF;
6142: END IF;
6135: END IF;
6136: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6137: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6138: fnd_message.set_token('BLOCK_FIELD',l_non_forms_warn_table_type(i));
6139: queue_non_forms_warnings(fnd_message.get());
6140: END LOOP;
6141: END IF;
6142: END IF;
6143: WHEN e_DateTime THEN
6141: END IF;
6142: END IF;
6143: WHEN e_DateTime THEN
6144: IF l_srs_flag = FALSE THEN
6145: fnd_message.set_name('FND','FLEX-DATE_VSET_WARN_DFF');
6146: fnd_message.set_token('CONTEXT_CODE',p_context_code);
6147: ELSE
6148: fnd_message.set_name('FND','FLEX-DATE_VSET_WARN_SRS');
6149: END IF;
6142: END IF;
6143: WHEN e_DateTime THEN
6144: IF l_srs_flag = FALSE THEN
6145: fnd_message.set_name('FND','FLEX-DATE_VSET_WARN_DFF');
6146: fnd_message.set_token('CONTEXT_CODE',p_context_code);
6147: ELSE
6148: fnd_message.set_name('FND','FLEX-DATE_VSET_WARN_SRS');
6149: END IF;
6150: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6144: IF l_srs_flag = FALSE THEN
6145: fnd_message.set_name('FND','FLEX-DATE_VSET_WARN_DFF');
6146: fnd_message.set_token('CONTEXT_CODE',p_context_code);
6147: ELSE
6148: fnd_message.set_name('FND','FLEX-DATE_VSET_WARN_SRS');
6149: END IF;
6150: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6151: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6152: SELECT meaning
6146: fnd_message.set_token('CONTEXT_CODE',p_context_code);
6147: ELSE
6148: fnd_message.set_name('FND','FLEX-DATE_VSET_WARN_SRS');
6149: END IF;
6150: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6151: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6152: SELECT meaning
6153: INTO l_meaning
6154: FROM fnd_lookup_values_vl
6147: ELSE
6148: fnd_message.set_name('FND','FLEX-DATE_VSET_WARN_SRS');
6149: END IF;
6150: fnd_message.set_token('SEGMENT_NAME',l_segment_name);
6151: fnd_message.set_token('VALUE_SET_NAME',l_value_set_name);
6152: SELECT meaning
6153: INTO l_meaning
6154: FROM fnd_lookup_values_vl
6155: WHERE lookup_type='FIELD_TYPE'
6153: INTO l_meaning
6154: FROM fnd_lookup_values_vl
6155: WHERE lookup_type='FIELD_TYPE'
6156: AND lookup_code = l_format_type;
6157: fnd_message.set_token('FORMAT_TYPE',l_meaning);
6158: queue_non_forms_warnings(fnd_message.get());
6159: END; -- Check segment's value set's warnings
6160: EXCEPTION
6161: WHEN NO_DATA_FOUND THEN
6154: FROM fnd_lookup_values_vl
6155: WHERE lookup_type='FIELD_TYPE'
6156: AND lookup_code = l_format_type;
6157: fnd_message.set_token('FORMAT_TYPE',l_meaning);
6158: queue_non_forms_warnings(fnd_message.get());
6159: END; -- Check segment's value set's warnings
6160: EXCEPTION
6161: WHEN NO_DATA_FOUND THEN
6162: NULL;
6218: --
6219:
6220: IF (g_non_forms_warnings_count > 0) THEN
6221: IF (p_descriptive_flexfield_name LIKE '$SRS$.%') THEN
6222: fnd_message.set_name('FND', 'FLEX-FORMS_ONLY_WARN_SRS');
6223: fnd_message.set_token('PROGRAM_SHORT_NAME', Substr(p_descriptive_flexfield_name, Length('$SRS$.') + 1));
6224: ELSE
6225: fnd_message.set_name('FND', 'FLEX-FORMS_ONLY_WARN_DFF');
6226: fnd_message.set_token('TITLE', l_title);
6219:
6220: IF (g_non_forms_warnings_count > 0) THEN
6221: IF (p_descriptive_flexfield_name LIKE '$SRS$.%') THEN
6222: fnd_message.set_name('FND', 'FLEX-FORMS_ONLY_WARN_SRS');
6223: fnd_message.set_token('PROGRAM_SHORT_NAME', Substr(p_descriptive_flexfield_name, Length('$SRS$.') + 1));
6224: ELSE
6225: fnd_message.set_name('FND', 'FLEX-FORMS_ONLY_WARN_DFF');
6226: fnd_message.set_token('TITLE', l_title);
6227: END IF;
6221: IF (p_descriptive_flexfield_name LIKE '$SRS$.%') THEN
6222: fnd_message.set_name('FND', 'FLEX-FORMS_ONLY_WARN_SRS');
6223: fnd_message.set_token('PROGRAM_SHORT_NAME', Substr(p_descriptive_flexfield_name, Length('$SRS$.') + 1));
6224: ELSE
6225: fnd_message.set_name('FND', 'FLEX-FORMS_ONLY_WARN_DFF');
6226: fnd_message.set_token('TITLE', l_title);
6227: END IF;
6228: fnd_message.set_token('APPLICATION_NAME', l_application_name);
6229: fnd_message.set_token('WARNING_COUNT', g_non_forms_warnings_count);
6222: fnd_message.set_name('FND', 'FLEX-FORMS_ONLY_WARN_SRS');
6223: fnd_message.set_token('PROGRAM_SHORT_NAME', Substr(p_descriptive_flexfield_name, Length('$SRS$.') + 1));
6224: ELSE
6225: fnd_message.set_name('FND', 'FLEX-FORMS_ONLY_WARN_DFF');
6226: fnd_message.set_token('TITLE', l_title);
6227: END IF;
6228: fnd_message.set_token('APPLICATION_NAME', l_application_name);
6229: fnd_message.set_token('WARNING_COUNT', g_non_forms_warnings_count);
6230: g_non_forms_warnings(0) := fnd_message.get();
6224: ELSE
6225: fnd_message.set_name('FND', 'FLEX-FORMS_ONLY_WARN_DFF');
6226: fnd_message.set_token('TITLE', l_title);
6227: END IF;
6228: fnd_message.set_token('APPLICATION_NAME', l_application_name);
6229: fnd_message.set_token('WARNING_COUNT', g_non_forms_warnings_count);
6230: g_non_forms_warnings(0) := fnd_message.get();
6231: END IF;
6232: x_warning_count := g_non_forms_warnings_count;
6225: fnd_message.set_name('FND', 'FLEX-FORMS_ONLY_WARN_DFF');
6226: fnd_message.set_token('TITLE', l_title);
6227: END IF;
6228: fnd_message.set_token('APPLICATION_NAME', l_application_name);
6229: fnd_message.set_token('WARNING_COUNT', g_non_forms_warnings_count);
6230: g_non_forms_warnings(0) := fnd_message.get();
6231: END IF;
6232: x_warning_count := g_non_forms_warnings_count;
6233:
6226: fnd_message.set_token('TITLE', l_title);
6227: END IF;
6228: fnd_message.set_token('APPLICATION_NAME', l_application_name);
6229: fnd_message.set_token('WARNING_COUNT', g_non_forms_warnings_count);
6230: g_non_forms_warnings(0) := fnd_message.get();
6231: END IF;
6232: x_warning_count := g_non_forms_warnings_count;
6233:
6234: END compute_non_forms_warnings_dff;
6272: if (l_segtype.value_set_id is not null) then
6273:
6274: fnd_vset.get_valueset(l_segtype.value_set_id, l_vset_r, l_vset_dr);
6275: if (l_vset_r.validation_type in ('P', 'U')) then
6276: fnd_message.set_name('FND', 'FLEX-USER_EXIT_VSET_WARN_KFF');
6277: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6278: fnd_message.set_token('VALUE_SET_NAME', l_vset_r.name);
6279: select meaning into l_validation_type
6280: from fnd_lookup_values_vl
6273:
6274: fnd_vset.get_valueset(l_segtype.value_set_id, l_vset_r, l_vset_dr);
6275: if (l_vset_r.validation_type in ('P', 'U')) then
6276: fnd_message.set_name('FND', 'FLEX-USER_EXIT_VSET_WARN_KFF');
6277: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6278: fnd_message.set_token('VALUE_SET_NAME', l_vset_r.name);
6279: select meaning into l_validation_type
6280: from fnd_lookup_values_vl
6281: where lookup_type='SEG_VAL_TYPES'
6274: fnd_vset.get_valueset(l_segtype.value_set_id, l_vset_r, l_vset_dr);
6275: if (l_vset_r.validation_type in ('P', 'U')) then
6276: fnd_message.set_name('FND', 'FLEX-USER_EXIT_VSET_WARN_KFF');
6277: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6278: fnd_message.set_token('VALUE_SET_NAME', l_vset_r.name);
6279: select meaning into l_validation_type
6280: from fnd_lookup_values_vl
6281: where lookup_type='SEG_VAL_TYPES'
6282: and lookup_code=l_vset_r.validation_type;
6279: select meaning into l_validation_type
6280: from fnd_lookup_values_vl
6281: where lookup_type='SEG_VAL_TYPES'
6282: and lookup_code=l_vset_r.validation_type;
6283: fnd_message.set_token('VALIDATION_TYPE', l_validation_type);
6284: l_message := FND_MESSAGE.get;
6285: queue_non_forms_warnings(l_message);
6286: end if;
6287:
6280: from fnd_lookup_values_vl
6281: where lookup_type='SEG_VAL_TYPES'
6282: and lookup_code=l_vset_r.validation_type;
6283: fnd_message.set_token('VALIDATION_TYPE', l_validation_type);
6284: l_message := FND_MESSAGE.get;
6285: queue_non_forms_warnings(l_message);
6286: end if;
6287:
6288: if (l_vset_dr.format_type in ('D', 'T')) then
6285: queue_non_forms_warnings(l_message);
6286: end if;
6287:
6288: if (l_vset_dr.format_type in ('D', 'T')) then
6289: fnd_message.set_name('FND', 'FLEX-DATE_VSET_WARN_KFF');
6290: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6291: fnd_message.set_token('VALUE_SET_NAME', l_vset_r.name);
6292: select meaning into l_format_type
6293: from fnd_lookup_values_vl
6286: end if;
6287:
6288: if (l_vset_dr.format_type in ('D', 'T')) then
6289: fnd_message.set_name('FND', 'FLEX-DATE_VSET_WARN_KFF');
6290: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6291: fnd_message.set_token('VALUE_SET_NAME', l_vset_r.name);
6292: select meaning into l_format_type
6293: from fnd_lookup_values_vl
6294: where lookup_type='FIELD_TYPE'
6287:
6288: if (l_vset_dr.format_type in ('D', 'T')) then
6289: fnd_message.set_name('FND', 'FLEX-DATE_VSET_WARN_KFF');
6290: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6291: fnd_message.set_token('VALUE_SET_NAME', l_vset_r.name);
6292: select meaning into l_format_type
6293: from fnd_lookup_values_vl
6294: where lookup_type='FIELD_TYPE'
6295: and lookup_code=l_vset_dr.format_type;
6292: select meaning into l_format_type
6293: from fnd_lookup_values_vl
6294: where lookup_type='FIELD_TYPE'
6295: and lookup_code=l_vset_dr.format_type;
6296: fnd_message.set_token('FORMAT_TYPE', l_format_type);
6297: l_message := FND_MESSAGE.get;
6298: queue_non_forms_warnings(l_message);
6299: end if;
6300:
6293: from fnd_lookup_values_vl
6294: where lookup_type='FIELD_TYPE'
6295: and lookup_code=l_vset_dr.format_type;
6296: fnd_message.set_token('FORMAT_TYPE', l_format_type);
6297: l_message := FND_MESSAGE.get;
6298: queue_non_forms_warnings(l_message);
6299: end if;
6300:
6301: if (l_vset_r.validation_type = 'F') then
6306: parse_bind_names(l_additional_quickpick_columns, l_table_of_varchar2_32000, l_num_binds);
6307: if (l_num_binds > 0) then
6308: for i in 1 .. l_num_binds
6309: loop
6310: fnd_message.set_name('FND', 'FLEX-BLK_FLD_VSET_WARN_KFF');
6311: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6312: fnd_message.set_token('VALUE_SET_NAME', l_vset_r.name);
6313: fnd_message.set_token('BLOCK_FIELD', l_table_of_varchar2_32000(i));
6314: l_message := fnd_message.get;
6307: if (l_num_binds > 0) then
6308: for i in 1 .. l_num_binds
6309: loop
6310: fnd_message.set_name('FND', 'FLEX-BLK_FLD_VSET_WARN_KFF');
6311: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6312: fnd_message.set_token('VALUE_SET_NAME', l_vset_r.name);
6313: fnd_message.set_token('BLOCK_FIELD', l_table_of_varchar2_32000(i));
6314: l_message := fnd_message.get;
6315: queue_non_forms_warnings(l_message);
6308: for i in 1 .. l_num_binds
6309: loop
6310: fnd_message.set_name('FND', 'FLEX-BLK_FLD_VSET_WARN_KFF');
6311: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6312: fnd_message.set_token('VALUE_SET_NAME', l_vset_r.name);
6313: fnd_message.set_token('BLOCK_FIELD', l_table_of_varchar2_32000(i));
6314: l_message := fnd_message.get;
6315: queue_non_forms_warnings(l_message);
6316: end loop;
6309: loop
6310: fnd_message.set_name('FND', 'FLEX-BLK_FLD_VSET_WARN_KFF');
6311: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6312: fnd_message.set_token('VALUE_SET_NAME', l_vset_r.name);
6313: fnd_message.set_token('BLOCK_FIELD', l_table_of_varchar2_32000(i));
6314: l_message := fnd_message.get;
6315: queue_non_forms_warnings(l_message);
6316: end loop;
6317: end if;
6310: fnd_message.set_name('FND', 'FLEX-BLK_FLD_VSET_WARN_KFF');
6311: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6312: fnd_message.set_token('VALUE_SET_NAME', l_vset_r.name);
6313: fnd_message.set_token('BLOCK_FIELD', l_table_of_varchar2_32000(i));
6314: l_message := fnd_message.get;
6315: queue_non_forms_warnings(l_message);
6316: end loop;
6317: end if;
6318: end if;
6321: parse_bind_names(l_vset_r.table_info.where_clause, l_table_of_varchar2_32000, l_num_binds);
6322: if (l_num_binds > 0) then
6323: for i in 1 .. l_num_binds
6324: loop
6325: fnd_message.set_name('FND', 'FLEX-BLK_FLD_VSET_WARN_KFF');
6326: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6327: fnd_message.set_token('VALUE_SET_NAME', l_vset_r.name);
6328: fnd_message.set_token('BLOCK_FIELD', l_table_of_varchar2_32000(i));
6329: l_message := fnd_message.get;
6322: if (l_num_binds > 0) then
6323: for i in 1 .. l_num_binds
6324: loop
6325: fnd_message.set_name('FND', 'FLEX-BLK_FLD_VSET_WARN_KFF');
6326: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6327: fnd_message.set_token('VALUE_SET_NAME', l_vset_r.name);
6328: fnd_message.set_token('BLOCK_FIELD', l_table_of_varchar2_32000(i));
6329: l_message := fnd_message.get;
6330: queue_non_forms_warnings(l_message);
6323: for i in 1 .. l_num_binds
6324: loop
6325: fnd_message.set_name('FND', 'FLEX-BLK_FLD_VSET_WARN_KFF');
6326: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6327: fnd_message.set_token('VALUE_SET_NAME', l_vset_r.name);
6328: fnd_message.set_token('BLOCK_FIELD', l_table_of_varchar2_32000(i));
6329: l_message := fnd_message.get;
6330: queue_non_forms_warnings(l_message);
6331: end loop;
6324: loop
6325: fnd_message.set_name('FND', 'FLEX-BLK_FLD_VSET_WARN_KFF');
6326: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6327: fnd_message.set_token('VALUE_SET_NAME', l_vset_r.name);
6328: fnd_message.set_token('BLOCK_FIELD', l_table_of_varchar2_32000(i));
6329: l_message := fnd_message.get;
6330: queue_non_forms_warnings(l_message);
6331: end loop;
6332: end if;
6325: fnd_message.set_name('FND', 'FLEX-BLK_FLD_VSET_WARN_KFF');
6326: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6327: fnd_message.set_token('VALUE_SET_NAME', l_vset_r.name);
6328: fnd_message.set_token('BLOCK_FIELD', l_table_of_varchar2_32000(i));
6329: l_message := fnd_message.get;
6330: queue_non_forms_warnings(l_message);
6331: end loop;
6332: end if;
6333: end if;
6340: parse_bind_names(l_segtype.default_value, l_table_of_varchar2_32000, l_num_binds);
6341: if (l_num_binds > 0) then
6342: for i in 1 .. l_num_binds
6343: loop
6344: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_KFF');
6345: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6346: fnd_message.set_token('BLOCK_FIELD', l_table_of_varchar2_32000(i));
6347: l_message := fnd_message.get;
6348: queue_non_forms_warnings(l_message);
6341: if (l_num_binds > 0) then
6342: for i in 1 .. l_num_binds
6343: loop
6344: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_KFF');
6345: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6346: fnd_message.set_token('BLOCK_FIELD', l_table_of_varchar2_32000(i));
6347: l_message := fnd_message.get;
6348: queue_non_forms_warnings(l_message);
6349: end loop;
6342: for i in 1 .. l_num_binds
6343: loop
6344: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_KFF');
6345: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6346: fnd_message.set_token('BLOCK_FIELD', l_table_of_varchar2_32000(i));
6347: l_message := fnd_message.get;
6348: queue_non_forms_warnings(l_message);
6349: end loop;
6350: end if;
6343: loop
6344: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_KFF');
6345: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6346: fnd_message.set_token('BLOCK_FIELD', l_table_of_varchar2_32000(i));
6347: l_message := fnd_message.get;
6348: queue_non_forms_warnings(l_message);
6349: end loop;
6350: end if;
6351: end if;
6350: end if;
6351: end if;
6352:
6353: if (l_segtype.default_type = 'F') then
6354: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_KFF');
6355: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6356: fnd_message.set_token('BLOCK_FIELD', substr(l_segtype.default_value, instr(l_segtype.default_value, ':')+1));
6357: l_message := fnd_message.get;
6358: queue_non_forms_warnings(l_message);
6351: end if;
6352:
6353: if (l_segtype.default_type = 'F') then
6354: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_KFF');
6355: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6356: fnd_message.set_token('BLOCK_FIELD', substr(l_segtype.default_value, instr(l_segtype.default_value, ':')+1));
6357: l_message := fnd_message.get;
6358: queue_non_forms_warnings(l_message);
6359: end if;
6352:
6353: if (l_segtype.default_type = 'F') then
6354: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_KFF');
6355: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6356: fnd_message.set_token('BLOCK_FIELD', substr(l_segtype.default_value, instr(l_segtype.default_value, ':')+1));
6357: l_message := fnd_message.get;
6358: queue_non_forms_warnings(l_message);
6359: end if;
6360:
6353: if (l_segtype.default_type = 'F') then
6354: fnd_message.set_name('FND', 'FLEX-BLK_FLD_DEF_WARN_KFF');
6355: fnd_message.set_token('SEGMENT_NAME', l_segtype.segment_name);
6356: fnd_message.set_token('BLOCK_FIELD', substr(l_segtype.default_value, instr(l_segtype.default_value, ':')+1));
6357: l_message := fnd_message.get;
6358: queue_non_forms_warnings(l_message);
6359: end if;
6360:
6361: EXCEPTION
6396: --
6397: -- Top Warning Message
6398: --
6399: IF (g_non_forms_warnings_count > 0) THEN
6400: fnd_message.set_name('FND', 'FLEX-FORMS_ONLY_WARN_KFF');
6401: fnd_message.set_token('STRUCTURE_CODE', l_id_flex_structure_code);
6402: fnd_message.set_token('TITLE', l_flextype.flex_title);
6403: fnd_message.set_token('APPLICATION_NAME', l_application_name);
6404: fnd_message.set_token('WARNING_COUNT', g_non_forms_warnings_count);
6397: -- Top Warning Message
6398: --
6399: IF (g_non_forms_warnings_count > 0) THEN
6400: fnd_message.set_name('FND', 'FLEX-FORMS_ONLY_WARN_KFF');
6401: fnd_message.set_token('STRUCTURE_CODE', l_id_flex_structure_code);
6402: fnd_message.set_token('TITLE', l_flextype.flex_title);
6403: fnd_message.set_token('APPLICATION_NAME', l_application_name);
6404: fnd_message.set_token('WARNING_COUNT', g_non_forms_warnings_count);
6405: g_non_forms_warnings(0) := fnd_message.get();
6398: --
6399: IF (g_non_forms_warnings_count > 0) THEN
6400: fnd_message.set_name('FND', 'FLEX-FORMS_ONLY_WARN_KFF');
6401: fnd_message.set_token('STRUCTURE_CODE', l_id_flex_structure_code);
6402: fnd_message.set_token('TITLE', l_flextype.flex_title);
6403: fnd_message.set_token('APPLICATION_NAME', l_application_name);
6404: fnd_message.set_token('WARNING_COUNT', g_non_forms_warnings_count);
6405: g_non_forms_warnings(0) := fnd_message.get();
6406: END IF;
6399: IF (g_non_forms_warnings_count > 0) THEN
6400: fnd_message.set_name('FND', 'FLEX-FORMS_ONLY_WARN_KFF');
6401: fnd_message.set_token('STRUCTURE_CODE', l_id_flex_structure_code);
6402: fnd_message.set_token('TITLE', l_flextype.flex_title);
6403: fnd_message.set_token('APPLICATION_NAME', l_application_name);
6404: fnd_message.set_token('WARNING_COUNT', g_non_forms_warnings_count);
6405: g_non_forms_warnings(0) := fnd_message.get();
6406: END IF;
6407: x_warning_count := g_non_forms_warnings_count;
6400: fnd_message.set_name('FND', 'FLEX-FORMS_ONLY_WARN_KFF');
6401: fnd_message.set_token('STRUCTURE_CODE', l_id_flex_structure_code);
6402: fnd_message.set_token('TITLE', l_flextype.flex_title);
6403: fnd_message.set_token('APPLICATION_NAME', l_application_name);
6404: fnd_message.set_token('WARNING_COUNT', g_non_forms_warnings_count);
6405: g_non_forms_warnings(0) := fnd_message.get();
6406: END IF;
6407: x_warning_count := g_non_forms_warnings_count;
6408:
6401: fnd_message.set_token('STRUCTURE_CODE', l_id_flex_structure_code);
6402: fnd_message.set_token('TITLE', l_flextype.flex_title);
6403: fnd_message.set_token('APPLICATION_NAME', l_application_name);
6404: fnd_message.set_token('WARNING_COUNT', g_non_forms_warnings_count);
6405: g_non_forms_warnings(0) := fnd_message.get();
6406: END IF;
6407: x_warning_count := g_non_forms_warnings_count;
6408:
6409: END compute_non_forms_warnings_kff;