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;
2427: -- Lock PRICE_LIST
2428:
2429: IF p_PRICE_LIST_rec.operation = QP_GLOBALS.G_OPR_LOCK THEN
2430:
2431: QP_Price_List_Util.Lock_Row
2432: ( p_PRICE_LIST_rec => p_PRICE_LIST_rec
2433: , x_PRICE_LIST_rec => x_PRICE_LIST_rec
2434: , x_return_status => l_return_status
2435: );
2642: END IF;
2643:
2644: -- Get PRICE_LIST ( parent = PRICE_LIST )
2645:
2646: l_PRICE_LIST_rec := QP_Price_List_Util.Query_Row
2647: ( p_list_header_id => p_list_header_id
2648: );
2649:
2650: -- Get PRICE_LIST_LINE ( parent = PRICE_LIST )