[Home] [Help]
PACKAGE: APPS.QP_PRICE_FORMULA_PUB
Source
1 PACKAGE QP_Price_Formula_PUB AS
2 /* $Header: QPXPPRFS.pls 120.1 2005/06/13 02:45:16 appldev $ */
3 /*#
4 * This package consists of entities to support the formulas window.
5 *
6 * @rep:scope public
7 * @rep:product QP
8 * @rep:displayname Formula Setup
9 * @rep:category BUSINESS_ENTITY QP_PRICE_FORMULA
10 */
11
12 -- Formula record type
13
14 TYPE Formula_Rec_Type IS RECORD
15 ( attribute1 VARCHAR2(240) := FND_API.G_MISS_CHAR
16 , attribute10 VARCHAR2(240) := FND_API.G_MISS_CHAR
17 , attribute11 VARCHAR2(240) := FND_API.G_MISS_CHAR
18 , attribute12 VARCHAR2(240) := FND_API.G_MISS_CHAR
19 , attribute13 VARCHAR2(240) := FND_API.G_MISS_CHAR
20 , attribute14 VARCHAR2(240) := FND_API.G_MISS_CHAR
21 , attribute15 VARCHAR2(240) := FND_API.G_MISS_CHAR
22 , attribute2 VARCHAR2(240) := FND_API.G_MISS_CHAR
23 , attribute3 VARCHAR2(240) := FND_API.G_MISS_CHAR
24 , attribute4 VARCHAR2(240) := FND_API.G_MISS_CHAR
25 , attribute5 VARCHAR2(240) := FND_API.G_MISS_CHAR
26 , attribute6 VARCHAR2(240) := FND_API.G_MISS_CHAR
27 , attribute7 VARCHAR2(240) := FND_API.G_MISS_CHAR
28 , attribute8 VARCHAR2(240) := FND_API.G_MISS_CHAR
29 , attribute9 VARCHAR2(240) := FND_API.G_MISS_CHAR
30 , context VARCHAR2(30) := FND_API.G_MISS_CHAR
31 , created_by NUMBER := FND_API.G_MISS_NUM
32 , creation_date DATE := FND_API.G_MISS_DATE
33 , description VARCHAR2(2000) := FND_API.G_MISS_CHAR
34 , end_date_active DATE := FND_API.G_MISS_DATE
35 /* Increased the length of formula field for bug 1539041 */
36 , formula VARCHAR2(2000) := FND_API.G_MISS_CHAR
37 , last_updated_by NUMBER := FND_API.G_MISS_NUM
38 , last_update_date DATE := FND_API.G_MISS_DATE
39 , last_update_login NUMBER := FND_API.G_MISS_NUM
40 , name VARCHAR2(240) := FND_API.G_MISS_CHAR
41 , price_formula_id NUMBER := FND_API.G_MISS_NUM
42 , start_date_active DATE := FND_API.G_MISS_DATE
43 , return_status VARCHAR2(1) := FND_API.G_MISS_CHAR
44 , db_flag VARCHAR2(1) := FND_API.G_MISS_CHAR
45 , operation VARCHAR2(30) := FND_API.G_MISS_CHAR
46 );
47
48 TYPE Formula_Tbl_Type IS TABLE OF Formula_Rec_Type
49 INDEX BY BINARY_INTEGER;
50
51 -- Formula value record type
52
53 TYPE Formula_Val_Rec_Type IS RECORD
54 ( price_formula VARCHAR2(2000) := FND_API.G_MISS_CHAR
55 ); /* increased the size of the price_formula to 2000, to fix the bug 1539041 */
56
57 TYPE Formula_Val_Tbl_Type IS TABLE OF Formula_Val_Rec_Type
58 INDEX BY BINARY_INTEGER;
59
60 -- Formula_Lines record type
61
62 TYPE Formula_Lines_Rec_Type IS RECORD
63 ( attribute1 VARCHAR2(240) := FND_API.G_MISS_CHAR
64 , attribute10 VARCHAR2(240) := FND_API.G_MISS_CHAR
65 , attribute11 VARCHAR2(240) := FND_API.G_MISS_CHAR
66 , attribute12 VARCHAR2(240) := FND_API.G_MISS_CHAR
67 , attribute13 VARCHAR2(240) := FND_API.G_MISS_CHAR
68 , attribute14 VARCHAR2(240) := FND_API.G_MISS_CHAR
69 , attribute15 VARCHAR2(240) := FND_API.G_MISS_CHAR
70 , attribute2 VARCHAR2(240) := FND_API.G_MISS_CHAR
71 , attribute3 VARCHAR2(240) := FND_API.G_MISS_CHAR
72 , attribute4 VARCHAR2(240) := FND_API.G_MISS_CHAR
73 , attribute5 VARCHAR2(240) := FND_API.G_MISS_CHAR
74 , attribute6 VARCHAR2(240) := FND_API.G_MISS_CHAR
75 , attribute7 VARCHAR2(240) := FND_API.G_MISS_CHAR
76 , attribute8 VARCHAR2(240) := FND_API.G_MISS_CHAR
77 , attribute9 VARCHAR2(240) := FND_API.G_MISS_CHAR
78 , context VARCHAR2(30) := FND_API.G_MISS_CHAR
79 , created_by NUMBER := FND_API.G_MISS_NUM
80 , creation_date DATE := FND_API.G_MISS_DATE
81 , end_date_active DATE := FND_API.G_MISS_DATE
82 , last_updated_by NUMBER := FND_API.G_MISS_NUM
83 , last_update_date DATE := FND_API.G_MISS_DATE
84 , last_update_login NUMBER := FND_API.G_MISS_NUM
85 , numeric_constant NUMBER := FND_API.G_MISS_NUM
86 , price_formula_id NUMBER := FND_API.G_MISS_NUM
87 , price_formula_line_id NUMBER := FND_API.G_MISS_NUM
88 , formula_line_type_code VARCHAR2(30) := FND_API.G_MISS_CHAR
89 , price_list_line_id NUMBER := FND_API.G_MISS_NUM
90 , price_modifier_list_id NUMBER := FND_API.G_MISS_NUM
91 , pricing_attribute VARCHAR2(30) := FND_API.G_MISS_CHAR
92 , pricing_attribute_context VARCHAR2(30) := FND_API.G_MISS_CHAR
93 , start_date_active DATE := FND_API.G_MISS_DATE
94 , step_number NUMBER := FND_API.G_MISS_NUM
95 , reqd_flag VARCHAR2(1) := FND_API.G_MISS_CHAR
96 , return_status VARCHAR2(1) := FND_API.G_MISS_CHAR
97 , db_flag VARCHAR2(1) := FND_API.G_MISS_CHAR
98 , operation VARCHAR2(30) := FND_API.G_MISS_CHAR
99 );
100
101 TYPE Formula_Lines_Tbl_Type IS TABLE OF Formula_Lines_Rec_Type
102 INDEX BY BINARY_INTEGER;
103
104 -- Formula_Lines value record type
105
106 TYPE Formula_Lines_Val_Rec_Type IS RECORD
107 ( price_formula VARCHAR2(2000) := FND_API.G_MISS_CHAR
108 /* Increased the length of price_formula to 2000, to fix the bug 1539041 */
109 , price_formula_line VARCHAR2(240) := FND_API.G_MISS_CHAR
110 , price_formula_line_type VARCHAR2(240) := FND_API.G_MISS_CHAR
111 , price_list_line VARCHAR2(240) := FND_API.G_MISS_CHAR
112 , price_modifier_list VARCHAR2(240) := FND_API.G_MISS_CHAR
113 );
114
115 TYPE Formula_Lines_Val_Tbl_Type IS TABLE OF Formula_Lines_Val_Rec_Type
116 INDEX BY BINARY_INTEGER;
117
118 -- Variables representing missing records and tables
119
120 G_MISS_FORMULA_REC Formula_Rec_Type;
121 G_MISS_FORMULA_VAL_REC Formula_Val_Rec_Type;
122 G_MISS_FORMULA_TBL Formula_Tbl_Type;
123 G_MISS_FORMULA_VAL_TBL Formula_Val_Tbl_Type;
124 G_MISS_FORMULA_LINES_REC Formula_Lines_Rec_Type;
125 G_MISS_FORMULA_LINES_VAL_REC Formula_Lines_Val_Rec_Type;
126 G_MISS_FORMULA_LINES_TBL Formula_Lines_Tbl_Type;
127 G_MISS_FORMULA_LINES_VAL_TBL Formula_Lines_Val_Tbl_Type;
128
129 -- Start of Comments
130 -- API name Process_Price_Formula
131 -- Type Public
132 -- Function
133 --
134 -- Pre-reqs
135 --
136 -- Parameters
137 --
138 -- Version Current version = 1.0
139 -- Initial version = 1.0
140 --
141 -- Notes
142 --
143 -- End of Comments
144
145 /*#
146 * This API performs the insert, update, and delete of a formula header and
147 * lines.
148 *
149 * @param p_api_version_number the api version number
150 * @param p_init_msg_list true or false if there is an initial message list
151 * @param p_return_values true or false if there are return values
152 * @param p_commit true or false if the modifier should be committed
153 * @param x_return_status the return status
154 * @param x_msg_count the message count
155 * @param x_msg_data the message data
156 * @param p_FORMULA_rec the input record corresponding to the columns in
157 * QP_PRICE_FORMULAS_VL
158 * @param p_FORMULA_val_rec the input record corresponding to the values for the
159 * columns in QP_PRICE_FORMULAS_VL
160 * @param p_FORMULA_LINES_tbl the input table corresponding to the columns in
161 * QP_PRICE_FORMULA_LINES
162 * @param p_FORMULA_LINES_val_tbl the input table corresponding to the values for
163 * the columns in QP_PRICE_FORMULA_LINES
164 * @param x_FORMULA_rec the output record corresponding to the columns in
165 * QP_PRICE_FORMULAS_VL
166 * @param x_FORMULA_val_rec the output record corresponding to the values for the
167 * columns in QP_PRICE_FORMULAS_VL
168 * @param x_FORMULA_LINES_tbl the output table for QP_PRICE_FORMULA_LINES
169 * @param x_FORMULA_LINES_val_tbl the output table for the values in
170 * QP_PRICE_FORMULA_LINES
171 *
172 * @rep:displayname Process Price Formula
173 */
174 PROCEDURE Process_Price_Formula
175 ( p_api_version_number IN NUMBER
176 , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
177 , p_return_values IN VARCHAR2 := FND_API.G_FALSE
178 , p_commit IN VARCHAR2 := FND_API.G_FALSE
179 , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
180 , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
181 , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
182 , p_FORMULA_rec IN Formula_Rec_Type :=
183 G_MISS_FORMULA_REC
184 , p_FORMULA_val_rec IN Formula_Val_Rec_Type :=
185 G_MISS_FORMULA_VAL_REC
186 , p_FORMULA_LINES_tbl IN Formula_Lines_Tbl_Type :=
187 G_MISS_FORMULA_LINES_TBL
188 , p_FORMULA_LINES_val_tbl IN Formula_Lines_Val_Tbl_Type :=
189 G_MISS_FORMULA_LINES_VAL_TBL
190 , x_FORMULA_rec OUT NOCOPY /* file.sql.39 change */ Formula_Rec_Type
191 , x_FORMULA_val_rec OUT NOCOPY /* file.sql.39 change */ Formula_Val_Rec_Type
192 , x_FORMULA_LINES_tbl OUT NOCOPY /* file.sql.39 change */ Formula_Lines_Tbl_Type
193 , x_FORMULA_LINES_val_tbl OUT NOCOPY /* file.sql.39 change */ Formula_Lines_Val_Tbl_Type
194 );
195
196 -- Start of Comments
197 -- API name Lock_Price_Formula
198 -- Type Public
199 -- Function
200 --
201 -- Pre-reqs
202 --
203 -- Parameters
204 --
205 -- Version Current version = 1.0
206 -- Initial version = 1.0
207 --
208 -- Notes
209 --
210 -- End of Comments
211
212 PROCEDURE Lock_Price_Formula
213 ( p_api_version_number IN NUMBER
214 , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
215 , p_return_values IN VARCHAR2 := FND_API.G_FALSE
216 , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
217 , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
218 , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
219 , p_FORMULA_rec IN Formula_Rec_Type :=
220 G_MISS_FORMULA_REC
221 , p_FORMULA_val_rec IN Formula_Val_Rec_Type :=
222 G_MISS_FORMULA_VAL_REC
223 , p_FORMULA_LINES_tbl IN Formula_Lines_Tbl_Type :=
224 G_MISS_FORMULA_LINES_TBL
225 , p_FORMULA_LINES_val_tbl IN Formula_Lines_Val_Tbl_Type :=
226 G_MISS_FORMULA_LINES_VAL_TBL
227 , x_FORMULA_rec OUT NOCOPY /* file.sql.39 change */ Formula_Rec_Type
228 , x_FORMULA_val_rec OUT NOCOPY /* file.sql.39 change */ Formula_Val_Rec_Type
229 , x_FORMULA_LINES_tbl OUT NOCOPY /* file.sql.39 change */ Formula_Lines_Tbl_Type
230 , x_FORMULA_LINES_val_tbl OUT NOCOPY /* file.sql.39 change */ Formula_Lines_Val_Tbl_Type
231 );
232
233 -- Start of Comments
234 -- API name Get_Price_Formula
235 -- Type Public
236 -- Function
237 --
238 -- Pre-reqs
239 --
240 -- Parameters
241 --
242 -- Version Current version = 1.0
243 -- Initial version = 1.0
244 --
245 -- Notes
246 --
247 -- End of Comments
248
249 PROCEDURE Get_Price_Formula
250 ( p_api_version_number IN NUMBER
251 , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
252 , p_return_values IN VARCHAR2 := FND_API.G_FALSE
253 , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
254 , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
255 , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
256 , p_price_formula_id IN NUMBER :=
257 FND_API.G_MISS_NUM
258 , p_price_formula IN VARCHAR2 :=
259 FND_API.G_MISS_CHAR
260 , x_FORMULA_rec OUT NOCOPY /* file.sql.39 change */ Formula_Rec_Type
261 , x_FORMULA_val_rec OUT NOCOPY /* file.sql.39 change */ Formula_Val_Rec_Type
262 , x_FORMULA_LINES_tbl OUT NOCOPY /* file.sql.39 change */ Formula_Lines_Tbl_Type
263 , x_FORMULA_LINES_val_tbl OUT NOCOPY /* file.sql.39 change */ Formula_Lines_Val_Tbl_Type
264 );
265
266 END QP_Price_Formula_PUB;