9:
10: PROCEDURE Formula
11: ( p_validation_level IN NUMBER
12: , p_control_rec IN QP_GLOBALS.Control_Rec_Type
13: , p_FORMULA_rec IN QP_Price_Formula_PUB.Formula_Rec_Type
14: , p_old_FORMULA_rec IN QP_Price_Formula_PUB.Formula_Rec_Type
15: , x_FORMULA_rec OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Rec_Type
16: , x_old_FORMULA_rec OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Rec_Type
17: )
10: PROCEDURE Formula
11: ( p_validation_level IN NUMBER
12: , p_control_rec IN QP_GLOBALS.Control_Rec_Type
13: , p_FORMULA_rec IN QP_Price_Formula_PUB.Formula_Rec_Type
14: , p_old_FORMULA_rec IN QP_Price_Formula_PUB.Formula_Rec_Type
15: , x_FORMULA_rec OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Rec_Type
16: , x_old_FORMULA_rec OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Rec_Type
17: )
18: IS
11: ( p_validation_level IN NUMBER
12: , p_control_rec IN QP_GLOBALS.Control_Rec_Type
13: , p_FORMULA_rec IN QP_Price_Formula_PUB.Formula_Rec_Type
14: , p_old_FORMULA_rec IN QP_Price_Formula_PUB.Formula_Rec_Type
15: , x_FORMULA_rec OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Rec_Type
16: , x_old_FORMULA_rec OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Rec_Type
17: )
18: IS
19: l_return_status VARCHAR2(1);
12: , p_control_rec IN QP_GLOBALS.Control_Rec_Type
13: , p_FORMULA_rec IN QP_Price_Formula_PUB.Formula_Rec_Type
14: , p_old_FORMULA_rec IN QP_Price_Formula_PUB.Formula_Rec_Type
15: , x_FORMULA_rec OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Rec_Type
16: , x_old_FORMULA_rec OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Rec_Type
17: )
18: IS
19: l_return_status VARCHAR2(1);
20: l_control_rec QP_GLOBALS.Control_Rec_Type;
17: )
18: IS
19: l_return_status VARCHAR2(1);
20: l_control_rec QP_GLOBALS.Control_Rec_Type;
21: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type := p_FORMULA_rec;
22: l_old_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type := p_old_FORMULA_rec;
23:
24: --[prarasto]
25: l_p_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
18: IS
19: l_return_status VARCHAR2(1);
20: l_control_rec QP_GLOBALS.Control_Rec_Type;
21: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type := p_FORMULA_rec;
22: l_old_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type := p_old_FORMULA_rec;
23:
24: --[prarasto]
25: l_p_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
26:
21: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type := p_FORMULA_rec;
22: l_old_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type := p_old_FORMULA_rec;
23:
24: --[prarasto]
25: l_p_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
26:
27: BEGIN
28:
29: oe_debug_pub.add('Entering procedure Formula in Pvt formula package');
266:
267: PROCEDURE Formula_Liness
268: ( p_validation_level IN NUMBER
269: , p_control_rec IN QP_GLOBALS.Control_Rec_Type
270: , p_FORMULA_LINES_tbl IN QP_Price_Formula_PUB.Formula_Lines_Tbl_Type
271: , p_old_FORMULA_LINES_tbl IN QP_Price_Formula_PUB.Formula_Lines_Tbl_Type
272: , x_FORMULA_LINES_tbl OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Lines_Tbl_Type
273: , x_old_FORMULA_LINES_tbl OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Lines_Tbl_Type
274: )
267: PROCEDURE Formula_Liness
268: ( p_validation_level IN NUMBER
269: , p_control_rec IN QP_GLOBALS.Control_Rec_Type
270: , p_FORMULA_LINES_tbl IN QP_Price_Formula_PUB.Formula_Lines_Tbl_Type
271: , p_old_FORMULA_LINES_tbl IN QP_Price_Formula_PUB.Formula_Lines_Tbl_Type
272: , x_FORMULA_LINES_tbl OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Lines_Tbl_Type
273: , x_old_FORMULA_LINES_tbl OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Lines_Tbl_Type
274: )
275: IS
268: ( p_validation_level IN NUMBER
269: , p_control_rec IN QP_GLOBALS.Control_Rec_Type
270: , p_FORMULA_LINES_tbl IN QP_Price_Formula_PUB.Formula_Lines_Tbl_Type
271: , p_old_FORMULA_LINES_tbl IN QP_Price_Formula_PUB.Formula_Lines_Tbl_Type
272: , x_FORMULA_LINES_tbl OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Lines_Tbl_Type
273: , x_old_FORMULA_LINES_tbl OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Lines_Tbl_Type
274: )
275: IS
276: l_return_status VARCHAR2(1);
269: , p_control_rec IN QP_GLOBALS.Control_Rec_Type
270: , p_FORMULA_LINES_tbl IN QP_Price_Formula_PUB.Formula_Lines_Tbl_Type
271: , p_old_FORMULA_LINES_tbl IN QP_Price_Formula_PUB.Formula_Lines_Tbl_Type
272: , x_FORMULA_LINES_tbl OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Lines_Tbl_Type
273: , x_old_FORMULA_LINES_tbl OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Lines_Tbl_Type
274: )
275: IS
276: l_return_status VARCHAR2(1);
277: l_control_rec QP_GLOBALS.Control_Rec_Type;
274: )
275: IS
276: l_return_status VARCHAR2(1);
277: l_control_rec QP_GLOBALS.Control_Rec_Type;
278: l_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
279: l_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
280: l_old_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
281: l_old_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
282:
275: IS
276: l_return_status VARCHAR2(1);
277: l_control_rec QP_GLOBALS.Control_Rec_Type;
278: l_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
279: l_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
280: l_old_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
281: l_old_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
282:
283: --[prarasto]
276: l_return_status VARCHAR2(1);
277: l_control_rec QP_GLOBALS.Control_Rec_Type;
278: l_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
279: l_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
280: l_old_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
281: l_old_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
282:
283: --[prarasto]
284: l_p_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
277: l_control_rec QP_GLOBALS.Control_Rec_Type;
278: l_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
279: l_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
280: l_old_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
281: l_old_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
282:
283: --[prarasto]
284: l_p_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
285: BEGIN
280: l_old_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
281: l_old_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
282:
283: --[prarasto]
284: l_p_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
285: BEGIN
286:
287: oe_debug_pub.add('Entering procedure Formula Liness in Pvt formula package');
288: -- Init local table variables.
299:
300: IF l_old_FORMULA_LINES_tbl.EXISTS(I) THEN
301: l_old_FORMULA_LINES_rec := l_old_FORMULA_LINES_tbl(I);
302: ELSE
303: l_old_FORMULA_LINES_rec := QP_Price_Formula_PUB.G_MISS_FORMULA_LINES_REC;
304: END IF;
305:
306: -- Load API control record
307:
591: QP_GLOBALS.G_MISS_CONTROL_REC
592: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
593: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
594: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
595: , p_FORMULA_rec IN QP_Price_Formula_PUB.Formula_Rec_Type :=
596: QP_Price_Formula_PUB.G_MISS_FORMULA_REC
597: , p_old_FORMULA_rec IN QP_Price_Formula_PUB.Formula_Rec_Type :=
598: QP_Price_Formula_PUB.G_MISS_FORMULA_REC
599: , p_FORMULA_LINES_tbl IN QP_Price_Formula_PUB.Formula_Lines_Tbl_Type :=
592: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
593: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
594: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
595: , p_FORMULA_rec IN QP_Price_Formula_PUB.Formula_Rec_Type :=
596: QP_Price_Formula_PUB.G_MISS_FORMULA_REC
597: , p_old_FORMULA_rec IN QP_Price_Formula_PUB.Formula_Rec_Type :=
598: QP_Price_Formula_PUB.G_MISS_FORMULA_REC
599: , p_FORMULA_LINES_tbl IN QP_Price_Formula_PUB.Formula_Lines_Tbl_Type :=
600: QP_Price_Formula_PUB.G_MISS_FORMULA_LINES_TBL
593: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
594: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
595: , p_FORMULA_rec IN QP_Price_Formula_PUB.Formula_Rec_Type :=
596: QP_Price_Formula_PUB.G_MISS_FORMULA_REC
597: , p_old_FORMULA_rec IN QP_Price_Formula_PUB.Formula_Rec_Type :=
598: QP_Price_Formula_PUB.G_MISS_FORMULA_REC
599: , p_FORMULA_LINES_tbl IN QP_Price_Formula_PUB.Formula_Lines_Tbl_Type :=
600: QP_Price_Formula_PUB.G_MISS_FORMULA_LINES_TBL
601: , p_old_FORMULA_LINES_tbl IN QP_Price_Formula_PUB.Formula_Lines_Tbl_Type :=
594: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
595: , p_FORMULA_rec IN QP_Price_Formula_PUB.Formula_Rec_Type :=
596: QP_Price_Formula_PUB.G_MISS_FORMULA_REC
597: , p_old_FORMULA_rec IN QP_Price_Formula_PUB.Formula_Rec_Type :=
598: QP_Price_Formula_PUB.G_MISS_FORMULA_REC
599: , p_FORMULA_LINES_tbl IN QP_Price_Formula_PUB.Formula_Lines_Tbl_Type :=
600: QP_Price_Formula_PUB.G_MISS_FORMULA_LINES_TBL
601: , p_old_FORMULA_LINES_tbl IN QP_Price_Formula_PUB.Formula_Lines_Tbl_Type :=
602: QP_Price_Formula_PUB.G_MISS_FORMULA_LINES_TBL
595: , p_FORMULA_rec IN QP_Price_Formula_PUB.Formula_Rec_Type :=
596: QP_Price_Formula_PUB.G_MISS_FORMULA_REC
597: , p_old_FORMULA_rec IN QP_Price_Formula_PUB.Formula_Rec_Type :=
598: QP_Price_Formula_PUB.G_MISS_FORMULA_REC
599: , p_FORMULA_LINES_tbl IN QP_Price_Formula_PUB.Formula_Lines_Tbl_Type :=
600: QP_Price_Formula_PUB.G_MISS_FORMULA_LINES_TBL
601: , p_old_FORMULA_LINES_tbl IN QP_Price_Formula_PUB.Formula_Lines_Tbl_Type :=
602: QP_Price_Formula_PUB.G_MISS_FORMULA_LINES_TBL
603: , x_FORMULA_rec OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Rec_Type
596: QP_Price_Formula_PUB.G_MISS_FORMULA_REC
597: , p_old_FORMULA_rec IN QP_Price_Formula_PUB.Formula_Rec_Type :=
598: QP_Price_Formula_PUB.G_MISS_FORMULA_REC
599: , p_FORMULA_LINES_tbl IN QP_Price_Formula_PUB.Formula_Lines_Tbl_Type :=
600: QP_Price_Formula_PUB.G_MISS_FORMULA_LINES_TBL
601: , p_old_FORMULA_LINES_tbl IN QP_Price_Formula_PUB.Formula_Lines_Tbl_Type :=
602: QP_Price_Formula_PUB.G_MISS_FORMULA_LINES_TBL
603: , x_FORMULA_rec OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Rec_Type
604: , x_FORMULA_LINES_tbl OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Lines_Tbl_Type
597: , p_old_FORMULA_rec IN QP_Price_Formula_PUB.Formula_Rec_Type :=
598: QP_Price_Formula_PUB.G_MISS_FORMULA_REC
599: , p_FORMULA_LINES_tbl IN QP_Price_Formula_PUB.Formula_Lines_Tbl_Type :=
600: QP_Price_Formula_PUB.G_MISS_FORMULA_LINES_TBL
601: , p_old_FORMULA_LINES_tbl IN QP_Price_Formula_PUB.Formula_Lines_Tbl_Type :=
602: QP_Price_Formula_PUB.G_MISS_FORMULA_LINES_TBL
603: , x_FORMULA_rec OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Rec_Type
604: , x_FORMULA_LINES_tbl OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Lines_Tbl_Type
605: )
598: QP_Price_Formula_PUB.G_MISS_FORMULA_REC
599: , p_FORMULA_LINES_tbl IN QP_Price_Formula_PUB.Formula_Lines_Tbl_Type :=
600: QP_Price_Formula_PUB.G_MISS_FORMULA_LINES_TBL
601: , p_old_FORMULA_LINES_tbl IN QP_Price_Formula_PUB.Formula_Lines_Tbl_Type :=
602: QP_Price_Formula_PUB.G_MISS_FORMULA_LINES_TBL
603: , x_FORMULA_rec OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Rec_Type
604: , x_FORMULA_LINES_tbl OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Lines_Tbl_Type
605: )
606: IS
599: , p_FORMULA_LINES_tbl IN QP_Price_Formula_PUB.Formula_Lines_Tbl_Type :=
600: QP_Price_Formula_PUB.G_MISS_FORMULA_LINES_TBL
601: , p_old_FORMULA_LINES_tbl IN QP_Price_Formula_PUB.Formula_Lines_Tbl_Type :=
602: QP_Price_Formula_PUB.G_MISS_FORMULA_LINES_TBL
603: , x_FORMULA_rec OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Rec_Type
604: , x_FORMULA_LINES_tbl OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Lines_Tbl_Type
605: )
606: IS
607: l_api_version_number CONSTANT NUMBER := 1.0;
600: QP_Price_Formula_PUB.G_MISS_FORMULA_LINES_TBL
601: , p_old_FORMULA_LINES_tbl IN QP_Price_Formula_PUB.Formula_Lines_Tbl_Type :=
602: QP_Price_Formula_PUB.G_MISS_FORMULA_LINES_TBL
603: , x_FORMULA_rec OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Rec_Type
604: , x_FORMULA_LINES_tbl OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Lines_Tbl_Type
605: )
606: IS
607: l_api_version_number CONSTANT NUMBER := 1.0;
608: l_api_name CONSTANT VARCHAR2(30):= 'Process_Price_Formula';
607: l_api_version_number CONSTANT NUMBER := 1.0;
608: l_api_name CONSTANT VARCHAR2(30):= 'Process_Price_Formula';
609: l_return_status VARCHAR2(1);
610: l_control_rec QP_GLOBALS.Control_Rec_Type;
611: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type := p_FORMULA_rec;
612: l_old_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type := p_old_FORMULA_rec;
613: l_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
614: l_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
615: l_old_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
608: l_api_name CONSTANT VARCHAR2(30):= 'Process_Price_Formula';
609: l_return_status VARCHAR2(1);
610: l_control_rec QP_GLOBALS.Control_Rec_Type;
611: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type := p_FORMULA_rec;
612: l_old_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type := p_old_FORMULA_rec;
613: l_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
614: l_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
615: l_old_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
616: l_old_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
609: l_return_status VARCHAR2(1);
610: l_control_rec QP_GLOBALS.Control_Rec_Type;
611: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type := p_FORMULA_rec;
612: l_old_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type := p_old_FORMULA_rec;
613: l_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
614: l_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
615: l_old_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
616: l_old_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
617: l_qp_status VARCHAR2(1);
610: l_control_rec QP_GLOBALS.Control_Rec_Type;
611: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type := p_FORMULA_rec;
612: l_old_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type := p_old_FORMULA_rec;
613: l_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
614: l_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
615: l_old_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
616: l_old_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
617: l_qp_status VARCHAR2(1);
618:
611: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type := p_FORMULA_rec;
612: l_old_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type := p_old_FORMULA_rec;
613: l_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
614: l_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
615: l_old_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
616: l_old_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
617: l_qp_status VARCHAR2(1);
618:
619: --[prarasto]
612: l_old_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type := p_old_FORMULA_rec;
613: l_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
614: l_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
615: l_old_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
616: l_old_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
617: l_qp_status VARCHAR2(1);
618:
619: --[prarasto]
620: l_p_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
616: l_old_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
617: l_qp_status VARCHAR2(1);
618:
619: --[prarasto]
620: l_p_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
621: l_p_old_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
622: l_p_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
623: l_p_old_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
624:
617: l_qp_status VARCHAR2(1);
618:
619: --[prarasto]
620: l_p_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
621: l_p_old_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
622: l_p_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
623: l_p_old_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
624:
625: BEGIN
618:
619: --[prarasto]
620: l_p_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
621: l_p_old_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
622: l_p_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
623: l_p_old_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
624:
625: BEGIN
626:
619: --[prarasto]
620: l_p_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
621: l_p_old_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
622: l_p_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
623: l_p_old_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
624:
625: BEGIN
626:
627: oe_debug_pub.add('Entering procedure Process_Price_Formula in Pvt package');
852: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
853: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
854: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
855: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
856: , p_FORMULA_rec IN QP_Price_Formula_PUB.Formula_Rec_Type :=
857: QP_Price_Formula_PUB.G_MISS_FORMULA_REC
858: , p_FORMULA_LINES_tbl IN QP_Price_Formula_PUB.Formula_Lines_Tbl_Type :=
859: QP_Price_Formula_PUB.G_MISS_FORMULA_LINES_TBL
860: , x_FORMULA_rec OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Rec_Type
853: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
854: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
855: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
856: , p_FORMULA_rec IN QP_Price_Formula_PUB.Formula_Rec_Type :=
857: QP_Price_Formula_PUB.G_MISS_FORMULA_REC
858: , p_FORMULA_LINES_tbl IN QP_Price_Formula_PUB.Formula_Lines_Tbl_Type :=
859: QP_Price_Formula_PUB.G_MISS_FORMULA_LINES_TBL
860: , x_FORMULA_rec OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Rec_Type
861: , x_FORMULA_LINES_tbl OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Lines_Tbl_Type
854: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
855: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
856: , p_FORMULA_rec IN QP_Price_Formula_PUB.Formula_Rec_Type :=
857: QP_Price_Formula_PUB.G_MISS_FORMULA_REC
858: , p_FORMULA_LINES_tbl IN QP_Price_Formula_PUB.Formula_Lines_Tbl_Type :=
859: QP_Price_Formula_PUB.G_MISS_FORMULA_LINES_TBL
860: , x_FORMULA_rec OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Rec_Type
861: , x_FORMULA_LINES_tbl OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Lines_Tbl_Type
862: )
855: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
856: , p_FORMULA_rec IN QP_Price_Formula_PUB.Formula_Rec_Type :=
857: QP_Price_Formula_PUB.G_MISS_FORMULA_REC
858: , p_FORMULA_LINES_tbl IN QP_Price_Formula_PUB.Formula_Lines_Tbl_Type :=
859: QP_Price_Formula_PUB.G_MISS_FORMULA_LINES_TBL
860: , x_FORMULA_rec OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Rec_Type
861: , x_FORMULA_LINES_tbl OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Lines_Tbl_Type
862: )
863: IS
856: , p_FORMULA_rec IN QP_Price_Formula_PUB.Formula_Rec_Type :=
857: QP_Price_Formula_PUB.G_MISS_FORMULA_REC
858: , p_FORMULA_LINES_tbl IN QP_Price_Formula_PUB.Formula_Lines_Tbl_Type :=
859: QP_Price_Formula_PUB.G_MISS_FORMULA_LINES_TBL
860: , x_FORMULA_rec OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Rec_Type
861: , x_FORMULA_LINES_tbl OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Lines_Tbl_Type
862: )
863: IS
864: l_api_version_number CONSTANT NUMBER := 1.0;
857: QP_Price_Formula_PUB.G_MISS_FORMULA_REC
858: , p_FORMULA_LINES_tbl IN QP_Price_Formula_PUB.Formula_Lines_Tbl_Type :=
859: QP_Price_Formula_PUB.G_MISS_FORMULA_LINES_TBL
860: , x_FORMULA_rec OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Rec_Type
861: , x_FORMULA_LINES_tbl OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Lines_Tbl_Type
862: )
863: IS
864: l_api_version_number CONSTANT NUMBER := 1.0;
865: l_api_name CONSTANT VARCHAR2(30):= 'Lock_Price_Formula';
863: IS
864: l_api_version_number CONSTANT NUMBER := 1.0;
865: l_api_name CONSTANT VARCHAR2(30):= 'Lock_Price_Formula';
866: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
867: l_FORMULA_LINES_rec QP_Price_Formula_PUB.Formula_Lines_Rec_Type;
868: BEGIN
869:
870: oe_debug_pub.add('Entering procedure Lock_Price_Formula in Pvt package');
871: -- Standard call to check for call compatibility
1025: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1026: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
1027: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1028: , p_price_formula_id IN NUMBER
1029: , x_FORMULA_rec OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Rec_Type
1030: , x_FORMULA_LINES_tbl OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Lines_Tbl_Type
1031: )
1032: IS
1033: l_api_version_number CONSTANT NUMBER := 1.0;
1026: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
1027: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1028: , p_price_formula_id IN NUMBER
1029: , x_FORMULA_rec OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Rec_Type
1030: , x_FORMULA_LINES_tbl OUT NOCOPY /* file.sql.39 change */ QP_Price_Formula_PUB.Formula_Lines_Tbl_Type
1031: )
1032: IS
1033: l_api_version_number CONSTANT NUMBER := 1.0;
1034: l_api_name CONSTANT VARCHAR2(30):= 'Get_Price_Formula';
1031: )
1032: IS
1033: l_api_version_number CONSTANT NUMBER := 1.0;
1034: l_api_name CONSTANT VARCHAR2(30):= 'Get_Price_Formula';
1035: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
1036: l_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
1037: BEGIN
1038:
1039: oe_debug_pub.add('Entering procedure Get_Price_Formula in Pvt package');
1032: IS
1033: l_api_version_number CONSTANT NUMBER := 1.0;
1034: l_api_name CONSTANT VARCHAR2(30):= 'Get_Price_Formula';
1035: l_FORMULA_rec QP_Price_Formula_PUB.Formula_Rec_Type;
1036: l_FORMULA_LINES_tbl QP_Price_Formula_PUB.Formula_Lines_Tbl_Type;
1037: BEGIN
1038:
1039: oe_debug_pub.add('Entering procedure Get_Price_Formula in Pvt package');
1040: -- Standard call to check for call compatibility