DBA Data[Home] [Help]

APPS.OKC_PHI_PVT dependencies on QP_GLOBALS

Line 193: l_control_rec QP_GLOBALS.Control_Rec_Type;

189: l_ph_line_breaks c_ph_line_break%rowtype;
190: l_ph_rules c_ph_rules%rowtype;
191: l_ph_header_qual c_ph_header_qual%rowtype;
192:
193: l_control_rec QP_GLOBALS.Control_Rec_Type;
194: l_return_status VARCHAR2(1);
195: l_msg_index NUMBER;
196: l_cnt NUMBER := 0;
197: l_hdr_qual_cnt NUMBER := 0;

Line 307: l_MODIFIER_LIST_rec.operation := QP_GLOBALS.G_OPR_CREATE;

303: l_MODIFIER_LIST_rec.description := ltrim(rtrim(Fnd_Msg_Pub.Get( p_msg_index => Fnd_Msg_Pub.G_LAST, p_encoded => FND_API.G_FALSE ))); --Modifier Name Transalated
304: l_MODIFIER_LIST_rec.name := l_modifier_list_rec.description;
305:
306: l_MODIFIER_LIST_rec.version_no := '0.1';
307: l_MODIFIER_LIST_rec.operation := QP_GLOBALS.G_OPR_CREATE;
308:
309: IF (l_debug = 'Y') THEN
310:
311: okc_util.print_trace(2,'Modifer Name : '|| l_MODIFIER_LIST_rec.name );

Line 327: l_MODIFIER_LIST_rec.operation := QP_GLOBALS.G_OPR_UPDATE;

323:
324: -- This is case of updation of Modifiers
325:
326: l_MODIFIER_LIST_rec.list_header_id := l_ph_header.ph_qp_reference_id;
327: l_MODIFIER_LIST_rec.operation := QP_GLOBALS.G_OPR_UPDATE;
328:
329:
330: /* Updating qp-okc relationship . This table will be used to update okc table with qp_refrence */
331:

Line 351: l_QUALIFIERS_tbl(l_hdr_qual_cnt).operation := QP_GLOBALS.G_OPR_DELETE;

347: FETCH c_ph_header_qual into l_ph_header_qual;
348: exit when c_ph_header_qual%notfound;
349: l_hdr_qual_cnt := l_hdr_qual_cnt +1;
350: l_QUALIFIERS_tbl(l_hdr_qual_cnt).qualifier_id := l_ph_header_qual.qualifier_id;
351: l_QUALIFIERS_tbl(l_hdr_qual_cnt).operation := QP_GLOBALS.G_OPR_DELETE;
352:
353: END LOOP;
354: CLOSE c_ph_header_qual;
355: END IF; -- IF l_ph_header.ph_qp_reference_id IS Not Null then

Line 367: l_QUALIFIERS_tbl(l_hdr_qual_cnt).operation := QP_GLOBALS.G_OPR_CREATE;

363: l_QUALIFIERS_tbl(l_hdr_qual_cnt).qualifier_attribute := 'QUALIFIER_ATTRIBUTE31';
364: l_QUALIFIERS_tbl(l_hdr_qual_cnt).qualifier_attr_value := p_chr_id;
365: l_QUALIFIERS_tbl(l_hdr_qual_cnt).qualifier_grouping_no := -1;
366: l_QUALIFIERS_tbl(l_hdr_qual_cnt).start_date_active := l_ph_header.start_date;
367: l_QUALIFIERS_tbl(l_hdr_qual_cnt).operation := QP_GLOBALS.G_OPR_CREATE;
368: -- Creating Header level qualifier for price list
369:
370: IF nvl(l_ph_header.ph_enforce_price_list_yn,'N')='Y' then
371:

Line 381: l_QUALIFIERS_tbl(l_hdr_qual_cnt).operation := QP_GLOBALS.G_OPR_CREATE;

377: l_QUALIFIERS_tbl(l_hdr_qual_cnt).qualifier_attr_value := l_ph_header.price_list_id;
378: l_QUALIFIERS_tbl(l_hdr_qual_cnt).qualifier_grouping_no := -1;
379: -- l_QUALIFIERS_tbl(l_hdr_qual_cnt).qualifier_precedence := 1;
380: l_QUALIFIERS_tbl(l_hdr_qual_cnt).start_date_active := l_ph_header.start_date;
381: l_QUALIFIERS_tbl(l_hdr_qual_cnt).operation := QP_GLOBALS.G_OPR_CREATE;
382: IF (l_debug = 'Y') THEN
383: okc_util.print_trace(2,'Qualifier Enforce Price List id '||l_ph_header.price_list_id);
384: END IF;
385:

