DBA Data[Home] [Help]

APPS.OKC_PHI_PVT dependencies on OKC_UTIL

Line 227: okc_util.print_trace(1,'start process_price_hold');

223:
224: BEGIN
225: Fnd_Msg_Pub.Initialize;
226: IF (l_debug = 'Y') THEN
227: okc_util.print_trace(1,'start process_price_hold');
228: END IF;
229:
230: l_call_qp_api := false;
231: l_cust_found := false;

Line 253: okc_util.print_trace(1,'Contract is a Sell contract and is not a template');

249:
250: IF c_k_header%found then
251:
252: IF (l_debug = 'Y') THEN
253: okc_util.print_trace(1,'Contract is a Sell contract and is not a template');
254: END IF;
255:
256: OPEN c_ph_header(p_chr_id);
257:

Line 272: okc_util.print_trace(2,'Profile Option QP_SOURCE_SYSTEM_CODE set to OKC');

268: fnd_profile.put('QP_SOURCE_SYSTEM_CODE','OKC');
269: --Setting the QP system Profile Option to OKC.so that Modifier cannot be updated from QP screens.
270:
271: IF (l_debug = 'Y') THEN
272: okc_util.print_trace(2,'Profile Option QP_SOURCE_SYSTEM_CODE set to OKC');
273: END IF;
274:
275:
276: IF nvl(l_ph_header.ph_integrated_with_qp,'N')='N' then

Line 292: okc_util.print_trace(2,'Modifier needs to be created');

288: IF l_ph_header.ph_qp_reference_id IS Null then
289: -- This is case of creation of Modifiers
290:
291: IF (l_debug = 'Y') THEN
292: okc_util.print_trace(2,'Modifier needs to be created');
293: END IF;
294: l_MODIFIER_LIST_rec.comments := l_k_header.short_description;
295:
296: OKC_API.set_message(p_app_name => g_app_name, --OKC

Line 311: okc_util.print_trace(2,'Modifer Name : '|| l_MODIFIER_LIST_rec.name );

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 );
312: END IF;
313:
314:
315: /* Updating qp-okc relationship . This table will be used to update okc table with qp_refrence */

Line 383: okc_util.print_trace(2,'Qualifier Enforce Price List id '||l_ph_header.price_list_id);

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:
386: END IF; -- IF nvl(l_ph_header.ph_enforce_price_list_yn,'N')='Y' then
387:

Line 404: okc_util.print_trace(2,'Qualifier Minimum Purchase Order Amount '||l_ph_header.ph_min_amt);

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:
407: END IF; -- IF l_ph_header.ph_min_amt is Not Null then
408:

Line 427: okc_util.print_trace(2,'Qualifier Minimum Purchase Order Qty '||l_ph_header.ph_min_qty);

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:
430: END IF; -- IF l_ph_header.ph_min_qty is Not Null then
431:

Line 452: okc_util.print_trace(2,'Qualifier Customer Account '||l_ph_rules.object1_id1);

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:
455:
456: END IF;

Line 468: okc_util.print_trace(2,'No Customer Account found');

464: OKC_API.set_message(p_app_name => g_app_name, --OKC
465: p_msg_name => 'OKC_NO_PRICE_HOLD_CAN');
466:
467: IF (l_debug = 'Y') THEN
468: okc_util.print_trace(2,'No Customer Account found');
469: END IF;
470:
471: RAISE OKC_API.G_EXCEPTION_ERROR;
472:

Line 535: okc_util.print_trace(3,'Incompatibility Group : '||l_MODIFIERS_tbl(l_line_cnt).incompatibility_grp_code );

531: l_MODIFIERS_tbl(l_line_cnt).end_date_active := l_ph_lines.end_date;
532: l_MODIFIERS_tbl(l_line_cnt).incompatibility_grp_code := fnd_profile.value('OKC_PH_LINE_INCOMPATIBILITY_GROUP');
533:
534: IF (l_debug = 'Y') THEN
535: okc_util.print_trace(3,'Incompatibility Group : '||l_MODIFIERS_tbl(l_line_cnt).incompatibility_grp_code );
536: END IF;
537:
538: IF l_ph_lines.ph_qp_reference_id IS NULL then
539:

Line 807: okc_util.print_trace(2,'Calling QP_Modifiers_PUB.proces_modifiers');

803:
804: IF l_call_qp_api THEN
805:
806: IF (l_debug = 'Y') THEN
807: okc_util.print_trace(2,'Calling QP_Modifiers_PUB.proces_modifiers');
808: END IF;
809:
810: QP_Modifiers_PUB.Process_Modifiers(p_api_version_number => 1.0
811: ,p_init_msg_list => FND_API.G_FALSE

Line 832: okc_util.print_trace(2,'Exited QP_Modifiers_proces_modifiers, Status '||l_return_status);

828: ,x_PRICING_ATTR_val_tbl => l_x_PRICING_ATTR_val_tbl
829: );
830:
831: IF (l_debug = 'Y') THEN
832: okc_util.print_trace(2,'Exited QP_Modifiers_proces_modifiers, Status '||l_return_status);
833: END IF;
834:
835: IF (l_debug = 'Y') THEN
836: okc_util.print_trace(2,'List Header Id '||l_x_MODIFIER_LIST_rec.list_header_id);

Line 836: okc_util.print_trace(2,'List Header Id '||l_x_MODIFIER_LIST_rec.list_header_id);

832: okc_util.print_trace(2,'Exited QP_Modifiers_proces_modifiers, Status '||l_return_status);
833: END IF;
834:
835: IF (l_debug = 'Y') THEN
836: okc_util.print_trace(2,'List Header Id '||l_x_MODIFIER_LIST_rec.list_header_id);
837: END IF;
838:
839: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
840:

Line 860: okc_util.print_trace(3,' id '|| l_clev_tbl(cle_cnt).id ||' ph_qp_reference_id '||l_clev_tbl(cle_cnt).ph_qp_reference_id);

856: l_clev_tbl(cle_cnt).object_version_number := l_qp_ph_relship_tbl(i).object_version_number;
857: l_clev_tbl(cle_cnt).ph_integrated_with_qp := 'Y';
858: l_clev_tbl(cle_cnt).ph_qp_reference_id := l_x_MODIFIER_LIST_rec.list_header_id;
859: IF (l_debug = 'Y') THEN
860: okc_util.print_trace(3,' id '|| l_clev_tbl(cle_cnt).id ||' ph_qp_reference_id '||l_clev_tbl(cle_cnt).ph_qp_reference_id);
861: END IF;
862:
863: ELSIF l_qp_ph_relship_tbl(i).line_type ='PH_LINE' then
864:

Line 872: okc_util.print_trace(3,' id '|| l_clev_tbl(cle_cnt).id ||' ph_qp_reference_id '||l_clev_tbl(cle_cnt).ph_qp_reference_id);

868: l_clev_tbl(cle_cnt).ph_integrated_with_qp := 'Y';
869: l_clev_tbl(cle_cnt).ph_qp_reference_id := l_x_MODIFIERS_tbl(l_qp_ph_relship_tbl(i).modifier_tbl_index).list_line_id;
870:
871: IF (l_debug = 'Y') THEN
872: okc_util.print_trace(3,' id '|| l_clev_tbl(cle_cnt).id ||' ph_qp_reference_id '||l_clev_tbl(cle_cnt).ph_qp_reference_id);
873: END IF;
874:
875: ELSIF l_qp_ph_relship_tbl(i).line_type ='PH_LINE_BREAK' then
876:

Line 883: okc_util.print_trace(3,' break id '|| l_ph_line_breaks_tbl(phl_cnt).id ||' ph_qp_reference_id '||l_ph_line_breaks_tbl(phl_cnt).qp_reference_id);

