DBA Data[Home] [Help]

APPS.QP_LIMITS_PVT dependencies on QP_GLOBALS

Line 12: , p_control_rec IN QP_GLOBALS.Control_Rec_Type

8: -- Limits
9:
10: PROCEDURE Limits
11: ( p_validation_level IN NUMBER
12: , p_control_rec IN QP_GLOBALS.Control_Rec_Type
13: , p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
14: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
15: , x_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
16: , x_old_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type

Line 20: l_control_rec QP_GLOBALS.Control_Rec_Type;

16: , x_old_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
17: )
18: IS
19: l_return_status VARCHAR2(1);
20: l_control_rec QP_GLOBALS.Control_Rec_Type;
21: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type := p_LIMITS_rec;
22: l_old_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type := p_old_LIMITS_rec;
23:
24: l_p_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type; --[prarasto]

Line 30: l_control_rec := QP_GLOBALS.Init_Control_Rec

26: BEGIN
27:
28: -- Load API control record
29:
30: l_control_rec := QP_GLOBALS.Init_Control_Rec
31: ( p_operation => l_LIMITS_rec.operation
32: , p_control_rec => p_control_rec
33: );
34:

Line 41: IF l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN

37: l_LIMITS_rec.return_status := FND_API.G_RET_STS_SUCCESS;
38:
39: -- Prepare record.
40:
41: IF l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
42:
43: l_LIMITS_rec.db_flag := FND_API.G_FALSE;
44:
45: -- Set missing old record elements to NULL.

Line 50: ELSIF l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_UPDATE

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
53:
54: l_LIMITS_rec.db_flag := FND_API.G_TRUE;

Line 51: OR l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_DELETE

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
53:
54: l_LIMITS_rec.db_flag := FND_API.G_TRUE;
55:

Line 135: IF l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_CREATE 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:
139: QP_Default_Limits.Attributes

Line 171: IF l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_CREATE OR