Line 402: l_QUALIFIERS_tbl(l_hdr_qual_cnt).operation := QP_GLOBALS.G_OPR_CREATE;

398: l_QUALIFIERS_tbl(l_hdr_qual_cnt).qualifier_attr_value_to := 999999999999999999999;
399: l_QUALIFIERS_tbl(l_hdr_qual_cnt).qualifier_grouping_no := -1;
400: -- l_QUALIFIERS_tbl(l_hdr_qual_cnt).qualifier_precedence := 1;
401: l_QUALIFIERS_tbl(l_hdr_qual_cnt).start_date_active := l_ph_header.start_date;
402: l_QUALIFIERS_tbl(l_hdr_qual_cnt).operation := QP_GLOBALS.G_OPR_CREATE;
403: IF (l_debug = 'Y') THEN
404: okc_util.print_trace(2,'Qualifier Minimum Purchase Order Amount '||l_ph_header.ph_min_amt);
405: END IF;
406:

Line 425: l_QUALIFIERS_tbl(l_hdr_qual_cnt).operation := QP_GLOBALS.G_OPR_CREATE;

421: l_QUALIFIERS_tbl(l_hdr_qual_cnt).qualifier_attr_value_to := 999999999999999999999;
422: l_QUALIFIERS_tbl(l_hdr_qual_cnt).qualifier_grouping_no := -1;
423: -- l_QUALIFIERS_tbl(l_hdr_qual_cnt).qualifier_precedence := 1;
424: l_QUALIFIERS_tbl(l_hdr_qual_cnt).start_date_active := l_ph_header.start_date;
425: l_QUALIFIERS_tbl(l_hdr_qual_cnt).operation := QP_GLOBALS.G_OPR_CREATE;
426: IF (l_debug = 'Y') THEN
427: okc_util.print_trace(2,'Qualifier Minimum Purchase Order Qty '||l_ph_header.ph_min_qty);
428: END IF;
429:

Line 450: l_QUALIFIERS_tbl(l_hdr_qual_cnt).operation := QP_GLOBALS.G_OPR_CREATE;

446: l_QUALIFIERS_tbl(l_hdr_qual_cnt).qualifier_attr_value := l_ph_rules.object1_id1;
447: l_QUALIFIERS_tbl(l_hdr_qual_cnt).qualifier_grouping_no := -1;
448: -- l_QUALIFIERS_tbl(l_hdr_qual_cnt).qualifier_precedence := 1;
449: l_QUALIFIERS_tbl(l_hdr_qual_cnt).start_date_active := l_ph_header.start_date;
450: l_QUALIFIERS_tbl(l_hdr_qual_cnt).operation := QP_GLOBALS.G_OPR_CREATE;
451: IF (l_debug = 'Y') THEN
452: okc_util.print_trace(2,'Qualifier Customer Account '||l_ph_rules.object1_id1);
453: END IF;
454:

Line 496: l_MODIFIERS_tbl(l_line_cnt).operation := QP_GLOBALS.G_OPR_CREATE;

492: l_MODIFIERS_tbl(l_line_cnt).modifier_level_code := 'LINE';
493: l_MODIFIERS_tbl(l_line_cnt).pricing_phase_id := 2;
494: l_MODIFIERS_tbl(l_line_cnt).product_precedence := -9999;
495: l_MODIFIERS_tbl(l_line_cnt).list_line_type_code := 'DIS';
496: l_MODIFIERS_tbl(l_line_cnt).operation := QP_GLOBALS.G_OPR_CREATE;
497:
498:
499: /* IF Modifer has already been created before and new line is being added.In that case Modifier line table needs List header id */
500:

Line 516: l_MODIFIERS_tbl(l_line_cnt).operation := QP_GLOBALS.G_OPR_UPDATE;

512: l_qp_ph_relship_tbl(l_qp_rlship_cnt).line_type := 'PH_LINE';
513: l_qp_ph_relship_tbl(l_qp_rlship_cnt).modifier_tbl_index := l_line_cnt;
514:
515: ELSE
516: l_MODIFIERS_tbl(l_line_cnt).operation := QP_GLOBALS.G_OPR_UPDATE;
517: l_MODIFIERS_tbl(l_line_cnt).list_line_id := l_ph_lines.ph_qp_reference_id;
518: l_MODIFIERS_tbl(l_line_cnt).list_header_id := l_ph_header.ph_qp_reference_id;
519:
520: /* Updating qp-okc relationship . This table will be used to update okc table with qp_refrence */

Line 567: l_PRICING_ATTR_tbl(l_line_pattr_cnt).operation := QP_GLOBALS.G_OPR_CREATE;

563: l_PRICING_ATTR_tbl(l_line_pattr_cnt).product_attribute_context:= 'ITEM';
564: l_PRICING_ATTR_tbl(l_line_pattr_cnt).product_uom_code := l_ph_lines.uom_code;
565: l_PRICING_ATTR_tbl(l_line_pattr_cnt).excluder_flag:= 'N';
566: l_PRICING_ATTR_tbl(l_line_pattr_cnt).MODIFIERS_index:=l_line_cnt;
567: l_PRICING_ATTR_tbl(l_line_pattr_cnt).operation := QP_GLOBALS.G_OPR_CREATE;
568: ELSE
569:
570: -- Updation of Pricing Attribute
571: l_line_pattr_cnt := l_line_pattr_cnt + 1;

Line 582: l_PRICING_ATTR_tbl(l_line_pattr_cnt).operation := QP_GLOBALS.G_OPR_UPDATE;

578: FETCH c_ph_get_pattr_id INTO l_PRICING_ATTR_tbl(l_line_pattr_cnt).pricing_attribute_id;
579:
580: CLOSE c_ph_get_pattr_id;
581:
582: l_PRICING_ATTR_tbl(l_line_pattr_cnt).operation := QP_GLOBALS.G_OPR_UPDATE;
583:
584: END IF; --IF l_ph_lines.ph_qp_reference_id IS NULL then
585:
586: IF l_ph_lines.ph_pricing_type='DISCOUNT_PERCENT' then

Line 640: l_MODIFIERS_tbl(l_line_breaks_cnt).operation := QP_GLOBALS.G_OPR_CREATE;

636: l_MODIFIERS_tbl(l_line_breaks_cnt).price_break_type_code := 'POINT';
637: l_MODIFIERS_tbl(l_line_breaks_cnt).modifier_parent_index := l_line_cnt;
638: l_MODIFIERS_tbl(l_line_breaks_cnt).rltd_modifier_grp_no := 10;
639: l_MODIFIERS_tbl(l_line_breaks_cnt).rltd_modifier_grp_type := 'PRICE BREAK';
640: l_MODIFIERS_tbl(l_line_breaks_cnt).operation := QP_GLOBALS.G_OPR_CREATE;
641:
642: /* IF Modifer has already been created before and new line break is being added.In that case Modifier line table needs List header id */
643:
644: IF l_ph_header.ph_qp_reference_id IS NOT NULL THEN

Line 659: l_MODIFIERS_tbl(l_line_breaks_cnt).operation := QP_GLOBALS.G_OPR_UPDATE;

655: l_qp_ph_relship_tbl(l_qp_rlship_cnt).line_type := 'PH_LINE_BREAK';
656: l_qp_ph_relship_tbl(l_qp_rlship_cnt).modifier_tbl_index := l_line_breaks_cnt;
657:
658: ELSE
659: l_MODIFIERS_tbl(l_line_breaks_cnt).operation := QP_GLOBALS.G_OPR_UPDATE;
660: l_MODIFIERS_tbl(l_line_breaks_cnt).list_line_id := l_ph_line_breaks.qp_reference_id;
661: l_MODIFIERS_tbl(l_line_breaks_cnt).list_header_id := l_ph_header.ph_qp_reference_id;
662: /* Updating qp-okc relationship . This table will be used to update okc table with qp_refrence */
663:

Line 688: l_PRICING_ATTR_tbl(l_line_breaks_pattr_cnt).operation := QP_GLOBALS.G_OPR_CREATE;

684:
685: l_line_breaks_pattr_cnt := l_line_breaks_pattr_cnt + 1;
686: IF l_ph_line_breaks.qp_reference_id IS NULL then
687: l_PRICING_ATTR_tbl(l_line_breaks_pattr_cnt).MODIFIERS_index:= l_line_breaks_cnt;
688: l_PRICING_ATTR_tbl(l_line_breaks_pattr_cnt).operation := QP_GLOBALS.G_OPR_CREATE;
689:
690: IF l_ph_lines.lse_id=62 THEN -- to be changed with actual lse id of subline Item Number from seed
691:
692: l_PRICING_ATTR_tbl(l_line_breaks_pattr_cnt).product_attribute:= 'PRICING_ATTRIBUTE1';

Line 717: l_PRICING_ATTR_tbl(l_line_breaks_pattr_cnt).operation := QP_GLOBALS.G_OPR_UPDATE;

