[Home] [Help]
775: -- in the group
776: l_search_ind_1_set number := -1;
777:
778: --nhase/hw 07/29/02
779: cursor l_qp_list_header_phases_qual is
780: select list_header_id, pricing_phase_id from qp_list_header_phases
781: where list_header_id between
782: --for bug 5121471
783: p_List_Header_Id and p_List_Header_Id_high;
776: l_search_ind_1_set number := -1;
777:
778: --nhase/hw 07/29/02
779: cursor l_qp_list_header_phases_qual is
780: select list_header_id, pricing_phase_id from qp_list_header_phases
781: where list_header_id between
782: --for bug 5121471
783: p_List_Header_Id and p_List_Header_Id_high;
784: cursor l_line_qual_exc (p_pricing_phase_id number,
1136:
1137: END IF; --IF update_type IN (ALL, QUAL_IND), (see matching (Qual Ind))
1138:
1139: /************************************************************************
1140: Begin code to maintain qp_list_header_phases for modifierlist types only
1141: ************************************************************************/
1142: IF P_UPDATE_TYPE IN ('BATCH','HEADER_PHASE','ALL')
1143: THEN
1144:
1157: END IF;
1158:
1159: FOR l_rec in list_headers_cur(l_list_header_id_low,l_list_header_id_high)
1160: LOOP
1161: delete from qp_list_header_phases
1162: where list_header_id = l_rec.list_header_id;
1163:
1164: /*
1165: Bug - 8224336
1163:
1164: /*
1165: Bug - 8224336
1166: Changes for Pattern Engine - added column PRIC_PROD_ATTR_ONLY_FLAG
1167: Column PRIC_PROD_ATTR_ONLY_FLAG in table qp_list_header_phases will be -
1168: 'Y' - If all the lines in the header for that phase have only product or pricing or both attributes (but not qualifiers).
1169: 'N' - If atleast one line within that header or header itself has qualifiers attached, for that phase
1170: */
1171:
1168: 'Y' - If all the lines in the header for that phase have only product or pricing or both attributes (but not qualifiers).
1169: 'N' - If atleast one line within that header or header itself has qualifiers attached, for that phase
1170: */
1171:
1172: insert into qp_list_header_phases (list_header_id,pricing_phase_id,PRIC_PROD_ATTR_ONLY_FLAG) /* Added column names for 2236671 */
1173: (select distinct list_header_id, pricing_phase_id,'N'
1174: from qp_list_lines
1175: where pricing_phase_id > 1
1176: and qualification_ind in (2,6,8,10,12,14,22,28,30)
1184: put_line('Completed Maintain List Header Phases');
1185: END IF;
1186:
1187: /************************************************************************
1188: End code to maintain qp_list_header_phases -rchellam. Moved this code
1189: to below the qualification_ind code (05/29/01) -rchellam
1190: ************************************************************************/
1191:
1192: ELSE
1471:
1472: -- This procedure update the qualifier flag to Y if all the lines of the header have line level qualifiers.
1473: -- set the flag to null for all records
1474: IF P_UPDATE_TYPE IN ('ALL','DENORMALIZED','QUAL_IND','HEADER PHASE','UPD_QUAL', 'BATCH') THEN --BATCH added for bug 5121471
1475: update qp_list_header_phases set qualifier_flag = NULL
1476: WHERE qualifier_flag is not null; --9732576
1477: for i in l_qp_list_header_phases_qual
1478: loop
1479: l_list_line_id := Null;
1473: -- set the flag to null for all records
1474: IF P_UPDATE_TYPE IN ('ALL','DENORMALIZED','QUAL_IND','HEADER PHASE','UPD_QUAL', 'BATCH') THEN --BATCH added for bug 5121471
1475: update qp_list_header_phases set qualifier_flag = NULL
1476: WHERE qualifier_flag is not null; --9732576
1477: for i in l_qp_list_header_phases_qual
1478: loop
1479: l_list_line_id := Null;
1480: open l_line_qual_exc(i.pricing_phase_id, i.list_header_id);
1481: fetch l_line_qual_exc into l_list_line_id;
1480: open l_line_qual_exc(i.pricing_phase_id, i.list_header_id);
1481: fetch l_line_qual_exc into l_list_line_id;
1482: close l_line_qual_exc;
1483: if l_list_line_id is null then
1484: update qp_list_header_phases
1485: set qualifier_flag = 'Y'
1486: where list_header_id = i.list_header_id
1487: and pricing_phase_id = i.pricing_phase_id;
1488: end if;