[Home] [Help]
PACKAGE BODY: APPS.ARP_CUST_PKG
Source
1 PACKAGE BODY arp_cust_pkg as
2 /* $Header: AROCUSTB.pls 120.2 2005/07/21 00:02:24 hyu noship $ */
3 --
4 -- PROCEDURE
5 -- check_unique_customer_name
6 --
7 -- DESCRIPTION
8 -- This procedure determins if an address has a site use of a particular
9 -- Type.
10 --
11 -- SCOPE - PUBLIC
12 --
13 -- EXETERNAL PROCEDURES/FUNCTIONS ACCESSED
14 --
15 -- ARGUMENTS : IN:
16 -- - p_rowid - rowid of row
17 -- - p_customer_name
18 --
19 -- OUT:
20 -- - p_warning_flag - Tells calling routine that there
21 -- is a non fatla waring on the message stack
22 --
23 -- RETURNS null
24 --
25 -- NOTES
26 --
27 --
28 procedure check_unique_customer_name (p_rowid in varchar2,
29 p_customer_name in varchar2,
30 p_warning_flag in out nocopy varchar2
31 ) is
32 begin
33 --{BUG 4504905 - R12 this code is obsolete - stubbed out for compilation only
34 NULL;
35 --}
36 end check_unique_customer_name;
37 --
38 --
39 --
40 --
41 --
42 -- PROCEDURE
43 -- check_unique_customer_number
44 --
45 -- DESCRIPTION
46 -- RRaise error if customer number is duplicate
47 --
48 -- SCOPE - PUBLIC
49 --
50 -- EXETERNAL PROCEDURES/FUNCTIONS ACCESSED
51 --
52 -- ARGUMENTS : IN:
53 -- - p_rowid - rowid of row
54 -- - p_customer_number
55 --
56 -- OUT:
57 --
58 -- RETURNS null
59 --
60 -- NOTES
61 --
62 --
63 procedure check_unique_customer_number(p_rowid in varchar2,
64 p_customer_number in varchar2
65 ) is
66 begin
67 --{BUG 4504905 - R12 this code is obsolete - stubbed out for compilation only
68 NULL;
69 --}
70 end check_unique_customer_number;
71 --
72 --
73 --
74 -- PROCEDURE
75 -- check_unique_orig_system_ref
76 --
77 -- DESCRIPTION
78 -- Raise error if orig_system_referenc is duplicate
79 --
80 -- SCOPE - PUBLIC
81 --
82 -- EXETERNAL PROCEDURES/FUNCTIONS ACCESSED
83 --
84 -- ARGUMENTS : IN:
85 -- - p_rowid - rowid of row
86 -- - p_orig_system_reference
87 --
88 -- OUT:
89 --
90 -- RETURNS null
91 --
92 -- NOTES
93 --
94 --
95 procedure check_unique_orig_system_ref( p_rowid in varchar2,
96 p_orig_system_reference in varchar2
97 ) is
98 dummy number;
99 --Bug 1171262 Modified from rowid to row_id
100 begin
101 --{BUG 4504905 - R12 this code is obsolete - stubbed out for compilation only
102 NULL;
103 --}
104 end check_unique_orig_system_ref;
105 --
106 --
107 procedure delete_customer_alt_names(p_rowid in varchar2,
108 p_status in varchar2,
109 p_customer_id in number
110 ) is
111 begin
112 --{BUG 4504905 - R12 this code is obsolete - stubbed out for compilation only
113 NULL;
114 --}
115 end delete_customer_alt_names;
116 --
117 --
118 procedure insert_Row (X_Rowid IN OUT NOCOPY VARCHAR2,
119 X_Customer_Id IN OUT NOCOPY NUMBER,
120 X_Customer_Name IN OUT NOCOPY VARCHAR2,
121 X_Customer_Number IN OUT NOCOPY VARCHAR2,
122 X_Customer_Key VARCHAR2,
123 X_Status VARCHAR2,
124 X_Orig_System_Reference IN OUT NOCOPY VARCHAR2,
125 X_Customer_Prospect_code VARCHAR2,
126 X_Customer_Category_Code VARCHAR2,
127 X_Customer_Class_Code VARCHAR2,
128 X_Customer_Type VARCHAR2,
129 X_Primary_Salesrep_Id NUMBER,
130 X_Sic_Code VARCHAR2,
131 X_Tax_Reference VARCHAR2,
132 X_Tax_Code VARCHAR2,
133 X_Fob_Point VARCHAR2,
134 X_Ship_Via VARCHAR2,
135 X_Gsa_Indicator VARCHAR2,
136 X_Ship_Partial VARCHAR2,
137 X_Taxpayer_Id VARCHAR2,
138 X_Price_List_Id NUMBER,
139 X_Freight_Term VARCHAR2,
140 X_Order_Type_Id NUMBER,
141 X_Sales_Channel_Code VARCHAR2,
142 X_Warehouse_Id NUMBER,
143 X_Mission_Statement VARCHAR2,
144 X_Num_Of_Employees NUMBER,
145 X_Potential_Revenue_Curr_Fy NUMBER,
146 X_Potential_Revenue_Next_Fy NUMBER,
147 X_Fiscal_Yearend_Month VARCHAR2,
148 X_Year_Established NUMBER,
149 X_Analysis_Fy VARCHAR2,
150 X_Competitor_Flag VARCHAR2,
151 X_Reference_Use_Flag VARCHAR2,
152 X_Third_Party_Flag VARCHAR2,
153 X_Attribute_Category VARCHAR2,
154 X_Attribute1 VARCHAR2,
155 X_Attribute2 VARCHAR2,
156 X_Attribute3 VARCHAR2,
157 X_Attribute4 VARCHAR2,
158 X_Attribute5 VARCHAR2,
159 X_Attribute6 VARCHAR2,
160 X_Attribute7 VARCHAR2,
161 X_Attribute8 VARCHAR2,
162 X_Attribute9 VARCHAR2,
163 X_Attribute10 VARCHAR2,
164 X_Attribute11 VARCHAR2,
165 X_Attribute12 VARCHAR2,
166 X_Attribute13 VARCHAR2,
167 X_Attribute14 VARCHAR2,
168 X_Attribute15 VARCHAR2,
169 X_Last_Updated_By NUMBER,
170 X_Last_Update_Date DATE,
171 X_Last_Update_Login NUMBER,
172 X_Created_By NUMBER,
173 X_Creation_Date DATE,
174 X_Customer_Name_Phonetic VARCHAR2,
175 X_Tax_Header_Level_Flag VARCHAR2,
176 X_Tax_Rounding_Rule VARCHAR2,
177 X_Global_Attribute_Category VARCHAR2,
178 X_Global_Attribute1 VARCHAR2,
179 X_Global_Attribute2 VARCHAR2,
180 X_Global_Attribute3 VARCHAR2,
181 X_Global_Attribute4 VARCHAR2,
182 X_Global_Attribute5 VARCHAR2,
183 X_Global_Attribute6 VARCHAR2,
184 X_Global_Attribute7 VARCHAR2,
185 X_Global_Attribute8 VARCHAR2,
186 X_Global_Attribute9 VARCHAR2,
187 X_Global_Attribute10 VARCHAR2,
188 X_Global_Attribute11 VARCHAR2,
189 X_Global_Attribute12 VARCHAR2,
190 X_Global_Attribute13 VARCHAR2,
191 X_Global_Attribute14 VARCHAR2,
192 X_Global_Attribute15 VARCHAR2,
193 X_Global_Attribute16 VARCHAR2,
194 X_Global_Attribute17 VARCHAR2,
195 X_Global_Attribute18 VARCHAR2,
196 X_Global_Attribute19 VARCHAR2,
197 X_Global_Attribute20 VARCHAR2
198 ) IS
199 --
200 begin
201 --{BUG 4504905 - R12 this code is obsolete - stubbed out for compilation only
202 NULL;
203 --}
204 END Insert_Row;
205 --
206 --
207 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
208 X_Customer_Id NUMBER,
209 X_Customer_Name VARCHAR2,
210 X_Customer_Number VARCHAR2,
211 X_Customer_Key VARCHAR2,
212 X_Status VARCHAR2,
213 X_Orig_System_Reference VARCHAR2,
214 X_Customer_Prospect_code VARCHAR2,
215 X_Customer_Category_Code VARCHAR2,
216 X_Customer_Class_Code VARCHAR2,
217 X_Customer_Type VARCHAR2,
218 X_Primary_Salesrep_Id NUMBER,
219 X_Sic_Code VARCHAR2,
220 X_Tax_Reference VARCHAR2,
221 X_Tax_Code VARCHAR2,
222 X_Fob_Point VARCHAR2,
223 X_Ship_Via VARCHAR2,
224 X_Gsa_Indicator VARCHAR2,
225 X_Ship_Partial VARCHAR2,
226 X_Taxpayer_Id VARCHAR2,
227 X_Price_List_Id NUMBER,
228 X_Freight_Term VARCHAR2,
229 X_Order_Type_Id NUMBER,
230 X_Sales_Channel_Code VARCHAR2,
231 X_Warehouse_Id NUMBER,
232 X_Mission_Statement VARCHAR2,
233 X_Num_Of_Employees NUMBER,
234 X_Potential_Revenue_Curr_Fy NUMBER,
235 X_Potential_Revenue_Next_Fy NUMBER,
236 X_Fiscal_Yearend_Month VARCHAR2,
237 X_Year_Established NUMBER,
238 X_Analysis_Fy VARCHAR2,
239 X_Competitor_Flag VARCHAR2,
240 X_Reference_Use_Flag VARCHAR2,
241 X_Third_Party_Flag VARCHAR2,
242 X_Attribute_Category VARCHAR2,
243 X_Attribute1 VARCHAR2,
244 X_Attribute2 VARCHAR2,
245 X_Attribute3 VARCHAR2,
246 X_Attribute4 VARCHAR2,
247 X_Attribute5 VARCHAR2,
248 X_Attribute6 VARCHAR2,
249 X_Attribute7 VARCHAR2,
250 X_Attribute8 VARCHAR2,
251 X_Attribute9 VARCHAR2,
252 X_Attribute10 VARCHAR2,
253 X_Attribute11 VARCHAR2,
254 X_Attribute12 VARCHAR2,
255 X_Attribute13 VARCHAR2,
256 X_Attribute14 VARCHAR2,
257 X_Attribute15 VARCHAR2,
258 X_Customer_Name_Phonetic VARCHAR2,
259 X_Tax_Header_Level_Flag VARCHAR2,
260 X_Tax_Rounding_Rule VARCHAR2,
261 X_Global_Attribute_Category VARCHAR2,
262 X_Global_Attribute1 VARCHAR2,
263 X_Global_Attribute2 VARCHAR2,
264 X_Global_Attribute3 VARCHAR2,
265 X_Global_Attribute4 VARCHAR2,
266 X_Global_Attribute5 VARCHAR2,
267 X_Global_Attribute6 VARCHAR2,
268 X_Global_Attribute7 VARCHAR2,
269 X_Global_Attribute8 VARCHAR2,
270 X_Global_Attribute9 VARCHAR2,
271 X_Global_Attribute10 VARCHAR2,
272 X_Global_Attribute11 VARCHAR2,
273 X_Global_Attribute12 VARCHAR2,
274 X_Global_Attribute13 VARCHAR2,
275 X_Global_Attribute14 VARCHAR2,
276 X_Global_Attribute15 VARCHAR2,
277 X_Global_Attribute16 VARCHAR2,
278 X_Global_Attribute17 VARCHAR2,
279 X_Global_Attribute18 VARCHAR2,
280 X_Global_Attribute19 VARCHAR2,
281 X_Global_Attribute20 VARCHAR2
282 ) IS
283 BEGIN
284 --{BUG 4504905 - R12 this code is obsolete - stubbed out for compilation only
285 NULL;
286 --}
287 END Lock_Row;
288 --
289 --
290 PROCEDURE Update_Row(X_Rowid VARCHAR2,
291 X_Customer_Id NUMBER,
292 X_Customer_Name VARCHAR2,
293 X_Customer_Number VARCHAR2,
294 X_Customer_Key VARCHAR2,
295 X_Status VARCHAR2,
296 X_Orig_System_Reference VARCHAR2,
297 X_Customer_Prospect_Code VARCHAR2,
298 X_Customer_Category_Code VARCHAR2,
299 X_Customer_Class_Code VARCHAR2,
300 X_Customer_Type VARCHAR2,
301 X_Primary_Salesrep_Id NUMBER,
302 X_Sic_Code VARCHAR2,
303 X_Tax_Reference VARCHAR2,
304 X_Tax_Code VARCHAR2,
305 X_Fob_Point VARCHAR2,
306 X_Ship_Via VARCHAR2,
307 X_Gsa_Indicator VARCHAR2,
308 X_Ship_Partial VARCHAR2,
309 X_Taxpayer_Id VARCHAR2,
310 X_Price_List_Id NUMBER,
311 X_Freight_Term VARCHAR2,
312 X_Order_Type_Id NUMBER,
313 X_Sales_Channel_Code VARCHAR2,
314 X_Warehouse_Id NUMBER,
315 X_Mission_Statement VARCHAR2,
316 X_Num_Of_Employees NUMBER,
317 X_Potential_Revenue_Curr_Fy NUMBER,
318 X_Potential_Revenue_Next_Fy NUMBER,
319 X_Fiscal_Yearend_Month VARCHAR2,
320 X_Year_Established NUMBER,
321 X_Analysis_Fy VARCHAR2,
322 X_Competitor_Flag VARCHAR2,
323 X_Reference_Use_Flag VARCHAR2,
324 X_Third_Party_Flag VARCHAR2,
325 X_Attribute_Category VARCHAR2,
326 X_Attribute1 VARCHAR2,
327 X_Attribute2 VARCHAR2,
328 X_Attribute3 VARCHAR2,
332 X_Attribute7 VARCHAR2,
329 X_Attribute4 VARCHAR2,
330 X_Attribute5 VARCHAR2,
331 X_Attribute6 VARCHAR2,
333 X_Attribute8 VARCHAR2,
334 X_Attribute9 VARCHAR2,
335 X_Attribute10 VARCHAR2,
336 X_Attribute11 VARCHAR2,
337 X_Attribute12 VARCHAR2,
338 X_Attribute13 VARCHAR2,
339 X_Attribute14 VARCHAR2,
340 X_Attribute15 VARCHAR2,
341 X_Last_Updated_By NUMBER,
342 X_Last_Update_Date DATE,
343 X_Last_Update_Login NUMBER,
344 X_Customer_Name_Phonetic VARCHAR2,
345 X_Tax_Header_Level_Flag VARCHAR2,
346 X_Tax_Rounding_Rule VARCHAR2,
347 X_Global_Attribute_Category VARCHAR2,
348 X_Global_Attribute1 VARCHAR2,
349 X_Global_Attribute2 VARCHAR2,
350 X_Global_Attribute3 VARCHAR2,
351 X_Global_Attribute4 VARCHAR2,
352 X_Global_Attribute5 VARCHAR2,
353 X_Global_Attribute6 VARCHAR2,
354 X_Global_Attribute7 VARCHAR2,
355 X_Global_Attribute8 VARCHAR2,
356 X_Global_Attribute9 VARCHAR2,
357 X_Global_Attribute10 VARCHAR2,
358 X_Global_Attribute11 VARCHAR2,
359 X_Global_Attribute12 VARCHAR2,
360 X_Global_Attribute13 VARCHAR2,
361 X_Global_Attribute14 VARCHAR2,
362 X_Global_Attribute15 VARCHAR2,
363 X_Global_Attribute16 VARCHAR2,
364 X_Global_Attribute17 VARCHAR2,
365 X_Global_Attribute18 VARCHAR2,
366 X_Global_Attribute19 VARCHAR2,
367 X_Global_Attribute20 VARCHAR2
368
369 ) IS
370 --
371 begin
372 --{BUG 4504905 - R12 this code is obsolete - stubbed out for compilation only
373 NULL;
374 --}
375 END Update_Row;
376 --
377 --
378 /*===========================================================================+
379 | FUNCTION |
380 | get_statement_site |
381 | |
382 | DESCRIPTION |
383 | |
384 | Returns the site_use_id of a STATEMENT (STMTS) associated with the |
385 | customers address if present else return NULL. |
386 | |
387 | SCOPE - PUBLIC |
388 | |
389 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
390 | |
391 | ARGUMENTS : IN: |
392 | p_customer_id |
393 | OUT: |
394 | site_use_id |
395 | |
396 | RETURNS : site_use_id where site_use_code = 'STMTS' |
397 | |
398 | |
399 | NOTES : |
400 | |
401 | The function is intended to be used in SQL statements. |
402 | |
403 | The intent of its creation was to minimize the code change for all the |
404 | SQLs which were using : |
405 | |
406 | ra_customers.statement_site_use_id = ra_site_uses.site_use_id (+) |
407 | |
408 | These queries can now be changed to: |
409 | |
410 | ARP_CUST_PKG.get_statement_site(ra_customers.customer_id) = |
411 | ra_site_uses.site_use_id (+) |
412 | |
413 | Make sure you donot pass a constant as an argument when making use |
414 | of this function in a query which is supposed to succeed even if the |
418 | |
415 | the statement site does not exist for a customer. The outer join does |
416 | not kick off in an event when the function returns NULL thus making the|
417 | base query to fail. |
419 | MODIFICATION HISTORY |
420 | |
421 | 19-JUN-1997 Neeraj Tandon Created |
422 +===========================================================================*/
423
424 FUNCTION get_statement_site ( p_customer_id IN NUMBER
425 )
426 RETURN NUMBER is
427 BEGIN
428 --{BUG 4504905 - R12 this code is obsolete - stubbed out for compilation only
429 RETURN NULL;
430 --}
431 END;
432 --
433 --
434 /*===========================================================================+
435 | FUNCTION |
436 | get_dunning_site |
437 | |
438 | DESCRIPTION |
439 | |
440 | Returns the site_use_id of DUNNING (DUN) associated with the |
441 | customers address if present else return NULL. |
442 | |
443 | SCOPE - PUBLIC |
444 | |
445 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
446 | |
447 | ARGUMENTS : IN: |
448 | p_customer_id |
449 | OUT: |
450 | site_use_id |
451 | |
452 | RETURNS : site_use_id where site_use_code = 'DUN' |
453 | |
454 | |
455 | NOTES : |
456 | |
457 | The function is intended to be used in SQL statements. |
458 | |
459 | The intent of its creation was to minimize the code change for all the |
460 | SQLs which were using : |
461 | |
462 | ra_customers.dunning_site_use_id = ra_site_uses.site_use_id (+) |
463 | |
464 | These queries can now be changed to: |
465 | |
466 | ARP_CUST_PKG.get_dunning(ra_customers.customer_id) = |
467 | ra_site_uses.site_use_id (+) |
468 | |
469 | Make sure you donot pass a constant as an argument when making use |
470 | of this function in a query which is supposed to succeed even if the |
471 | the dunning site does not exist for a customer. The outer join does |
472 | not kick off in an event when the function returns NULL thus making the|
473 | base query to fail. |
474 | |
475 | MODIFICATION HISTORY |
476 | |
477 | 19-JUN-1997 Neeraj Tandon Created |
478 +===========================================================================*/
479
480 FUNCTION get_dunning_site ( p_customer_id IN NUMBER
481 )
482 RETURN NUMBER is
483 BEGIN
484 --{BUG 4504905 - R12 this code is obsolete - stubbed out for compilation only
485 RETURN NULL;
486 --}
487 END;
488 --
489 --
490 /*===========================================================================+
491 | FUNCTION |
492 | get_current_dunning_type |
493 | |
494 | DESCRIPTION |
495 | |
496 | Returns the current dunning_type associated with a customers profile |
497 | or BILL_TO profile or Dunning profile |
498 | |
499 | SCOPE - PUBLIC |
500 | |
501 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
505 | p_bill_to_site_id |
502 | |
503 | ARGUMENTS : IN: |
504 | p_customer_id |
506 | OUT: |
507 | dunning_type |
508 | |
509 | NOTES : |
510 | To be used in Account Details form to determine whether |
511 | staged_dunning_level field of ar_payment_schedules is updateable |
512 | or not. |
513 | |
514 | MODIFICATION HISTORY |
515 | |
516 | 30-JUN-1997 Neeraj Tandon Created |
517 | |
518 +===========================================================================+*/
519 --
520 FUNCTION get_current_dunning_type (p_customer_id IN NUMBER,
521 p_bill_to_site_id IN NUMBER DEFAULT NULL
522 )
523 return varchar2 is
524 BEGIN
525 --{BUG 4504905 - R12 this code is obsolete - stubbed out for compilation only
526 RETURN NULL;
527 --}
528 END;
529 --
530 FUNCTION arxvamai_overall_cr_limit ( p_customer_id NUMBER,
531 p_currency_code VARCHAR2,
532 p_customer_site_use_id NUMBER
533 ) RETURN NUMBER is
534 BEGIN
535 --{BUG 4504905 - R12 this code is obsolete - stubbed out for compilation only
536 RETURN NULL;
537 --}
538 END;
539
540 --
541 FUNCTION arxvamai_order_cr_limit ( p_customer_id NUMBER,
542 p_currency_code VARCHAR2,
543 p_customer_site_use_id NUMBER
544 ) RETURN NUMBER is
545 BEGIN
546 --{BUG 4504905 - R12 this code is obsolete - stubbed out for compilation only
547 RETURN NULL;
548 --}
549 END;
550
551 --
552 FUNCTION get_primary_billto_site ( p_customer_id IN NUMBER
553 )
554 RETURN NUMBER is
555 BEGIN
556 --{BUG 4504905 - R12 this code is obsolete - stubbed out for compilation only
557 RETURN NULL;
558 --}
559 END;
560 --
561 --
562 END arp_cust_pkg;
563