44:
45: -- Set missing old record elements to NULL.
46:
47: l_old_LIMITS_rec :=
48: QP_Limits_Util.Convert_Miss_To_Null (l_old_LIMITS_rec);
49:
50: ELSIF l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_UPDATE
51: OR l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_DELETE
52: THEN
57:
58: IF l_old_LIMITS_rec.limit_id = FND_API.G_MISS_NUM
59: THEN
60:
61: l_old_LIMITS_rec := QP_Limits_Util.Query_Row
62: ( p_limit_id => l_LIMITS_rec.limit_id
63: );
64:
65: ELSE
66:
67: -- Set missing old record elements to NULL.
68:
69: l_old_LIMITS_rec :=
70: QP_Limits_Util.Convert_Miss_To_Null (l_old_LIMITS_rec);
71:
72: END IF;
73:
74: -- Complete new record from old
71:
72: END IF;
73:
74: -- Complete new record from old
75: --dbms_output.put_line('Processing Limits - Calling QP_Limits_Util.Complete_Record ' || l_return_status);
76: oe_debug_pub.add('Processing Limits - Calling QP_Limits_Util.Complete_Record ' || l_return_status);
77:
78: l_LIMITS_rec := QP_Limits_Util.Complete_Record
79: ( p_LIMITS_rec => l_LIMITS_rec
72: END IF;
73:
74: -- Complete new record from old
75: --dbms_output.put_line('Processing Limits - Calling QP_Limits_Util.Complete_Record ' || l_return_status);
76: oe_debug_pub.add('Processing Limits - Calling QP_Limits_Util.Complete_Record ' || l_return_status);
77:
78: l_LIMITS_rec := QP_Limits_Util.Complete_Record
79: ( p_LIMITS_rec => l_LIMITS_rec
80: , p_old_LIMITS_rec => l_old_LIMITS_rec
74: -- Complete new record from old
75: --dbms_output.put_line('Processing Limits - Calling QP_Limits_Util.Complete_Record ' || l_return_status);
76: oe_debug_pub.add('Processing Limits - Calling QP_Limits_Util.Complete_Record ' || l_return_status);
77:
78: l_LIMITS_rec := QP_Limits_Util.Complete_Record
79: ( p_LIMITS_rec => l_LIMITS_rec
80: , p_old_LIMITS_rec => l_old_LIMITS_rec
81: );
82:
108:
109: END IF;
110:
111: -- Clear dependent attributes.
112: --dbms_output.put_line('Processing Limits - Calling QP_Limits_Util.Clear_Dependent_Attr' || l_return_status);
113: oe_debug_pub.add('Processing Limits - Calling QP_Limits_Util.Clear_Dependent_Attr' || l_return_status);
114: IF l_control_rec.change_attributes THEN
115:
116: l_p_LIMITS_rec := l_LIMITS_rec; --[prarasto]
109: END IF;
110:
111: -- Clear dependent attributes.
112: --dbms_output.put_line('Processing Limits - Calling QP_Limits_Util.Clear_Dependent_Attr' || l_return_status);
113: oe_debug_pub.add('Processing Limits - Calling QP_Limits_Util.Clear_Dependent_Attr' || l_return_status);
114: IF l_control_rec.change_attributes THEN
115:
116: l_p_LIMITS_rec := l_LIMITS_rec; --[prarasto]
117:
114: IF l_control_rec.change_attributes THEN
115:
116: l_p_LIMITS_rec := l_LIMITS_rec; --[prarasto]
117:
118: QP_Limits_Util.Clear_Dependent_Attr
119: ( p_LIMITS_rec => l_p_LIMITS_rec
120: , p_old_LIMITS_rec => l_old_LIMITS_rec
121: , x_LIMITS_rec => l_LIMITS_rec
122: );
150:
151: IF l_control_rec.default_attributes
152: OR l_control_rec.change_attributes
153: THEN
154: --dbms_output.put_line('Processing Limits - Calling QP_Limits_Util.Apply_Attribute_Changes' || l_return_status);
155: oe_debug_pub.add('Processing Limits - Calling QP_Limits_Util.Apply_Attribute_Changes' || l_return_status);
156:
157: l_p_LIMITS_rec := l_LIMITS_rec; --[prarasto]
158:
151: IF l_control_rec.default_attributes
152: OR l_control_rec.change_attributes
153: THEN
154: --dbms_output.put_line('Processing Limits - Calling QP_Limits_Util.Apply_Attribute_Changes' || l_return_status);
155: oe_debug_pub.add('Processing Limits - Calling QP_Limits_Util.Apply_Attribute_Changes' || l_return_status);
156:
157: l_p_LIMITS_rec := l_LIMITS_rec; --[prarasto]
158:
159: QP_Limits_Util.Apply_Attribute_Changes
155: oe_debug_pub.add('Processing Limits - Calling QP_Limits_Util.Apply_Attribute_Changes' || l_return_status);
156:
157: l_p_LIMITS_rec := l_LIMITS_rec; --[prarasto]
158:
159: QP_Limits_Util.Apply_Attribute_Changes
160: ( p_LIMITS_rec => l_p_LIMITS_rec
161: , p_old_LIMITS_rec => l_old_LIMITS_rec
162: , x_LIMITS_rec => l_LIMITS_rec
163: );
211:
212: -- Step 4. Write to DB
213:
214: IF l_control_rec.write_to_db THEN
215: --dbms_output.put_line('Processing Limits - Calling QP_Limits_Util.PRE_WRITE_PROCESS' || l_return_status);
216: oe_debug_pub.add('Processing Limits - Calling QP_Limits_Util.PRE_WRITE_PROCESS' || l_return_status);
217:
218: l_p_LIMITS_rec := l_LIMITS_rec; --[prarasto]
219:
212: -- Step 4. Write to DB
213:
214: IF l_control_rec.write_to_db THEN
215: --dbms_output.put_line('Processing Limits - Calling QP_Limits_Util.PRE_WRITE_PROCESS' || l_return_status);
216: oe_debug_pub.add('Processing Limits - Calling QP_Limits_Util.PRE_WRITE_PROCESS' || l_return_status);
217:
218: l_p_LIMITS_rec := l_LIMITS_rec; --[prarasto]
219:
220: QP_Limits_Util.PRE_WRITE_PROCESS
216: oe_debug_pub.add('Processing Limits - Calling QP_Limits_Util.PRE_WRITE_PROCESS' || l_return_status);
217:
218: l_p_LIMITS_rec := l_LIMITS_rec; --[prarasto]
219:
220: QP_Limits_Util.PRE_WRITE_PROCESS
221: ( p_LIMITS_rec => l_p_LIMITS_rec
222: , p_old_LIMITS_rec => l_old_LIMITS_rec
223: , x_LIMITS_rec => l_LIMITS_rec
224: );
229:
230: IF l_control_rec.write_to_db THEN
231:
232: IF l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_DELETE THEN
233: --dbms_output.put_line('Processing Limits - QP_Limits_Util.Delete_Row' || l_return_status);
234: oe_debug_pub.add('Processing Limits - QP_Limits_Util.Delete_Row' || l_return_status);
235: QP_Limits_Util.Delete_Row
236: ( p_limit_id => l_LIMITS_rec.limit_id
237: );
230: IF l_control_rec.write_to_db THEN
231:
232: IF l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_DELETE THEN
233: --dbms_output.put_line('Processing Limits - QP_Limits_Util.Delete_Row' || l_return_status);
234: oe_debug_pub.add('Processing Limits - QP_Limits_Util.Delete_Row' || l_return_status);
235: QP_Limits_Util.Delete_Row
236: ( p_limit_id => l_LIMITS_rec.limit_id
237: );
238:
231:
232: IF l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_DELETE THEN
233: --dbms_output.put_line('Processing Limits - QP_Limits_Util.Delete_Row' || l_return_status);
234: oe_debug_pub.add('Processing Limits - QP_Limits_Util.Delete_Row' || l_return_status);
235: QP_Limits_Util.Delete_Row
236: ( p_limit_id => l_LIMITS_rec.limit_id
237: );
238:
239: ELSE
244: l_LIMITS_rec.last_updated_by := FND_GLOBAL.USER_ID;
245: l_LIMITS_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
246:
247: IF l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_UPDATE THEN
248: --dbms_output.put_line('Processing Limits - QP_Limits_Util.Update_Row' || l_return_status);
249: oe_debug_pub.add('Processing Limits - QP_Limits_Util.Update_Row' || l_return_status);
250: QP_Limits_Util.Update_Row (l_LIMITS_rec);
251:
252: ELSIF l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
245: l_LIMITS_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
246:
247: IF l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_UPDATE THEN
248: --dbms_output.put_line('Processing Limits - QP_Limits_Util.Update_Row' || l_return_status);
249: oe_debug_pub.add('Processing Limits - QP_Limits_Util.Update_Row' || l_return_status);
250: QP_Limits_Util.Update_Row (l_LIMITS_rec);
251:
252: ELSIF l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
253:
246:
247: IF l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_UPDATE THEN
248: --dbms_output.put_line('Processing Limits - QP_Limits_Util.Update_Row' || l_return_status);
249: oe_debug_pub.add('Processing Limits - QP_Limits_Util.Update_Row' || l_return_status);
250: QP_Limits_Util.Update_Row (l_LIMITS_rec);
251:
252: ELSIF l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
253:
254: l_LIMITS_rec.creation_date := SYSDATE;
252: ELSIF l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
253:
254: l_LIMITS_rec.creation_date := SYSDATE;
255: l_LIMITS_rec.created_by := FND_GLOBAL.USER_ID;
256: --dbms_output.put_line('Processing Limits - QP_Limits_Util.Insert_Row' || l_return_status);
257: oe_debug_pub.add('Processing Limits - QP_Limits_Util.Insert_Row' || l_return_status);
258: QP_Limits_Util.Insert_Row (l_LIMITS_rec);
259:
260: END IF;
253:
254: l_LIMITS_rec.creation_date := SYSDATE;
255: l_LIMITS_rec.created_by := FND_GLOBAL.USER_ID;
256: --dbms_output.put_line('Processing Limits - QP_Limits_Util.Insert_Row' || l_return_status);
257: oe_debug_pub.add('Processing Limits - QP_Limits_Util.Insert_Row' || l_return_status);
258: QP_Limits_Util.Insert_Row (l_LIMITS_rec);
259:
260: END IF;
261:
254: l_LIMITS_rec.creation_date := SYSDATE;
255: l_LIMITS_rec.created_by := FND_GLOBAL.USER_ID;
256: --dbms_output.put_line('Processing Limits - QP_Limits_Util.Insert_Row' || l_return_status);
257: oe_debug_pub.add('Processing Limits - QP_Limits_Util.Insert_Row' || l_return_status);
258: QP_Limits_Util.Insert_Row (l_LIMITS_rec);
259:
260: END IF;
261:
262: END IF;
1411: -- Lock LIMITS
1412:
1413: IF p_LIMITS_rec.operation = QP_GLOBALS.G_OPR_LOCK THEN
1414:
1415: QP_Limits_Util.Lock_Row
1416: ( p_LIMITS_rec => p_LIMITS_rec
1417: , x_LIMITS_rec => x_LIMITS_rec
1418: , x_return_status => l_return_status
1419: );
1598: END IF;
1599:
1600: -- Get LIMITS ( parent = LIMITS )
1601:
1602: l_LIMITS_rec := QP_Limits_Util.Query_Row
1603: ( p_limit_id => p_limit_id
1604: );
1605:
1606: -- Get LIMIT_ATTRS ( parent = LIMITS )