62:
63: -- Set missing old record elements to NULL.
64:
65: l_old_PRICE_LIST_rec :=
66: QP_Price_List_Util.Convert_Miss_To_Null (l_old_PRICE_LIST_rec);
67:
68: ELSIF l_PRICE_LIST_rec.operation = QP_GLOBALS.G_OPR_UPDATE
69: OR l_PRICE_LIST_rec.operation = QP_GLOBALS.G_OPR_DELETE
70: THEN
75:
76: IF l_old_PRICE_LIST_rec.list_header_id = FND_API.G_MISS_NUM
77: THEN
78:
79: l_old_PRICE_LIST_rec := QP_Price_List_Util.Query_Row
80: ( p_list_header_id => l_PRICE_LIST_rec.list_header_id
81: );
82:
83: ELSE
84:
85: -- Set missing old record elements to NULL.
86:
87: l_old_PRICE_LIST_rec :=
88: QP_Price_List_Util.Convert_Miss_To_Null (l_old_PRICE_LIST_rec);
89:
90: END IF;
91:
92: -- Complete new record from old
90: END IF;
91:
92: -- Complete new record from old
93:
94: l_PRICE_LIST_rec := QP_Price_List_Util.Complete_Record
95: ( p_PRICE_LIST_rec => l_PRICE_LIST_rec
96: , p_old_PRICE_LIST_rec => l_old_PRICE_LIST_rec
97: );
98:
156: -- Clear dependent attributes.
157:
158: IF l_control_rec.change_attributes THEN
159: l_p_PRICE_LIST_rec := l_PRICE_LIST_rec;
160: QP_Price_List_Util.Clear_Dependent_Attr
161: ( p_PRICE_LIST_rec => l_p_PRICE_LIST_rec
162: , p_old_PRICE_LIST_rec => l_old_PRICE_LIST_rec
163: , x_PRICE_LIST_rec => l_PRICE_LIST_rec
164: );
183: IF l_control_rec.default_attributes
184: OR l_control_rec.change_attributes
185: THEN
186: l_p_PRICE_LIST_rec := l_PRICE_LIST_rec;
187: QP_Price_List_Util.Apply_Attribute_Changes
188: ( p_PRICE_LIST_rec => l_p_PRICE_LIST_rec
189: , p_old_PRICE_LIST_rec => l_old_PRICE_LIST_rec
190: , x_PRICE_LIST_rec => l_PRICE_LIST_rec
191: );
232: OE_MSG_PUB.Add;
233:
234: RAISE FND_API.G_EXC_ERROR;
235:
236: /*QP_Price_List_Util.Delete_Row
237: ( p_list_header_id => l_PRICE_LIST_rec.list_header_id
238: );*/
239:
240: ELSE
246: l_PRICE_LIST_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
247:
248: IF l_PRICE_LIST_rec.operation = QP_GLOBALS.G_OPR_UPDATE THEN
249:
250: QP_Price_List_Util.Update_Row (l_PRICE_LIST_rec);
251:
252: ELSIF l_PRICE_LIST_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
253:
254: l_PRICE_LIST_rec.creation_date := SYSDATE;
253:
254: l_PRICE_LIST_rec.creation_date := SYSDATE;
255: l_PRICE_LIST_rec.created_by := FND_GLOBAL.USER_ID;
256:
257: QP_Price_List_Util.Insert_Row (l_PRICE_LIST_rec);
258:
259: END IF;
260:
261: END IF;
2422: -- Lock PRICE_LIST
2423:
2424: IF p_PRICE_LIST_rec.operation = QP_GLOBALS.G_OPR_LOCK THEN
2425:
2426: QP_Price_List_Util.Lock_Row
2427: ( p_PRICE_LIST_rec => p_PRICE_LIST_rec
2428: , x_PRICE_LIST_rec => x_PRICE_LIST_rec
2429: , x_return_status => l_return_status
2430: );
2637: END IF;
2638:
2639: -- Get PRICE_LIST ( parent = PRICE_LIST )
2640:
2641: l_PRICE_LIST_rec := QP_Price_List_Util.Query_Row
2642: ( p_list_header_id => p_list_header_id
2643: );
2644:
2645: -- Get PRICE_LIST_LINE ( parent = PRICE_LIST )