115: -- Call QP_Modifiers_PVT.Process_Modifiers
116:
117: QP_Modifiers_PVT.Process_Modifiers
118: ( p_api_version_number => 1.0
119: , p_init_msg_list => FND_API.G_TRUE
120: , x_return_status => l_return_status
121: , x_msg_count => x_msg_count
122: , x_msg_data => x_msg_data
123: , p_control_rec => l_control_rec
127: , x_QUALIFIERS_tbl => l_x_QUALIFIERS_tbl
128: , x_PRICING_ATTR_tbl => l_x_PRICING_ATTR_tbl
129: );
130:
131: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
133: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
134: RAISE FND_API.G_EXC_ERROR;
135: END IF;
128: , x_PRICING_ATTR_tbl => l_x_PRICING_ATTR_tbl
129: );
130:
131: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
133: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
134: RAISE FND_API.G_EXC_ERROR;
135: END IF;
136:
129: );
130:
131: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
133: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
134: RAISE FND_API.G_EXC_ERROR;
135: END IF;
136:
137:
130:
131: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
133: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
134: RAISE FND_API.G_EXC_ERROR;
135: END IF;
136:
137:
138: -- Load OUT parameters.
160:
161:
162: -- Set return status.
163:
164: x_return_status := FND_API.G_RET_STS_SUCCESS;
165:
166: -- Get message count and data
167:
168: OE_MSG_PUB.Count_And_Get
172:
173:
174: EXCEPTION
175:
176: WHEN FND_API.G_EXC_ERROR THEN
177:
178: x_return_status := FND_API.G_RET_STS_ERROR;
179:
180: -- Get message count and data
174: EXCEPTION
175:
176: WHEN FND_API.G_EXC_ERROR THEN
177:
178: x_return_status := FND_API.G_RET_STS_ERROR;
179:
180: -- Get message count and data
181:
182: OE_MSG_PUB.Count_And_Get
183: ( p_count => x_msg_count
184: , p_data => x_msg_data
185: );
186:
187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
188:
189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
190:
191: -- Get message count and data
185: );
186:
187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
188:
189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
190:
191: -- Get message count and data
192:
193: OE_MSG_PUB.Count_And_Get
196: );
197:
198: WHEN OTHERS THEN
199:
200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
201:
202: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
203: THEN
204: OE_MSG_PUB.Add_Exc_Msg
319: -- Call QP_Price_Formula_PVT.Process_Price_Formula
320:
321: QP_Price_Formula_PVT.Process_Price_Formula
322: ( p_api_version_number => 1.0
323: , p_init_msg_list => FND_API.G_TRUE
324: , x_return_status => l_return_status
325: , x_msg_count => x_msg_count
326: , x_msg_data => x_msg_data
327: , p_control_rec => l_control_rec
329: , x_FORMULA_rec => l_x_FORMULA_rec
330: , x_FORMULA_LINES_tbl => l_x_FORMULA_LINES_tbl
331: );
332:
333: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
335: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
336: RAISE FND_API.G_EXC_ERROR;
337: END IF;
330: , x_FORMULA_LINES_tbl => l_x_FORMULA_LINES_tbl
331: );
332:
333: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
335: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
336: RAISE FND_API.G_EXC_ERROR;
337: END IF;
338:
331: );
332:
333: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
335: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
336: RAISE FND_API.G_EXC_ERROR;
337: END IF;
338:
339:
332:
333: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
335: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
336: RAISE FND_API.G_EXC_ERROR;
337: END IF;
338:
339:
340: -- Unload out tbl
385:
386: -- Write to cache.
387: -- Set db_flag to False before writing to cache
388:
389: l_x_FORMULA_LINES_rec.db_flag := FND_API.G_FALSE;
390:
391: Write_FORMULA_LINES
392: ( p_FORMULA_LINES_rec => l_x_FORMULA_LINES_rec
393: );
393: );
394:
395: -- Set return status.
396:
397: x_return_status := FND_API.G_RET_STS_SUCCESS;
398:
399: -- Get message count and data
400:
401: OE_MSG_PUB.Count_And_Get
405:
406:
407: EXCEPTION
408:
409: WHEN FND_API.G_EXC_ERROR THEN
410:
411: x_return_status := FND_API.G_RET_STS_ERROR;
412:
413: -- Get message count and data
407: EXCEPTION
408:
409: WHEN FND_API.G_EXC_ERROR THEN
410:
411: x_return_status := FND_API.G_RET_STS_ERROR;
412:
413: -- Get message count and data
414:
415: OE_MSG_PUB.Count_And_Get
416: ( p_count => x_msg_count
417: , p_data => x_msg_data
418: );
419:
420: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
421:
422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
423:
424: -- Get message count and data
418: );
419:
420: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
421:
422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
423:
424: -- Get message count and data
425:
426: OE_MSG_PUB.Count_And_Get
429: );
430:
431: WHEN OTHERS THEN
432:
433: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
434:
435: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
436: THEN
437: OE_MSG_PUB.Add_Exc_Msg
617: , 'Unrecognized attribute'
618: );
619: END IF;
620:
621: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
622:
623: END IF;
624:
625: -- Set Operation.
623: END IF;
624:
625: -- Set Operation.
626:
627: IF FND_API.To_Boolean(l_FORMULA_LINES_rec.db_flag) THEN
628: l_FORMULA_LINES_rec.operation := QP_GLOBALS.G_OPR_UPDATE;
629: ELSE
630: l_FORMULA_LINES_rec.operation := QP_GLOBALS.G_OPR_CREATE;
631: END IF;
638: -- Call QP_Price_Formula_PVT.Process_Price_Formula
639:
640: QP_Price_Formula_PVT.Process_Price_Formula
641: ( p_api_version_number => 1.0
642: , p_init_msg_list => FND_API.G_TRUE
643: , p_validation_level => FND_API.G_VALID_LEVEL_NONE
644: , x_return_status => l_return_status
645: , x_msg_count => x_msg_count
646: , x_msg_data => x_msg_data
639:
640: QP_Price_Formula_PVT.Process_Price_Formula
641: ( p_api_version_number => 1.0
642: , p_init_msg_list => FND_API.G_TRUE
643: , p_validation_level => FND_API.G_VALID_LEVEL_NONE
644: , x_return_status => l_return_status
645: , x_msg_count => x_msg_count
646: , x_msg_data => x_msg_data
647: , p_control_rec => l_control_rec
650: , x_FORMULA_rec => l_x_FORMULA_rec
651: , x_FORMULA_LINES_tbl => l_x_FORMULA_LINES_tbl
652: );
653:
654: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
655: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
656: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
657: RAISE FND_API.G_EXC_ERROR;
658: END IF;
651: , x_FORMULA_LINES_tbl => l_x_FORMULA_LINES_tbl
652: );
653:
654: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
655: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
656: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
657: RAISE FND_API.G_EXC_ERROR;
658: END IF;
659:
652: );
653:
654: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
655: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
656: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
657: RAISE FND_API.G_EXC_ERROR;
658: END IF;
659:
660:
653:
654: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
655: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
656: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
657: RAISE FND_API.G_EXC_ERROR;
658: END IF;
659:
660:
661: -- Unload out tbl
663: l_x_FORMULA_LINES_rec := l_x_FORMULA_LINES_tbl(1);
664:
665: -- Init OUT parameters to missing.
666:
667: x_attribute1 := FND_API.G_MISS_CHAR;
668: x_attribute10 := FND_API.G_MISS_CHAR;
669: x_attribute11 := FND_API.G_MISS_CHAR;
670: x_attribute12 := FND_API.G_MISS_CHAR;
671: x_attribute13 := FND_API.G_MISS_CHAR;
664:
665: -- Init OUT parameters to missing.
666:
667: x_attribute1 := FND_API.G_MISS_CHAR;
668: x_attribute10 := FND_API.G_MISS_CHAR;
669: x_attribute11 := FND_API.G_MISS_CHAR;
670: x_attribute12 := FND_API.G_MISS_CHAR;
671: x_attribute13 := FND_API.G_MISS_CHAR;
672: x_attribute14 := FND_API.G_MISS_CHAR;
665: -- Init OUT parameters to missing.
666:
667: x_attribute1 := FND_API.G_MISS_CHAR;
668: x_attribute10 := FND_API.G_MISS_CHAR;
669: x_attribute11 := FND_API.G_MISS_CHAR;
670: x_attribute12 := FND_API.G_MISS_CHAR;
671: x_attribute13 := FND_API.G_MISS_CHAR;
672: x_attribute14 := FND_API.G_MISS_CHAR;
673: x_attribute15 := FND_API.G_MISS_CHAR;
666:
667: x_attribute1 := FND_API.G_MISS_CHAR;
668: x_attribute10 := FND_API.G_MISS_CHAR;
669: x_attribute11 := FND_API.G_MISS_CHAR;
670: x_attribute12 := FND_API.G_MISS_CHAR;
671: x_attribute13 := FND_API.G_MISS_CHAR;
672: x_attribute14 := FND_API.G_MISS_CHAR;
673: x_attribute15 := FND_API.G_MISS_CHAR;
674: x_attribute2 := FND_API.G_MISS_CHAR;
667: x_attribute1 := FND_API.G_MISS_CHAR;
668: x_attribute10 := FND_API.G_MISS_CHAR;
669: x_attribute11 := FND_API.G_MISS_CHAR;
670: x_attribute12 := FND_API.G_MISS_CHAR;
671: x_attribute13 := FND_API.G_MISS_CHAR;
672: x_attribute14 := FND_API.G_MISS_CHAR;
673: x_attribute15 := FND_API.G_MISS_CHAR;
674: x_attribute2 := FND_API.G_MISS_CHAR;
675: x_attribute3 := FND_API.G_MISS_CHAR;
668: x_attribute10 := FND_API.G_MISS_CHAR;
669: x_attribute11 := FND_API.G_MISS_CHAR;
670: x_attribute12 := FND_API.G_MISS_CHAR;
671: x_attribute13 := FND_API.G_MISS_CHAR;
672: x_attribute14 := FND_API.G_MISS_CHAR;
673: x_attribute15 := FND_API.G_MISS_CHAR;
674: x_attribute2 := FND_API.G_MISS_CHAR;
675: x_attribute3 := FND_API.G_MISS_CHAR;
676: x_attribute4 := FND_API.G_MISS_CHAR;
669: x_attribute11 := FND_API.G_MISS_CHAR;
670: x_attribute12 := FND_API.G_MISS_CHAR;
671: x_attribute13 := FND_API.G_MISS_CHAR;
672: x_attribute14 := FND_API.G_MISS_CHAR;
673: x_attribute15 := FND_API.G_MISS_CHAR;
674: x_attribute2 := FND_API.G_MISS_CHAR;
675: x_attribute3 := FND_API.G_MISS_CHAR;
676: x_attribute4 := FND_API.G_MISS_CHAR;
677: x_attribute5 := FND_API.G_MISS_CHAR;
670: x_attribute12 := FND_API.G_MISS_CHAR;
671: x_attribute13 := FND_API.G_MISS_CHAR;
672: x_attribute14 := FND_API.G_MISS_CHAR;
673: x_attribute15 := FND_API.G_MISS_CHAR;
674: x_attribute2 := FND_API.G_MISS_CHAR;
675: x_attribute3 := FND_API.G_MISS_CHAR;
676: x_attribute4 := FND_API.G_MISS_CHAR;
677: x_attribute5 := FND_API.G_MISS_CHAR;
678: x_attribute6 := FND_API.G_MISS_CHAR;
671: x_attribute13 := FND_API.G_MISS_CHAR;
672: x_attribute14 := FND_API.G_MISS_CHAR;
673: x_attribute15 := FND_API.G_MISS_CHAR;
674: x_attribute2 := FND_API.G_MISS_CHAR;
675: x_attribute3 := FND_API.G_MISS_CHAR;
676: x_attribute4 := FND_API.G_MISS_CHAR;
677: x_attribute5 := FND_API.G_MISS_CHAR;
678: x_attribute6 := FND_API.G_MISS_CHAR;
679: x_attribute7 := FND_API.G_MISS_CHAR;
672: x_attribute14 := FND_API.G_MISS_CHAR;
673: x_attribute15 := FND_API.G_MISS_CHAR;
674: x_attribute2 := FND_API.G_MISS_CHAR;
675: x_attribute3 := FND_API.G_MISS_CHAR;
676: x_attribute4 := FND_API.G_MISS_CHAR;
677: x_attribute5 := FND_API.G_MISS_CHAR;
678: x_attribute6 := FND_API.G_MISS_CHAR;
679: x_attribute7 := FND_API.G_MISS_CHAR;
680: x_attribute8 := FND_API.G_MISS_CHAR;
673: x_attribute15 := FND_API.G_MISS_CHAR;
674: x_attribute2 := FND_API.G_MISS_CHAR;
675: x_attribute3 := FND_API.G_MISS_CHAR;
676: x_attribute4 := FND_API.G_MISS_CHAR;
677: x_attribute5 := FND_API.G_MISS_CHAR;
678: x_attribute6 := FND_API.G_MISS_CHAR;
679: x_attribute7 := FND_API.G_MISS_CHAR;
680: x_attribute8 := FND_API.G_MISS_CHAR;
681: x_attribute9 := FND_API.G_MISS_CHAR;
674: x_attribute2 := FND_API.G_MISS_CHAR;
675: x_attribute3 := FND_API.G_MISS_CHAR;
676: x_attribute4 := FND_API.G_MISS_CHAR;
677: x_attribute5 := FND_API.G_MISS_CHAR;
678: x_attribute6 := FND_API.G_MISS_CHAR;
679: x_attribute7 := FND_API.G_MISS_CHAR;
680: x_attribute8 := FND_API.G_MISS_CHAR;
681: x_attribute9 := FND_API.G_MISS_CHAR;
682: x_context := FND_API.G_MISS_CHAR;
675: x_attribute3 := FND_API.G_MISS_CHAR;
676: x_attribute4 := FND_API.G_MISS_CHAR;
677: x_attribute5 := FND_API.G_MISS_CHAR;
678: x_attribute6 := FND_API.G_MISS_CHAR;
679: x_attribute7 := FND_API.G_MISS_CHAR;
680: x_attribute8 := FND_API.G_MISS_CHAR;
681: x_attribute9 := FND_API.G_MISS_CHAR;
682: x_context := FND_API.G_MISS_CHAR;
683: x_end_date_active := FND_API.G_MISS_DATE;
676: x_attribute4 := FND_API.G_MISS_CHAR;
677: x_attribute5 := FND_API.G_MISS_CHAR;
678: x_attribute6 := FND_API.G_MISS_CHAR;
679: x_attribute7 := FND_API.G_MISS_CHAR;
680: x_attribute8 := FND_API.G_MISS_CHAR;
681: x_attribute9 := FND_API.G_MISS_CHAR;
682: x_context := FND_API.G_MISS_CHAR;
683: x_end_date_active := FND_API.G_MISS_DATE;
684: x_numeric_constant := FND_API.G_MISS_NUM;
677: x_attribute5 := FND_API.G_MISS_CHAR;
678: x_attribute6 := FND_API.G_MISS_CHAR;
679: x_attribute7 := FND_API.G_MISS_CHAR;
680: x_attribute8 := FND_API.G_MISS_CHAR;
681: x_attribute9 := FND_API.G_MISS_CHAR;
682: x_context := FND_API.G_MISS_CHAR;
683: x_end_date_active := FND_API.G_MISS_DATE;
684: x_numeric_constant := FND_API.G_MISS_NUM;
685: x_price_formula_id := FND_API.G_MISS_NUM;
678: x_attribute6 := FND_API.G_MISS_CHAR;
679: x_attribute7 := FND_API.G_MISS_CHAR;
680: x_attribute8 := FND_API.G_MISS_CHAR;
681: x_attribute9 := FND_API.G_MISS_CHAR;
682: x_context := FND_API.G_MISS_CHAR;
683: x_end_date_active := FND_API.G_MISS_DATE;
684: x_numeric_constant := FND_API.G_MISS_NUM;
685: x_price_formula_id := FND_API.G_MISS_NUM;
686: x_price_formula_line_id := FND_API.G_MISS_NUM;
679: x_attribute7 := FND_API.G_MISS_CHAR;
680: x_attribute8 := FND_API.G_MISS_CHAR;
681: x_attribute9 := FND_API.G_MISS_CHAR;
682: x_context := FND_API.G_MISS_CHAR;
683: x_end_date_active := FND_API.G_MISS_DATE;
684: x_numeric_constant := FND_API.G_MISS_NUM;
685: x_price_formula_id := FND_API.G_MISS_NUM;
686: x_price_formula_line_id := FND_API.G_MISS_NUM;
687: x_formula_line_type_code := FND_API.G_MISS_CHAR;
680: x_attribute8 := FND_API.G_MISS_CHAR;
681: x_attribute9 := FND_API.G_MISS_CHAR;
682: x_context := FND_API.G_MISS_CHAR;
683: x_end_date_active := FND_API.G_MISS_DATE;
684: x_numeric_constant := FND_API.G_MISS_NUM;
685: x_price_formula_id := FND_API.G_MISS_NUM;
686: x_price_formula_line_id := FND_API.G_MISS_NUM;
687: x_formula_line_type_code := FND_API.G_MISS_CHAR;
688: x_price_list_line_id := FND_API.G_MISS_NUM;
681: x_attribute9 := FND_API.G_MISS_CHAR;
682: x_context := FND_API.G_MISS_CHAR;
683: x_end_date_active := FND_API.G_MISS_DATE;
684: x_numeric_constant := FND_API.G_MISS_NUM;
685: x_price_formula_id := FND_API.G_MISS_NUM;
686: x_price_formula_line_id := FND_API.G_MISS_NUM;
687: x_formula_line_type_code := FND_API.G_MISS_CHAR;
688: x_price_list_line_id := FND_API.G_MISS_NUM;
689: x_price_modifier_list_id := FND_API.G_MISS_NUM;
682: x_context := FND_API.G_MISS_CHAR;
683: x_end_date_active := FND_API.G_MISS_DATE;
684: x_numeric_constant := FND_API.G_MISS_NUM;
685: x_price_formula_id := FND_API.G_MISS_NUM;
686: x_price_formula_line_id := FND_API.G_MISS_NUM;
687: x_formula_line_type_code := FND_API.G_MISS_CHAR;
688: x_price_list_line_id := FND_API.G_MISS_NUM;
689: x_price_modifier_list_id := FND_API.G_MISS_NUM;
690: x_pricing_attribute := FND_API.G_MISS_CHAR;
683: x_end_date_active := FND_API.G_MISS_DATE;
684: x_numeric_constant := FND_API.G_MISS_NUM;
685: x_price_formula_id := FND_API.G_MISS_NUM;
686: x_price_formula_line_id := FND_API.G_MISS_NUM;
687: x_formula_line_type_code := FND_API.G_MISS_CHAR;
688: x_price_list_line_id := FND_API.G_MISS_NUM;
689: x_price_modifier_list_id := FND_API.G_MISS_NUM;
690: x_pricing_attribute := FND_API.G_MISS_CHAR;
691: x_pricing_attribute_context := FND_API.G_MISS_CHAR;
684: x_numeric_constant := FND_API.G_MISS_NUM;
685: x_price_formula_id := FND_API.G_MISS_NUM;
686: x_price_formula_line_id := FND_API.G_MISS_NUM;
687: x_formula_line_type_code := FND_API.G_MISS_CHAR;
688: x_price_list_line_id := FND_API.G_MISS_NUM;
689: x_price_modifier_list_id := FND_API.G_MISS_NUM;
690: x_pricing_attribute := FND_API.G_MISS_CHAR;
691: x_pricing_attribute_context := FND_API.G_MISS_CHAR;
692: x_start_date_active := FND_API.G_MISS_DATE;
685: x_price_formula_id := FND_API.G_MISS_NUM;
686: x_price_formula_line_id := FND_API.G_MISS_NUM;
687: x_formula_line_type_code := FND_API.G_MISS_CHAR;
688: x_price_list_line_id := FND_API.G_MISS_NUM;
689: x_price_modifier_list_id := FND_API.G_MISS_NUM;
690: x_pricing_attribute := FND_API.G_MISS_CHAR;
691: x_pricing_attribute_context := FND_API.G_MISS_CHAR;
692: x_start_date_active := FND_API.G_MISS_DATE;
693: x_step_number := FND_API.G_MISS_NUM;
686: x_price_formula_line_id := FND_API.G_MISS_NUM;
687: x_formula_line_type_code := FND_API.G_MISS_CHAR;
688: x_price_list_line_id := FND_API.G_MISS_NUM;
689: x_price_modifier_list_id := FND_API.G_MISS_NUM;
690: x_pricing_attribute := FND_API.G_MISS_CHAR;
691: x_pricing_attribute_context := FND_API.G_MISS_CHAR;
692: x_start_date_active := FND_API.G_MISS_DATE;
693: x_step_number := FND_API.G_MISS_NUM;
694: x_price_formula := FND_API.G_MISS_CHAR;
687: x_formula_line_type_code := FND_API.G_MISS_CHAR;
688: x_price_list_line_id := FND_API.G_MISS_NUM;
689: x_price_modifier_list_id := FND_API.G_MISS_NUM;
690: x_pricing_attribute := FND_API.G_MISS_CHAR;
691: x_pricing_attribute_context := FND_API.G_MISS_CHAR;
692: x_start_date_active := FND_API.G_MISS_DATE;
693: x_step_number := FND_API.G_MISS_NUM;
694: x_price_formula := FND_API.G_MISS_CHAR;
695: x_price_formula_line := FND_API.G_MISS_CHAR;
688: x_price_list_line_id := FND_API.G_MISS_NUM;
689: x_price_modifier_list_id := FND_API.G_MISS_NUM;
690: x_pricing_attribute := FND_API.G_MISS_CHAR;
691: x_pricing_attribute_context := FND_API.G_MISS_CHAR;
692: x_start_date_active := FND_API.G_MISS_DATE;
693: x_step_number := FND_API.G_MISS_NUM;
694: x_price_formula := FND_API.G_MISS_CHAR;
695: x_price_formula_line := FND_API.G_MISS_CHAR;
696: x_price_formula_line_type := FND_API.G_MISS_CHAR;
689: x_price_modifier_list_id := FND_API.G_MISS_NUM;
690: x_pricing_attribute := FND_API.G_MISS_CHAR;
691: x_pricing_attribute_context := FND_API.G_MISS_CHAR;
692: x_start_date_active := FND_API.G_MISS_DATE;
693: x_step_number := FND_API.G_MISS_NUM;
694: x_price_formula := FND_API.G_MISS_CHAR;
695: x_price_formula_line := FND_API.G_MISS_CHAR;
696: x_price_formula_line_type := FND_API.G_MISS_CHAR;
697: x_price_list_line := FND_API.G_MISS_CHAR;
690: x_pricing_attribute := FND_API.G_MISS_CHAR;
691: x_pricing_attribute_context := FND_API.G_MISS_CHAR;
692: x_start_date_active := FND_API.G_MISS_DATE;
693: x_step_number := FND_API.G_MISS_NUM;
694: x_price_formula := FND_API.G_MISS_CHAR;
695: x_price_formula_line := FND_API.G_MISS_CHAR;
696: x_price_formula_line_type := FND_API.G_MISS_CHAR;
697: x_price_list_line := FND_API.G_MISS_CHAR;
698: x_price_modifier_list := FND_API.G_MISS_CHAR;
691: x_pricing_attribute_context := FND_API.G_MISS_CHAR;
692: x_start_date_active := FND_API.G_MISS_DATE;
693: x_step_number := FND_API.G_MISS_NUM;
694: x_price_formula := FND_API.G_MISS_CHAR;
695: x_price_formula_line := FND_API.G_MISS_CHAR;
696: x_price_formula_line_type := FND_API.G_MISS_CHAR;
697: x_price_list_line := FND_API.G_MISS_CHAR;
698: x_price_modifier_list := FND_API.G_MISS_CHAR;
699: x_reqd_flag := FND_API.G_MISS_CHAR;
692: x_start_date_active := FND_API.G_MISS_DATE;
693: x_step_number := FND_API.G_MISS_NUM;
694: x_price_formula := FND_API.G_MISS_CHAR;
695: x_price_formula_line := FND_API.G_MISS_CHAR;
696: x_price_formula_line_type := FND_API.G_MISS_CHAR;
697: x_price_list_line := FND_API.G_MISS_CHAR;
698: x_price_modifier_list := FND_API.G_MISS_CHAR;
699: x_reqd_flag := FND_API.G_MISS_CHAR;
700:
693: x_step_number := FND_API.G_MISS_NUM;
694: x_price_formula := FND_API.G_MISS_CHAR;
695: x_price_formula_line := FND_API.G_MISS_CHAR;
696: x_price_formula_line_type := FND_API.G_MISS_CHAR;
697: x_price_list_line := FND_API.G_MISS_CHAR;
698: x_price_modifier_list := FND_API.G_MISS_CHAR;
699: x_reqd_flag := FND_API.G_MISS_CHAR;
700:
701: -- Load display out parameters if any
694: x_price_formula := FND_API.G_MISS_CHAR;
695: x_price_formula_line := FND_API.G_MISS_CHAR;
696: x_price_formula_line_type := FND_API.G_MISS_CHAR;
697: x_price_list_line := FND_API.G_MISS_CHAR;
698: x_price_modifier_list := FND_API.G_MISS_CHAR;
699: x_reqd_flag := FND_API.G_MISS_CHAR;
700:
701: -- Load display out parameters if any
702:
695: x_price_formula_line := FND_API.G_MISS_CHAR;
696: x_price_formula_line_type := FND_API.G_MISS_CHAR;
697: x_price_list_line := FND_API.G_MISS_CHAR;
698: x_price_modifier_list := FND_API.G_MISS_CHAR;
699: x_reqd_flag := FND_API.G_MISS_CHAR;
700:
701: -- Load display out parameters if any
702:
703: l_FORMULA_LINES_val_rec := QP_Formula_Lines_Util.Get_Values
888: );
889:
890: -- Set return status.
891:
892: x_return_status := FND_API.G_RET_STS_SUCCESS;
893:
894: -- Get message count and data
895:
896: OE_MSG_PUB.Count_And_Get
900:
901:
902: EXCEPTION
903:
904: WHEN FND_API.G_EXC_ERROR THEN
905:
906: x_return_status := FND_API.G_RET_STS_ERROR;
907:
908: -- Get message count and data
902: EXCEPTION
903:
904: WHEN FND_API.G_EXC_ERROR THEN
905:
906: x_return_status := FND_API.G_RET_STS_ERROR;
907:
908: -- Get message count and data
909:
910: OE_MSG_PUB.Count_And_Get
911: ( p_count => x_msg_count
912: , p_data => x_msg_data
913: );
914:
915: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
916:
917: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
918:
919: -- Get message count and data
913: );
914:
915: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
916:
917: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
918:
919: -- Get message count and data
920:
921: OE_MSG_PUB.Count_And_Get
924: );
925:
926: WHEN OTHERS THEN
927:
928: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
929:
930: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
931: THEN
932: OE_MSG_PUB.Add_Exc_Msg
998: );
999:
1000: -- Set Operation.
1001:
1002: IF FND_API.To_Boolean(l_FORMULA_LINES_rec.db_flag) THEN
1003: l_FORMULA_LINES_rec.operation := QP_GLOBALS.G_OPR_UPDATE;
1004: ELSE
1005: l_FORMULA_LINES_rec.operation := QP_GLOBALS.G_OPR_CREATE;
1006: END IF;
1013: -- Call QP_Price_Formula_PVT.Process_Price_Formula
1014:
1015: QP_Price_Formula_PVT.Process_Price_Formula
1016: ( p_api_version_number => 1.0
1017: , p_init_msg_list => FND_API.G_TRUE
1018: , x_return_status => l_return_status
1019: , x_msg_count => x_msg_count
1020: , x_msg_data => x_msg_data
1021: , p_control_rec => l_control_rec
1024: , x_FORMULA_rec => l_x_FORMULA_rec
1025: , x_FORMULA_LINES_tbl => l_x_FORMULA_LINES_tbl
1026: );
1027:
1028: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1029: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1030: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1031: RAISE FND_API.G_EXC_ERROR;
1032: END IF;
1025: , x_FORMULA_LINES_tbl => l_x_FORMULA_LINES_tbl
1026: );
1027:
1028: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1029: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1030: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1031: RAISE FND_API.G_EXC_ERROR;
1032: END IF;
1033:
1026: );
1027:
1028: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1029: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1030: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1031: RAISE FND_API.G_EXC_ERROR;
1032: END IF;
1033:
1034:
1027:
1028: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1029: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1030: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1031: RAISE FND_API.G_EXC_ERROR;
1032: END IF;
1033:
1034:
1035: -- Load OUT parameters.
1052:
1053:
1054: -- Set return status.
1055:
1056: x_return_status := FND_API.G_RET_STS_SUCCESS;
1057:
1058: -- Get message count and data
1059:
1060: OE_MSG_PUB.Count_And_Get
1064:
1065:
1066: EXCEPTION
1067:
1068: WHEN FND_API.G_EXC_ERROR THEN
1069:
1070: x_return_status := FND_API.G_RET_STS_ERROR;
1071:
1072: -- Get message count and data
1066: EXCEPTION
1067:
1068: WHEN FND_API.G_EXC_ERROR THEN
1069:
1070: x_return_status := FND_API.G_RET_STS_ERROR;
1071:
1072: -- Get message count and data
1073:
1074: OE_MSG_PUB.Count_And_Get
1075: ( p_count => x_msg_count
1076: , p_data => x_msg_data
1077: );
1078:
1079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1080:
1081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1082:
1083: -- Get message count and data
1077: );
1078:
1079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1080:
1081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1082:
1083: -- Get message count and data
1084:
1085: OE_MSG_PUB.Count_And_Get
1088: );
1089:
1090: WHEN OTHERS THEN
1091:
1092: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1093:
1094: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1095: THEN
1096: OE_MSG_PUB.Add_Exc_Msg
1160: -- Call QP_Price_Formula_PVT.Process_Price_Formula
1161:
1162: QP_Price_Formula_PVT.Process_Price_Formula
1163: ( p_api_version_number => 1.0
1164: , p_init_msg_list => FND_API.G_TRUE
1165: , x_return_status => l_return_status
1166: , x_msg_count => x_msg_count
1167: , x_msg_data => x_msg_data
1168: , p_control_rec => l_control_rec
1170: , x_FORMULA_rec => l_x_FORMULA_rec
1171: , x_FORMULA_LINES_tbl => l_x_FORMULA_LINES_tbl
1172: );
1173:
1174: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1176: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1177: RAISE FND_API.G_EXC_ERROR;
1178: END IF;
1171: , x_FORMULA_LINES_tbl => l_x_FORMULA_LINES_tbl
1172: );
1173:
1174: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1176: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1177: RAISE FND_API.G_EXC_ERROR;
1178: END IF;
1179:
1172: );
1173:
1174: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1176: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1177: RAISE FND_API.G_EXC_ERROR;
1178: END IF;
1179:
1180:
1173:
1174: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1176: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1177: RAISE FND_API.G_EXC_ERROR;
1178: END IF;
1179:
1180:
1181: -- Clear FORMULA_LINES record cache
1183: Clear_FORMULA_LINES;
1184:
1185: -- Set return status.
1186:
1187: x_return_status := FND_API.G_RET_STS_SUCCESS;
1188:
1189: -- Get message count and data
1190:
1191: OE_MSG_PUB.Count_And_Get
1195:
1196:
1197: EXCEPTION
1198:
1199: WHEN FND_API.G_EXC_ERROR THEN
1200:
1201: x_return_status := FND_API.G_RET_STS_ERROR;
1202:
1203: -- Get message count and data
1197: EXCEPTION
1198:
1199: WHEN FND_API.G_EXC_ERROR THEN
1200:
1201: x_return_status := FND_API.G_RET_STS_ERROR;
1202:
1203: -- Get message count and data
1204:
1205: OE_MSG_PUB.Count_And_Get
1206: ( p_count => x_msg_count
1207: , p_data => x_msg_data
1208: );
1209:
1210: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1211:
1212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1213:
1214: -- Get message count and data
1208: );
1209:
1210: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1211:
1212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1213:
1214: -- Get message count and data
1215:
1216: OE_MSG_PUB.Count_And_Get
1219: );
1220:
1221: WHEN OTHERS THEN
1222:
1223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1224:
1225: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1226: THEN
1227: OE_MSG_PUB.Add_Exc_Msg
1274: -- Call QP_Price_Formula_PVT.Process_Price_Formula
1275:
1276: QP_Price_Formula_PVT.Process_Price_Formula
1277: ( p_api_version_number => 1.0
1278: , p_init_msg_list => FND_API.G_TRUE
1279: , x_return_status => l_return_status
1280: , x_msg_count => x_msg_count
1281: , x_msg_data => x_msg_data
1282: , p_control_rec => l_control_rec
1283: , x_FORMULA_rec => l_x_FORMULA_rec
1284: , x_FORMULA_LINES_tbl => l_x_FORMULA_LINES_tbl
1285: );
1286:
1287: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1288: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1289: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1290: RAISE FND_API.G_EXC_ERROR;
1291: END IF;
1284: , x_FORMULA_LINES_tbl => l_x_FORMULA_LINES_tbl
1285: );
1286:
1287: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1288: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1289: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1290: RAISE FND_API.G_EXC_ERROR;
1291: END IF;
1292:
1285: );
1286:
1287: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1288: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1289: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1290: RAISE FND_API.G_EXC_ERROR;
1291: END IF;
1292:
1293:
1286:
1287: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1288: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1289: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1290: RAISE FND_API.G_EXC_ERROR;
1291: END IF;
1292:
1293:
1294: -- Set return status.
1292:
1293:
1294: -- Set return status.
1295:
1296: x_return_status := FND_API.G_RET_STS_SUCCESS;
1297:
1298: -- Get message count and data
1299:
1300: OE_MSG_PUB.Count_And_Get
1304:
1305:
1306: EXCEPTION
1307:
1308: WHEN FND_API.G_EXC_ERROR THEN
1309:
1310: x_return_status := FND_API.G_RET_STS_ERROR;
1311:
1312: -- Get message count and data
1306: EXCEPTION
1307:
1308: WHEN FND_API.G_EXC_ERROR THEN
1309:
1310: x_return_status := FND_API.G_RET_STS_ERROR;
1311:
1312: -- Get message count and data
1313:
1314: OE_MSG_PUB.Count_And_Get
1315: ( p_count => x_msg_count
1316: , p_data => x_msg_data
1317: );
1318:
1319: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1320:
1321: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1322:
1323: -- Get message count and data
1317: );
1318:
1319: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1320:
1321: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1322:
1323: -- Get message count and data
1324:
1325: OE_MSG_PUB.Count_And_Get
1328: );
1329:
1330: WHEN OTHERS THEN
1331:
1332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1333:
1334: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1335: THEN
1336: OE_MSG_PUB.Add_Exc_Msg
1443: -- Call QP_Price_Formula_PVT.Lock_Price_Formula
1444:
1445: QP_Price_Formula_PVT.Lock_Price_Formula
1446: ( p_api_version_number => 1.0
1447: , p_init_msg_list => FND_API.G_TRUE
1448: , x_return_status => l_return_status
1449: , x_msg_count => x_msg_count
1450: , x_msg_data => x_msg_data
1451: , p_FORMULA_LINES_tbl => l_FORMULA_LINES_tbl
1452: , x_FORMULA_rec => l_x_FORMULA_rec
1453: , x_FORMULA_LINES_tbl => l_x_FORMULA_LINES_tbl
1454: );
1455:
1456: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1457:
1458: -- Set DB flag and write record to cache.
1459:
1460: l_x_FORMULA_LINES_rec.db_flag := FND_API.G_TRUE;
1456: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1457:
1458: -- Set DB flag and write record to cache.
1459:
1460: l_x_FORMULA_LINES_rec.db_flag := FND_API.G_TRUE;
1461:
1462: Write_FORMULA_LINES
1463: ( p_FORMULA_LINES_rec => l_x_FORMULA_LINES_rec
1464: , p_db_record => TRUE
1489: , 'Lock_Row'
1490: );
1491: END IF;
1492:
1493: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1494:
1495: -- Get message count and data
1496:
1497: OE_MSG_PUB.Count_And_Get
1538: g_FORMULA_LINES_rec := QP_Formula_Lines_Util.Query_Row
1539: ( p_price_formula_line_id => p_price_formula_line_id
1540: );
1541:
1542: g_FORMULA_LINES_rec.db_flag := FND_API.G_TRUE;
1543:
1544: -- Load DB record
1545:
1546: g_db_FORMULA_LINES_rec := g_FORMULA_LINES_rec;