1 PACKAGE BODY JE_INTERFACE_VAL AS
2 /* $Header: jgjegdfb.pls 120.12 2011/12/02 14:14:18 rahulkum 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
277 (p_global_attribute12 is not null) or
278 (p_global_attribute13 is not null) or
279 (p_global_attribute14 is not null) or
280 (p_global_attribute15 is not null) or
281 (p_global_attribute16 is not null) or
282 (p_global_attribute17 is not null) or
283 (p_global_attribute18 is not null) or
284 (p_global_attribute19 is not null) THEN
285
286 jg_globe_flex_val_shared.insert_rejections('AP_INVOICES_INTERFACE',
287 p_parent_id,
288 'GLOBAL_ATTR_VALUE_FOUND',
289 p_default_last_updated_by,
290 p_default_last_update_login,
291 p_calling_sequence);
292 p_current_invoice_status := 'N';
293
294 END IF;
295 end je_it_apxiisim_def;
296
297
298
299 --------------------------------------------------------------------------------------
300 -- JE_CZ_APXIISIM_INVOICE_INFO()
301 --------------------------------------------------------------------------------------
302 -- Following segments are defined for Czech Republic Invoice Interface:
303 --------------------------------------------------------------------------------------
304 -- No. Name Column Value Set Required
305 -- --- -------------------------- ------------------ -------------------- ---------
306 -- 4 IMPORT_DOC_DATE GLOBAL_ATTRIBUTE4 FND_STANDARD_DATE No
307 --------------------------------------------------------------------------------------
308 PROCEDURE je_cz_apxiisim_invoice_info
309 (p_parent_id IN NUMBER,
310 p_default_last_updated_by IN NUMBER,
311 p_default_last_update_login IN NUMBER,
312 p_global_attribute1 IN VARCHAR2,
313 p_global_attribute2 IN VARCHAR2,
314 p_global_attribute3 IN VARCHAR2,
315 p_global_attribute4 IN VARCHAR2,
316 p_global_attribute5 IN VARCHAR2,
317 p_global_attribute6 IN VARCHAR2,
318 p_global_attribute7 IN VARCHAR2,
319 p_global_attribute8 IN VARCHAR2,
320 p_global_attribute9 IN VARCHAR2,
321 p_global_attribute10 IN VARCHAR2,
322 p_global_attribute11 IN VARCHAR2,
323 p_global_attribute12 IN VARCHAR2,
324 p_global_attribute13 IN VARCHAR2,
325 p_global_attribute14 IN VARCHAR2,
326 p_global_attribute15 IN VARCHAR2,
327 p_global_attribute16 IN VARCHAR2,
328 p_global_attribute17 IN VARCHAR2,
329 p_global_attribute18 IN VARCHAR2,
330 p_global_attribute19 IN VARCHAR2,
331 p_global_attribute20 IN VARCHAR2,
332 p_current_invoice_status OUT NOCOPY VARCHAR2,
333 p_calling_sequence IN VARCHAR2) IS
334
335 BEGIN
336
337 IF (
338 -- bug 1579266 this country uses global attribute 5,6,7
339 -- (p_global_attribute5 IS NOT NULL) OR
340 -- (p_global_attribute6 IS NOT NULL) OR
341 -- (p_global_attribute7 IS NOT NULL) OR
342 -- (p_global_attribute2 IS NOT NULL) OR
343 (p_global_attribute8 IS NOT NULL) OR
344 (p_global_attribute9 IS NOT NULL) OR
345 (p_global_attribute10 IS NOT NULL) OR
346 (p_global_attribute11 IS NOT NULL) OR
347 (p_global_attribute12 IS NOT NULL) OR
348 (p_global_attribute13 IS NOT NULL) OR
349 (p_global_attribute14 IS NOT NULL) OR
350 (p_global_attribute15 IS NOT NULL) OR
351 (p_global_attribute16 IS NOT NULL) OR
352 (p_global_attribute17 IS NOT NULL) OR
353 (p_global_attribute18 IS NOT NULL) OR
354 (p_global_attribute19 IS NOT NULL) OR
355 (p_global_attribute20 IS NOT NULL))
356 THEN
357
358 jg_globe_flex_val_shared.insert_rejections('AP_INVOICES_INTERFACE',
359 p_parent_id,
360 'GLOBAL_ATTR_VALUE_FOUND',
361 p_default_last_updated_by,
362 p_default_last_update_login,
363 p_calling_sequence);
364 p_current_invoice_status := 'N';
365 END IF;
366 END je_cz_apxiisim_invoice_info;
367
368 --------------------------------------------------------------------------------------
369 -- JE_HU_APXIISIM_TAX_DATE()
370 --------------------------------------------------------------------------------------
371 -- Following segments are defined for Hungary Invoice Interface:
372 --------------------------------------------------------------------------------------
373 -- No. Name Column Value Set Required
374 -- --- -------------------------- ------------------ -------------------- ---------
375 -- 1 TAX_DATE GLOBAL_ATTRIBUTE1 FND_STANDARD_DATE Yes
376 -- 2 Check VAT Amount Paid GLOBAL_ATTRIBUTE2 YES_NO Yes
377
378 --------------------------------------------------------------------------------------
379 PROCEDURE je_hu_apxiisim_tax_date
380 (p_parent_id IN NUMBER,
381 p_default_last_updated_by IN NUMBER,
382 p_default_last_update_login IN NUMBER,
383 p_global_attribute1 IN VARCHAR2,
384 p_global_attribute2 IN VARCHAR2,
385 p_global_attribute3 IN VARCHAR2,
386 p_global_attribute4 IN VARCHAR2,
387 p_global_attribute5 IN VARCHAR2,
388 p_global_attribute6 IN VARCHAR2,
389 p_global_attribute7 IN VARCHAR2,
390 p_global_attribute8 IN VARCHAR2,
391 p_global_attribute9 IN VARCHAR2,
392 p_global_attribute10 IN VARCHAR2,
393 p_global_attribute11 IN VARCHAR2,
394 p_global_attribute12 IN VARCHAR2,
395 p_global_attribute13 IN VARCHAR2,
396 p_global_attribute14 IN VARCHAR2,
397 p_global_attribute15 IN VARCHAR2,
398 p_global_attribute16 IN VARCHAR2,
399 p_global_attribute17 IN VARCHAR2,
400 p_global_attribute18 IN VARCHAR2,
401 p_global_attribute19 IN VARCHAR2,
402 p_global_attribute20 IN VARCHAR2,
403 p_current_invoice_status OUT NOCOPY VARCHAR2,
404 p_calling_sequence IN VARCHAR2) IS
405
406 BEGIN
407
408 IF (p_global_attribute2 IS NOT NULL AND
409 p_global_attribute2 NOT IN ('Y','N')) OR
410 (p_global_attribute2 IS NULL) THEN
411
412 jg_globe_flex_val_shared.insert_rejections(
413 'AP_INVOICES_INTERFACE',
414 p_parent_id,
415 'INVALID_GLOBAL_ATTR2',
416 p_default_last_updated_by,
417 p_default_last_update_login,
418 p_calling_sequence);
419
420 p_current_invoice_status := 'N';
421
422
423 END IF;
424
425 IF
426 ((p_global_attribute3 IS NOT NULL) OR
427 (p_global_attribute4 IS NOT NULL) OR
428 (p_global_attribute5 IS NOT NULL) OR
429 (p_global_attribute6 IS NOT NULL) OR
430 (p_global_attribute7 IS NOT NULL) OR
431 (p_global_attribute8 IS NOT NULL) OR
432 (p_global_attribute9 IS NOT NULL) OR
433 (p_global_attribute10 IS NOT NULL) OR
434 (p_global_attribute11 IS NOT NULL) OR
435 (p_global_attribute12 IS NOT NULL) OR
436 (p_global_attribute13 IS NOT NULL) OR
437 (p_global_attribute14 IS NOT NULL) OR
438 (p_global_attribute15 IS NOT NULL) OR
439 (p_global_attribute16 IS NOT NULL) OR
440 (p_global_attribute17 IS NOT NULL) OR
441 (p_global_attribute18 IS NOT NULL) OR
442 (p_global_attribute19 IS NOT NULL) OR
443 (p_global_attribute20 IS NOT NULL))
444 THEN
445 jg_globe_flex_val_shared.insert_rejections('AP_INVOICES_INTERFACE',
446 p_parent_id,
447 'GLOBAL_ATTR_VALUE_FOUND',
448 p_default_last_updated_by,
449 p_default_last_update_login,
450 p_calling_sequence);
451 p_current_invoice_status := 'N';
452 END IF;
453 END je_hu_apxiisim_tax_date;
454
455
456 PROCEDURE je_es_apxiisim_modelo349
457 (p_parent_id IN NUMBER,
458 p_default_last_updated_by IN NUMBER,
459 p_default_last_update_login IN NUMBER,
460 p_global_attribute1 IN VARCHAR2,
461 p_global_attribute2 IN VARCHAR2,
462 p_global_attribute3 IN VARCHAR2,
463 p_global_attribute4 IN VARCHAR2,
464 p_global_attribute5 IN VARCHAR2,
465 p_global_attribute6 IN VARCHAR2,
466 p_global_attribute7 IN VARCHAR2,
467 p_global_attribute8 IN VARCHAR2,
468 p_global_attribute9 IN VARCHAR2,
469 p_global_attribute10 IN VARCHAR2,
470 p_global_attribute11 IN VARCHAR2,
471 p_global_attribute12 IN VARCHAR2,
472 p_global_attribute13 IN VARCHAR2,
473 p_global_attribute14 IN VARCHAR2,
474 p_global_attribute15 IN VARCHAR2,
475 p_global_attribute16 IN VARCHAR2,
476 p_global_attribute17 IN VARCHAR2,
477 p_global_attribute18 IN VARCHAR2,
478 p_global_attribute19 IN VARCHAR2,
479 p_global_attribute20 IN VARCHAR2,
480 p_current_invoice_status OUT NOCOPY VARCHAR2,
481 p_calling_sequence IN VARCHAR2) IS
482
483 l_stat_code_exists VARCHAR2(1);
484
485 BEGIN
486 BEGIN
487 IF p_global_attribute2 IS NOT NULL THEN
488 if p_global_attribute3 is NULL THEN
489
490 jg_globe_flex_val_shared.insert_rejections('AP_INVOICE_LINES_INTERFACE',
491 p_parent_id,
492 'INVALID_GLOBAL_ATTR3',
493 p_default_last_updated_by,
494 p_default_last_update_login,
495 p_calling_sequence);
496 p_current_invoice_status := 'N';
497
498 end if;
499 end if;
500
501 EXCEPTION
502 WHEN OTHERS THEN
503 jg_globe_flex_val_shared.insert_rejections('AP_INVOICE_LINES_INTERFACE',
504 p_parent_id,
505 'GLOBAL_ATTR_VALUE_FOUND',
506 p_default_last_updated_by,
507 p_default_last_update_login,
508 p_calling_sequence);
509 p_current_invoice_status := 'N';
510 END;
511 IF (p_global_attribute4 IS NOT NULL) or
512 (p_global_attribute6 IS NOT NULL) or
513 (p_global_attribute7 IS NOT NULL) or
514 (p_global_attribute8 IS NOT NULL) or
515 (p_global_attribute9 IS NOT NULL) or
516 (p_global_attribute10 IS NOT NULL) or
517 (p_global_attribute11 IS NOT NULL) or
518 (p_global_attribute12 IS NOT NULL) or
519 (p_global_attribute13 IS NOT NULL) or
520 (p_global_attribute14 IS NOT NULL) or
521 (p_global_attribute15 IS NOT NULL) or
522 (p_global_attribute16 IS NOT NULL) or
523 (p_global_attribute17 IS NOT NULL) or
524 (p_global_attribute18 IS NOT NULL) or
525 (p_global_attribute19 IS NOT NULL) or
526 (p_global_attribute20 IS NOT NULL)
527 THEN
528 jg_globe_flex_val_shared.insert_rejections('AP_INVOICE_LINES_INTERFACE',
529 p_parent_id,
530 'GLOBAL_ATTR_VALUE_FOUND',
531 p_default_last_updated_by,
532 p_default_last_update_login,
533 p_calling_sequence);
534 p_current_invoice_status := 'N';
535 END IF;
536
537
538 END je_es_apxiisim_modelo349;
539
540 -- Modification to the passing of parameters to ar_business_rules for TCA model
541
542 PROCEDURE ar_business_rules
543 (p_int_table_name IN VARCHAR2,
544 p_glob_attr_set1 IN jg_globe_flex_val_shared.GdfRec,
545 p_glob_attr_set2 IN jg_globe_flex_val_shared.GdfRec,
546 p_glob_attr_set3 IN jg_globe_flex_val_shared.GdfRec,
547 p_misc_prod_arg IN jg_globe_flex_val_shared.GenRec,
548 p_current_record_status OUT NOCOPY VARCHAR2) IS
549
550 l_current_record_status VARCHAR2(1) := 'S';
551 l_ou_id NUMBER;
552 BEGIN
553
554 ----------------------------- DEBUG INFORMATION ------------------------------
555 arp_standard.debug('Check ar business rules');
556 ------------------------------------------------------------------------------
557 -- Call to validate the address gdfs
558 IF p_int_table_name = 'CUSTOMER' THEN
559
560
561 SELECT org_id into l_ou_id FROM fnd_concurrent_requests
562 WHERE request_id = fnd_global.conc_request_id ;
563
564 fnd_request.set_org_id(l_ou_id);
565
566 IF jg_zz_shared_pkg.get_country(l_ou_id, NULL,null) IN ('GR','PT','ES') THEN
567 -- IF sys_context('JG','JGZZ_COUNTRY_CODE') IN ('GR','PT','ES' ) THEN
568 IF p_glob_attr_set1.global_attribute_category =
569 ('JE.GR.ARXCUDCI.CUSTOMERS') then
570 je_gr_arxcudci_cust_txid (p_glob_attr_set1,
571 p_glob_attr_set2,
572 p_glob_attr_set3,
573 p_misc_prod_arg,
574 l_current_record_status);
575 END IF;
576
577 IF p_glob_attr_set3.global_attribute_category IN
578 ('JE.GR.ARXCUDCI.RA',
579 'JE.PT.ARXCUDCI.RA') then
580 je_zz_arxcudci_site_uses (p_glob_attr_set1,
581 p_glob_attr_set2,
582 p_glob_attr_set3,
583 p_misc_prod_arg,
584 l_current_record_status);
585 END IF;
586
587 END IF;
588
589 END IF;
590
591 p_current_record_status := l_current_record_status;
592
593 EXCEPTION
594 WHEN OTHERS THEN
595 arp_standard.debug('Exception in JE_INTERFACE_VAL.AR_BUSINESS_RULES()');
596 arp_standard.debug(SQLERRM);
597 END ar_business_rules;
598
599
600
601 PROCEDURE je_gr_arxcudci_cust_txid
602 ( p_glob_attr_set1 IN jg_globe_flex_val_shared.GdfRec,
603 p_glob_attr_set2 IN jg_globe_flex_val_shared.GdfRec,
604 p_glob_attr_set3 IN jg_globe_flex_val_shared.GdfRec,
605 p_misc_prod_arg IN jg_globe_flex_val_shared.GenRec,
606 p_record_status OUT NOCOPY VARCHAR2)
607 IS
608
609 dummy_code NUMBER;
610 l_error_code varchar2(50) :='';
611 l_row_id ROWID := p_misc_prod_arg.core_prod_arg2;
612
613 BEGIN
614 IF p_glob_attr_set1.global_attribute1 IS NOT NULL THEN
615 BEGIN
616 SELECT 1
617 INTO dummy_code
618 FROM fnd_lookups
619 WHERE lookup_code=p_glob_attr_set1.global_attribute1
620 AND lookup_type = 'YES_NO'
621 AND NVL(START_DATE_ACTIVE,SYSDATE) <= SYSDATE
622 AND NVL(END_DATE_ACTIVE,SYSDATE) >= SYSDATE
623 AND ENABLED_FLAG = 'Y';
624 EXCEPTION
625 WHEN NO_DATA_FOUND THEN
626 l_error_code := l_error_code||'i2,';
627 END;
628 ELSE
629 l_error_code := l_error_code||'i2,';
630 END IF;
631
632 IF l_error_code IS NULL THEN
633 p_record_status := 'S';
634 ELSE
635 p_record_status := 'E';
636 jg_globe_flex_val_shared.update_interface_status
637 (l_row_id,
638 'RA_CUSTOMERS_INTERFACE',
639 l_error_code,
640 p_record_status);
641 END IF;
642 END je_gr_arxcudci_cust_txid;
643
644
645
646
647 PROCEDURE je_zz_arxcudci_site_uses
648 ( p_glob_attr_set1 IN jg_globe_flex_val_shared.GdfRec,
649 p_glob_attr_set2 IN jg_globe_flex_val_shared.GdfRec,
650 p_glob_attr_set3 IN jg_globe_flex_val_shared.GdfRec,
651 p_misc_prod_arg IN jg_globe_flex_val_shared.GenRec,
652 p_record_status OUT NOCOPY VARCHAR2)
653 IS
654
655 dummy_code NUMBER;
656 l_error_code varchar2(50) :='';
657 l_row_id ROWID := p_misc_prod_arg.core_prod_arg2;
658
659 BEGIN
660 IF p_glob_attr_set3.global_attribute1 IS NOT NULL THEN
661 BEGIN
662 SELECT 1
663 INTO dummy_code
664 FROM fnd_lookups
665 WHERE lookup_code=p_glob_attr_set3.global_attribute1
666 AND lookup_type = 'YES_NO'
667 AND NVL(START_DATE_ACTIVE,SYSDATE) <= SYSDATE
668 AND NVL(END_DATE_ACTIVE,SYSDATE) >= SYSDATE
669 AND ENABLED_FLAG = 'Y';
670 EXCEPTION
671 WHEN NO_DATA_FOUND THEN
672 l_error_code := l_error_code||'p3,';
673 END;
674 ELSE
675 l_error_code := l_error_code||'p3,';
676 END IF;
677
678 IF l_error_code IS NULL THEN
679 p_record_status := 'S';
680 ELSE
681 p_record_status := 'E';
682 jg_globe_flex_val_shared.update_interface_status
683 (l_row_id,
684 'RA_CUSTOMERS_INTERFACE',
685 l_error_code,
686 p_record_status);
687 END IF;
688 END je_zz_arxcudci_site_uses;
689
690
691 END JE_INTERFACE_VAL;