879: l_ph_line_breaks_tbl(phl_cnt).object_version_number := l_qp_ph_relship_tbl(i).object_version_number;
880: l_ph_line_breaks_tbl(phl_cnt).integrated_with_qp := 'Y';
881: l_ph_line_breaks_tbl(phl_cnt).qp_reference_id := l_x_MODIFIERS_tbl(l_qp_ph_relship_tbl(i).modifier_tbl_index).list_line_id;
882: IF (l_debug = 'Y') THEN
883: okc_util.print_trace(3,' break id '|| l_ph_line_breaks_tbl(phl_cnt).id ||' ph_qp_reference_id '||l_ph_line_breaks_tbl(phl_cnt).qp_reference_id);
884: END IF;
885: END IF;
886: END LOOP;
887:

Line 890: okc_util.print_trace(2,'Start OKC_CONTRACT_PUB.update_contract_line');

886: END LOOP;
887:
888: IF l_clev_tbl.count > 0 then
889: IF (l_debug = 'Y') THEN
890: okc_util.print_trace(2,'Start OKC_CONTRACT_PUB.update_contract_line');
891: END IF;
892:
893: OKC_CONTRACT_PUB.update_contract_line( p_api_version => 1.0,
894: p_init_msg_list => FND_API.G_FALSE,

Line 903: okc_util.print_trace(2,'End OKC_CONTRACT_PUB.update_contract_line:Status'||l_return_status);

899: p_clev_tbl => l_clev_tbl,
900: x_clev_tbl => lx_clev_tbl);
901:
902: IF (l_debug = 'Y') THEN
903: okc_util.print_trace(2,'End OKC_CONTRACT_PUB.update_contract_line:Status'||l_return_status);
904: END IF;
905:
906:
907: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

Line 918: okc_util.print_trace(2,'Start OKC_PHL_PVT.update_row');

914:
915: IF l_ph_line_breaks_tbl.count > 0 then
916:
917: IF (l_debug = 'Y') THEN
918: okc_util.print_trace(2,'Start OKC_PHL_PVT.update_row');
919: END IF;
920: OKC_PHL_PVT.update_row( p_api_version => 1.0,
921: p_init_msg_list => FND_API.G_FALSE,
922: x_return_status => l_return_status,

Line 928: okc_util.print_trace(2,'End OKC_PHL_PVT.update_row:Status'||l_return_status);

924: x_msg_data => x_msg_data,
925: p_okc_ph_line_breaks_v_tbl =>l_ph_line_breaks_tbl,
926: x_okc_ph_line_breaks_v_tbl =>lx_ph_line_breaks_tbl);
927: IF (l_debug = 'Y') THEN
928: okc_util.print_trace(2,'End OKC_PHL_PVT.update_row:Status'||l_return_status);
929: END IF;
930:
931:
932: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

Line 964: okc_util.print_trace(2,'Profile Option QP_SOURCE_SYSTEM_CODE set to OKC');

960:
961: --Setting the QP system Profile Option to OKC.so that Modifer cannot be updated from QP screens.
962:
963: IF (l_debug = 'Y') THEN
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;

Line 975: okc_util.print_trace(2,'Calling QP_Modifiers_proces_modifiers');

971: IF l_call_qp_api THEN
972:
973:
974: IF (l_debug = 'Y') THEN
975: okc_util.print_trace(2,'Calling QP_Modifiers_proces_modifiers');
976: END IF;
977:
978: QP_Modifiers_PUB.Process_Modifiers (p_api_version_number => 1.0
979: ,p_init_msg_list => FND_API.G_FALSE

Line 999: okc_util.print_trace(2,'Exited QP_Modifiers_proces_modifiers, Status '||l_return_status);

995: ,x_PRICING_ATTR_tbl => l_x_PRICING_ATTR_tbl
996: ,x_PRICING_ATTR_val_tbl => l_x_PRICING_ATTR_val_tbl
997: );
998: IF (l_debug = 'Y') THEN
999: okc_util.print_trace(2,'Exited QP_Modifiers_proces_modifiers, Status '||l_return_status);
1000: okc_util.print_trace(2,'List Header Id '||l_x_MODIFIER_LIST_rec.list_header_id);
1001: END IF;
1002:
1003: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

Line 1000: okc_util.print_trace(2,'List Header Id '||l_x_MODIFIER_LIST_rec.list_header_id);

996: ,x_PRICING_ATTR_val_tbl => l_x_PRICING_ATTR_val_tbl
997: );
998: IF (l_debug = 'Y') THEN
999: okc_util.print_trace(2,'Exited QP_Modifiers_proces_modifiers, Status '||l_return_status);
1000: okc_util.print_trace(2,'List Header Id '||l_x_MODIFIER_LIST_rec.list_header_id);
1001: END IF;
1002:
1003: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 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);

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:
1261: OPEN c_ph_lines(p_cle_id);
1262: LOOP

Line 1274: okc_util.print_trace(2,'List Line Id'||l_ph_lines.ph_qp_reference_id||' Start Date '||l_ph_lines.start_date||' End Date '||l_ph_lines.end_date);

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;
1273: IF (l_debug = 'Y') THEN
1274: okc_util.print_trace(2,'List Line Id'||l_ph_lines.ph_qp_reference_id||' Start Date '||l_ph_lines.start_date||' End Date '||l_ph_lines.end_date);
1275: END IF;
1276: OPEN c_ph_line_break(p_cle_id);
1277: LOOP
1278: FETCH c_ph_line_break into l_ph_line_breaks;

Line 1288: okc_util.print_trace(3,'List Line Id'||l_ph_line_breaks.qp_reference_id||' Start Date '||l_ph_lines.start_date||' End Date '||l_ph_lines.end_date);

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;
1287: IF (l_debug = 'Y') THEN
1288: okc_util.print_trace(3,'List Line Id'||l_ph_line_breaks.qp_reference_id||' Start Date '||l_ph_lines.start_date||' End Date '||l_ph_lines.end_date);
1289: END IF;
1290: END LOOP;
1291: CLOSE c_ph_line_break;
1292: END LOOP;

Line 1302: okc_util.print_trace(2,'Calling QP_Modifiers_proces_modifiers');

1298: fnd_profile.put('QP_SOURCE_SYSTEM_CODE','OKC');
1299: --Setting the QP system Profile Option to OKC.so that Modifer cannot be updated from QP screens.
1300:
1301: IF (l_debug = 'Y') THEN
1302: okc_util.print_trace(2,'Calling QP_Modifiers_proces_modifiers');
1303: END IF;
1304:
1305:
1306: QP_Modifiers_PUB.Process_Modifiers (p_api_version_number => 1.0

Line 1328: okc_util.print_trace(2,'Exited QP_Modifiers_proces_modifiers, Status '||l_return_status);

1324: ,x_PRICING_ATTR_val_tbl => l_x_PRICING_ATTR_val_tbl
1325: );
1326:
1327: IF (l_debug = 'Y') THEN
1328: okc_util.print_trace(2,'Exited QP_Modifiers_proces_modifiers, Status '||l_return_status);
1329: okc_util.print_trace(2,'List Header Id '||l_x_MODIFIER_LIST_rec.list_header_id);
1330: END IF;
1331:
1332: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

Line 1329: okc_util.print_trace(2,'List Header Id '||l_x_MODIFIER_LIST_rec.list_header_id);

1325: );
1326:
1327: IF (l_debug = 'Y') THEN
1328: okc_util.print_trace(2,'Exited QP_Modifiers_proces_modifiers, Status '||l_return_status);
1329: okc_util.print_trace(2,'List Header Id '||l_x_MODIFIER_LIST_rec.list_header_id);
1330: END IF;
1331:
1332: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;