713: OPEN c_ph_get_pattr_id(l_ph_line_breaks.qp_reference_id,l_ph_header.ph_qp_reference_id);
714: FETCH c_ph_get_pattr_id INTO l_PRICING_ATTR_tbl(l_line_breaks_pattr_cnt).pricing_attribute_id;
715: CLOSE c_ph_get_pattr_id;
716:
717: l_PRICING_ATTR_tbl(l_line_breaks_pattr_cnt).operation := QP_GLOBALS.G_OPR_UPDATE;
718:
719: END IF; --IF l_ph_line_breaks.qp_reference_id IS NULL then
720:
721:

Line 968: l_MODIFIER_LIST_rec.operation := QP_GLOBALS.G_OPR_UPDATE;

964: okc_util.print_trace(2,'Profile Option QP_SOURCE_SYSTEM_CODE set to OKC');
965: END IF;
966:
967: l_MODIFIER_LIST_rec.end_date_active := p_termination_date;
968: l_MODIFIER_LIST_rec.operation := QP_GLOBALS.G_OPR_UPDATE;
969: l_MODIFIER_LIST_rec.list_header_id := l_ph_header.ph_qp_reference_id;
970:
971: IF l_call_qp_api THEN
972:

Line 1220: l_control_rec QP_GLOBALS.Control_Rec_Type;

1216: l_ph_lines c_ph_lines%rowtype;
1217: l_ph_line_breaks c_ph_line_break%rowtype;
1218: l_line_cnt NUMBER := 0;
1219:
1220: l_control_rec QP_GLOBALS.Control_Rec_Type;
1221: l_return_status VARCHAR2(1);
1222: l_msg_index NUMBER;
1223:
1224: l_MODIFIER_LIST_rec QP_Modifiers_PUB.Modifier_List_Rec_Type;

Line 1256: l_MODIFIER_LIST_rec.operation := QP_GLOBALS.G_OPR_UPDATE;

1252: l_MODIFIER_LIST_rec.end_date_active := l_ph_header.end_date;
1253: l_MODIFIER_LIST_rec.active_flag := 'N';
1254: l_MODIFIER_LIST_rec.automatic_flag := 'N';
1255: l_MODIFIER_LIST_rec.list_header_id := l_ph_header.ph_qp_reference_id;
1256: l_MODIFIER_LIST_rec.operation := QP_GLOBALS.G_OPR_UPDATE;
1257: IF (l_debug = 'Y') THEN
1258: okc_util.print_trace(1,'List Header Id'||l_ph_header.ph_qp_reference_id||' Start Date '||l_ph_header.start_date||' End Date '||l_ph_header.end_date);
1259: END IF;
1260:

Line 1268: l_MODIFIERS_tbl(l_line_cnt).operation := QP_GLOBALS.G_OPR_UPDATE;

1264: EXIT WHEN c_ph_lines%NOTFOUND ;
1265: l_call_qp_api := true;
1266: l_line_cnt := l_modifiers_tbl.count + 1;
1267: l_MODIFIERS_tbl(l_line_cnt).automatic_flag:= 'N';
1268: l_MODIFIERS_tbl(l_line_cnt).operation := QP_GLOBALS.G_OPR_UPDATE;
1269: l_MODIFIERS_tbl(l_line_cnt).list_line_id := l_ph_lines.ph_qp_reference_id;
1270: l_MODIFIERS_tbl(l_line_cnt).list_header_id := l_ph_header.ph_qp_reference_id;
1271: l_MODIFIERS_tbl(l_line_cnt).start_date_active := l_ph_lines.start_date;
1272: l_MODIFIERS_tbl(l_line_cnt).end_date_active := l_ph_lines.end_date;

Line 1282: l_MODIFIERS_tbl(l_line_cnt).operation := QP_GLOBALS.G_OPR_UPDATE;

1278: FETCH c_ph_line_break into l_ph_line_breaks;
1279: EXIT WHEN c_ph_line_break%NOTFOUND ;
1280: l_line_cnt := l_modifiers_tbl.count + 1;
1281: l_MODIFIERS_tbl(l_line_cnt).automatic_flag:= 'N';
1282: l_MODIFIERS_tbl(l_line_cnt).operation := QP_GLOBALS.G_OPR_UPDATE;
1283: l_MODIFIERS_tbl(l_line_cnt).list_line_id := l_ph_line_breaks.qp_reference_id;
1284: l_MODIFIERS_tbl(l_line_cnt).list_header_id := l_ph_header.ph_qp_reference_id;
1285: l_MODIFIERS_tbl(l_line_cnt).start_date_active := l_ph_lines.start_date;
1286: l_MODIFIERS_tbl(l_line_cnt).end_date_active := l_ph_lines.end_date;