[Home] [Help]
135: where pattern_id = g_pattern_pattern_id_final_tbl(i);
136: end if;
137:
138: -- delete the records where pricing_phase_id matches to avoid duplicates
139: delete from qp_pattern_phases a
140: where a.pattern_id = g_pattern_pattern_id_final_tbl(i)
141: and a.pricing_phase_id in (select b.pricing_phase_id
142: from qp_pattern_phases b
143: where b.pattern_id = l_min_pattern_id);
138: -- delete the records where pricing_phase_id matches to avoid duplicates
139: delete from qp_pattern_phases a
140: where a.pattern_id = g_pattern_pattern_id_final_tbl(i)
141: and a.pricing_phase_id in (select b.pricing_phase_id
142: from qp_pattern_phases b
143: where b.pattern_id = l_min_pattern_id);
144:
145: -- update the records where pricing_phase_id DO NOT matches
146: update qp_pattern_phases
142: from qp_pattern_phases b
143: where b.pattern_id = l_min_pattern_id);
144:
145: -- update the records where pricing_phase_id DO NOT matches
146: update qp_pattern_phases
147: set pattern_id = l_min_pattern_id
148: where pattern_id = g_pattern_pattern_id_final_tbl(i);
149: end loop;
150: end if;
238: if p_list_header_id is null then
239: -- like upgrade, refresh everything related to patterns
240: IF (FND_INSTALLATION.GET_APP_INFO('QP', l_status, l_industry, l_qp_schema))
241: THEN
242: l_stmt := 'TRUNCATE TABLE ' || l_qp_schema || '.qp_pattern_phases';
243: EXECUTE IMMEDIATE l_stmt;
244: l_stmt := 'TRUNCATE TABLE ' || l_qp_schema || '.qp_attribute_groups';
245: EXECUTE IMMEDIATE l_stmt;
246: l_stmt := 'TRUNCATE TABLE ' || l_qp_schema || '.qp_patterns';
1400: fnd_file.put_line(FND_FILE.LOG, 'Pattern_id='||l_pattern_id);
1401: end if;
1402: */
1403:
1404: -- maintain data in qp_pattern_phases
1405: if p_pattern_type in ('LP', 'PP') then
1406: Populate_Pattern_Phases(null, g_pricing_phase_id_tmp_tbl(grp_no_index), l_pattern_id);
1407: elsif p_pattern_type = 'HP' then
1408: Populate_Pattern_Phases(g_list_header_id_tmp_tbl(grp_no_index), null, l_pattern_id);
1925: end if;
1926: */
1927: FOR j IN l_phase_id_to_insert_csr LOOP
1928: begin
1929: select /*+ index(qp_pp QP_PATTERN_PHASES_N1) */ 'Y'
1930: into l_exists
1931: from qp_pattern_phases qp_pp
1932: where pattern_id = p_pattern_id
1933: and pricing_phase_id = j.pricing_phase_id;
1927: FOR j IN l_phase_id_to_insert_csr LOOP
1928: begin
1929: select /*+ index(qp_pp QP_PATTERN_PHASES_N1) */ 'Y'
1930: into l_exists
1931: from qp_pattern_phases qp_pp
1932: where pattern_id = p_pattern_id
1933: and pricing_phase_id = j.pricing_phase_id;
1934: exception
1935: when no_data_found then
1932: where pattern_id = p_pattern_id
1933: and pricing_phase_id = j.pricing_phase_id;
1934: exception
1935: when no_data_found then
1936: INSERT INTO qp_pattern_phases
1937: (pattern_id,
1938: pricing_phase_id,
1939: creation_date,
1940: created_by,
1977: fnd_file.put_line(FND_FILE.LOG, 'Begin Populate_Pattern_Phases for LP, PP case');
1978: end if;
1979: */
1980: begin
1981: select /*+ index(qp_pp QP_PATTERN_PHASES_N1) */ 'Y'
1982: into l_exists
1983: from qp_pattern_phases qp_pp
1984: where pattern_id = p_pattern_id
1985: and pricing_phase_id = p_pricing_phase_id
1979: */
1980: begin
1981: select /*+ index(qp_pp QP_PATTERN_PHASES_N1) */ 'Y'
1982: into l_exists
1983: from qp_pattern_phases qp_pp
1984: where pattern_id = p_pattern_id
1985: and pricing_phase_id = p_pricing_phase_id
1986: and rownum = 1; -- needed in case same combination is inserted by 2 diff. threads and one has commited before other
1987: exception
1992: else
1993: fnd_file.put_line(FND_FILE.LOG, 'No pattern_phases found; go insert');
1994: end if;
1995: */
1996: INSERT INTO qp_pattern_phases
1997: (pattern_id,
1998: pricing_phase_id,
1999: creation_date,
2000: created_by,