6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'QP_QP_Form_Limits';
7:
8: -- Global variables holding cached record.
9:
10: g_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
11: g_db_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
12:
13: -- Forward declaration of procedures maintaining entity record cache.
14:
7:
8: -- Global variables holding cached record.
9:
10: g_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
11: g_db_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
12:
13: -- Forward declaration of procedures maintaining entity record cache.
14:
15: PROCEDURE Write_LIMITS
12:
13: -- Forward declaration of procedures maintaining entity record cache.
14:
15: PROCEDURE Write_LIMITS
16: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
17: , p_db_record IN BOOLEAN := FALSE
18: );
19:
20: FUNCTION Get_LIMITS
20: FUNCTION Get_LIMITS
21: ( p_db_record IN BOOLEAN := FALSE
22: , p_limit_id IN NUMBER
23: )
24: RETURN QP_Limits_PUB.Limits_Rec_Type;
25:
26: PROCEDURE Clear_LIMITS;
27:
28: -- Global variable holding performed operations.
26: PROCEDURE Clear_LIMITS;
27:
28: -- Global variable holding performed operations.
29:
30: g_opr__tbl QP_Limits_PUB.Limits_Tbl_Type;
31:
32: -- Procedure : Default_Attributes
33: --
34:
77: , x_multival_attr2_datatype OUT NOCOPY /* file.sql.39 change */ VARCHAR2
78: , x_organization OUT NOCOPY /* file.sql.39 change */ VARCHAR2
79: )
80: IS
81: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
82: l_LIMITS_val_rec QP_Limits_PUB.Limits_Val_Rec_Type;
83: l_control_rec QP_GLOBALS.Control_Rec_Type;
84: l_return_status VARCHAR2(1);
85: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
78: , x_organization OUT NOCOPY /* file.sql.39 change */ VARCHAR2
79: )
80: IS
81: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
82: l_LIMITS_val_rec QP_Limits_PUB.Limits_Val_Rec_Type;
83: l_control_rec QP_GLOBALS.Control_Rec_Type;
84: l_return_status VARCHAR2(1);
85: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
86: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
81: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
82: l_LIMITS_val_rec QP_Limits_PUB.Limits_Val_Rec_Type;
83: l_control_rec QP_GLOBALS.Control_Rec_Type;
84: l_return_status VARCHAR2(1);
85: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
86: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
87: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
88: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
89: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
82: l_LIMITS_val_rec QP_Limits_PUB.Limits_Val_Rec_Type;
83: l_control_rec QP_GLOBALS.Control_Rec_Type;
84: l_return_status VARCHAR2(1);
85: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
86: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
87: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
88: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
89: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
90: BEGIN
83: l_control_rec QP_GLOBALS.Control_Rec_Type;
84: l_return_status VARCHAR2(1);
85: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
86: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
87: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
88: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
89: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
90: BEGIN
91:
84: l_return_status VARCHAR2(1);
85: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
86: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
87: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
88: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
89: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
90: BEGIN
91:
92: -- Set control flags.
85: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
86: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
87: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
88: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
89: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
90: BEGIN
91:
92: -- Set control flags.
93:
335: , x_list_line OUT NOCOPY /* file.sql.39 change */ VARCHAR2
336: , x_organization OUT NOCOPY /* file.sql.39 change */ VARCHAR2
337: )
338: IS
339: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
340: l_old_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
341: l_LIMITS_val_rec QP_Limits_PUB.Limits_Val_Rec_Type;
342: l_control_rec QP_GLOBALS.Control_Rec_Type;
343: l_return_status VARCHAR2(1);
336: , x_organization OUT NOCOPY /* file.sql.39 change */ VARCHAR2
337: )
338: IS
339: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
340: l_old_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
341: l_LIMITS_val_rec QP_Limits_PUB.Limits_Val_Rec_Type;
342: l_control_rec QP_GLOBALS.Control_Rec_Type;
343: l_return_status VARCHAR2(1);
344: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
337: )
338: IS
339: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
340: l_old_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
341: l_LIMITS_val_rec QP_Limits_PUB.Limits_Val_Rec_Type;
342: l_control_rec QP_GLOBALS.Control_Rec_Type;
343: l_return_status VARCHAR2(1);
344: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
345: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
340: l_old_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
341: l_LIMITS_val_rec QP_Limits_PUB.Limits_Val_Rec_Type;
342: l_control_rec QP_GLOBALS.Control_Rec_Type;
343: l_return_status VARCHAR2(1);
344: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
345: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
346: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
347: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
348: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
341: l_LIMITS_val_rec QP_Limits_PUB.Limits_Val_Rec_Type;
342: l_control_rec QP_GLOBALS.Control_Rec_Type;
343: l_return_status VARCHAR2(1);
344: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
345: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
346: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
347: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
348: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
349: BEGIN
342: l_control_rec QP_GLOBALS.Control_Rec_Type;
343: l_return_status VARCHAR2(1);
344: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
345: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
346: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
347: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
348: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
349: BEGIN
350:
343: l_return_status VARCHAR2(1);
344: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
345: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
346: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
347: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
348: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
349: BEGIN
350:
351: -- Set control flags.
344: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
345: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
346: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
347: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
348: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
349: BEGIN
350:
351: -- Set control flags.
352:
833: , x_last_updated_by OUT NOCOPY /* file.sql.39 change */ NUMBER
834: , x_last_update_login OUT NOCOPY /* file.sql.39 change */ NUMBER
835: )
836: IS
837: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
838: l_old_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
839: l_control_rec QP_GLOBALS.Control_Rec_Type;
840: l_return_status VARCHAR2(1);
841: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
834: , x_last_update_login OUT NOCOPY /* file.sql.39 change */ NUMBER
835: )
836: IS
837: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
838: l_old_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
839: l_control_rec QP_GLOBALS.Control_Rec_Type;
840: l_return_status VARCHAR2(1);
841: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
842: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
837: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
838: l_old_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
839: l_control_rec QP_GLOBALS.Control_Rec_Type;
840: l_return_status VARCHAR2(1);
841: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
842: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
843: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
844: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
845: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
838: l_old_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
839: l_control_rec QP_GLOBALS.Control_Rec_Type;
840: l_return_status VARCHAR2(1);
841: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
842: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
843: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
844: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
845: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
846: BEGIN
839: l_control_rec QP_GLOBALS.Control_Rec_Type;
840: l_return_status VARCHAR2(1);
841: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
842: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
843: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
844: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
845: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
846: BEGIN
847:
840: l_return_status VARCHAR2(1);
841: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
842: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
843: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
844: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
845: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
846: BEGIN
847:
848: -- Set control flags.
841: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
842: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
843: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
844: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
845: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
846: BEGIN
847:
848: -- Set control flags.
849:
987: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
988: , p_limit_id IN NUMBER
989: )
990: IS
991: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
992: l_control_rec QP_GLOBALS.Control_Rec_Type;
993: l_return_status VARCHAR2(1);
994: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
995: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
990: IS
991: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
992: l_control_rec QP_GLOBALS.Control_Rec_Type;
993: l_return_status VARCHAR2(1);
994: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
995: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
996: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
997: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
998: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
991: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
992: l_control_rec QP_GLOBALS.Control_Rec_Type;
993: l_return_status VARCHAR2(1);
994: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
995: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
996: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
997: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
998: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
999: BEGIN
992: l_control_rec QP_GLOBALS.Control_Rec_Type;
993: l_return_status VARCHAR2(1);
994: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
995: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
996: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
997: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
998: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
999: BEGIN
1000:
993: l_return_status VARCHAR2(1);
994: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
995: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
996: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
997: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
998: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
999: BEGIN
1000:
1001: -- Set control flags.
994: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
995: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
996: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
997: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
998: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
999: BEGIN
1000:
1001: -- Set control flags.
1002:
1117: )
1118: IS
1119: l_control_rec QP_GLOBALS.Control_Rec_Type;
1120: l_return_status VARCHAR2(1);
1121: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1122: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
1123: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
1124: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
1125: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
1118: IS
1119: l_control_rec QP_GLOBALS.Control_Rec_Type;
1120: l_return_status VARCHAR2(1);
1121: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1122: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
1123: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
1124: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
1125: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
1126: BEGIN
1119: l_control_rec QP_GLOBALS.Control_Rec_Type;
1120: l_return_status VARCHAR2(1);
1121: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1122: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
1123: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
1124: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
1125: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
1126: BEGIN
1127:
1120: l_return_status VARCHAR2(1);
1121: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1122: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
1123: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
1124: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
1125: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
1126: BEGIN
1127:
1128: -- Set control flags.
1121: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1122: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
1123: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
1124: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
1125: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
1126: BEGIN
1127:
1128: -- Set control flags.
1129:
1229: )
1230: IS
1231: l_control_rec QP_GLOBALS.Control_Rec_Type;
1232: l_return_status VARCHAR2(1);
1233: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1234: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
1235: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
1236: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
1237: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
1230: IS
1231: l_control_rec QP_GLOBALS.Control_Rec_Type;
1232: l_return_status VARCHAR2(1);
1233: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1234: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
1235: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
1236: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
1237: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
1238: BEGIN
1231: l_control_rec QP_GLOBALS.Control_Rec_Type;
1232: l_return_status VARCHAR2(1);
1233: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1234: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
1235: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
1236: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
1237: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
1238: BEGIN
1239:
1232: l_return_status VARCHAR2(1);
1233: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1234: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
1235: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
1236: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
1237: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
1238: BEGIN
1239:
1240: -- Set control flags.
1233: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1234: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
1235: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
1236: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
1237: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
1238: BEGIN
1239:
1240: -- Set control flags.
1241:
1383: , p_request_id IN NUMBER
1384: )
1385: IS
1386: l_return_status VARCHAR2(1);
1387: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1388: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1389: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
1390: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
1391: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
1384: )
1385: IS
1386: l_return_status VARCHAR2(1);
1387: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1388: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1389: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
1390: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
1391: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
1392: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
1385: IS
1386: l_return_status VARCHAR2(1);
1387: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1388: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1389: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
1390: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
1391: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
1392: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
1393: BEGIN
1386: l_return_status VARCHAR2(1);
1387: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1388: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1389: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
1390: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
1391: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
1392: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
1393: BEGIN
1394:
1387: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1388: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1389: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
1390: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
1391: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
1392: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
1393: BEGIN
1394:
1395: -- Load LIMITS record
1388: l_x_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1389: l_x_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
1390: l_x_LIMIT_ATTRS_tbl QP_Limits_PUB.Limit_Attrs_Tbl_Type;
1391: l_x_LIMIT_BALANCES_rec QP_Limits_PUB.Limit_Balances_Rec_Type;
1392: l_x_LIMIT_BALANCES_tbl QP_Limits_PUB.Limit_Balances_Tbl_Type;
1393: BEGIN
1394:
1395: -- Load LIMITS record
1396:
1504:
1505: -- Procedures maintaining LIMITS record cache.
1506:
1507: PROCEDURE Write_LIMITS
1508: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
1509: , p_db_record IN BOOLEAN := FALSE
1510: )
1511: IS
1512: BEGIN
1524: FUNCTION Get_LIMITS
1525: ( p_db_record IN BOOLEAN := FALSE
1526: , p_limit_id IN NUMBER
1527: )
1528: RETURN QP_Limits_PUB.Limits_Rec_Type
1529: IS
1530: BEGIN
1531:
1532: IF p_limit_id <> g_LIMITS_rec.limit_id
1561: PROCEDURE Clear_Limits
1562: IS
1563: BEGIN
1564:
1565: g_LIMITS_rec := QP_Limits_PUB.G_MISS_LIMITS_REC;
1566: g_db_LIMITS_rec := QP_Limits_PUB.G_MISS_LIMITS_REC;
1567:
1568: END Clear_Limits;
1569:
1562: IS
1563: BEGIN
1564:
1565: g_LIMITS_rec := QP_Limits_PUB.G_MISS_LIMITS_REC;
1566: g_db_LIMITS_rec := QP_Limits_PUB.G_MISS_LIMITS_REC;
1567:
1568: END Clear_Limits;
1569:
1570: END QP_QP_Form_Limits;