1 PACKAGE BODY JE_INTERFACE_VAL AS
2 /* $Header: jgjegdfb.pls 120.11 2006/08/23 07:50:31 vgadde ship $ */
3
4 PROCEDURE ap_business_rules(
5 p_calling_program_name IN VARCHAR2,
6 p_set_of_books_id IN NUMBER,
7 p_invoice_date IN DATE,
8 p_parent_table IN VARCHAR2,
9 p_parent_id IN NUMBER,
10 p_default_last_updated_by IN NUMBER,
11 p_default_last_update_login IN NUMBER,
12 p_inv_vendor_site_id IN NUMBER,
13 p_inv_payment_currency_code IN VARCHAR2,
14 p_global_attribute_category IN VARCHAR2,
15 p_global_attribute1 IN OUT NOCOPY VARCHAR2,
16 p_global_attribute2 IN OUT NOCOPY VARCHAR2,
17 p_global_attribute3 IN OUT NOCOPY VARCHAR2,
18 p_global_attribute4 IN OUT NOCOPY VARCHAR2,
19 p_global_attribute5 IN OUT NOCOPY VARCHAR2,
20 p_global_attribute6 IN OUT NOCOPY VARCHAR2,
21 p_global_attribute7 IN OUT NOCOPY VARCHAR2,
22 p_global_attribute8 IN OUT NOCOPY VARCHAR2,
23 p_global_attribute9 IN OUT NOCOPY VARCHAR2,
24 p_global_attribute10 IN OUT NOCOPY VARCHAR2,
25 p_global_attribute11 IN OUT NOCOPY VARCHAR2,
26 p_global_attribute12 IN OUT NOCOPY VARCHAR2,
27 p_global_attribute13 IN OUT NOCOPY VARCHAR2,
28 p_global_attribute14 IN OUT NOCOPY VARCHAR2,
29 p_global_attribute15 IN OUT NOCOPY VARCHAR2,
30 p_global_attribute16 IN OUT NOCOPY VARCHAR2,
31 p_global_attribute17 IN OUT NOCOPY VARCHAR2,
32 p_global_attribute18 IN OUT NOCOPY VARCHAR2,
33 p_global_attribute19 IN OUT NOCOPY VARCHAR2,
34 p_global_attribute20 IN OUT NOCOPY VARCHAR2,
35 p_current_invoice_status OUT NOCOPY VARCHAR2,
36 p_calling_sequence IN VARCHAR2) IS
37
38 l_current_invoice_status VARCHAR2(1) := 'Y';
39 l_debug_loc VARCHAR2(30) := 'ap_business_rules';
40 l_curr_calling_sequence VARCHAR2(2000);
41 l_debug_info VARCHAR2(100);
42
43 BEGIN
44 -------------------------- DEBUG INFORMATION ------------------------------------------
45 l_curr_calling_sequence := 'je_interface_val.'||l_debug_loc||'<-'||p_calling_sequence;
46 l_debug_info := 'Check Europe business rules';
47 ---------------------------------------------------------------------------------------
48
49 --
50 -- 1-7. JE.IT.APXIISIM.DEF
51 --
52 IF (p_global_attribute_category = 'JE.IT.APXIISIM.DISTRIBUTIONS') THEN
53 je_it_apxiisim_def(
54 p_parent_id,
55 p_default_last_updated_by,
56 p_default_last_update_login,
57 p_global_attribute1,
58 p_global_attribute2,
59 p_global_attribute3,
60 p_global_attribute4,
61 p_global_attribute5,
62 p_global_attribute6,
63 p_global_attribute7,
64 p_global_attribute8,
65 p_global_attribute9,
66 p_global_attribute10,
67 p_global_attribute11,
68 p_global_attribute12,
69 p_global_attribute13,
70 p_global_attribute14,
71 p_global_attribute15,
72 p_global_attribute16,
73 p_global_attribute17,
74 p_global_attribute18,
75 p_global_attribute19,
76 p_global_attribute20,
77 l_current_invoice_status,
78 p_calling_sequence);
79
80
81 ELSIF (p_global_attribute_category = 'JE.ES.APXIISIM.MODELO349') THEN
82 je_es_apxiisim_modelo349(
83 p_parent_id,
84 p_default_last_updated_by,
85 p_default_last_update_login,
86 p_global_attribute1,
87 p_global_attribute2,
88 p_global_attribute3,
89 p_global_attribute4,
90 p_global_attribute5,
91 p_global_attribute6,
92 p_global_attribute7,
93 p_global_attribute8,
94 p_global_attribute9,
95 p_global_attribute10,
96 p_global_attribute11,
97 p_global_attribute12,
98 p_global_attribute13,
99 p_global_attribute14,
100 p_global_attribute15,
101 p_global_attribute16,
102 p_global_attribute17,
103 p_global_attribute18,
104 p_global_attribute19,
105 p_global_attribute20,
106 l_current_invoice_status,
107 p_calling_sequence);
108
109
110 --
111 -- 1-24. JE.CZ.APXIISIM.INVOICE_INFO
112 --
113 ELSIF (p_global_attribute_category = 'JE.CZ.APXIISIM.INVOICE_INFO') THEN
114 je_cz_apxiisim_invoice_info(
115 p_parent_id,
116 p_default_last_updated_by,
117 p_default_last_update_login,
118 p_global_attribute1,
119 p_global_attribute2,
120 p_global_attribute3,
121 p_global_attribute4,
122 p_global_attribute5,
123 p_global_attribute6,
124 p_global_attribute7,
125 p_global_attribute8,
126 p_global_attribute9,
127 p_global_attribute10,
128 p_global_attribute11,
129 p_global_attribute12,
130 p_global_attribute13,
131 p_global_attribute14,
132 p_global_attribute15,
133 p_global_attribute16,
134 p_global_attribute17,
135 p_global_attribute18,
136 p_global_attribute19,
137 p_global_attribute20,
138 l_current_invoice_status,
139 p_calling_sequence);
140
141 --
142 -- 1-25. JE.HU.APXIISIM.TAX_DATE
143 --
144 ELSIF (p_global_attribute_category = 'JE.HU.APXIISIM.TAX_DATE') THEN
145 je_hu_apxiisim_tax_date(
146 p_parent_id,
147 p_default_last_updated_by,
148 p_default_last_update_login,
149 p_global_attribute1,
150 p_global_attribute2,
151 p_global_attribute3,
152 p_global_attribute4,
153 p_global_attribute5,
154 p_global_attribute6,
155 p_global_attribute7,
156 p_global_attribute8,
157 p_global_attribute9,
158 p_global_attribute10,
159 p_global_attribute11,
160 p_global_attribute12,
161 p_global_attribute13,
162 p_global_attribute14,
163 p_global_attribute15,
164 p_global_attribute16,
165 p_global_attribute17,
166 p_global_attribute18,
167 p_global_attribute19,
168 p_global_attribute20,
169 l_current_invoice_status,
170 p_calling_sequence);
171
172
173 END IF;
174
175 p_current_invoice_status := l_current_invoice_status;
176
177 EXCEPTION
178 WHEN OTHERS THEN
179 IF (SQLCODE <> -20001) THEN
180 FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
181 FND_MESSAGE.SET_TOKEN('ERROR', 'SQLERRM');
182 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
183 FND_MESSAGE.SET_TOKEN('PARAMETERS',
184 'Set Of Books Id = '||to_char(p_set_of_books_id)
185 ||', Parent Table = '||p_parent_table
186 ||', Parent Id = '||to_char(p_parent_id)
187 ||', Last Updated By = '||to_char(p_default_last_updated_by)
188 ||', Last Update Login = '||to_char(p_default_last_update_login)
189 ||', Global Attribute Category = '||p_global_attribute_category
190 ||', Global Attribute1 = '||p_global_attribute1
191 ||', Global Attribute2 = '||p_global_attribute2
192 ||', Global Attribute3 = '||p_global_attribute3
193 ||', Global Attribute4 = '||p_global_attribute4
194 ||', Global Attribute5 = '||p_global_attribute5
195 ||', Global Attribute6 = '||p_global_attribute6
196 ||', Global Attribute7 = '||p_global_attribute7
197 ||', Global Attribute8 = '||p_global_attribute8
198 ||', Global Attribute9 = '||p_global_attribute9
199 ||', Global Attribute10 = '||p_global_attribute10
200 ||', Global Attribute11 = '||p_global_attribute11
201 ||', Global Attribute12 = '||p_global_attribute12
202 ||', Global Attribute13 = '||p_global_attribute13
203 ||', Global Attribute14 = '||p_global_attribute14
204 ||', Global Attribute15 = '||p_global_attribute15
205 ||', Global Attribute16 = '||p_global_attribute16
206 ||', Global Attribute17 = '||p_global_attribute17
207 ||', Global Attribute18 = '||p_global_attribute18
208 ||', Global Attribute19 = '||p_global_attribute19
209 ||', Global Attribute20 = '||p_global_attribute20);
210 FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
211 END IF;
212 APP_EXCEPTION.RAISE_EXCEPTION;
213 END ap_business_rules;
214
215
216
217
218
219 --------------------------------------------------------------------------------------
220 -- JE_IT_APXIISIM_DISTRIBUTIONS()
221 --------------------------------------------------------------------------------------
222 -- Following segemnts are defined for Italian Invoice Line Interface:
223 --------------------------------------------------------------------------------------
224 -- No. Name Column Value Set Required
225 -- --- -------------------------- ------------------ -------------------- ---------
226 -- 1 TAXABLE_AMOUNT GLOBAL_ATTRIBUTE1 JEIT_NUMBER NO
227 --------------------------------------------------------------------------------------
228 PROCEDURE je_it_apxiisim_def
229 (p_parent_id IN NUMBER,
230 p_default_last_updated_by IN NUMBER,
231 p_default_last_update_login IN NUMBER,
232 p_global_attribute1 IN VARCHAR2,
233 p_global_attribute2 IN VARCHAR2,
234 p_global_attribute3 IN VARCHAR2,
235 p_global_attribute4 IN VARCHAR2,
236 p_global_attribute5 IN VARCHAR2,
237 p_global_attribute6 IN VARCHAR2,
238 p_global_attribute7 IN VARCHAR2,
239 p_global_attribute8 IN VARCHAR2,
240 p_global_attribute9 IN VARCHAR2,
241 p_global_attribute10 IN VARCHAR2,
242 p_global_attribute11 IN VARCHAR2,
243 p_global_attribute12 IN VARCHAR2,
244 p_global_attribute13 IN VARCHAR2,
245 p_global_attribute14 IN VARCHAR2,
246 p_global_attribute15 IN VARCHAR2,
247 p_global_attribute16 IN VARCHAR2,
248 p_global_attribute17 IN VARCHAR2,
249 p_global_attribute18 IN VARCHAR2,
250 p_global_attribute19 IN VARCHAR2,
251 p_global_attribute20 IN VARCHAR2,
252 p_current_invoice_status OUT NOCOPY VARCHAR2,
253 p_calling_sequence IN VARCHAR2) IS
254
255
256 l_def_exp_acc_exists VARCHAR2(1);
257 l_def_exp_sob_id NUMBER;
258
259 BEGIN
260
261
262 -- Taxable Amount
263 IF p_global_attribute1 is not null then
264 -- Bug 3510068. Changed the maximum size from 1 to 30.
265 IF (NOT jg_globe_flex_val_shared.check_format(p_global_attribute1,'N',30,'','N','N','N','','')) then
266 jg_globe_flex_val_shared.insert_rejections('AP_INVOICES_INTERFACE',
267 p_parent_id,
268 'INVALID_GLOBAL_ATTR1',
269 p_default_last_updated_by,
270 p_default_last_update_login,
271 p_calling_sequence);
272 p_current_invoice_status := 'N';
273 END IF;
274 END IF;
275
276 IF (p_global_attribute6 is not null) or
277 (p_global_attribute7 is not null) or
278 (p_global_attribute8 is not null) or
279 (p_global_attribute9 is not null) or
280 (p_global_attribute10 is not null) or
281 (p_global_attribute11 is not null) or
282 (p_global_attribute12 is not null) or
283 (p_global_attribute13 is not null) or
284 (p_global_attribute14 is not null) or
285 (p_global_attribute15 is not null) or
286 (p_global_attribute16 is not null) or
287 (p_global_attribute17 is not null) or
288 (p_global_attribute18 is not null) or
289 (p_global_attribute19 is not null) or
290 (p_global_attribute20 is not null) THEN
291
292 jg_globe_flex_val_shared.insert_rejections('AP_INVOICES_INTERFACE',
293 p_parent_id,
294 'GLOBAL_ATTR_VALUE_FOUND',
295 p_default_last_updated_by,
296 p_default_last_update_login,
297 p_calling_sequence);
298 p_current_invoice_status := 'N';
299
300 END IF;
301 end je_it_apxiisim_def;
302
303
304
305 --------------------------------------------------------------------------------------
306 -- JE_CZ_APXIISIM_INVOICE_INFO()
307 --------------------------------------------------------------------------------------
308 -- Following segments are defined for Czech Republic Invoice Interface:
309 --------------------------------------------------------------------------------------
310 -- No. Name Column Value Set Required
311 -- --- -------------------------- ------------------ -------------------- ---------
312 -- 4 IMPORT_DOC_DATE GLOBAL_ATTRIBUTE4 FND_STANDARD_DATE No
313 --------------------------------------------------------------------------------------
314 PROCEDURE je_cz_apxiisim_invoice_info
315 (p_parent_id IN NUMBER,
316 p_default_last_updated_by IN NUMBER,
317 p_default_last_update_login IN NUMBER,
318 p_global_attribute1 IN VARCHAR2,
319 p_global_attribute2 IN VARCHAR2,
320 p_global_attribute3 IN VARCHAR2,
321 p_global_attribute4 IN VARCHAR2,
322 p_global_attribute5 IN VARCHAR2,
323 p_global_attribute6 IN VARCHAR2,
324 p_global_attribute7 IN VARCHAR2,
325 p_global_attribute8 IN VARCHAR2,
326 p_global_attribute9 IN VARCHAR2,
330 p_global_attribute13 IN VARCHAR2,
327 p_global_attribute10 IN VARCHAR2,
328 p_global_attribute11 IN VARCHAR2,
329 p_global_attribute12 IN VARCHAR2,
331 p_global_attribute14 IN VARCHAR2,
332 p_global_attribute15 IN VARCHAR2,
333 p_global_attribute16 IN VARCHAR2,
334 p_global_attribute17 IN VARCHAR2,
335 p_global_attribute18 IN VARCHAR2,
336 p_global_attribute19 IN VARCHAR2,
337 p_global_attribute20 IN VARCHAR2,
338 p_current_invoice_status OUT NOCOPY VARCHAR2,
339 p_calling_sequence IN VARCHAR2) IS
340
341 BEGIN
342
343 IF (
344 -- bug 1579266 this country uses global attribute 5,6,7
345 -- (p_global_attribute5 IS NOT NULL) OR
346 -- (p_global_attribute6 IS NOT NULL) OR
347 -- (p_global_attribute7 IS NOT NULL) OR
348 -- (p_global_attribute2 IS NOT NULL) OR
349 (p_global_attribute8 IS NOT NULL) OR
350 (p_global_attribute9 IS NOT NULL) OR
351 (p_global_attribute10 IS NOT NULL) OR
352 (p_global_attribute11 IS NOT NULL) OR
353 (p_global_attribute12 IS NOT NULL) OR
354 (p_global_attribute13 IS NOT NULL) OR
355 (p_global_attribute14 IS NOT NULL) OR
356 (p_global_attribute15 IS NOT NULL) OR
357 (p_global_attribute16 IS NOT NULL) OR
358 (p_global_attribute17 IS NOT NULL) OR
359 (p_global_attribute18 IS NOT NULL) OR
360 (p_global_attribute19 IS NOT NULL) OR
361 (p_global_attribute20 IS NOT NULL))
362 THEN
363
364 jg_globe_flex_val_shared.insert_rejections('AP_INVOICES_INTERFACE',
365 p_parent_id,
366 'GLOBAL_ATTR_VALUE_FOUND',
367 p_default_last_updated_by,
368 p_default_last_update_login,
369 p_calling_sequence);
370 p_current_invoice_status := 'N';
371 END IF;
372 END je_cz_apxiisim_invoice_info;
373
374 --------------------------------------------------------------------------------------
375 -- JE_HU_APXIISIM_TAX_DATE()
376 --------------------------------------------------------------------------------------
377 -- Following segments are defined for Hungary Invoice Interface:
378 --------------------------------------------------------------------------------------
379 -- No. Name Column Value Set Required
380 -- --- -------------------------- ------------------ -------------------- ---------
381 -- 1 TAX_DATE GLOBAL_ATTRIBUTE1 FND_STANDARD_DATE Yes
382 -- 2 Check VAT Amount Paid GLOBAL_ATTRIBUTE2 YES_NO Yes
383
384 --------------------------------------------------------------------------------------
385 PROCEDURE je_hu_apxiisim_tax_date
386 (p_parent_id IN NUMBER,
387 p_default_last_updated_by IN NUMBER,
388 p_default_last_update_login IN NUMBER,
389 p_global_attribute1 IN VARCHAR2,
390 p_global_attribute2 IN VARCHAR2,
391 p_global_attribute3 IN VARCHAR2,
392 p_global_attribute4 IN VARCHAR2,
393 p_global_attribute5 IN VARCHAR2,
394 p_global_attribute6 IN VARCHAR2,
395 p_global_attribute7 IN VARCHAR2,
396 p_global_attribute8 IN VARCHAR2,
397 p_global_attribute9 IN VARCHAR2,
398 p_global_attribute10 IN VARCHAR2,
399 p_global_attribute11 IN VARCHAR2,
400 p_global_attribute12 IN VARCHAR2,
401 p_global_attribute13 IN VARCHAR2,
402 p_global_attribute14 IN VARCHAR2,
403 p_global_attribute15 IN VARCHAR2,
404 p_global_attribute16 IN VARCHAR2,
405 p_global_attribute17 IN VARCHAR2,
406 p_global_attribute18 IN VARCHAR2,
407 p_global_attribute19 IN VARCHAR2,
408 p_global_attribute20 IN VARCHAR2,
409 p_current_invoice_status OUT NOCOPY VARCHAR2,
410 p_calling_sequence IN VARCHAR2) IS
411
412 BEGIN
413
414 IF (p_global_attribute2 IS NOT NULL AND
415 p_global_attribute2 NOT IN ('Y','N')) OR
416 (p_global_attribute2 IS NULL) THEN
417
418 jg_globe_flex_val_shared.insert_rejections(
419 'AP_INVOICES_INTERFACE',
420 p_parent_id,
421 'INVALID_GLOBAL_ATTR2',
422 p_default_last_updated_by,
423 p_default_last_update_login,
424 p_calling_sequence);
425
426 p_current_invoice_status := 'N';
427
428
429 END IF;
430
431 IF
432 ((p_global_attribute3 IS NOT NULL) OR
433 (p_global_attribute4 IS NOT NULL) OR
434 (p_global_attribute5 IS NOT NULL) OR
435 (p_global_attribute6 IS NOT NULL) OR
436 (p_global_attribute7 IS NOT NULL) OR
440 (p_global_attribute11 IS NOT NULL) OR
437 (p_global_attribute8 IS NOT NULL) OR
438 (p_global_attribute9 IS NOT NULL) OR
439 (p_global_attribute10 IS NOT NULL) OR
441 (p_global_attribute12 IS NOT NULL) OR
442 (p_global_attribute13 IS NOT NULL) OR
443 (p_global_attribute14 IS NOT NULL) OR
444 (p_global_attribute15 IS NOT NULL) OR
445 (p_global_attribute16 IS NOT NULL) OR
446 (p_global_attribute17 IS NOT NULL) OR
447 (p_global_attribute18 IS NOT NULL) OR
448 (p_global_attribute19 IS NOT NULL) OR
449 (p_global_attribute20 IS NOT NULL))
450 THEN
451 jg_globe_flex_val_shared.insert_rejections('AP_INVOICES_INTERFACE',
452 p_parent_id,
453 'GLOBAL_ATTR_VALUE_FOUND',
454 p_default_last_updated_by,
455 p_default_last_update_login,
456 p_calling_sequence);
457 p_current_invoice_status := 'N';
458 END IF;
459 END je_hu_apxiisim_tax_date;
460
461
462 PROCEDURE je_es_apxiisim_modelo349
463 (p_parent_id IN NUMBER,
464 p_default_last_updated_by IN NUMBER,
465 p_default_last_update_login IN NUMBER,
466 p_global_attribute1 IN VARCHAR2,
467 p_global_attribute2 IN VARCHAR2,
468 p_global_attribute3 IN VARCHAR2,
469 p_global_attribute4 IN VARCHAR2,
470 p_global_attribute5 IN VARCHAR2,
471 p_global_attribute6 IN VARCHAR2,
472 p_global_attribute7 IN VARCHAR2,
473 p_global_attribute8 IN VARCHAR2,
474 p_global_attribute9 IN VARCHAR2,
475 p_global_attribute10 IN VARCHAR2,
476 p_global_attribute11 IN VARCHAR2,
477 p_global_attribute12 IN VARCHAR2,
478 p_global_attribute13 IN VARCHAR2,
479 p_global_attribute14 IN VARCHAR2,
480 p_global_attribute15 IN VARCHAR2,
481 p_global_attribute16 IN VARCHAR2,
482 p_global_attribute17 IN VARCHAR2,
483 p_global_attribute18 IN VARCHAR2,
484 p_global_attribute19 IN VARCHAR2,
485 p_global_attribute20 IN VARCHAR2,
486 p_current_invoice_status OUT NOCOPY VARCHAR2,
487 p_calling_sequence IN VARCHAR2) IS
488
489 l_stat_code_exists VARCHAR2(1);
490
491 BEGIN
492 BEGIN
493 IF p_global_attribute2 IS NOT NULL THEN
494 if p_global_attribute3 is NULL THEN
495
496 jg_globe_flex_val_shared.insert_rejections('AP_INVOICE_LINES_INTERFACE',
497 p_parent_id,
498 'INVALID_GLOBAL_ATTR3',
499 p_default_last_updated_by,
500 p_default_last_update_login,
501 p_calling_sequence);
502 p_current_invoice_status := 'N';
503
504 end if;
505 end if;
506
507 EXCEPTION
508 WHEN OTHERS THEN
509 jg_globe_flex_val_shared.insert_rejections('AP_INVOICE_LINES_INTERFACE',
510 p_parent_id,
511 'GLOBAL_ATTR_VALUE_FOUND',
512 p_default_last_updated_by,
513 p_default_last_update_login,
514 p_calling_sequence);
515 p_current_invoice_status := 'N';
516 END;
517 IF (p_global_attribute4 IS NOT NULL) or
518 (p_global_attribute6 IS NOT NULL) or
519 (p_global_attribute7 IS NOT NULL) or
520 (p_global_attribute8 IS NOT NULL) or
521 (p_global_attribute9 IS NOT NULL) or
522 (p_global_attribute10 IS NOT NULL) or
523 (p_global_attribute11 IS NOT NULL) or
524 (p_global_attribute12 IS NOT NULL) or
525 (p_global_attribute13 IS NOT NULL) or
526 (p_global_attribute14 IS NOT NULL) or
527 (p_global_attribute15 IS NOT NULL) or
528 (p_global_attribute16 IS NOT NULL) or
529 (p_global_attribute17 IS NOT NULL) or
530 (p_global_attribute18 IS NOT NULL) or
531 (p_global_attribute19 IS NOT NULL) or
532 (p_global_attribute20 IS NOT NULL)
533 THEN
534 jg_globe_flex_val_shared.insert_rejections('AP_INVOICE_LINES_INTERFACE',
535 p_parent_id,
536 'GLOBAL_ATTR_VALUE_FOUND',
537 p_default_last_updated_by,
538 p_default_last_update_login,
539 p_calling_sequence);
540 p_current_invoice_status := 'N';
541 END IF;
542
543
544 END je_es_apxiisim_modelo349;
545
546 -- Modification to the passing of parameters to ar_business_rules for TCA model
547
548 PROCEDURE ar_business_rules
549 (p_int_table_name IN VARCHAR2,
550 p_glob_attr_set1 IN jg_globe_flex_val_shared.GdfRec,
554 p_current_record_status OUT NOCOPY VARCHAR2) IS
551 p_glob_attr_set2 IN jg_globe_flex_val_shared.GdfRec,
552 p_glob_attr_set3 IN jg_globe_flex_val_shared.GdfRec,
553 p_misc_prod_arg IN jg_globe_flex_val_shared.GenRec,
555
556 l_current_record_status VARCHAR2(1) := 'S';
557 l_ou_id NUMBER;
558 BEGIN
559
560 ----------------------------- DEBUG INFORMATION ------------------------------
561 arp_standard.debug('Check ar business rules');
562 ------------------------------------------------------------------------------
563 -- Call to validate the address gdfs
564 IF p_int_table_name = 'CUSTOMER' THEN
565
566
567 SELECT org_id into l_ou_id FROM fnd_concurrent_requests
568 WHERE request_id = fnd_global.conc_request_id ;
569
570 fnd_request.set_org_id(l_ou_id);
571
572 IF jg_zz_shared_pkg.get_country(l_ou_id, NULL,null) IN ('GR','PT','ES') THEN
573 -- IF sys_context('JG','JGZZ_COUNTRY_CODE') IN ('GR','PT','ES' ) THEN
574 IF p_glob_attr_set1.global_attribute_category =
575 ('JE.GR.ARXCUDCI.CUSTOMERS') then
576 je_gr_arxcudci_cust_txid (p_glob_attr_set1,
577 p_glob_attr_set2,
578 p_glob_attr_set3,
579 p_misc_prod_arg,
580 l_current_record_status);
581 END IF;
582
583 IF p_glob_attr_set3.global_attribute_category IN
584 ('JE.GR.ARXCUDCI.RA',
585 'JE.PT.ARXCUDCI.RA') then
586 je_zz_arxcudci_site_uses (p_glob_attr_set1,
587 p_glob_attr_set2,
588 p_glob_attr_set3,
589 p_misc_prod_arg,
590 l_current_record_status);
591 END IF;
592
593 END IF;
594
595 END IF;
596
597 p_current_record_status := l_current_record_status;
598
599 EXCEPTION
600 WHEN OTHERS THEN
601 arp_standard.debug('Exception in JE_INTERFACE_VAL.AR_BUSINESS_RULES()');
602 arp_standard.debug(SQLERRM);
603 END ar_business_rules;
604
605
606
607 PROCEDURE je_gr_arxcudci_cust_txid
608 ( p_glob_attr_set1 IN jg_globe_flex_val_shared.GdfRec,
609 p_glob_attr_set2 IN jg_globe_flex_val_shared.GdfRec,
610 p_glob_attr_set3 IN jg_globe_flex_val_shared.GdfRec,
611 p_misc_prod_arg IN jg_globe_flex_val_shared.GenRec,
612 p_record_status OUT NOCOPY VARCHAR2)
613 IS
614
615 dummy_code NUMBER;
616 l_error_code varchar2(50) :='';
617 l_row_id ROWID := p_misc_prod_arg.core_prod_arg2;
618
619 BEGIN
620 IF p_glob_attr_set1.global_attribute1 IS NOT NULL THEN
621 BEGIN
622 SELECT 1
623 INTO dummy_code
624 FROM fnd_lookups
625 WHERE lookup_code=p_glob_attr_set1.global_attribute1
626 AND lookup_type = 'YES_NO'
627 AND NVL(START_DATE_ACTIVE,SYSDATE) <= SYSDATE
628 AND NVL(END_DATE_ACTIVE,SYSDATE) >= SYSDATE
629 AND ENABLED_FLAG = 'Y';
630 EXCEPTION
631 WHEN NO_DATA_FOUND THEN
632 l_error_code := l_error_code||'i2,';
633 END;
634 ELSE
635 l_error_code := l_error_code||'i2,';
636 END IF;
637
638 IF l_error_code IS NULL THEN
639 p_record_status := 'S';
640 ELSE
641 p_record_status := 'E';
642 jg_globe_flex_val_shared.update_interface_status
643 (l_row_id,
644 'RA_CUSTOMERS_INTERFACE',
645 l_error_code,
646 p_record_status);
647 END IF;
648 END je_gr_arxcudci_cust_txid;
649
650
651
652
653 PROCEDURE je_zz_arxcudci_site_uses
654 ( p_glob_attr_set1 IN jg_globe_flex_val_shared.GdfRec,
655 p_glob_attr_set2 IN jg_globe_flex_val_shared.GdfRec,
656 p_glob_attr_set3 IN jg_globe_flex_val_shared.GdfRec,
657 p_misc_prod_arg IN jg_globe_flex_val_shared.GenRec,
658 p_record_status OUT NOCOPY VARCHAR2)
659 IS
660
661 dummy_code NUMBER;
662 l_error_code varchar2(50) :='';
663 l_row_id ROWID := p_misc_prod_arg.core_prod_arg2;
664
665 BEGIN
666 IF p_glob_attr_set3.global_attribute1 IS NOT NULL THEN
667 BEGIN
668 SELECT 1
669 INTO dummy_code
670 FROM fnd_lookups
671 WHERE lookup_code=p_glob_attr_set3.global_attribute1
672 AND lookup_type = 'YES_NO'
673 AND NVL(START_DATE_ACTIVE,SYSDATE) <= SYSDATE
674 AND NVL(END_DATE_ACTIVE,SYSDATE) >= SYSDATE
675 AND ENABLED_FLAG = 'Y';
676 EXCEPTION
677 WHEN NO_DATA_FOUND THEN
678 l_error_code := l_error_code||'p3,';
679 END;
680 ELSE
681 l_error_code := l_error_code||'p3,';
682 END IF;
683
684 IF l_error_code IS NULL THEN
685 p_record_status := 'S';
686 ELSE
687 p_record_status := 'E';
688 jg_globe_flex_val_shared.update_interface_status
689 (l_row_id,
690 'RA_CUSTOMERS_INTERFACE',
691 l_error_code,
692 p_record_status);
693 END IF;
694 END je_zz_arxcudci_site_uses;
695
696
697 END JE_INTERFACE_VAL;