167: -- Entity level validation.
168:
169: IF l_control_rec.validate_entity THEN
170:
171: IF l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_CREATE OR
172: l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_UPDATE THEN
173:
174: QP_Validate_Limits.Entity
175: ( x_return_status => l_return_status

Line 172: l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_UPDATE THEN

168:
169: IF l_control_rec.validate_entity THEN
170:
171: IF l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_CREATE OR
172: l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_UPDATE THEN
173:
174: QP_Validate_Limits.Entity
175: ( x_return_status => l_return_status
176: , p_LIMITS_rec => l_LIMITS_rec

Line 188: IF l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_DELETE THEN

184: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
185: RAISE FND_API.G_EXC_ERROR;
186: END IF;
187:
188: IF l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_DELETE THEN
189:
190: QP_Validate_Limits.Entity_Delete
191: ( x_return_status => l_return_status
192: , p_LIMITS_rec => l_LIMITS_rec

Line 195: ELSIF l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_UPDATE THEN

191: ( x_return_status => l_return_status
192: , p_LIMITS_rec => l_LIMITS_rec
193: );
194:
195: ELSIF l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_UPDATE THEN
196:
197: QP_Validate_Limits.Entity_Update
198: ( x_return_status => l_return_status
199: , p_LIMITS_rec => l_LIMITS_rec

Line 232: IF l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_DELETE THEN

228: END IF;
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

Line 247: IF l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_UPDATE THEN

243: l_LIMITS_rec.last_update_date := SYSDATE;
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:

Line 252: ELSIF l_LIMITS_rec.operation = QP_GLOBALS.G_OPR_CREATE 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;
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);

Line 311: , p_control_rec IN QP_GLOBALS.Control_Rec_Type

307: -- Limit_Attrss
308:
309: PROCEDURE Limit_Attrss
310: ( p_validation_level IN NUMBER
311: , p_control_rec IN QP_GLOBALS.Control_Rec_Type
312: , p_LIMIT_ATTRS_tbl IN QP_Limits_PUB.Limit_Attrs_Tbl_Type
313: , p_old_LIMIT_ATTRS_tbl IN QP_Limits_PUB.Limit_Attrs_Tbl_Type
314: , x_LIMIT_ATTRS_tbl OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limit_Attrs_Tbl_Type
315: , x_old_LIMIT_ATTRS_tbl OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limit_Attrs_Tbl_Type

Line 319: l_control_rec QP_GLOBALS.Control_Rec_Type;

315: , x_old_LIMIT_ATTRS_tbl OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limit_Attrs_Tbl_Type
316: )
317: IS
318: l_return_status VARCHAR2(1);
319: l_control_rec QP_GLOBALS.Control_Rec_Type;
320: l_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
321: l_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
322: l_old_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
323: l_old_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;

Line 348: l_control_rec := QP_GLOBALS.Init_Control_Rec

344: END IF;
345:
346: -- Load API control record
347:
348: l_control_rec := QP_GLOBALS.Init_Control_Rec
349: ( p_operation => l_LIMIT_ATTRS_rec.operation
350: , p_control_rec => p_control_rec
351: );
352:

Line 359: IF l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN

355: l_LIMIT_ATTRS_rec.return_status := FND_API.G_RET_STS_SUCCESS;
356:
357: -- Prepare record.
358:
359: IF l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
360:
361: l_LIMIT_ATTRS_rec.db_flag := FND_API.G_FALSE;
362:
363: -- Set missing old record elements to NULL.

Line 368: ELSIF l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_UPDATE

364:
365: l_old_LIMIT_ATTRS_rec :=
366: QP_Limit_Attrs_Util.Convert_Miss_To_Null (l_old_LIMIT_ATTRS_rec);
367:
368: ELSIF l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_UPDATE
369: OR l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_DELETE
370: THEN
371:
372: l_LIMIT_ATTRS_rec.db_flag := FND_API.G_TRUE;

Line 369: OR l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_DELETE

365: l_old_LIMIT_ATTRS_rec :=
366: QP_Limit_Attrs_Util.Convert_Miss_To_Null (l_old_LIMIT_ATTRS_rec);
367:
368: ELSIF l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_UPDATE
369: OR l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_DELETE
370: THEN
371:
372: l_LIMIT_ATTRS_rec.db_flag := FND_API.G_TRUE;
373:

Line 449: IF l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN

445: IF l_control_rec.default_attributes
446: OR l_control_rec.change_attributes
447: THEN
448:
449: IF l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
450:
451: l_p_LIMIT_ATTRS_rec := l_LIMIT_ATTRS_rec; --[prarasto]
452:
453: QP_Default_Limit_Attrs.Attributes

Line 484: IF l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_CREATE OR

480: -- Entity level validation.
481:
482: IF l_control_rec.validate_entity THEN
483:
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);

Line 485: l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_UPDATE THEN

481:
482: IF l_control_rec.validate_entity THEN
483:
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

Line 504: IF l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN

500: RAISE FND_API.G_EXC_ERROR;
501: END IF;
502:
503: --dbms_output.put_line('Processing Limit Attributes- After QP_Validate_Limit_Attrs.Entity' || l_return_status);
504: IF l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
505:
506: QP_Validate_Limit_Attrs.Entity_Insert
507: ( x_return_status => l_return_status
508: , p_LIMIT_ATTRS_rec => l_LIMIT_ATTRS_rec

Line 511: ELSIF l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_DELETE THEN

507: ( x_return_status => l_return_status
508: , p_LIMIT_ATTRS_rec => l_LIMIT_ATTRS_rec
509: );
510:
511: ELSIF l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_DELETE THEN
512:
513: QP_Validate_Limit_Attrs.Entity_Delete
514: ( x_return_status => l_return_status
515: , p_LIMIT_ATTRS_rec => l_LIMIT_ATTRS_rec

Line 518: ELSIF l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_UPDATE THEN

514: ( x_return_status => l_return_status
515: , p_LIMIT_ATTRS_rec => l_LIMIT_ATTRS_rec
516: );
517:
518: ELSIF l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_UPDATE THEN
519:
520: QP_Validate_Limit_Attrs.Entity_Update
521: ( x_return_status => l_return_status
522: , p_LIMIT_ATTRS_rec => l_LIMIT_ATTRS_rec

Line 554: IF l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_DELETE THEN

550: END IF;
551:
552: IF l_control_rec.write_to_db THEN
553:
554: IF l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_DELETE THEN
555:
556: QP_Limit_Attrs_Util.Delete_Row
557: ( p_limit_attribute_id => l_LIMIT_ATTRS_rec.limit_attribute_id
558: );

Line 568: IF l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_UPDATE THEN

564: l_LIMIT_ATTRS_rec.last_update_date := SYSDATE;
565: l_LIMIT_ATTRS_rec.last_updated_by := FND_GLOBAL.USER_ID;
566: l_LIMIT_ATTRS_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
567:
568: IF l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_UPDATE THEN
569:
570: QP_Limit_Attrs_Util.Update_Row (l_LIMIT_ATTRS_rec);
571:
572: ELSIF l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN

Line 572: ELSIF l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN

568: IF l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_UPDATE THEN
569:
570: QP_Limit_Attrs_Util.Update_Row (l_LIMIT_ATTRS_rec);
571:
572: ELSIF l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
573:
574: l_LIMIT_ATTRS_rec.creation_date := SYSDATE;
575: l_LIMIT_ATTRS_rec.created_by := FND_GLOBAL.USER_ID;
576:

Line 666: , p_control_rec IN QP_GLOBALS.Control_Rec_Type

662: -- Limit_Balancess
663:
664: PROCEDURE Limit_Balancess
665: ( p_validation_level IN NUMBER
666: , p_control_rec IN QP_GLOBALS.Control_Rec_Type
667: , p_LIMIT_BALANCES_tbl IN QP_Limits_PUB.Limit_Balances_Tbl_Type
668: , p_old_LIMIT_BALANCES_tbl IN QP_Limits_PUB.Limit_Balances_Tbl_Type
669: , x_LIMIT_BALANCES_tbl OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limit_Balances_Tbl_Type
670: , x_old_LIMIT_BALANCES_tbl OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limit_Balances_Tbl_Type

Line 674: l_control_rec QP_GLOBALS.Control_Rec_Type;

670: , x_old_LIMIT_BALANCES_tbl OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limit_Balances_Tbl_Type
671: )
672: IS
673: l_return_status VARCHAR2(1);
674: l_control_rec QP_GLOBALS.Control_Rec_Type;
675: l_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
676: l_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
677: l_old_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
678: l_old_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;

Line 705: l_control_rec := QP_GLOBALS.Init_Control_Rec

701: END IF;
702:
703: -- Load API control record
704:
705: l_control_rec := QP_GLOBALS.Init_Control_Rec
706: ( p_operation => l_LIMIT_BALANCES_rec.operation
707: , p_control_rec => p_control_rec
708: );
709:

Line 718: IF l_LIMIT_BALANCES_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN

714: l_LIMIT_BALANCES_rec.return_status := FND_API.G_RET_STS_SUCCESS;
715:
716: -- Prepare record.
717:
718: IF l_LIMIT_BALANCES_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
719:
720: l_LIMIT_BALANCES_rec.db_flag := FND_API.G_FALSE;
721:
722: -- Set missing old record elements to NULL.

Line 727: ELSIF l_LIMIT_BALANCES_rec.operation = QP_GLOBALS.G_OPR_UPDATE

723:
724: l_old_LIMIT_BALANCES_rec :=
725: QP_Limit_Balances_Util.Convert_Miss_To_Null (l_old_LIMIT_BALANCES_rec);
726:
727: ELSIF l_LIMIT_BALANCES_rec.operation = QP_GLOBALS.G_OPR_UPDATE
728: OR l_LIMIT_BALANCES_rec.operation = QP_GLOBALS.G_OPR_DELETE
729: THEN
730:
731: l_LIMIT_BALANCES_rec.db_flag := FND_API.G_TRUE;

Line 728: OR l_LIMIT_BALANCES_rec.operation = QP_GLOBALS.G_OPR_DELETE

724: l_old_LIMIT_BALANCES_rec :=
725: QP_Limit_Balances_Util.Convert_Miss_To_Null (l_old_LIMIT_BALANCES_rec);
726:
727: ELSIF l_LIMIT_BALANCES_rec.operation = QP_GLOBALS.G_OPR_UPDATE
728: OR l_LIMIT_BALANCES_rec.operation = QP_GLOBALS.G_OPR_DELETE
729: THEN
730:
731: l_LIMIT_BALANCES_rec.db_flag := FND_API.G_TRUE;
732:

Line 817: IF l_LIMIT_BALANCES_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN

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:
821: QP_Default_Limit_Balances.Attributes

Line 852: IF l_LIMIT_BALANCES_rec.operation = QP_GLOBALS.G_OPR_DELETE THEN

848: -- Entity level validation.
849:
850: IF l_control_rec.validate_entity THEN
851:
852: IF l_LIMIT_BALANCES_rec.operation = QP_GLOBALS.G_OPR_DELETE THEN
853:
854: QP_Validate_Limit_Balances.Entity_Delete
855: ( x_return_status => l_return_status
856: , p_LIMIT_BALANCES_rec => l_LIMIT_BALANCES_rec

Line 885: IF l_LIMIT_BALANCES_rec.operation = QP_GLOBALS.G_OPR_DELETE THEN

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:
887: QP_Limit_Balances_Util.Delete_Row
888: ( p_limit_balance_id => l_LIMIT_BALANCES_rec.limit_balance_id
889: );

Line 899: IF l_LIMIT_BALANCES_rec.operation = QP_GLOBALS.G_OPR_UPDATE THEN

895: l_LIMIT_BALANCES_rec.last_update_date := SYSDATE;
896: l_LIMIT_BALANCES_rec.last_updated_by := FND_GLOBAL.USER_ID;
897: l_LIMIT_BALANCES_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
898:
899: IF l_LIMIT_BALANCES_rec.operation = QP_GLOBALS.G_OPR_UPDATE THEN
900:
901: QP_Limit_Balances_Util.Update_Row (l_LIMIT_BALANCES_rec);
902:
903: ELSIF l_LIMIT_BALANCES_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN

Line 903: ELSIF l_LIMIT_BALANCES_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN

899: IF l_LIMIT_BALANCES_rec.operation = QP_GLOBALS.G_OPR_UPDATE THEN
900:
901: QP_Limit_Balances_Util.Update_Row (l_LIMIT_BALANCES_rec);
902:
903: ELSIF l_LIMIT_BALANCES_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
904:
905: l_LIMIT_BALANCES_rec.creation_date := SYSDATE;
906: l_LIMIT_BALANCES_rec.created_by := FND_GLOBAL.USER_ID;
907:

Line 1013: , p_control_rec IN QP_GLOBALS.Control_Rec_Type :=

1009: ( p_api_version_number IN NUMBER
1010: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1011: , p_commit IN VARCHAR2 := FND_API.G_FALSE
1012: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1013: , p_control_rec IN QP_GLOBALS.Control_Rec_Type :=
1014: QP_GLOBALS.G_MISS_CONTROL_REC
1015: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1016: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
1017: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2

Line 1014: QP_GLOBALS.G_MISS_CONTROL_REC

1010: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1011: , p_commit IN VARCHAR2 := FND_API.G_FALSE
1012: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1013: , p_control_rec IN QP_GLOBALS.Control_Rec_Type :=
1014: QP_GLOBALS.G_MISS_CONTROL_REC
1015: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1016: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
1017: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1018: , p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type :=

Line 1038: l_control_rec QP_GLOBALS.Control_Rec_Type;

1034: IS
1035: l_api_version_number CONSTANT NUMBER := 1.0;
1036: l_api_name CONSTANT VARCHAR2(30):= 'Process_Limits';
1037: l_return_status VARCHAR2(1);
1038: l_control_rec QP_GLOBALS.Control_Rec_Type;
1039: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type := p_LIMITS_rec;
1040: l_old_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type := p_old_LIMITS_rec;
1041: l_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
1042: l_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;

Line 1108: (p_control_rec.process_entity = QP_GLOBALS.G_ENTITY_ALL OR

1104:
1105: -- Perform LIMITS group requests.
1106:
1107: IF p_control_rec.process AND
1108: (p_control_rec.process_entity = QP_GLOBALS.G_ENTITY_ALL OR
1109: p_control_rec.process_entity = QP_GLOBALS.G_ENTITY_LIMITS)
1110: THEN
1111:
1112: NULL;

Line 1109: p_control_rec.process_entity = QP_GLOBALS.G_ENTITY_LIMITS)

1105: -- Perform LIMITS group requests.
1106:
1107: IF p_control_rec.process AND
1108: (p_control_rec.process_entity = QP_GLOBALS.G_ENTITY_ALL OR
1109: p_control_rec.process_entity = QP_GLOBALS.G_ENTITY_LIMITS)
1110: THEN
1111:
1112: NULL;
1113:

Line 1115: IF p_control_rec.process_entity = QP_GLOBALS.G_ENTITY_LIMITS

1111:
1112: NULL;
1113:
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

Line 1138: IF l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_CREATE

1134:
1135: l_LIMIT_ATTRS_rec := l_LIMIT_ATTRS_tbl(I);
1136:
1137: --dbms_output.put_line('XXXX Limit_ATTR_ID' || l_LIMIT_ATTRS_tbl(I).limit_id);
1138: IF l_LIMIT_ATTRS_rec.operation = QP_GLOBALS.G_OPR_CREATE
1139: AND (l_LIMIT_ATTRS_rec.limit_id IS NULL OR
1140: l_LIMIT_ATTRS_rec.limit_id = FND_API.G_MISS_NUM)
1141: THEN
1142:

Line 1171: (p_control_rec.process_entity = QP_GLOBALS.G_ENTITY_ALL OR

1167:
1168: -- Perform LIMIT_ATTRS group requests.
1169:
1170: IF p_control_rec.process AND
1171: (p_control_rec.process_entity = QP_GLOBALS.G_ENTITY_ALL OR
1172: p_control_rec.process_entity = QP_GLOBALS.G_ENTITY_LIMIT_ATTRS)
1173: THEN
1174:
1175: NULL;

Line 1172: p_control_rec.process_entity = QP_GLOBALS.G_ENTITY_LIMIT_ATTRS)

1168: -- Perform LIMIT_ATTRS group requests.
1169:
1170: IF p_control_rec.process AND
1171: (p_control_rec.process_entity = QP_GLOBALS.G_ENTITY_ALL OR
1172: p_control_rec.process_entity = QP_GLOBALS.G_ENTITY_LIMIT_ATTRS)
1173: THEN
1174:
1175: NULL;
1176:

Line 1185: IF l_LIMIT_BALANCES_rec.operation = QP_GLOBALS.G_OPR_CREATE

1181: FOR I IN 1..l_LIMIT_BALANCES_tbl.COUNT LOOP
1182:
1183: l_LIMIT_BALANCES_rec := l_LIMIT_BALANCES_tbl(I);
1184:
1185: IF l_LIMIT_BALANCES_rec.operation = QP_GLOBALS.G_OPR_CREATE
1186: AND (l_LIMIT_BALANCES_rec.limit_id IS NULL OR
1187: l_LIMIT_BALANCES_rec.limit_id = FND_API.G_MISS_NUM)
1188: THEN
1189:

Line 1218: (p_control_rec.process_entity = QP_GLOBALS.G_ENTITY_ALL OR

1214:
1215: -- Perform LIMIT_BALANCES group requests.
1216:
1217: IF p_control_rec.process AND
1218: (p_control_rec.process_entity = QP_GLOBALS.G_ENTITY_ALL OR
1219: p_control_rec.process_entity = QP_GLOBALS.G_ENTITY_LIMIT_BALANCES)
1220: THEN
1221:
1222: NULL;

Line 1219: p_control_rec.process_entity = QP_GLOBALS.G_ENTITY_LIMIT_BALANCES)

1215: -- Perform LIMIT_BALANCES group requests.
1216:
1217: IF p_control_rec.process AND
1218: (p_control_rec.process_entity = QP_GLOBALS.G_ENTITY_ALL OR
1219: p_control_rec.process_entity = QP_GLOBALS.G_ENTITY_LIMIT_BALANCES)
1220: THEN
1221:
1222: NULL;
1223:

Line 1230: p_control_rec.process_entity = QP_GLOBALS.G_ENTITY_ALL

1226:
1227: -- Step 5. Perform Object group logic
1228:
1229: IF p_control_rec.process AND
1230: p_control_rec.process_entity = QP_GLOBALS.G_ENTITY_ALL
1231: THEN
1232: -- FOR ATTR_EACH_EXISTS , NON_EACH_ATTR_COUNT , TOTAL_ATTR_COUNT
1233: QP_DELAYED_REQUESTS_PVT.Process_Delayed_Requests
1234: (

Line 1413: IF p_LIMITS_rec.operation = QP_GLOBALS.G_OPR_LOCK THEN

1409: SAVEPOINT Lock_Limits_PVT;
1410:
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

Line 1434: IF p_LIMIT_ATTRS_tbl(I).operation = QP_GLOBALS.G_OPR_LOCK THEN

1430: -- Lock LIMIT_ATTRS
1431:
1432: FOR I IN 1..p_LIMIT_ATTRS_tbl.COUNT LOOP
1433:
1434: IF p_LIMIT_ATTRS_tbl(I).operation = QP_GLOBALS.G_OPR_LOCK THEN
1435:
1436: QP_Limit_Attrs_Util.Lock_Row
1437: ( p_LIMIT_ATTRS_rec => p_LIMIT_ATTRS_tbl(I)
1438: , x_LIMIT_ATTRS_rec => l_LIMIT_ATTRS_rec

Line 1458: IF p_LIMIT_BALANCES_tbl(I).operation = QP_GLOBALS.G_OPR_LOCK THEN

1454: -- Lock LIMIT_BALANCES
1455:
1456: FOR I IN 1..p_LIMIT_BALANCES_tbl.COUNT LOOP
1457:
1458: IF p_LIMIT_BALANCES_tbl(I).operation = QP_GLOBALS.G_OPR_LOCK THEN
1459:
1460: QP_Limit_Balances_Util.Lock_Row
1461: ( p_LIMIT_BALANCES_rec => p_LIMIT_BALANCES_tbl(I)
1462: , x_LIMIT_BALANCES_rec => l_LIMIT_BALANCES_rec