[Home] [Help]
323: l_source_system_code VARCHAR2(30);
324: l_locked_price_list_id NUMBER;
325: l_pte_code VARCHAR2(30);
326:
327: p_control_rec QP_GLOBALS.Control_Rec_Type;
328:
329: p_price_list_rec QP_PRICE_LIST_PUB.Price_List_Rec_Type;
330: p_price_list_line_tbl QP_PRICE_LIST_PUB.Price_List_Line_Tbl_Type;
331: p_pricing_attr_tbl QP_PRICE_LIST_PUB.Pricing_Attr_Tbl_Type;
475: --added for MOAC
476: p_price_list_rec.org_id := nvl(p_org_id, QP_UTIL.get_org_id);
477: p_price_list_rec.global_flag := 'N'; --per OKS comments on bug 4725283,
478: --global_flag should be 'N'
479: p_price_list_rec.operation := QP_GLOBALS.G_OPR_CREATE;
480:
481:
482: --Copy the source list_line and its attributes to input record structures
483: --and set the appropriate column values.
489: --We use index=1 (ii=1 at this point) to store the list line and
490: --then exit since there can only be one line with list_line_id =
491: --p_source_list_line_id.
492: p_price_list_line_tbl(ii) := x_price_list_line_tbl(i);
493: p_price_list_line_tbl(ii).operation := QP_GLOBALS.G_OPR_CREATE;
494: p_price_list_line_tbl(ii).list_line_id := FND_API.G_MISS_NUM;
495: p_price_list_line_tbl(ii).list_line_no := FND_API.G_MISS_CHAR;
496: p_price_list_line_tbl(ii).list_header_id := FND_API.G_MISS_NUM;
497: p_price_list_line_tbl(ii).start_date_active := null; --OKS requirement
513: --in a sequential manner, set the price_list_line_index to 1 since
514: --there will only be one locked list line id and increment jj.
515: p_pricing_attr_tbl(jj) := x_pricing_attr_tbl(j);
516: p_pricing_attr_tbl(jj).price_list_line_index := ii; -- ii = 1 now
517: p_pricing_attr_tbl(jj).operation := QP_GLOBALS.G_OPR_CREATE;
518: p_pricing_attr_tbl(jj).pricing_attribute_id := FND_API.G_MISS_NUM;
519: p_pricing_attr_tbl(jj).list_line_id := FND_API.G_MISS_NUM;
520: p_pricing_attr_tbl(jj).list_header_id := FND_API.G_MISS_NUM;
521: jj := jj + 1;
545:
546: IF x_price_list_line_tbl(i).from_rltd_modifier_id = p_source_list_line_id
547: THEN
548: p_price_list_line_tbl(ii) := x_price_list_line_tbl(i);
549: p_price_list_line_tbl(ii).operation := QP_GLOBALS.G_OPR_CREATE;
550: p_price_list_line_tbl(ii).price_break_header_index := 1;
551: --since if p_source_list_line_id was a PBH then it
552: --would have an index of 1 in the input plsql table.
553: p_price_list_line_tbl(ii).list_line_id := FND_API.G_MISS_NUM;
566: --source list line in a sequential manner, set the
567: --price_list_line_index appropriately and increment jj.
568: p_pricing_attr_tbl(jj) := x_pricing_attr_tbl(j);
569: p_pricing_attr_tbl(jj).price_list_line_index := ii;
570: p_pricing_attr_tbl(jj).operation := QP_GLOBALS.G_OPR_CREATE;
571: p_pricing_attr_tbl(jj).pricing_attribute_id := FND_API.G_MISS_NUM;
572: p_pricing_attr_tbl(jj).list_line_id := FND_API.G_MISS_NUM;
573: p_pricing_attr_tbl(jj).list_header_id := FND_API.G_MISS_NUM;
574: jj := jj + 1;
679: to_char(x_price_list_line_tbl(1).list_line_id);
680: p_pricing_attr_tbl(1).comparison_operator_code := '=';
681: p_pricing_attr_tbl(1).excluder_flag := 'N';
682: p_pricing_attr_tbl(1).price_list_line_index := 1;
683: p_pricing_attr_tbl(1).operation := QP_GLOBALS.G_OPR_CREATE;
684:
685: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
686: fnd_log.STRING (fnd_log.level_procedure,
687: g_pkg_name || '.Lock_Price',
748: --We use index=1 (ii=1 at this point) to store the list line and
749: --then exit since there can only be one line with list_line_id =
750: --p_source_list_line_id.
751: p_price_list_line_tbl(ii) := x_price_list_line_tbl(i);
752: p_price_list_line_tbl(ii).operation := QP_GLOBALS.G_OPR_CREATE;
753: p_price_list_line_tbl(ii).list_line_id := FND_API.G_MISS_NUM;
754: p_price_list_line_tbl(ii).list_line_no := FND_API.G_MISS_CHAR;
755: p_price_list_line_tbl(ii).list_header_id := l_locked_price_list_id;
756: p_price_list_line_tbl(ii).start_date_active := null; --OKS requirement
771: --in a sequential manner, set the price_list_line_index to 1 since
772: --there will only be one locked list line id and increment jj.
773: p_pricing_attr_tbl(jj) := x_pricing_attr_tbl(j);
774: p_pricing_attr_tbl(jj).price_list_line_index := ii; -- ii = 1 now
775: p_pricing_attr_tbl(jj).operation := QP_GLOBALS.G_OPR_CREATE;
776: p_pricing_attr_tbl(jj).pricing_attribute_id := FND_API.G_MISS_NUM;
777: p_pricing_attr_tbl(jj).list_line_id := FND_API.G_MISS_NUM;
778: p_pricing_attr_tbl(jj).list_header_id := l_locked_price_list_id;
779: jj := jj + 1;
797:
798: IF x_price_list_line_tbl(i).from_rltd_modifier_id = p_source_list_line_id
799: THEN
800: p_price_list_line_tbl(ii) := x_price_list_line_tbl(i);
801: p_price_list_line_tbl(ii).operation := QP_GLOBALS.G_OPR_CREATE;
802: p_price_list_line_tbl(ii).price_break_header_index := 1;
803: --since if p_source_list_line_id was a PBH then it
804: --would have an index of 1 in the input plsql table.
805: p_price_list_line_tbl(ii).list_line_id := FND_API.G_MISS_NUM;
818: --source list line in a sequential manner, set the
819: --price_list_line_index appropriately and increment jj.
820: p_pricing_attr_tbl(jj) := x_pricing_attr_tbl(j);
821: p_pricing_attr_tbl(jj).price_list_line_index := ii;
822: p_pricing_attr_tbl(jj).operation := QP_GLOBALS.G_OPR_CREATE;
823: p_pricing_attr_tbl(jj).pricing_attribute_id := FND_API.G_MISS_NUM;
824: p_pricing_attr_tbl(jj).list_line_id := FND_API.G_MISS_NUM;
825: p_pricing_attr_tbl(jj).list_header_id := l_locked_price_list_id;
826: jj := jj + 1;
926: to_char(x_price_list_line_tbl(1).list_line_id);
927: p_pricing_attr_tbl(1).comparison_operator_code := '=';
928: p_pricing_attr_tbl(1).excluder_flag := 'N';
929: p_pricing_attr_tbl(1).price_list_line_index := 1;
930: p_pricing_attr_tbl(1).operation := QP_GLOBALS.G_OPR_CREATE;
931:
932: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
933: fnd_log.STRING (fnd_log.level_procedure,
934: g_pkg_name || '.Lock_Price',