DBA Data[Home] [Help]

APPS.QP_QP_FORM_FORMULA dependencies on QP_PRICE_FORMULA_PUB

Line 10: g_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;

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:

Line 11: g_db_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;

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

Line 16: ( p_FORMULA_rec IN QP_Price_Formula_PUB.Formula_Rec_Type

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

Line 24: RETURN QP_Price_Formula_PUB.Formula_Rec_Type;

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.

Line 30: g_opr__tbl QP_Price_Formula_PUB.Formula_Tbl_Type;

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:

Line 64: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;

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;

Line 65: l_FORMULA_val_rec QP_Price_Formula_PUB.Formula_Val_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;

Line 68: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_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:

Line 69: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_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:
73: -- Set control flags.

Line 70: l_x_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_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.
74:

Line 285: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;

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);

Line 286: l_old_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;

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;

Line 287: l_FORMULA_val_rec QP_Price_Formula_PUB.Formula_Val_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;

Line 290: l_x_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;
292: l_x_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
293: BEGIN
294:

Line 291: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_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:
295: -- Set control flags.

Line 292: l_x_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_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.
296:

Line 661: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;

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;

Line 662: l_old_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;

Line 665: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_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:

Line 666: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_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:
670: -- Set control flags.

Line 667: l_x_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_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.
671:

Line 812: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;

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;

Line 815: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_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:

Line 816: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;

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.

Line 817: l_x_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_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.
821:

Line 939: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;

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:

Line 940: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;

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.

Line 941: l_x_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;

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:

Line 1048: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;

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:

Line 1049: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;

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.

Line 1050: l_x_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;

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:

Line 1183: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;

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

Line 1184: l_x_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;

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:

Line 1185: l_x_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;

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

Line 1186: l_x_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;

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:

Line 1287: ( p_FORMULA_rec IN QP_Price_Formula_PUB.Formula_Rec_Type

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

Line 1307: RETURN QP_Price_Formula_PUB.Formula_Rec_Type

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

Line 1344: g_FORMULA_rec := QP_Price_Formula_PUB.G_MISS_FORMULA_REC;

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:

Line 1345: g_db_FORMULA_rec := QP_Price_Formula_PUB.G_MISS_FORMULA_REC;

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;