[Home] [Help]
507: /* ------------------------------------------------------------------------ */
508:
509: PROCEDURE clear_cache IS
510: BEGIN
511: FND_FLEX_SERVER2.x_clear_cv_cache;
512: END clear_cache;
513:
514: /* ------------------------------------------------------------------------ */
515: /* Externalized function so client can use hash-lock mechanism. */
546: as otherwise we were getting hash_number of 0 always. */
547: kff_id.isa_key_flexfield := TRUE;
548:
549: if((parse_displayed(kff_id, 'ALL', disp_segs) = FALSE) or
550: (FND_FLEX_SERVER2.breakup_catsegs(concat_ids, delimiter, FALSE,
551: disp_segs, nsegs, idsegs) = FALSE)) then
552: return(-20);
553: end if;
554:
967: end IF;
968:
969: -- Get all required info about the desired flexfield structure.
970: --
971: if(FND_FLEX_SERVER2.get_keystruct(flex_app_sname, flex_code,
972: NULL, flex_num,
973: kff_id, kff_info, kff_cc) = FALSE) then
974: goto return_error;
975: end if;
1014: END IF;
1015:
1016: -- Convert concatenated segments to array and check there are not too many
1017: --
1018: if(FND_FLEX_SERVER2.breakup_catsegs(concat_segs,
1019: kff_info.concatenated_segment_delimiter,
1020: vv_flags.values_not_ids, disp_segs, nsegs, segs) = FALSE) then
1021: goto return_error;
1022: end if;
1120: end if;
1121:
1122: -- Get all required info about the desired flexfield structure.
1123: --
1124: if(FND_FLEX_SERVER2.get_keystruct(flex_app_sname, flex_code,
1125: NULL, flex_num,
1126: kff_id, kff_info, kff_cc) = FALSE) then
1127: goto return_error;
1128: end if;
1135: FND_FLEX_SERVER1.add_debug(to_char(kff_id.application_id));
1136: FND_FLEX_SERVER1.add_debug(', Flex Code = ' || flex_code);
1137: FND_FLEX_SERVER1.add_debug(', Structure Number = '||to_char(flex_num));
1138: END IF;
1139: if(FND_FLEX_SERVER2.get_qualsegs(kff_id, n_segs, seg_disp,
1140: seg_rqd, fq_table) = FALSE) then
1141: goto return_error;
1142: end if;
1143:
1246: end if;
1247:
1248: -- Get all required info about the desired flexfield structure.
1249: --
1250: if(FND_FLEX_SERVER2.get_keystruct(flex_app_sname, flex_code,
1251: NULL, flex_num,
1252: kff_id, kff_info, kff_cc) = FALSE) then
1253: goto return_error;
1254: end if;
1266: end if;
1267:
1268: -- Convert concatenated segments to array and check there are not too many
1269: --
1270: if(FND_FLEX_SERVER2.breakup_catsegs(concat_segs,
1271: kff_info.concatenated_segment_delimiter,
1272: TRUE, disp_segs, nsegs, segs) = FALSE) then
1273: goto return_error;
1274: end if;
1536: --
1537: -- However following stuff should be done in AT.
1538: -- copied from validation_engine() function.
1539: --
1540: if(FND_FLEX_SERVER2.x_drop_cached_cv_result(fstruct, nsegs, segvals_in)
1541: = FALSE) then
1542: GOTO return_false;
1543: end if;
1544:
1751: end if;
1752:
1753: -- Get all required info about the desired flexfield structure.
1754: --
1755: if(FND_FLEX_SERVER2.get_keystruct(flex_app_sname, flex_code,
1756: select_comb_from_view, flex_num,
1757: kff_id, kff_info, kff_cc) = FALSE) then
1758: goto return_error;
1759: end if;
1924: (validate_mode in ('PARTIAL','PARTIAL_IF_POSSIBLE','FOR_INSERT')))) then
1925:
1926: -- Convert concatenated segments to array and check there are not too many
1927: --
1928: if(FND_FLEX_SERVER2.breakup_catsegs(concat_segs,
1929: kff_info.concatenated_segment_delimiter,
1930: vv_flags.values_not_ids, disp_segs, nsegs, segs) = FALSE) then
1931: goto return_error;
1932: end if;
1952: end if;
1953:
1954: -- Get segment mapping to code combinations table
1955: --
1956: if(FND_FLEX_SERVER2.get_struct_cols(kff_id, kff_cc.table_application_id,
1957: kff_cc.combination_table_id, nsegs, cc_cols,
1958: cc_coltypes, segtypes) = FALSE) then
1959: goto return_error;
1960: end if;
1973: -- POPID() and VALID() we can wait until after value validation and get
1974: -- the qualifier names and table columns from the returned qualifier info
1975: -- thus avoiding the extra table hit below.
1976: --
1977: if(FND_FLEX_SERVER2.get_all_segquals(kff_id, tbl_quals) = FALSE) then
1978: goto return_error;
1979: end if;
1980:
1981: IF (fnd_flex_server1.g_debug_level > 0) THEN
2222:
2223: -- Next do the cross validation if flag is set.
2224: --
2225: if(kff_info.cross_segment_validation_flag = 'Y') then
2226: errcode := FND_FLEX_SERVER2.cross_validate(nvals, value_vals, segtypes,
2227: val_date, kff_id, error_col);
2228: if(errcode <> FND_FLEX_SERVER1.VV_VALID) then
2229: errsegnum := find_column_index(cc_cols, nvals, error_col);
2230: IF (fnd_flex_server1.g_debug_level > 0) THEN
2272: ROLLBACK TO SAVEPOINT pre_insert_comb;
2273: goto return_error;
2274: end if;
2275:
2276: if(FND_FLEX_SERVER2.x_drop_cached_cv_result(kff_id, nvals, value_vals)
2277: = FALSE) then
2278: ROLLBACK TO SAVEPOINT pre_insert_comb;
2279: goto return_error;
2280: end if;
3720: dispsegs.n_segflags := 0;
3721:
3722: -- Get flexfield qualifier mapping to segments.
3723: --
3724: if(FND_FLEX_SERVER2.get_qualsegs(fstruct, n_segs, seg_disp,
3725: seg_rqd, fq_table) = FALSE) then
3726: return(FALSE);
3727: end if;
3728: