6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'QP_QP_Form_Formula';
7:
8: -- Global variables holding cached record.
9:
10: g_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
11: g_db_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
12:
13: -- Forward declaration of procedures maintaining entity record cache.
14:
7:
8: -- Global variables holding cached record.
9:
10: g_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
11: g_db_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
12:
13: -- Forward declaration of procedures maintaining entity record cache.
14:
15: PROCEDURE Write_FORMULA
12:
13: -- Forward declaration of procedures maintaining entity record cache.
14:
15: PROCEDURE Write_FORMULA
16: ( p_FORMULA_rec IN QP_Price_Formula_PUB.Formula_Rec_Type
17: , p_db_record IN BOOLEAN := FALSE
18: );
19:
20: FUNCTION Get_FORMULA
20: FUNCTION Get_FORMULA
21: ( p_db_record IN BOOLEAN := FALSE
22: , p_price_formula_id IN NUMBER
23: )
24: RETURN QP_Price_Formula_PUB.Formula_Rec_Type;
25:
26: PROCEDURE Clear_FORMULA;
27:
28: -- Global variable holding performed operations.
26: PROCEDURE Clear_FORMULA;
27:
28: -- Global variable holding performed operations.
29:
30: g_opr__tbl QP_Price_Formula_PUB.Formula_Tbl_Type;
31:
32: -- Procedure : Default_Attributes
33: --
34:
60: , x_start_date_active OUT NOCOPY /* file.sql.39 change */ DATE
61: , x_price_formula OUT NOCOPY /* file.sql.39 change */ VARCHAR2
62: )
63: IS
64: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
65: l_FORMULA_val_rec QP_Price_Formula_PUB.Formula_Val_Rec_Type;
66: l_control_rec QP_GLOBALS.Control_Rec_Type;
67: l_return_status VARCHAR2(1);
68: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
61: , x_price_formula OUT NOCOPY /* file.sql.39 change */ VARCHAR2
62: )
63: IS
64: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
65: l_FORMULA_val_rec QP_Price_Formula_PUB.Formula_Val_Rec_Type;
66: l_control_rec QP_GLOBALS.Control_Rec_Type;
67: l_return_status VARCHAR2(1);
68: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
69: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
64: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
65: l_FORMULA_val_rec QP_Price_Formula_PUB.Formula_Val_Rec_Type;
66: l_control_rec QP_GLOBALS.Control_Rec_Type;
67: l_return_status VARCHAR2(1);
68: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
69: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
70: l_x_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
71: BEGIN
72:
65: l_FORMULA_val_rec QP_Price_Formula_PUB.Formula_Val_Rec_Type;
66: l_control_rec QP_GLOBALS.Control_Rec_Type;
67: l_return_status VARCHAR2(1);
68: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
69: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
70: l_x_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
71: BEGIN
72:
73: -- Set control flags.
66: l_control_rec QP_GLOBALS.Control_Rec_Type;
67: l_return_status VARCHAR2(1);
68: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
69: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
70: l_x_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
71: BEGIN
72:
73: -- Set control flags.
74:
281: , x_start_date_active OUT NOCOPY /* file.sql.39 change */ DATE
282: , x_price_formula OUT NOCOPY /* file.sql.39 change */ VARCHAR2
283: )
284: IS
285: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
286: l_old_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
287: l_FORMULA_val_rec QP_Price_Formula_PUB.Formula_Val_Rec_Type;
288: l_control_rec QP_GLOBALS.Control_Rec_Type;
289: l_return_status VARCHAR2(1);
282: , x_price_formula OUT NOCOPY /* file.sql.39 change */ VARCHAR2
283: )
284: IS
285: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
286: l_old_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
287: l_FORMULA_val_rec QP_Price_Formula_PUB.Formula_Val_Rec_Type;
288: l_control_rec QP_GLOBALS.Control_Rec_Type;
289: l_return_status VARCHAR2(1);
290: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
283: )
284: IS
285: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
286: l_old_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
287: l_FORMULA_val_rec QP_Price_Formula_PUB.Formula_Val_Rec_Type;
288: l_control_rec QP_GLOBALS.Control_Rec_Type;
289: l_return_status VARCHAR2(1);
290: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
291: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
286: l_old_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
287: l_FORMULA_val_rec QP_Price_Formula_PUB.Formula_Val_Rec_Type;
288: l_control_rec QP_GLOBALS.Control_Rec_Type;
289: l_return_status VARCHAR2(1);
290: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
291: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
292: l_x_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
293: BEGIN
294:
287: l_FORMULA_val_rec QP_Price_Formula_PUB.Formula_Val_Rec_Type;
288: l_control_rec QP_GLOBALS.Control_Rec_Type;
289: l_return_status VARCHAR2(1);
290: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
291: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
292: l_x_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
293: BEGIN
294:
295: -- Set control flags.
288: l_control_rec QP_GLOBALS.Control_Rec_Type;
289: l_return_status VARCHAR2(1);
290: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
291: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
292: l_x_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
293: BEGIN
294:
295: -- Set control flags.
296:
657: , x_last_updated_by OUT NOCOPY /* file.sql.39 change */ NUMBER
658: , x_last_update_login OUT NOCOPY /* file.sql.39 change */ NUMBER
659: )
660: IS
661: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
662: l_old_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
663: l_control_rec QP_GLOBALS.Control_Rec_Type;
664: l_return_status VARCHAR2(1);
665: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
658: , x_last_update_login OUT NOCOPY /* file.sql.39 change */ NUMBER
659: )
660: IS
661: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
662: l_old_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
663: l_control_rec QP_GLOBALS.Control_Rec_Type;
664: l_return_status VARCHAR2(1);
665: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
666: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
661: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
662: l_old_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
663: l_control_rec QP_GLOBALS.Control_Rec_Type;
664: l_return_status VARCHAR2(1);
665: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
666: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
667: l_x_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
668: BEGIN
669:
662: l_old_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
663: l_control_rec QP_GLOBALS.Control_Rec_Type;
664: l_return_status VARCHAR2(1);
665: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
666: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
667: l_x_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
668: BEGIN
669:
670: -- Set control flags.
663: l_control_rec QP_GLOBALS.Control_Rec_Type;
664: l_return_status VARCHAR2(1);
665: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
666: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
667: l_x_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
668: BEGIN
669:
670: -- Set control flags.
671:
808: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
809: , p_price_formula_id IN NUMBER
810: )
811: IS
812: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
813: l_control_rec QP_GLOBALS.Control_Rec_Type;
814: l_return_status VARCHAR2(1);
815: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
816: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
811: IS
812: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
813: l_control_rec QP_GLOBALS.Control_Rec_Type;
814: l_return_status VARCHAR2(1);
815: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
816: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
817: l_x_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
818: BEGIN
819:
812: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
813: l_control_rec QP_GLOBALS.Control_Rec_Type;
814: l_return_status VARCHAR2(1);
815: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
816: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
817: l_x_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
818: BEGIN
819:
820: -- Set control flags.
813: l_control_rec QP_GLOBALS.Control_Rec_Type;
814: l_return_status VARCHAR2(1);
815: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
816: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
817: l_x_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
818: BEGIN
819:
820: -- Set control flags.
821:
935: )
936: IS
937: l_control_rec QP_GLOBALS.Control_Rec_Type;
938: l_return_status VARCHAR2(1);
939: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
940: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
941: l_x_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
942: BEGIN
943:
936: IS
937: l_control_rec QP_GLOBALS.Control_Rec_Type;
938: l_return_status VARCHAR2(1);
939: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
940: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
941: l_x_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
942: BEGIN
943:
944: -- Set control flags.
937: l_control_rec QP_GLOBALS.Control_Rec_Type;
938: l_return_status VARCHAR2(1);
939: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
940: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
941: l_x_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
942: BEGIN
943:
944: -- Set control flags.
945:
1044: )
1045: IS
1046: l_control_rec QP_GLOBALS.Control_Rec_Type;
1047: l_return_status VARCHAR2(1);
1048: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
1049: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
1050: l_x_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
1051: BEGIN
1052:
1045: IS
1046: l_control_rec QP_GLOBALS.Control_Rec_Type;
1047: l_return_status VARCHAR2(1);
1048: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
1049: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
1050: l_x_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
1051: BEGIN
1052:
1053: -- Set control flags.
1046: l_control_rec QP_GLOBALS.Control_Rec_Type;
1047: l_return_status VARCHAR2(1);
1048: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
1049: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
1050: l_x_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
1051: BEGIN
1052:
1053: -- Set control flags.
1054:
1179: , p_start_date_active IN DATE
1180: )
1181: IS
1182: l_return_status VARCHAR2(1);
1183: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
1184: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
1185: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
1186: l_x_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
1187: BEGIN
1180: )
1181: IS
1182: l_return_status VARCHAR2(1);
1183: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
1184: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
1185: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
1186: l_x_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
1187: BEGIN
1188:
1181: IS
1182: l_return_status VARCHAR2(1);
1183: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
1184: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
1185: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
1186: l_x_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
1187: BEGIN
1188:
1189: -- Load FORMULA record
1182: l_return_status VARCHAR2(1);
1183: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
1184: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
1185: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
1186: l_x_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
1187: BEGIN
1188:
1189: -- Load FORMULA record
1190:
1283:
1284: -- Procedures maintaining FORMULA record cache.
1285:
1286: PROCEDURE Write_FORMULA
1287: ( p_FORMULA_rec IN QP_Price_Formula_PUB.Formula_Rec_Type
1288: , p_db_record IN BOOLEAN := FALSE
1289: )
1290: IS
1291: BEGIN
1303: FUNCTION Get_FORMULA
1304: ( p_db_record IN BOOLEAN := FALSE
1305: , p_price_formula_id IN NUMBER
1306: )
1307: RETURN QP_Price_Formula_PUB.Formula_Rec_Type
1308: IS
1309: BEGIN
1310:
1311: IF p_price_formula_id <> g_FORMULA_rec.price_formula_id
1340: PROCEDURE Clear_Formula
1341: IS
1342: BEGIN
1343:
1344: g_FORMULA_rec := QP_Price_Formula_PUB.G_MISS_FORMULA_REC;
1345: g_db_FORMULA_rec := QP_Price_Formula_PUB.G_MISS_FORMULA_REC;
1346:
1347: END Clear_Formula;
1348:
1341: IS
1342: BEGIN
1343:
1344: g_FORMULA_rec := QP_Price_Formula_PUB.G_MISS_FORMULA_REC;
1345: g_db_FORMULA_rec := QP_Price_Formula_PUB.G_MISS_FORMULA_REC;
1346:
1347: END Clear_Formula;
1348:
1349: END QP_QP_Form_Formula;