36:
37:
38: -- Set record return status.
39:
40: l_QUALIFIER_RULES_rec.return_status := FND_API.G_RET_STS_SUCCESS;
41:
42: -- Prepare record.
43:
44: IF l_QUALIFIER_RULES_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
42: -- Prepare record.
43:
44: IF l_QUALIFIER_RULES_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
45:
46: l_QUALIFIER_RULES_rec.db_flag := FND_API.G_FALSE;
47:
48: -- Set missing old record elements to NULL.
49:
50: --oe_debug_pub.add('setting missing old record to null');
55: ELSIF l_QUALIFIER_RULES_rec.operation = QP_GLOBALS.G_OPR_UPDATE
56: OR l_QUALIFIER_RULES_rec.operation = QP_GLOBALS.G_OPR_DELETE
57: THEN
58:
59: l_QUALIFIER_RULES_rec.db_flag := FND_API.G_TRUE;
60:
61: -- Query Old if missing
62:
63: IF l_old_QUALIFIER_RULES_rec.qualifier_rule_id = FND_API.G_MISS_NUM
59: l_QUALIFIER_RULES_rec.db_flag := FND_API.G_TRUE;
60:
61: -- Query Old if missing
62:
63: IF l_old_QUALIFIER_RULES_rec.qualifier_rule_id = FND_API.G_MISS_NUM
64: THEN
65:
66: l_old_QUALIFIER_RULES_rec := QP_Qualifier_Rules_Util.Query_Row
67: ( p_qualifier_rule_id => l_QUALIFIER_RULES_rec.qualifier_rule_id
98: IF l_control_rec.default_attributes
99: OR l_control_rec.change_attributes
100: THEN
101:
102: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
103:
104: --oe_debug_pub.add('executing QP_validate.attributes');
105: --oe_debug_pub.add('name '||l_QUALIFIER_RULES_rec.name);
106: --oe_debug_pub.add('desc '||l_QUALIFIER_RULES_rec.description);
124: --oe_debug_pub.add('after executing QP_validate.attributes ,status is '|| l_return_status);
125: --dbms_output.put_line('after executing QP_validate.attributes ,status is '|| l_return_status);
126:
127:
128: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
129: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
130: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
131: RAISE FND_API.G_EXC_ERROR;
132: END IF;
125: --dbms_output.put_line('after executing QP_validate.attributes ,status is '|| l_return_status);
126:
127:
128: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
129: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
130: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
131: RAISE FND_API.G_EXC_ERROR;
132: END IF;
133:
126:
127:
128: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
129: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
130: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
131: RAISE FND_API.G_EXC_ERROR;
132: END IF;
133:
134: END IF;
127:
128: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
129: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
130: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
131: RAISE FND_API.G_EXC_ERROR;
132: END IF;
133:
134: END IF;
135:
207: );
208:
209: END IF;
210:
211: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
213: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
214: RAISE FND_API.G_EXC_ERROR;
215: END IF;
208:
209: END IF;
210:
211: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
213: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
214: RAISE FND_API.G_EXC_ERROR;
215: END IF;
216:
209: END IF;
210:
211: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
213: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
214: RAISE FND_API.G_EXC_ERROR;
215: END IF;
216:
217: END IF;
210:
211: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
213: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
214: RAISE FND_API.G_EXC_ERROR;
215: END IF;
216:
217: END IF;
218:
264:
265:
266: EXCEPTION
267:
268: WHEN FND_API.G_EXC_ERROR THEN
269:
270: l_QUALIFIER_RULES_rec.return_status := FND_API.G_RET_STS_ERROR;
271: x_QUALIFIER_RULES_rec := l_QUALIFIER_RULES_rec;
272: x_old_QUALIFIER_RULES_rec := l_old_QUALIFIER_RULES_rec;
266: EXCEPTION
267:
268: WHEN FND_API.G_EXC_ERROR THEN
269:
270: l_QUALIFIER_RULES_rec.return_status := FND_API.G_RET_STS_ERROR;
271: x_QUALIFIER_RULES_rec := l_QUALIFIER_RULES_rec;
272: x_old_QUALIFIER_RULES_rec := l_old_QUALIFIER_RULES_rec;
273:
274: -- mkarya If process_qualifier_rules has been called from public package, then ONLY
282:
283: RAISE;
284:
285:
286: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
287:
288: l_QUALIFIER_RULES_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
289: x_QUALIFIER_RULES_rec := l_QUALIFIER_RULES_rec;
290: x_old_QUALIFIER_RULES_rec := l_old_QUALIFIER_RULES_rec;
284:
285:
286: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
287:
288: l_QUALIFIER_RULES_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
289: x_QUALIFIER_RULES_rec := l_QUALIFIER_RULES_rec;
290: x_old_QUALIFIER_RULES_rec := l_old_QUALIFIER_RULES_rec;
291:
292: -- mkarya If process_qualifier_rules has been called from public package, then ONLY
309: , 'Qualifier_Rules'
310: );
311: END IF;
312:
313: l_QUALIFIER_RULES_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
314: x_QUALIFIER_RULES_rec := l_QUALIFIER_RULES_rec;
315: x_old_QUALIFIER_RULES_rec := l_old_QUALIFIER_RULES_rec;
316:
317: -- mkarya If process_qualifier_rules has been called from public package, then ONLY
322: p_entity_id => l_QUALIFIER_RULES_rec.qualifier_rule_id,
323: x_return_status => l_return_status);
324: end if;
325:
326: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
327:
328: END Qualifier_Rules;
329:
330: -- Qualifierss
391: );
392:
393: -- Set record return status.
394:
395: l_QUALIFIERS_rec.return_status := FND_API.G_RET_STS_SUCCESS;
396:
397: -- Prepare record.
398:
399: IF l_QUALIFIERS_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
397: -- Prepare record.
398:
399: IF l_QUALIFIERS_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
400:
401: l_QUALIFIERS_rec.db_flag := FND_API.G_FALSE;
402:
403: -- Set missing old record elements to NULL.
404:
405: --dbms_output.put_line('caliing miss to null');
415: ELSIF l_QUALIFIERS_rec.operation = QP_GLOBALS.G_OPR_UPDATE
416: OR l_QUALIFIERS_rec.operation = QP_GLOBALS.G_OPR_DELETE
417: THEN
418:
419: l_QUALIFIERS_rec.db_flag := FND_API.G_TRUE;
420:
421: -- Query Old if missing
422:
423: IF l_old_QUALIFIERS_rec.qualifier_id = FND_API.G_MISS_NUM
419: l_QUALIFIERS_rec.db_flag := FND_API.G_TRUE;
420:
421: -- Query Old if missing
422:
423: IF l_old_QUALIFIERS_rec.qualifier_id = FND_API.G_MISS_NUM
424: THEN
425:
426: l_old_QUALIFIERS_rec := QP_Qualifiers_Util.Query_Row
427: ( p_qualifier_id => l_QUALIFIERS_rec.qualifier_id
452: IF l_control_rec.default_attributes
453: OR l_control_rec.change_attributes
454: THEN
455:
456: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
457:
458: --dbms_output.put_line('validating record');
459: oe_debug_pub.add('validating record by attributes');
460:
463: , p_QUALIFIERS_rec => l_QUALIFIERS_rec
464: , p_old_QUALIFIERS_rec => l_old_QUALIFIERS_rec
465: );
466:
467: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
468: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
469: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
470: RAISE FND_API.G_EXC_ERROR;
471: END IF;
464: , p_old_QUALIFIERS_rec => l_old_QUALIFIERS_rec
465: );
466:
467: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
468: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
469: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
470: RAISE FND_API.G_EXC_ERROR;
471: END IF;
472:
465: );
466:
467: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
468: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
469: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
470: RAISE FND_API.G_EXC_ERROR;
471: END IF;
472:
473: END IF;
466:
467: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
468: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
469: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
470: RAISE FND_API.G_EXC_ERROR;
471: END IF;
472:
473: END IF;
474:
553:
554: --dbms_output.put_line('qualifiers entity validation status '||l_return_status);
555: END IF;
556:
557: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
559: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
560: RAISE FND_API.G_EXC_ERROR;
561: END IF;
554: --dbms_output.put_line('qualifiers entity validation status '||l_return_status);
555: END IF;
556:
557: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
559: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
560: RAISE FND_API.G_EXC_ERROR;
561: END IF;
562:
555: END IF;
556:
557: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
559: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
560: RAISE FND_API.G_EXC_ERROR;
561: END IF;
562:
563: END IF;
556:
557: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
559: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
560: RAISE FND_API.G_EXC_ERROR;
561: END IF;
562:
563: END IF;
564:
623:
624:
625: EXCEPTION
626:
627: WHEN FND_API.G_EXC_ERROR THEN
628:
629: l_QUALIFIERS_rec.return_status := FND_API.G_RET_STS_ERROR;
630: l_QUALIFIERS_tbl(I) := l_QUALIFIERS_rec;
631: l_old_QUALIFIERS_tbl(I) := l_old_QUALIFIERS_rec;
625: EXCEPTION
626:
627: WHEN FND_API.G_EXC_ERROR THEN
628:
629: l_QUALIFIERS_rec.return_status := FND_API.G_RET_STS_ERROR;
630: l_QUALIFIERS_tbl(I) := l_QUALIFIERS_rec;
631: l_old_QUALIFIERS_tbl(I) := l_old_QUALIFIERS_rec;
632:
633: -- mkarya If process_qualifier_rules has been called from public package, then ONLY
648: p_entity_id => l_QUALIFIERS_rec.qualifier_id,
649: x_return_status => l_return_status);
650: end if;
651:
652: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
653:
654: l_QUALIFIERS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
655: l_QUALIFIERS_tbl(I) := l_QUALIFIERS_rec;
656: l_old_QUALIFIERS_tbl(I) := l_old_QUALIFIERS_rec;
650: end if;
651:
652: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
653:
654: l_QUALIFIERS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
655: l_QUALIFIERS_tbl(I) := l_QUALIFIERS_rec;
656: l_old_QUALIFIERS_tbl(I) := l_old_QUALIFIERS_rec;
657:
658: -- mkarya If process_qualifier_rules has been called from public package, then ONLY
673: p_entity_id => l_QUALIFIERS_rec.qualifier_id,
674: x_return_status => l_return_status);
675: end if;
676:
677: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
678:
679: WHEN OTHERS THEN
680:
681: l_QUALIFIERS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
677: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
678:
679: WHEN OTHERS THEN
680:
681: l_QUALIFIERS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
682: l_QUALIFIERS_tbl(I) := l_QUALIFIERS_rec;
683: l_old_QUALIFIERS_tbl(I) := l_old_QUALIFIERS_rec;
684:
685: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
708: p_entity_id => l_QUALIFIERS_rec.qualifier_id,
709: x_return_status => l_return_status);
710: end if;
711:
712: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
713:
714: END;
715: END LOOP;
716:
720: x_old_QUALIFIERS_tbl := l_old_QUALIFIERS_tbl;
721:
722: EXCEPTION
723:
724: WHEN FND_API.G_EXC_ERROR THEN
725:
726: RAISE;
727:
728: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
724: WHEN FND_API.G_EXC_ERROR THEN
725:
726: RAISE;
727:
728: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
729:
730:
731: RAISE;
732:
740: );
741: END IF;
742:
743:
744: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
745:
746: END Qualifierss;
747:
748: -- Start of Comments
762: -- End of Comments
763:
764: PROCEDURE Process_Qualifier_Rules
765: ( p_api_version_number IN NUMBER
766: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
767: , p_commit IN VARCHAR2 := FND_API.G_FALSE
768: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
769: , p_control_rec IN QP_GLOBALS.Control_Rec_Type :=
770: QP_GLOBALS.G_MISS_CONTROL_REC
763:
764: PROCEDURE Process_Qualifier_Rules
765: ( p_api_version_number IN NUMBER
766: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
767: , p_commit IN VARCHAR2 := FND_API.G_FALSE
768: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
769: , p_control_rec IN QP_GLOBALS.Control_Rec_Type :=
770: QP_GLOBALS.G_MISS_CONTROL_REC
771: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
764: PROCEDURE Process_Qualifier_Rules
765: ( p_api_version_number IN NUMBER
766: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
767: , p_commit IN VARCHAR2 := FND_API.G_FALSE
768: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
769: , p_control_rec IN QP_GLOBALS.Control_Rec_Type :=
770: QP_GLOBALS.G_MISS_CONTROL_REC
771: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
772: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
808:
809:
810: -- Standard call to check for call compatibility
811:
812: IF NOT FND_API.Compatible_API_Call
813: ( l_api_version_number
814: , p_api_version_number
815: , l_api_name
816: , G_PKG_NAME
815: , l_api_name
816: , G_PKG_NAME
817: )
818: THEN
819: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
820: END IF;
821:
822: -- Initialize message list.
823:
820: END IF;
821:
822: -- Initialize message list.
823:
824: IF FND_API.to_Boolean(p_init_msg_list) THEN
825: OE_MSG_PUB.initialize;
826: END IF;
827:
828: -- Init local table variables.
876:
877:
878: IF l_QUALIFIERS_rec.operation = QP_GLOBALS.G_OPR_CREATE
879: AND (l_QUALIFIERS_rec.qualifier_rule_id IS NULL OR
880: l_QUALIFIERS_rec.qualifier_rule_id = FND_API.G_MISS_NUM)
881: THEN
882:
883: -- Copy parent_id.
884:
964: --when a < 1 qualifier is created in same group with same
965: --context and attribute from a pricelist or modifier
966: QP_DELAYED_REQUESTS_PVT.Process_Request_for_entity
967: (p_entity_code => QP_GLOBALS.G_ENTITY_QUALIFIERS
968: ,p_delete => FND_API.G_TRUE
969: ,x_return_status => l_return_status
970: );
971: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
967: (p_entity_code => QP_GLOBALS.G_ENTITY_QUALIFIERS
968: ,p_delete => FND_API.G_TRUE
969: ,x_return_status => l_return_status
970: );
971: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
973: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
974: RAISE FND_API.G_EXC_ERROR;
975: END IF;
968: ,p_delete => FND_API.G_TRUE
969: ,x_return_status => l_return_status
970: );
971: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
973: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
974: RAISE FND_API.G_EXC_ERROR;
975: END IF;
976: NULL;
969: ,x_return_status => l_return_status
970: );
971: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
973: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
974: RAISE FND_API.G_EXC_ERROR;
975: END IF;
976: NULL;
977:
970: );
971: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
973: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
974: RAISE FND_API.G_EXC_ERROR;
975: END IF;
976: NULL;
977:
978: END IF;
994: QP_DELAYED_REQUESTS_PVT.Process_Delayed_Requests
995: (
996: x_return_status => l_return_status
997: );
998: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
999: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1000: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1001: RAISE FND_API.G_EXC_ERROR;
1002: END IF;
995: (
996: x_return_status => l_return_status
997: );
998: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
999: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1000: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1001: RAISE FND_API.G_EXC_ERROR;
1002: END IF;
1003:
996: x_return_status => l_return_status
997: );
998: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
999: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1000: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1001: RAISE FND_API.G_EXC_ERROR;
1002: END IF;
1003:
1004: END IF;
997: );
998: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
999: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1000: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1001: RAISE FND_API.G_EXC_ERROR;
1002: END IF;
1003:
1004: END IF;
1005: oe_debug_pub.add('after if delayed req for list_qual_ind');
1026: END IF;
1027:
1028: -- Derive return status.
1029:
1030: x_return_status := FND_API.G_RET_STS_SUCCESS;
1031:
1032: IF l_QUALIFIER_RULES_rec.return_status = FND_API.G_RET_STS_ERROR THEN
1033: x_return_status := FND_API.G_RET_STS_ERROR;
1034: END IF;
1028: -- Derive return status.
1029:
1030: x_return_status := FND_API.G_RET_STS_SUCCESS;
1031:
1032: IF l_QUALIFIER_RULES_rec.return_status = FND_API.G_RET_STS_ERROR THEN
1033: x_return_status := FND_API.G_RET_STS_ERROR;
1034: END IF;
1035:
1036: FOR I IN 1..l_QUALIFIERS_tbl.COUNT LOOP
1029:
1030: x_return_status := FND_API.G_RET_STS_SUCCESS;
1031:
1032: IF l_QUALIFIER_RULES_rec.return_status = FND_API.G_RET_STS_ERROR THEN
1033: x_return_status := FND_API.G_RET_STS_ERROR;
1034: END IF;
1035:
1036: FOR I IN 1..l_QUALIFIERS_tbl.COUNT LOOP
1037:
1034: END IF;
1035:
1036: FOR I IN 1..l_QUALIFIERS_tbl.COUNT LOOP
1037:
1038: IF l_QUALIFIERS_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
1039: x_return_status := FND_API.G_RET_STS_ERROR;
1040: END IF;
1041:
1042: END LOOP;
1035:
1036: FOR I IN 1..l_QUALIFIERS_tbl.COUNT LOOP
1037:
1038: IF l_QUALIFIERS_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
1039: x_return_status := FND_API.G_RET_STS_ERROR;
1040: END IF;
1041:
1042: END LOOP;
1043:
1053:
1054: EXCEPTION
1055:
1056:
1057: WHEN FND_API.G_EXC_ERROR THEN
1058:
1059: x_return_status := FND_API.G_RET_STS_ERROR;
1060:
1061: -- mkarya If process_qualifier_rules has been called from public package, then ONLY
1055:
1056:
1057: WHEN FND_API.G_EXC_ERROR THEN
1058:
1059: x_return_status := FND_API.G_RET_STS_ERROR;
1060:
1061: -- mkarya If process_qualifier_rules has been called from public package, then ONLY
1062: -- call clear_request
1063: if p_control_rec.called_from_ui = 'N' then
1071: ( p_count => x_msg_count
1072: , p_data => x_msg_data
1073: );
1074:
1075: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1076:
1077: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1078:
1079: -- mkarya If process_qualifier_rules has been called from public package, then ONLY
1073: );
1074:
1075: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1076:
1077: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1078:
1079: -- mkarya If process_qualifier_rules has been called from public package, then ONLY
1080: -- call clear_request
1081: if p_control_rec.called_from_ui = 'N' then
1091: );
1092:
1093: WHEN OTHERS THEN
1094:
1095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1096:
1097: -- mkarya If process_qualifier_rules has been called from public package, then ONLY
1098: -- call clear_request
1099: if p_control_rec.called_from_ui = 'N' then
1136: -- End of Comments
1137:
1138: PROCEDURE Lock_Qualifier_Rules
1139: ( p_api_version_number IN NUMBER
1140: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1141: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1142: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
1143: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1144: , p_QUALIFIER_RULES_rec IN QP_Qualifier_Rules_PUB.Qualifier_Rules_Rec_Type :=
1150: )
1151: IS
1152: l_api_version_number CONSTANT NUMBER := 1.0;
1153: l_api_name CONSTANT VARCHAR2(30):= 'Lock_Qualifier_Rules';
1154: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1155: l_QUALIFIERS_rec QP_Qualifier_Rules_PUB.Qualifiers_Rec_Type;
1156: BEGIN
1157:
1158: -- Standard call to check for call compatibility
1156: BEGIN
1157:
1158: -- Standard call to check for call compatibility
1159:
1160: IF NOT FND_API.Compatible_API_Call
1161: ( l_api_version_number
1162: , p_api_version_number
1163: , l_api_name
1164: , G_PKG_NAME
1163: , l_api_name
1164: , G_PKG_NAME
1165: )
1166: THEN
1167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1168: END IF;
1169:
1170: -- Initialize message list.
1171:
1168: END IF;
1169:
1170: -- Initialize message list.
1171:
1172: IF FND_API.to_Boolean(p_init_msg_list) THEN
1173: OE_MSG_PUB.initialize;
1174: END IF;
1175:
1176: -- Set Savepoint
1186: , x_QUALIFIER_RULES_rec => x_QUALIFIER_RULES_rec
1187: , x_return_status => l_return_status
1188: );
1189:
1190: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1191: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1192: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1193: RAISE FND_API.G_EXC_ERROR;
1194: END IF;
1187: , x_return_status => l_return_status
1188: );
1189:
1190: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1191: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1192: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1193: RAISE FND_API.G_EXC_ERROR;
1194: END IF;
1195:
1188: );
1189:
1190: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1191: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1192: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1193: RAISE FND_API.G_EXC_ERROR;
1194: END IF;
1195:
1196:
1189:
1190: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1191: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1192: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1193: RAISE FND_API.G_EXC_ERROR;
1194: END IF;
1195:
1196:
1197: END IF;
1207: , x_QUALIFIERS_rec => l_QUALIFIERS_rec
1208: , x_return_status => l_return_status
1209: );
1210:
1211: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1213: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1214: RAISE FND_API.G_EXC_ERROR;
1215: END IF;
1208: , x_return_status => l_return_status
1209: );
1210:
1211: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1213: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1214: RAISE FND_API.G_EXC_ERROR;
1215: END IF;
1216:
1209: );
1210:
1211: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1213: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1214: RAISE FND_API.G_EXC_ERROR;
1215: END IF;
1216:
1217: x_QUALIFIERS_tbl(I) := l_QUALIFIERS_rec;
1210:
1211: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1213: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1214: RAISE FND_API.G_EXC_ERROR;
1215: END IF;
1216:
1217: x_QUALIFIERS_tbl(I) := l_QUALIFIERS_rec;
1218:
1221: END LOOP;
1222:
1223: -- Set return status
1224:
1225: x_return_status := FND_API.G_RET_STS_SUCCESS;
1226:
1227: -- Get message count and data
1228:
1229: OE_MSG_PUB.Count_And_Get
1233:
1234:
1235: EXCEPTION
1236:
1237: WHEN FND_API.G_EXC_ERROR THEN
1238:
1239: x_return_status := FND_API.G_RET_STS_ERROR;
1240:
1241: -- Get message count and data
1235: EXCEPTION
1236:
1237: WHEN FND_API.G_EXC_ERROR THEN
1238:
1239: x_return_status := FND_API.G_RET_STS_ERROR;
1240:
1241: -- Get message count and data
1242:
1243: OE_MSG_PUB.Count_And_Get
1248: -- Rollback
1249:
1250: ROLLBACK TO Lock_Qualifier_Rules_PVT;
1251:
1252: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1253:
1254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1255:
1256: -- Get message count and data
1250: ROLLBACK TO Lock_Qualifier_Rules_PVT;
1251:
1252: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1253:
1254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1255:
1256: -- Get message count and data
1257:
1258: OE_MSG_PUB.Count_And_Get
1265: ROLLBACK TO Lock_Qualifier_Rules_PVT;
1266:
1267: WHEN OTHERS THEN
1268:
1269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1270:
1271: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1272: THEN
1273: OE_MSG_PUB.Add_Exc_Msg
1306: -- End of Comments
1307:
1308: PROCEDURE Get_Qualifier_Rules
1309: ( p_api_version_number IN NUMBER
1310: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1311: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1312: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
1313: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1314: , p_qualifier_rule_id IN NUMBER
1323: BEGIN
1324:
1325: -- Standard call to check for call compatibility
1326:
1327: IF NOT FND_API.Compatible_API_Call
1328: ( l_api_version_number
1329: , p_api_version_number
1330: , l_api_name
1331: , G_PKG_NAME
1330: , l_api_name
1331: , G_PKG_NAME
1332: )
1333: THEN
1334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1335: END IF;
1336:
1337: -- Initialize message list.
1338:
1335: END IF;
1336:
1337: -- Initialize message list.
1338:
1339: IF FND_API.to_Boolean(p_init_msg_list) THEN
1340: OE_MSG_PUB.initialize;
1341: END IF;
1342:
1343: -- Get QUALIFIER_RULES ( parent = QUALIFIER_RULES )
1359: x_QUALIFIERS_tbl := l_QUALIFIERS_tbl;
1360:
1361: -- Set return status
1362:
1363: x_return_status := FND_API.G_RET_STS_SUCCESS;
1364:
1365: -- Get message count and data
1366:
1367: OE_MSG_PUB.Count_And_Get
1371:
1372:
1373: EXCEPTION
1374:
1375: WHEN FND_API.G_EXC_ERROR THEN
1376:
1377: x_return_status := FND_API.G_RET_STS_ERROR;
1378:
1379: -- Get message count and data
1373: EXCEPTION
1374:
1375: WHEN FND_API.G_EXC_ERROR THEN
1376:
1377: x_return_status := FND_API.G_RET_STS_ERROR;
1378:
1379: -- Get message count and data
1380:
1381: OE_MSG_PUB.Count_And_Get
1382: ( p_count => x_msg_count
1383: , p_data => x_msg_data
1384: );
1385:
1386: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1387:
1388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1389:
1390: -- Get message count and data
1384: );
1385:
1386: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1387:
1388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1389:
1390: -- Get message count and data
1391:
1392: OE_MSG_PUB.Count_And_Get
1395: );
1396:
1397: WHEN OTHERS THEN
1398:
1399: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1400:
1401: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1402: THEN
1403: OE_MSG_PUB.Add_Exc_Msg
1435:
1436:
1437: PROCEDURE Copy_Qualifier_Rule
1438: ( p_api_version_number IN NUMBER
1439: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1440: , p_commit IN VARCHAR2 := FND_API.G_FALSE
1441: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1442: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
1443: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1436:
1437: PROCEDURE Copy_Qualifier_Rule
1438: ( p_api_version_number IN NUMBER
1439: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1440: , p_commit IN VARCHAR2 := FND_API.G_FALSE
1441: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1442: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
1443: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1444: , p_qualifier_rule_id IN NUMBER := FND_API.G_MISS_NUM
1440: , p_commit IN VARCHAR2 := FND_API.G_FALSE
1441: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1442: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
1443: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1444: , p_qualifier_rule_id IN NUMBER := FND_API.G_MISS_NUM
1445: , p_to_qualifier_rule IN VARCHAR2 :=FND_API.G_MISS_CHAR
1446: , p_to_description IN VARCHAR2 := FND_API.G_MISS_CHAR
1447: , x_qualifier_rule_id OUT NOCOPY /* file.sql.39 change */ NUMBER
1448: ) IS
1441: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1442: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
1443: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1444: , p_qualifier_rule_id IN NUMBER := FND_API.G_MISS_NUM
1445: , p_to_qualifier_rule IN VARCHAR2 :=FND_API.G_MISS_CHAR
1446: , p_to_description IN VARCHAR2 := FND_API.G_MISS_CHAR
1447: , x_qualifier_rule_id OUT NOCOPY /* file.sql.39 change */ NUMBER
1448: ) IS
1449:
1442: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
1443: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1444: , p_qualifier_rule_id IN NUMBER := FND_API.G_MISS_NUM
1445: , p_to_qualifier_rule IN VARCHAR2 :=FND_API.G_MISS_CHAR
1446: , p_to_description IN VARCHAR2 := FND_API.G_MISS_CHAR
1447: , x_qualifier_rule_id OUT NOCOPY /* file.sql.39 change */ NUMBER
1448: ) IS
1449:
1450:
1459: l_p_QUALIFIERS_tbl QP_Qualifier_Rules_PUB.Qualifiers_Tbl_Type;
1460: l_control_rec QP_GLOBALS.Control_Rec_Type;
1461: l_api_version_number CONSTANT NUMBER := 1.0;
1462: l_api_name CONSTANT VARCHAR2(30):= 'Copy_Qualifier_Rule';
1463: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1464:
1465: BEGIN
1466:
1467:
1466:
1467:
1468: -- Standard call to check for call compatibility
1469:
1470: IF NOT FND_API.Compatible_API_Call
1471: ( l_api_version_number
1472: , p_api_version_number
1473: , l_api_name
1474: , G_PKG_NAME
1473: , l_api_name
1474: , G_PKG_NAME
1475: )
1476: THEN
1477: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1478: END IF;
1479:
1480: -- Initialize message list.
1481:
1478: END IF;
1479:
1480: -- Initialize message list.
1481:
1482: IF FND_API.to_Boolean(p_init_msg_list) THEN
1483: OE_MSG_PUB.initialize;
1484: END IF;
1485:
1486: --Get qualifer rule ,qualifier details for the given qualifier rule id
1487:
1488:
1489: QP_Qualifier_Rules_PVT.Get_Qualifier_Rules
1490: ( p_api_version_number =>1.0
1491: , p_init_msg_list => FND_API.G_FALSE
1492: , x_return_status =>l_return_status
1493: , x_msg_count =>x_msg_count
1494: , x_msg_data =>x_msg_data
1495: , p_qualifier_rule_id =>p_qualifier_rule_id
1518:
1519: --dbms_output.put_line('id :' ||l_QUALIFIERS_rec.qualifier_id);
1520: --dbms_output.put_line('rule id :' ||l_QUALIFIERS_rec.qualifier_rule_id);
1521: l_QUALIFIERS_tbl(i).operation := QP_GLOBALS.G_OPR_CREATE;
1522: l_QUALIFIERS_tbl(i).qualifier_id :=FND_API.G_MISS_NUM;
1523: l_QUALIFIERS_tbl(i).qualifier_rule_id :=FND_API.G_MISS_NUM;
1524:
1525: END LOOP;
1526:
1519: --dbms_output.put_line('id :' ||l_QUALIFIERS_rec.qualifier_id);
1520: --dbms_output.put_line('rule id :' ||l_QUALIFIERS_rec.qualifier_rule_id);
1521: l_QUALIFIERS_tbl(i).operation := QP_GLOBALS.G_OPR_CREATE;
1522: l_QUALIFIERS_tbl(i).qualifier_id :=FND_API.G_MISS_NUM;
1523: l_QUALIFIERS_tbl(i).qualifier_rule_id :=FND_API.G_MISS_NUM;
1524:
1525: END LOOP;
1526:
1527: -- call Process qualifiers for inserting new qualifier rule and qualifiers in QP_QUALIFIERS
1529: l_p_QUALIFIERS_tbl := l_QUALIFIERS_tbl;
1530: QP_Qualifier_Rules_PVT.Process_Qualifier_Rules
1531: ( p_api_version_number => 1.0
1532: , p_init_msg_list => p_init_msg_list
1533: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1534: , p_commit => p_commit
1535: , x_return_status => x_return_status
1536: , x_msg_count => x_msg_count
1537: , x_msg_data => x_msg_data
1549:
1550:
1551: -- Set return status
1552:
1553: x_return_status := FND_API.G_RET_STS_SUCCESS;
1554:
1555: -- Get message count and data
1556:
1557: OE_MSG_PUB.Count_And_Get
1561:
1562:
1563: EXCEPTION
1564:
1565: WHEN FND_API.G_EXC_ERROR THEN
1566:
1567: x_return_status := FND_API.G_RET_STS_ERROR;
1568:
1569: -- Get message count and data
1563: EXCEPTION
1564:
1565: WHEN FND_API.G_EXC_ERROR THEN
1566:
1567: x_return_status := FND_API.G_RET_STS_ERROR;
1568:
1569: -- Get message count and data
1570:
1571: OE_MSG_PUB.Count_And_Get
1572: ( p_count => x_msg_count
1573: , p_data => x_msg_data
1574: );
1575:
1576: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1577:
1578: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1579:
1580: -- Get message count and data
1574: );
1575:
1576: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1577:
1578: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1579:
1580: -- Get message count and data
1581:
1582: OE_MSG_PUB.Count_And_Get
1585: );
1586:
1587: WHEN OTHERS THEN
1588:
1589: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1590:
1591: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1592: THEN
1593: OE_MSG_PUB.Add_Exc_Msg
1631: l_x_QUALIFIERS_rec QP_Qualifier_Rules_PUB.Qualifiers_Rec_Type ;
1632: l_x_QUALIFIER_RULES_rec QP_Qualifier_Rules_PUB.Qualifier_Rules_Rec_Type ;
1633: l_x_QUALIFIER_RULES_val_rec QP_Qualifier_Rules_PUB.Qualifier_Rules_Val_Rec_Type;
1634: l_return_status VARCHAR2(1);
1635: l_return_values VARCHAR2(1) := FND_API.G_FALSE;
1636: l_commit VARCHAR2(1) := FND_API.G_FALSE;
1637: l_msg_count NUMBER;
1638: l_msg_data VARCHAR2(250);
1639: l_qual_count NUMBER;
1632: l_x_QUALIFIER_RULES_rec QP_Qualifier_Rules_PUB.Qualifier_Rules_Rec_Type ;
1633: l_x_QUALIFIER_RULES_val_rec QP_Qualifier_Rules_PUB.Qualifier_Rules_Val_Rec_Type;
1634: l_return_status VARCHAR2(1);
1635: l_return_values VARCHAR2(1) := FND_API.G_FALSE;
1636: l_commit VARCHAR2(1) := FND_API.G_FALSE;
1637: l_msg_count NUMBER;
1638: l_msg_data VARCHAR2(250);
1639: l_qual_count NUMBER;
1640: l_old_qual_count NUMBER;
1643:
1644: oe_debug_pub.add('begin create_blanket_qual'||to_char(p_old_list_header_id)||'old'||to_char(p_list_header_id)||'new');
1645:
1646: IF p_list_header_id IS NOT NULL OR
1647: p_list_header_id <> FND_API.G_MISS_NUM THEN
1648:
1649: if p_operation = QP_GLOBALS.G_OPR_CREATE then
1650:
1651: oe_debug_pub.add('in if create : '||p_operation);
1662: l_control_rec.called_from_ui := 'Y';
1663:
1664: QP_Qualifier_Rules_PVT.Process_Qualifier_Rules
1665: ( p_api_version_number => 1.0
1666: , p_init_msg_list => FND_API.G_TRUE
1667: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1668: , p_commit => FND_API.G_FALSE
1669: , x_return_status => l_return_status
1670: , x_msg_count => l_msg_count
1663:
1664: QP_Qualifier_Rules_PVT.Process_Qualifier_Rules
1665: ( p_api_version_number => 1.0
1666: , p_init_msg_list => FND_API.G_TRUE
1667: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1668: , p_commit => FND_API.G_FALSE
1669: , x_return_status => l_return_status
1670: , x_msg_count => l_msg_count
1671: , x_msg_data => l_msg_data
1664: QP_Qualifier_Rules_PVT.Process_Qualifier_Rules
1665: ( p_api_version_number => 1.0
1666: , p_init_msg_list => FND_API.G_TRUE
1667: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1668: , p_commit => FND_API.G_FALSE
1669: , x_return_status => l_return_status
1670: , x_msg_count => l_msg_count
1671: , x_msg_data => l_msg_data
1672: , p_control_rec => l_control_rec
1727: l_control_rec.called_from_ui := 'Y';
1728:
1729: QP_Qualifier_Rules_PVT.Process_Qualifier_Rules
1730: ( p_api_version_number => 1.0
1731: , p_init_msg_list => FND_API.G_TRUE
1732: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1733: , p_commit => FND_API.G_FALSE
1734: , x_return_status => x_return_status
1735: , x_msg_count => l_msg_count
1728:
1729: QP_Qualifier_Rules_PVT.Process_Qualifier_Rules
1730: ( p_api_version_number => 1.0
1731: , p_init_msg_list => FND_API.G_TRUE
1732: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1733: , p_commit => FND_API.G_FALSE
1734: , x_return_status => x_return_status
1735: , x_msg_count => l_msg_count
1736: , x_msg_data => l_msg_data
1729: QP_Qualifier_Rules_PVT.Process_Qualifier_Rules
1730: ( p_api_version_number => 1.0
1731: , p_init_msg_list => FND_API.G_TRUE
1732: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1733: , p_commit => FND_API.G_FALSE
1734: , x_return_status => x_return_status
1735: , x_msg_count => l_msg_count
1736: , x_msg_data => l_msg_data
1737: , p_control_rec => l_control_rec
1783: , 'Create_Blanket_Qualifier'
1784: );
1785: END IF;
1786:
1787: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1788: -- Get message count and data
1789: OE_MSG_PUB.Count_And_Get
1790: ( p_count => l_msg_count
1791: , p_data => l_msg_data