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
89: THEN
90:
91: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
92: --dbms_output.put_line('Processing Limits - Calling QP_Validate_Limits.Attributes' || l_return_status);
93: oe_debug_pub.add('Processing Limits - Calling QP_Validate_Limits.Attributes' || l_return_status);
94: QP_Validate_Limits.Attributes
95: ( x_return_status => l_return_status
96: , p_LIMITS_rec => l_LIMITS_rec
97: , p_old_LIMITS_rec => l_old_LIMITS_rec
96: , p_LIMITS_rec => l_LIMITS_rec
97: , p_old_LIMITS_rec => l_old_LIMITS_rec
98: );
99:
100: oe_debug_pub.add('Processing Limits - After QP_Validate_Limits.Attributes ' || l_return_status);
101: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
103: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
104: RAISE FND_API.G_EXC_ERROR;
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:
128: IF l_control_rec.default_attributes
129: OR l_control_rec.change_attributes
130: THEN
131: --dbms_output.put_line('Limit ID Before calling Default Package ' || l_LIMITS_rec.limit_id);
132: oe_debug_pub.add('Limit ID Before calling Default Package ' || l_LIMITS_rec.limit_id);
133: --dbms_output.put_line('Processing Limits - Calling QP_Default_Limits.Attributes' || l_return_status);
134: oe_debug_pub.add('Processing Limits - Calling QP_Default_Limits.Attributes' || l_return_status);
135: IF l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
136:
130: THEN
131: --dbms_output.put_line('Limit ID Before calling Default Package ' || l_LIMITS_rec.limit_id);
132: oe_debug_pub.add('Limit ID Before calling Default Package ' || l_LIMITS_rec.limit_id);
133: --dbms_output.put_line('Processing Limits - Calling QP_Default_Limits.Attributes' || l_return_status);
134: oe_debug_pub.add('Processing Limits - Calling QP_Default_Limits.Attributes' || l_return_status);
135: IF l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
136:
137: l_p_LIMITS_rec := l_LIMITS_rec; --[prarasto]
138:
141: , x_LIMITS_rec => l_LIMITS_rec
142: );
143: END IF;
144: --dbms_output.put_line('Limit ID After calling Default Package ' || l_LIMITS_rec.limit_id);
145: oe_debug_pub.add('Limit ID After calling Default Package ' || l_LIMITS_rec.limit_id);
146:
147: END IF;
148:
149: -- Apply attribute changes
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
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
222: , p_old_LIMITS_rec => l_old_LIMITS_rec
223: , x_LIMITS_rec => l_LIMITS_rec
224: );
225: --dbms_output.put_line('Limit ID After calling PRE_WRITE_PROCESS ' || l_LIMITS_rec.limit_id);
226: oe_debug_pub.add('Limit ID After calling PRE_WRITE_PROCESS ' || l_LIMITS_rec.limit_id);
227:
228: END IF;
229:
230: IF l_control_rec.write_to_db THEN
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:
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:
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:
270:
271: EXCEPTION
272: WHEN FND_API.G_EXC_ERROR THEN
273: --dbms_output.put_line('Processing Limits - In Exception' || l_return_status);
274: oe_debug_pub.add('Processing Limits - In Exception' || l_return_status);
275:
276: l_LIMITS_rec.return_status := FND_API.G_RET_STS_ERROR;
277: x_LIMITS_rec := l_LIMITS_rec;
278: x_old_LIMITS_rec := l_old_LIMITS_rec;
405: THEN
406:
407: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
408: --dbms_output.put_line('Processing Limit Attributes- Calling QP_Validate_Limit_Attrs.Attributes' || l_return_status);
409: oe_debug_pub.add('Processing Limit Attributes- Calling QP_Validate_Limit_Attrs.Attributes' || l_return_status);
410:
411: QP_Validate_Limit_Attrs.Attributes
412: ( x_return_status => l_return_status
413: , p_LIMIT_ATTRS_rec => l_LIMIT_ATTRS_rec
414: , p_old_LIMIT_ATTRS_rec => l_old_LIMIT_ATTRS_rec
415: );
416:
417: --dbms_output.put_line('Processing Limit Attributes- After QP_Validate_Limit_Attrs.Attributes' || l_return_status);
418: oe_debug_pub.add('Processing Limit Attributes- After QP_Validate_Limit_Attrs.Attributes' || l_return_status);
419: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
421: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
422: RAISE FND_API.G_EXC_ERROR;
464: OR l_control_rec.change_attributes
465: THEN
466:
467: --dbms_output.put_line('Processing Limit Attributes- Calling QP_Limit_Attrs_Util.Apply_Attribute_Changes' || l_return_status);
468: oe_debug_pub.add('Processing Limit Attributes- Calling QP_Limit_Attrs_Util.Apply_Attribute_Changes' || l_return_status);
469:
470: l_p_LIMIT_ATTRS_rec := l_LIMIT_ATTRS_rec; --[prarasto]
471:
472: QP_Limit_Attrs_Util.Apply_Attribute_Changes
484: IF l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_CREATE OR
485: l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_UPDATE THEN
486:
487: --dbms_output.put_line('Processing Limit Attributes- Calling QP_Validate_Limit_Attrs.Entity' || l_return_status);
488: oe_debug_pub.add('Processing Limit Attributes- Calling QP_Validate_Limit_Attrs.Entity' || l_return_status);
489: QP_Validate_Limit_Attrs.Entity
490: ( x_return_status => l_return_status
491: , p_LIMIT_ATTRS_rec => l_LIMIT_ATTRS_rec
492: , p_old_LIMIT_ATTRS_rec => l_old_LIMIT_ATTRS_rec
537:
538: IF l_control_rec.write_to_db THEN
539:
540: --dbms_output.put_line('Processing Limit Attributes- Calling QP_Limit_Attrs_Util.PRE_WRITE_PROCESS' || l_return_status);
541: oe_debug_pub.add('Processing Limit Attributes- Calling QP_Limit_Attrs_Util.PRE_WRITE_PROCESS' || l_return_status);
542: l_p_LIMIT_ATTRS_rec := l_LIMIT_ATTRS_rec; --[prarasto]
543:
544: QP_Limit_Attrs_Util.PRE_WRITE_PROCESS
545: ( p_LIMIT_ATTRS_rec => l_p_LIMIT_ATTRS_rec
574: l_LIMIT_ATTRS_rec.creation_date := SYSDATE;
575: l_LIMIT_ATTRS_rec.created_by := FND_GLOBAL.USER_ID;
576:
577: --dbms_output.put_line('Processing Limit Attributes- Calling QP_Limit_Attrs_Util.Insert_Row' || l_return_status);
578: oe_debug_pub.add('Processing Limit Attributes- Calling QP_Limit_Attrs_Util.Insert_Row' || l_return_status);
579: QP_Limit_Attrs_Util.Insert_Row (l_LIMIT_ATTRS_rec);
580:
581: END IF;
582:
596:
597: WHEN FND_API.G_EXC_ERROR THEN
598:
599: --dbms_output.put_line('Processing Limit Attributes- In Exception' || l_return_status);
600: oe_debug_pub.add('Processing Limit Attributes- In Exception' || l_return_status);
601: l_LIMIT_ATTRS_rec.return_status := FND_API.G_RET_STS_ERROR;
602: l_LIMIT_ATTRS_tbl(I) := l_LIMIT_ATTRS_rec;
603: l_old_LIMIT_ATTRS_tbl(I) := l_old_LIMIT_ATTRS_rec;
604:
685: l_LIMIT_BALANCES_tbl := p_LIMIT_BALANCES_tbl;
686: l_old_LIMIT_BALANCES_tbl := p_old_LIMIT_BALANCES_tbl;
687:
688: --dbms_output.put_line('Inside Limit Balances - ' || l_return_status);
689: oe_debug_pub.add('Inside Limit Balances - ' || l_return_status);
690: FOR I IN 1..l_LIMIT_BALANCES_tbl.COUNT LOOP
691: BEGIN
692:
693: -- Load local records.
709:
710: -- Set record return status.
711:
712: --dbms_output.put_line('Inside Limit Balances 1- ' || l_return_status);
713: oe_debug_pub.add('Inside Limit Balances 1- ' || l_return_status);
714: l_LIMIT_BALANCES_rec.return_status := FND_API.G_RET_STS_SUCCESS;
715:
716: -- Prepare record.
717:
750:
751: -- Complete new record from old
752:
753: --dbms_output.put_line('Processing Limit Balances - Calling QP_Limit_Balances_Util.Complete_Record ' || l_return_status);
754: oe_debug_pub.add('Processing Limit Balances - Calling QP_Limit_Balances_Util.Complete_Record ' || l_return_status);
755: l_LIMIT_BALANCES_rec := QP_Limit_Balances_Util.Complete_Record
756: ( p_LIMIT_BALANCES_rec => l_LIMIT_BALANCES_rec
757: , p_old_LIMIT_BALANCES_rec => l_old_LIMIT_BALANCES_rec
758: );
761:
762: -- Attribute level validation.
763:
764: --dbms_output.put_line('Inside Limit Balances 2- ' || l_return_status);
765: oe_debug_pub.add('Inside Limit Balances 2- ' || l_return_status);
766: IF l_control_rec.default_attributes
767: OR l_control_rec.change_attributes
768: THEN
769:
769:
770: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
771:
772: --dbms_output.put_line('Processing Limit Balances - Calling QP_Validate_Limit_Balances.Attributes ' || l_return_status);
773: oe_debug_pub.add('Processing Limit Balances - Calling QP_Validate_Limit_Balances.Attributes ' || l_return_status);
774: QP_Validate_Limit_Balances.Attributes
775: ( x_return_status => l_return_status
776: , p_LIMIT_BALANCES_rec => l_LIMIT_BALANCES_rec
777: , p_old_LIMIT_BALANCES_rec => l_old_LIMIT_BALANCES_rec
777: , p_old_LIMIT_BALANCES_rec => l_old_LIMIT_BALANCES_rec
778: );
779:
780: --dbms_output.put_line('Processing Limit Balances - After QP_Validate_Limit_Balances.Attributes ' || l_return_status);
781: oe_debug_pub.add('Processing Limit Balances - After QP_Validate_Limit_Balances.Attributes ' || l_return_status);
782: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
784: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
785: RAISE FND_API.G_EXC_ERROR;
793:
794: IF l_control_rec.change_attributes THEN
795:
796: --dbms_output.put_line('Processing Limit Balances - Calling QP_Limit_Balances_Util.Clear_Dependent_Attr ' || l_return_status);
797: oe_debug_pub.add('Processing Limit Balances - Calling QP_Limit_Balances_Util.Clear_Dependent_Attr ' || l_return_status);
798:
799: l_p_LIMIT_BALANCES_rec := l_LIMIT_BALANCES_rec; --[prarasto]
800:
801: QP_Limit_Balances_Util.Clear_Dependent_Attr
812: OR l_control_rec.change_attributes
813: THEN
814:
815: --dbms_output.put_line('Processing Limit Balances - Calling QP_Default_Limit_Balances.Attributes ' || l_return_status);
816: oe_debug_pub.add('Processing Limit Balances - Calling QP_Default_Limit_Balances.Attributes ' || l_return_status);
817: IF l_LIMIT_BALANCES_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
818:
819: l_p_LIMIT_BALANCES_rec := l_LIMIT_BALANCES_rec; --[prarasto]
820:
832: OR l_control_rec.change_attributes
833: THEN
834:
835: --dbms_output.put_line('Processing Limit Balances - Calling QP_Limit_Balances_Util.Apply_Attribute_Changes ' || l_return_status);
836: oe_debug_pub.add('Processing Limit Balances - Calling QP_Limit_Balances_Util.Apply_Attribute_Changes ' || l_return_status);
837:
838: l_p_LIMIT_BALANCES_rec := l_LIMIT_BALANCES_rec; --[prarasto]
839:
840: QP_Limit_Balances_Util.Apply_Attribute_Changes
866:
867: END IF;
868:
869: --dbms_output.put_line('Processing Limit Balances - After QP_Validate_Limit_Balances.Entity ' || l_return_status);
870: oe_debug_pub.add('Processing Limit Balances - After QP_Validate_Limit_Balances.Entity ' || l_return_status);
871: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
872: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
873: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
874: RAISE FND_API.G_EXC_ERROR;
878:
879: -- Step 4. Write to DB
880:
881: --dbms_output.put_line('Processing Limit Balances - At write_to_db ' || l_return_status);
882: oe_debug_pub.add('Processing Limit Balances - At write_to_db ' || l_return_status);
883: IF l_control_rec.write_to_db THEN
884:
885: IF l_LIMIT_BALANCES_rec.operation = QP_GLOBALS.G_OPR_DELETE THEN
886:
905: l_LIMIT_BALANCES_rec.creation_date := SYSDATE;
906: l_LIMIT_BALANCES_rec.created_by := FND_GLOBAL.USER_ID;
907:
908: --dbms_output.put_line('Processing Limit Balances - Calling QP_Limit_Balances_Util.Insert_Row ' || l_return_status);
909: oe_debug_pub.add('Processing Limit Balances - Calling QP_Limit_Balances_Util.Insert_Row ' || l_return_status);
910: QP_Limit_Balances_Util.Insert_Row (l_LIMIT_BALANCES_rec);
911:
912: END IF;
913:
1085: l_old_LIMIT_BALANCES_tbl := p_old_LIMIT_BALANCES_tbl;
1086:
1087: -- Limits
1088: --dbms_output.put_line('Processing Limits ' || l_return_status);
1089: oe_debug_pub.add('Processing Limits ' || l_return_status);
1090:
1091: l_p_LIMITS_rec := l_LIMITS_rec; --[prarasto]
1092: l_p_old_LIMITS_rec := l_old_LIMITS_rec; --[prarasto]
1093:
1099: , x_LIMITS_rec => l_LIMITS_rec
1100: , x_old_LIMITS_rec => l_old_LIMITS_rec
1101: );
1102: --dbms_output.put_line('Limit_Id' || l_LIMITS_rec.limit_id);
1103: oe_debug_pub.add('Limit_Id' || l_LIMITS_rec.limit_id);
1104:
1105: -- Perform LIMITS group requests.
1106:
1107: IF p_control_rec.process AND
1114: END IF;
1115: IF p_control_rec.process_entity = QP_GLOBALS.G_ENTITY_LIMITS
1116: THEN
1117:
1118: oe_debug_pub.add('Calling QP_DELAYED_REQESTS_PVT.Process_Delayed_Requests');
1119: -- FOR ATTR_EACH_EXISTS , NON_EACH_ATTR_COUNT , TOTAL_ATTR_COUNT
1120: QP_DELAYED_REQUESTS_PVT.Process_Delayed_Requests
1121: (
1122: x_return_status => l_return_status
1143: -- Copy parent_id.
1144:
1145: l_LIMIT_ATTRS_tbl(I).limit_id := l_LIMITS_rec.limit_id;
1146: --dbms_output.put_line('XXXX Limit_ATTR_ID' || l_LIMIT_ATTRS_tbl(I).limit_id);
1147: oe_debug_pub.add('Limit_ATTR_ID' || l_LIMIT_ATTRS_tbl(I).limit_id);
1148: END IF;
1149: END LOOP;
1150:
1151: -- Limit_Attrss
1150:
1151: -- Limit_Attrss
1152:
1153: --dbms_output.put_line('Processing Limit Attributes ');
1154: oe_debug_pub.add('Processing Limit Attributes ');
1155:
1156: l_p_LIMIT_ATTRS_tbl := l_LIMIT_ATTRS_tbl; --[prarasto]
1157: l_p_old_LIMIT_ATTRS_tbl := l_old_LIMIT_ATTRS_tbl; --[prarasto]
1158:
1190: -- Copy parent_id.
1191:
1192: l_LIMIT_BALANCES_tbl(I).limit_id := l_LIMITS_rec.limit_id;
1193: --dbms_output.put_line('Limit_BAL_Id' || l_LIMIT_BALANCES_tbl(I).limit_id);
1194: oe_debug_pub.add('Limit_BAL_Id' || l_LIMIT_BALANCES_tbl(I).limit_id);
1195: END IF;
1196: END LOOP;
1197:
1198: -- Limit_Balancess
1197:
1198: -- Limit_Balancess
1199:
1200: --dbms_output.put_line('Processing Limit Balances ');
1201: oe_debug_pub.add('Processing Limit Balances ');
1202:
1203: l_p_LIMIT_BALANCES_tbl := l_LIMIT_BALANCES_tbl; --[prarasto]
1204: l_p_old_LIMIT_BALANCES_tbl := l_old_LIMIT_BALANCES_tbl; --[prarasto]
1205: