DBA Data[Home] [Help]

PACKAGE: APPS.QP_LIMITS_PUB

Source


1 PACKAGE QP_Limits_PUB AUTHID CURRENT_USER AS
2 /* $Header: QPXPLMTS.pls 120.1 2005/06/13 00:32:16 appldev  $ */
3 
4 --  Limits record type
5 
6 TYPE Limits_Rec_Type IS RECORD
7 (   amount                        NUMBER         := FND_API.G_MISS_NUM
8 ,   attribute1                    VARCHAR2(240)  := FND_API.G_MISS_CHAR
9 ,   attribute10                   VARCHAR2(240)  := FND_API.G_MISS_CHAR
10 ,   attribute11                   VARCHAR2(240)  := FND_API.G_MISS_CHAR
11 ,   attribute12                   VARCHAR2(240)  := FND_API.G_MISS_CHAR
12 ,   attribute13                   VARCHAR2(240)  := FND_API.G_MISS_CHAR
13 ,   attribute14                   VARCHAR2(240)  := FND_API.G_MISS_CHAR
14 ,   attribute15                   VARCHAR2(240)  := FND_API.G_MISS_CHAR
15 ,   attribute2                    VARCHAR2(240)  := FND_API.G_MISS_CHAR
16 ,   attribute3                    VARCHAR2(240)  := FND_API.G_MISS_CHAR
17 ,   attribute4                    VARCHAR2(240)  := FND_API.G_MISS_CHAR
18 ,   attribute5                    VARCHAR2(240)  := FND_API.G_MISS_CHAR
19 ,   attribute6                    VARCHAR2(240)  := FND_API.G_MISS_CHAR
20 ,   attribute7                    VARCHAR2(240)  := FND_API.G_MISS_CHAR
21 ,   attribute8                    VARCHAR2(240)  := FND_API.G_MISS_CHAR
22 ,   attribute9                    VARCHAR2(240)  := FND_API.G_MISS_CHAR
23 ,   basis                         VARCHAR2(30)   := FND_API.G_MISS_CHAR
24 ,   context                       VARCHAR2(30)   := FND_API.G_MISS_CHAR
25 ,   created_by                    NUMBER         := FND_API.G_MISS_NUM
26 ,   creation_date                 DATE           := FND_API.G_MISS_DATE
27 ,   last_updated_by               NUMBER         := FND_API.G_MISS_NUM
28 ,   last_update_date              DATE           := FND_API.G_MISS_DATE
29 ,   last_update_login             NUMBER         := FND_API.G_MISS_NUM
30 ,   limit_exceed_action_code      VARCHAR2(30)   := FND_API.G_MISS_CHAR
31 ,   limit_hold_flag               VARCHAR2(1)    := FND_API.G_MISS_CHAR
32 ,   limit_id                      NUMBER         := FND_API.G_MISS_NUM
33 ,   limit_level_code              VARCHAR2(30)   := FND_API.G_MISS_CHAR
34 ,   limit_number                  NUMBER         := FND_API.G_MISS_NUM
35 ,   list_header_id                NUMBER         := FND_API.G_MISS_NUM
36 ,   list_line_id                  NUMBER         := FND_API.G_MISS_NUM
37 ,   multival_attr1_type           VARCHAR2(30)   := FND_API.G_MISS_CHAR
38 ,   multival_attr1_context        VARCHAR2(30)   := FND_API.G_MISS_CHAR
39 ,   multival_attribute1           VARCHAR2(30)   := FND_API.G_MISS_CHAR
40 ,   multival_attr1_datatype       VARCHAR2(10)   := FND_API.G_MISS_CHAR
41 ,   multival_attr2_type           VARCHAR2(30)   := FND_API.G_MISS_CHAR
42 ,   multival_attr2_context        VARCHAR2(30)   := FND_API.G_MISS_CHAR
43 ,   multival_attribute2           VARCHAR2(30)   := FND_API.G_MISS_CHAR
44 ,   multival_attr2_datatype       VARCHAR2(10)   := FND_API.G_MISS_CHAR
45 ,   organization_flag             VARCHAR2(1)    := FND_API.G_MISS_CHAR
46 ,   program_application_id        NUMBER         := FND_API.G_MISS_NUM
47 ,   program_id                    NUMBER         := FND_API.G_MISS_NUM
48 ,   program_update_date           DATE           := FND_API.G_MISS_DATE
49 ,   request_id                    NUMBER         := FND_API.G_MISS_NUM
50 ,   return_status                 VARCHAR2(1)    := FND_API.G_MISS_CHAR
51 ,   db_flag                       VARCHAR2(1)    := FND_API.G_MISS_CHAR
52 ,   operation                     VARCHAR2(30)   := FND_API.G_MISS_CHAR
53 );
54 
55 TYPE Limits_Tbl_Type IS TABLE OF Limits_Rec_Type
56     INDEX BY BINARY_INTEGER;
57 
58 --  Limits value record type
59 
60 TYPE Limits_Val_Rec_Type IS RECORD
61 (   limit_exceed_action           VARCHAR2(240)  := FND_API.G_MISS_CHAR
62 ,   limit                         VARCHAR2(240)  := FND_API.G_MISS_CHAR
63 ,   limit_level                   VARCHAR2(240)  := FND_API.G_MISS_CHAR
64 ,   list_header                   VARCHAR2(240)  := FND_API.G_MISS_CHAR
65 ,   list_line                     VARCHAR2(240)  := FND_API.G_MISS_CHAR
66 ,   organization                  VARCHAR2(240)  := FND_API.G_MISS_CHAR
67 );
68 
69 TYPE Limits_Val_Tbl_Type IS TABLE OF Limits_Val_Rec_Type
70     INDEX BY BINARY_INTEGER;
71 
72 --  Limit_Attrs record type
73 
74 TYPE Limit_Attrs_Rec_Type IS RECORD
75 (   attribute1                    VARCHAR2(240)  := FND_API.G_MISS_CHAR
76 ,   attribute10                   VARCHAR2(240)  := FND_API.G_MISS_CHAR
77 ,   attribute11                   VARCHAR2(240)  := FND_API.G_MISS_CHAR
78 ,   attribute12                   VARCHAR2(240)  := FND_API.G_MISS_CHAR
79 ,   attribute13                   VARCHAR2(240)  := FND_API.G_MISS_CHAR
80 ,   attribute14                   VARCHAR2(240)  := FND_API.G_MISS_CHAR
81 ,   attribute15                   VARCHAR2(240)  := FND_API.G_MISS_CHAR
82 ,   attribute2                    VARCHAR2(240)  := FND_API.G_MISS_CHAR
83 ,   attribute3                    VARCHAR2(240)  := FND_API.G_MISS_CHAR
84 ,   attribute4                    VARCHAR2(240)  := FND_API.G_MISS_CHAR
85 ,   attribute5                    VARCHAR2(240)  := FND_API.G_MISS_CHAR
86 ,   attribute6                    VARCHAR2(240)  := FND_API.G_MISS_CHAR
87 ,   attribute7                    VARCHAR2(240)  := FND_API.G_MISS_CHAR
88 ,   attribute8                    VARCHAR2(240)  := FND_API.G_MISS_CHAR
89 ,   attribute9                    VARCHAR2(240)  := FND_API.G_MISS_CHAR
90 ,   comparison_operator_code      VARCHAR2(30)   := FND_API.G_MISS_CHAR
91 ,   context                       VARCHAR2(30)   := FND_API.G_MISS_CHAR
92 ,   created_by                    NUMBER         := FND_API.G_MISS_NUM
93 ,   creation_date                 DATE           := FND_API.G_MISS_DATE
94 ,   last_updated_by               NUMBER         := FND_API.G_MISS_NUM
95 ,   last_update_date              DATE           := FND_API.G_MISS_DATE
96 ,   last_update_login             NUMBER         := FND_API.G_MISS_NUM
97 ,   limit_attribute               VARCHAR2(30)   := FND_API.G_MISS_CHAR
98 ,   limit_attribute_context       VARCHAR2(30)   := FND_API.G_MISS_CHAR
99 ,   limit_attribute_id            NUMBER         := FND_API.G_MISS_NUM
100 ,   limit_attribute_type          VARCHAR2(30)   := FND_API.G_MISS_CHAR
101 ,   limit_attr_datatype           VARCHAR2(10)   := FND_API.G_MISS_CHAR
102 ,   limit_attr_value              VARCHAR2(240)  := FND_API.G_MISS_CHAR
103 ,   limit_id                      NUMBER         := FND_API.G_MISS_NUM
104 ,   program_application_id        NUMBER         := FND_API.G_MISS_NUM
105 ,   program_id                    NUMBER         := FND_API.G_MISS_NUM
106 ,   program_update_date           DATE           := FND_API.G_MISS_DATE
107 ,   request_id                    NUMBER         := FND_API.G_MISS_NUM
108 ,   return_status                 VARCHAR2(1)    := FND_API.G_MISS_CHAR
109 ,   db_flag                       VARCHAR2(1)    := FND_API.G_MISS_CHAR
110 ,   operation                     VARCHAR2(30)   := FND_API.G_MISS_CHAR
111 );
112 
113 TYPE Limit_Attrs_Tbl_Type IS TABLE OF Limit_Attrs_Rec_Type
114     INDEX BY BINARY_INTEGER;
115 
116 --  Limit_Attrs value record type
117 
118 TYPE Limit_Attrs_Val_Rec_Type IS RECORD
119 (   comparison_operator           VARCHAR2(240)  := FND_API.G_MISS_CHAR
120 ,   limit_attribute               VARCHAR2(240)  := FND_API.G_MISS_CHAR
121 ,   limit                         VARCHAR2(240)  := FND_API.G_MISS_CHAR
122 );
123 
124 TYPE Limit_Attrs_Val_Tbl_Type IS TABLE OF Limit_Attrs_Val_Rec_Type
125     INDEX BY BINARY_INTEGER;
126 
127 --  Limit_Balances record type
128 
129 TYPE Limit_Balances_Rec_Type IS RECORD
130 (   attribute1                    VARCHAR2(240)  := FND_API.G_MISS_CHAR
131 ,   attribute10                   VARCHAR2(240)  := FND_API.G_MISS_CHAR
132 ,   attribute11                   VARCHAR2(240)  := FND_API.G_MISS_CHAR
133 ,   attribute12                   VARCHAR2(240)  := FND_API.G_MISS_CHAR
134 ,   attribute13                   VARCHAR2(240)  := FND_API.G_MISS_CHAR
135 ,   attribute14                   VARCHAR2(240)  := FND_API.G_MISS_CHAR
136 ,   attribute15                   VARCHAR2(240)  := FND_API.G_MISS_CHAR
137 ,   attribute2                    VARCHAR2(240)  := FND_API.G_MISS_CHAR
138 ,   attribute3                    VARCHAR2(240)  := FND_API.G_MISS_CHAR
139 ,   attribute4                    VARCHAR2(240)  := FND_API.G_MISS_CHAR
140 ,   attribute5                    VARCHAR2(240)  := FND_API.G_MISS_CHAR
141 ,   attribute6                    VARCHAR2(240)  := FND_API.G_MISS_CHAR
142 ,   attribute7                    VARCHAR2(240)  := FND_API.G_MISS_CHAR
143 ,   attribute8                    VARCHAR2(240)  := FND_API.G_MISS_CHAR
144 ,   attribute9                    VARCHAR2(240)  := FND_API.G_MISS_CHAR
145 ,   available_amount              NUMBER         := FND_API.G_MISS_NUM
146 ,   consumed_amount               NUMBER         := FND_API.G_MISS_NUM
147 ,   context                       VARCHAR2(30)   := FND_API.G_MISS_CHAR
148 ,   created_by                    NUMBER         := FND_API.G_MISS_NUM
149 ,   creation_date                 DATE           := FND_API.G_MISS_DATE
150 ,   last_updated_by               NUMBER         := FND_API.G_MISS_NUM
151 ,   last_update_date              DATE           := FND_API.G_MISS_DATE
152 ,   last_update_login             NUMBER         := FND_API.G_MISS_NUM
153 ,   limit_balance_id              NUMBER         := FND_API.G_MISS_NUM
154 ,   limit_id                      NUMBER         := FND_API.G_MISS_NUM
155 ,   multival_attr1_type           VARCHAR2(30)   := FND_API.G_MISS_CHAR
156 ,   multival_attr1_context        VARCHAR2(30)   := FND_API.G_MISS_CHAR
157 ,   multival_attribute1           VARCHAR2(30)   := FND_API.G_MISS_CHAR
158 ,   multival_attr1_value          VARCHAR2(240)  := FND_API.G_MISS_CHAR
159 ,   multival_attr1_datatype       VARCHAR2(10)   := FND_API.G_MISS_CHAR
160 ,   multival_attr2_type           VARCHAR2(30)   := FND_API.G_MISS_CHAR
161 ,   multival_attr2_context        VARCHAR2(30)   := FND_API.G_MISS_CHAR
162 ,   multival_attribute2           VARCHAR2(30)   := FND_API.G_MISS_CHAR
163 ,   multival_attr2_value          VARCHAR2(240)  := FND_API.G_MISS_CHAR
164 ,   multival_attr2_datatype       VARCHAR2(10)   := FND_API.G_MISS_CHAR
165 ,   organization_attr_context     VARCHAR2(30)   := FND_API.G_MISS_CHAR
166 ,   organization_attribute        VARCHAR2(30)   := FND_API.G_MISS_CHAR
167 ,   organization_attr_value       VARCHAR2(240)  := FND_API.G_MISS_CHAR
168 ,   program_application_id        NUMBER         := FND_API.G_MISS_NUM
169 ,   program_id                    NUMBER         := FND_API.G_MISS_NUM
170 ,   program_update_date           DATE           := FND_API.G_MISS_DATE
171 ,   request_id                    NUMBER         := FND_API.G_MISS_NUM
172 ,   reserved_amount               NUMBER         := FND_API.G_MISS_NUM
173 ,   return_status                 VARCHAR2(1)    := FND_API.G_MISS_CHAR
174 ,   db_flag                       VARCHAR2(1)    := FND_API.G_MISS_CHAR
175 ,   operation                     VARCHAR2(30)   := FND_API.G_MISS_CHAR
176 );
177 
178 TYPE Limit_Balances_Tbl_Type IS TABLE OF Limit_Balances_Rec_Type
179     INDEX BY BINARY_INTEGER;
180 
181 --  Limit_Balances value record type
182 
183 TYPE Limit_Balances_Val_Rec_Type IS RECORD
184 (   limit_balance                 VARCHAR2(240)  := FND_API.G_MISS_CHAR
185 ,   limit                         VARCHAR2(240)  := FND_API.G_MISS_CHAR
186 );
187 
188 TYPE Limit_Balances_Val_Tbl_Type IS TABLE OF Limit_Balances_Val_Rec_Type
189     INDEX BY BINARY_INTEGER;
190 
191 --  Variables representing missing records and tables
192 
193 G_MISS_LIMITS_REC             Limits_Rec_Type;
194 G_MISS_LIMITS_VAL_REC         Limits_Val_Rec_Type;
195 G_MISS_LIMITS_TBL             Limits_Tbl_Type;
196 G_MISS_LIMITS_VAL_TBL         Limits_Val_Tbl_Type;
197 G_MISS_LIMIT_ATTRS_REC        Limit_Attrs_Rec_Type;
198 G_MISS_LIMIT_ATTRS_VAL_REC    Limit_Attrs_Val_Rec_Type;
199 G_MISS_LIMIT_ATTRS_TBL        Limit_Attrs_Tbl_Type;
200 G_MISS_LIMIT_ATTRS_VAL_TBL    Limit_Attrs_Val_Tbl_Type;
201 G_MISS_LIMIT_BALANCES_REC     Limit_Balances_Rec_Type;
202 G_MISS_LIMIT_BALANCES_VAL_REC Limit_Balances_Val_Rec_Type;
203 G_MISS_LIMIT_BALANCES_TBL     Limit_Balances_Tbl_Type;
204 G_MISS_LIMIT_BALANCES_VAL_TBL Limit_Balances_Val_Tbl_Type;
205 
206 --  Start of Comments
207 --  API name    Process_Limits
208 --  Type        Public
209 --  Function
210 --
211 --  Pre-reqs
212 --
213 --  Parameters
214 --
215 --  Version     Current version = 1.0
216 --              Initial version = 1.0
217 --
218 --  Notes
219 --
220 --  End of Comments
221 
222 PROCEDURE Process_Limits
223 (   p_api_version_number            IN  NUMBER
224 ,   p_init_msg_list                 IN  VARCHAR2 := FND_API.G_FALSE
225 ,   p_return_values                 IN  VARCHAR2 := FND_API.G_FALSE
226 ,   p_commit                        IN  VARCHAR2 := FND_API.G_FALSE
227 ,   x_return_status                 OUT NOCOPY /* file.sql.39 change */ VARCHAR2
228 ,   x_msg_count                     OUT NOCOPY /* file.sql.39 change */ NUMBER
229 ,   x_msg_data                      OUT NOCOPY /* file.sql.39 change */ VARCHAR2
230 ,   p_LIMITS_rec                    IN  Limits_Rec_Type :=
231                                         G_MISS_LIMITS_REC
232 ,   p_LIMITS_val_rec                IN  Limits_Val_Rec_Type :=
233                                         G_MISS_LIMITS_VAL_REC
234 ,   p_LIMIT_ATTRS_tbl               IN  Limit_Attrs_Tbl_Type :=
235                                         G_MISS_LIMIT_ATTRS_TBL
236 ,   p_LIMIT_ATTRS_val_tbl           IN  Limit_Attrs_Val_Tbl_Type :=
237                                         G_MISS_LIMIT_ATTRS_VAL_TBL
238 ,   p_LIMIT_BALANCES_tbl            IN  Limit_Balances_Tbl_Type :=
239                                         G_MISS_LIMIT_BALANCES_TBL
240 ,   p_LIMIT_BALANCES_val_tbl        IN  Limit_Balances_Val_Tbl_Type :=
241                                         G_MISS_LIMIT_BALANCES_VAL_TBL
242 ,   x_LIMITS_rec                    OUT NOCOPY /* file.sql.39 change */ Limits_Rec_Type
243 ,   x_LIMITS_val_rec                OUT NOCOPY /* file.sql.39 change */ Limits_Val_Rec_Type
244 ,   x_LIMIT_ATTRS_tbl               OUT NOCOPY /* file.sql.39 change */ Limit_Attrs_Tbl_Type
245 ,   x_LIMIT_ATTRS_val_tbl           OUT NOCOPY /* file.sql.39 change */ Limit_Attrs_Val_Tbl_Type
246 ,   x_LIMIT_BALANCES_tbl            OUT NOCOPY /* file.sql.39 change */ Limit_Balances_Tbl_Type
247 ,   x_LIMIT_BALANCES_val_tbl        OUT NOCOPY /* file.sql.39 change */ Limit_Balances_Val_Tbl_Type
248 );
249 
250 --  Start of Comments
251 --  API name    Lock_Limits
252 --  Type        Public
253 --  Function
254 --
255 --  Pre-reqs
256 --
260 --              Initial version = 1.0
257 --  Parameters
258 --
259 --  Version     Current version = 1.0
261 --
262 --  Notes
263 --
264 --  End of Comments
265 
266 PROCEDURE Lock_Limits
267 (   p_api_version_number            IN  NUMBER
268 ,   p_init_msg_list                 IN  VARCHAR2 := FND_API.G_FALSE
269 ,   p_return_values                 IN  VARCHAR2 := FND_API.G_FALSE
270 ,   x_return_status                 OUT NOCOPY /* file.sql.39 change */ VARCHAR2
271 ,   x_msg_count                     OUT NOCOPY /* file.sql.39 change */ NUMBER
272 ,   x_msg_data                      OUT NOCOPY /* file.sql.39 change */ VARCHAR2
273 ,   p_LIMITS_rec                    IN  Limits_Rec_Type :=
274                                         G_MISS_LIMITS_REC
275 ,   p_LIMITS_val_rec                IN  Limits_Val_Rec_Type :=
276                                         G_MISS_LIMITS_VAL_REC
277 ,   p_LIMIT_ATTRS_tbl               IN  Limit_Attrs_Tbl_Type :=
278                                         G_MISS_LIMIT_ATTRS_TBL
279 ,   p_LIMIT_ATTRS_val_tbl           IN  Limit_Attrs_Val_Tbl_Type :=
280                                         G_MISS_LIMIT_ATTRS_VAL_TBL
281 ,   p_LIMIT_BALANCES_tbl            IN  Limit_Balances_Tbl_Type :=
282                                         G_MISS_LIMIT_BALANCES_TBL
283 ,   p_LIMIT_BALANCES_val_tbl        IN  Limit_Balances_Val_Tbl_Type :=
284                                         G_MISS_LIMIT_BALANCES_VAL_TBL
285 ,   x_LIMITS_rec                    OUT NOCOPY /* file.sql.39 change */ Limits_Rec_Type
286 ,   x_LIMITS_val_rec                OUT NOCOPY /* file.sql.39 change */ Limits_Val_Rec_Type
287 ,   x_LIMIT_ATTRS_tbl               OUT NOCOPY /* file.sql.39 change */ Limit_Attrs_Tbl_Type
288 ,   x_LIMIT_ATTRS_val_tbl           OUT NOCOPY /* file.sql.39 change */ Limit_Attrs_Val_Tbl_Type
289 ,   x_LIMIT_BALANCES_tbl            OUT NOCOPY /* file.sql.39 change */ Limit_Balances_Tbl_Type
290 ,   x_LIMIT_BALANCES_val_tbl        OUT NOCOPY /* file.sql.39 change */ Limit_Balances_Val_Tbl_Type
291 );
292 
293 --  Start of Comments
294 --  API name    Get_Limits
295 --  Type        Public
296 --  Function
297 --
298 --  Pre-reqs
299 --
300 --  Parameters
301 --
302 --  Version     Current version = 1.0
303 --              Initial version = 1.0
304 --
305 --  Notes
306 --
307 --  End of Comments
308 
309 PROCEDURE Get_Limits
310 (   p_api_version_number            IN  NUMBER
311 ,   p_init_msg_list                 IN  VARCHAR2 := FND_API.G_FALSE
312 ,   p_return_values                 IN  VARCHAR2 := FND_API.G_FALSE
313 ,   x_return_status                 OUT NOCOPY /* file.sql.39 change */ VARCHAR2
314 ,   x_msg_count                     OUT NOCOPY /* file.sql.39 change */ NUMBER
315 ,   x_msg_data                      OUT NOCOPY /* file.sql.39 change */ VARCHAR2
316 ,   p_limit_id                      IN  NUMBER :=
317                                         FND_API.G_MISS_NUM
318 ,   p_limit                         IN  VARCHAR2 :=
319                                         FND_API.G_MISS_CHAR
320 ,   x_LIMITS_rec                    OUT NOCOPY /* file.sql.39 change */ Limits_Rec_Type
321 ,   x_LIMITS_val_rec                OUT NOCOPY /* file.sql.39 change */ Limits_Val_Rec_Type
322 ,   x_LIMIT_ATTRS_tbl               OUT NOCOPY /* file.sql.39 change */ Limit_Attrs_Tbl_Type
323 ,   x_LIMIT_ATTRS_val_tbl           OUT NOCOPY /* file.sql.39 change */ Limit_Attrs_Val_Tbl_Type
324 ,   x_LIMIT_BALANCES_tbl            OUT NOCOPY /* file.sql.39 change */ Limit_Balances_Tbl_Type
325 ,   x_LIMIT_BALANCES_val_tbl        OUT NOCOPY /* file.sql.39 change */ Limit_Balances_Val_Tbl_Type
326 );
327 
328 END QP_Limits_PUB;