eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.XLE_REGISTRATIONS_VAL_PVT dependencies on FND_API

Line 69: x_return_status := FND_API.G_RET_STS_SUCCESS;

65: l_api_name VARCHAR2(50) := 'Validate_Reg_Number';
66: l_source_table VARCHAR2(30);
67: l_registration_id NUMBER;
68: BEGIN
69: x_return_status := FND_API.G_RET_STS_SUCCESS;
70: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
71: IF FND_API.to_boolean(p_init_msg_list)
72: THEN
73: FND_MSG_PUB.Initialize;

Line 71: IF FND_API.to_boolean(p_init_msg_list)

67: l_registration_id NUMBER;
68: BEGIN
69: x_return_status := FND_API.G_RET_STS_SUCCESS;
70: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
71: IF FND_API.to_boolean(p_init_msg_list)
72: THEN
73: FND_MSG_PUB.Initialize;
74: END IF;
75: IF p_jurisdiction_id IS NULL

Line 78: x_return_status := FND_API.G_RET_STS_ERROR;

74: END IF;
75: IF p_jurisdiction_id IS NULL
76: THEN
77: -- this is a development error
78: x_return_status := FND_API.G_RET_STS_ERROR;
79: x_msg_data := 'Mandatory parameter jurisdiction_id is not passed';
80: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
81: THEN
82: g_log_msg := 'Mandatory parameter jurisdiction_id is not passed';

Line 87: IF x_return_status = FND_API.G_RET_STS_SUCCESS

83: FND_LOG.STRING(G_LEVEL_STATEMENT,
84: G_MODULE_NAME || l_api_name, g_log_msg);
85: END IF;
86: END IF;
87: IF x_return_status = FND_API.G_RET_STS_SUCCESS
88: THEN
89: -- Check unique
90: IF p_entity_type = 'ETB'
91: THEN

Line 105: x_return_status := FND_API.G_RET_STS_ERROR;

101: IF l_registration_id IS NOT NULL
102: THEN
103: IF Nvl( p_registration_id, -99) <> l_registration_id
104: THEN
105: x_return_status := FND_API.G_RET_STS_ERROR;
106: FND_MESSAGE.SET_NAME('XLE', 'XLE_REG_NUM_DUPLICATE_WARN');
107: FND_MSG_PUB.Add;
108: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
109: THEN

Line 117: IF x_return_status = FND_API.G_RET_STS_SUCCESS

113: END IF;
114: END IF;
115: END IF;
116: END IF;
117: IF x_return_status = FND_API.G_RET_STS_SUCCESS
118: THEN
119: OPEN c_jur_dtls (p_jurisdiction_id,
120: p_entity_type);
121: FETCH c_jur_dtls INTO l_legislative_cat_code,

Line 129: x_return_status := FND_API.G_RET_STS_ERROR;

125: CLOSE c_jur_dtls;
126: IF l_country_code IS NULL
127: THEN
128: -- this is a development error
129: x_return_status := FND_API.G_RET_STS_ERROR;
130: x_msg_data := 'Invalid jurisdiction_id passed';
131: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
132: THEN
133: g_log_msg := 'Invalid jurisdiction_id passed';

Line 141: AND x_return_status = FND_API.G_RET_STS_SUCCESS

137: END IF ;
138: END IF ;
139: IF p_registration_number IS NOT NULL
140: AND l_registration_code IS NOT NULL
141: AND x_return_status = FND_API.G_RET_STS_SUCCESS
142: THEN
143: IF l_country_code = 'AR'
144: THEN
145: -- Validations for Argentina

Line 219: WHEN FND_API.G_EXC_ERROR THEN

215: FND_MSG_PUB.Count_And_Get
216: (p_count => x_msg_count,
217: p_data => x_msg_data);
218: EXCEPTION
219: WHEN FND_API.G_EXC_ERROR THEN
220: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
221: THEN
222: g_log_msg := SQLERRM;
223: FND_LOG.STRING(G_LEVEL_STATEMENT,

Line 226: x_return_status := FND_API.G_RET_STS_ERROR ;

222: g_log_msg := SQLERRM;
223: FND_LOG.STRING(G_LEVEL_STATEMENT,
224: G_MODULE_NAME || l_api_name, g_log_msg);
225: END IF;
226: x_return_status := FND_API.G_RET_STS_ERROR ;
227: FND_MSG_PUB.Count_And_Get
228: ( p_count => x_msg_count,
229: p_data => x_msg_data
230: );

Line 231: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

227: FND_MSG_PUB.Count_And_Get
228: ( p_count => x_msg_count,
229: p_data => x_msg_data
230: );
231: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
232: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
233: THEN
234: g_log_msg := SQLERRM;
235: FND_LOG.STRING(G_LEVEL_STATEMENT,

Line 238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

234: g_log_msg := SQLERRM;
235: FND_LOG.STRING(G_LEVEL_STATEMENT,
236: G_MODULE_NAME || l_api_name, g_log_msg);
237: END IF;
238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
239: FND_MSG_PUB.Count_And_Get
240: ( p_count => x_msg_count,
241: p_data => x_msg_data
242: );

Line 250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

246: g_log_msg := SQLERRM;
247: FND_LOG.STRING(G_LEVEL_STATEMENT,
248: G_MODULE_NAME || l_api_name, g_log_msg);
249: END IF;
250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
251: IF FND_MSG_PUB.Check_Msg_Level
252: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
253: THEN
254: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,

Line 315: x_return_status := FND_API.G_RET_STS_SUCCESS;

311: l_numeric_result VARCHAR2(40);
312: l_work_nif_d NUMBER(20);
313: l_api_name VARCHAR2(50) := 'do_es_regnum_validations';
314: BEGIN
315: x_return_status := FND_API.G_RET_STS_SUCCESS;
316: IF p_registration_code NOT IN ('NIF', 'CIF')
317: THEN
318: RETURN;
319: END IF;

Line 334: x_return_status := FND_API.G_RET_STS_SUCCESS;

330: /** If the Fiscal Code starts with a T, then no futher **/
331: /** validation is required **/
332: IF substr(l_nif_value,1,1) = 'T'
333: THEN
334: x_return_status := FND_API.G_RET_STS_SUCCESS;
335: /* Bug: 7609077 Added the logic for taxpayer id starting with 'N' */
336: ELSIF substr(l_nif_value,1,1) = 'N'
337: THEN
338: l_numeric_result := check_numeric(l_nif_value,2,length(l_nif_value)-2);

Line 344: x_return_status := FND_API.G_RET_STS_SUCCESS;

340: THEN
341: /* It's Numeric Continue, Check if the last digit is a character */
342: IF (instr('ABCDEFGHIJKLMNOPQRSTUVWXYZ', l_check_digit) > 0)
343: THEN
344: x_return_status := FND_API.G_RET_STS_SUCCESS;
345: ELSE
346: x_return_status := FND_API.G_RET_STS_ERROR;
347: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
348: THEN

Line 346: x_return_status := FND_API.G_RET_STS_ERROR;

342: IF (instr('ABCDEFGHIJKLMNOPQRSTUVWXYZ', l_check_digit) > 0)
343: THEN
344: x_return_status := FND_API.G_RET_STS_SUCCESS;
345: ELSE
346: x_return_status := FND_API.G_RET_STS_ERROR;
347: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
348: THEN
349: g_log_msg := 'Check Algorithm failed for ' ||
350: p_registration_number;

Line 356: x_return_status := FND_API.G_RET_STS_ERROR;

352: G_MODULE_NAME || l_api_name, g_log_msg);
353: END IF;
354: END IF;
355: ELSE
356: x_return_status := FND_API.G_RET_STS_ERROR;
357: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
358: THEN
359: g_log_msg := 'Non numeric characters found in ' ||
360: p_registration_number;

Line 391: x_return_status := FND_API.G_RET_STS_SUCCESS;

387: END IF;
388: IF substr('TRWAGMYFPDXBNJZSQVHLCKE',mod
389: (to_number(l_work_nif) ,23) + 1,1) = l_check_digit
390: THEN
391: x_return_status := FND_API.G_RET_STS_SUCCESS;
392: ELSE
393: x_return_status := FND_API.G_RET_STS_ERROR;
394: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
395: THEN

Line 393: x_return_status := FND_API.G_RET_STS_ERROR;

389: (to_number(l_work_nif) ,23) + 1,1) = l_check_digit
390: THEN
391: x_return_status := FND_API.G_RET_STS_SUCCESS;
392: ELSE
393: x_return_status := FND_API.G_RET_STS_ERROR;
394: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
395: THEN
396: g_log_msg := 'Check Algorithm failed for ' ||
397: p_registration_number;

Line 403: x_return_status := FND_API.G_RET_STS_ERROR;

399: G_MODULE_NAME || l_api_name, g_log_msg);
400: END IF;
401: END IF;
402: ELSE
403: x_return_status := FND_API.G_RET_STS_ERROR;
404: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
405: THEN
406: g_log_msg := 'Non numeric characters found in ' ||
407: p_registration_number;

Line 421: x_return_status := FND_API.G_RET_STS_SUCCESS;

417: l_work_nif := substr(l_nif_value,1,length(l_nif_value)-1);
418: IF substr('TRWAGMYFPDXBNJZSQVHLCKE',mod
419: (to_number(l_work_nif) ,23) + 1,1) = l_check_digit
420: THEN
421: x_return_status := FND_API.G_RET_STS_SUCCESS;
422: ELSE
423: x_return_status := FND_API.G_RET_STS_ERROR;
424: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
425: THEN

Line 423: x_return_status := FND_API.G_RET_STS_ERROR;

419: (to_number(l_work_nif) ,23) + 1,1) = l_check_digit
420: THEN
421: x_return_status := FND_API.G_RET_STS_SUCCESS;
422: ELSE
423: x_return_status := FND_API.G_RET_STS_ERROR;
424: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
425: THEN
426: g_log_msg := 'Check Algorithm failed for ' ||
427: p_registration_number;

Line 433: x_return_status := FND_API.G_RET_STS_ERROR;

429: G_MODULE_NAME || l_api_name, g_log_msg);
430: END IF;
431: END IF;
432: ELSE
433: x_return_status := FND_API.G_RET_STS_ERROR;
434: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
435: THEN
436: g_log_msg := 'Non numeric characters found in ' ||
437: p_registration_number;

Line 478: x_return_status := FND_API.G_RET_STS_SUCCESS;

474: THEN
475: IF substr('JABCDEFGHI',((ceil(l_work_nif_d/10) * 10)
476: - l_work_nif_d) + 1, 1) = l_check_digit
477: THEN
478: x_return_status := FND_API.G_RET_STS_SUCCESS;
479: ELSE
480: x_return_status := FND_API.G_RET_STS_ERROR;
481: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
482: THEN

Line 480: x_return_status := FND_API.G_RET_STS_ERROR;

476: - l_work_nif_d) + 1, 1) = l_check_digit
477: THEN
478: x_return_status := FND_API.G_RET_STS_SUCCESS;
479: ELSE
480: x_return_status := FND_API.G_RET_STS_ERROR;
481: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
482: THEN
483: g_log_msg := 'Check Algorithm failed for ' ||
484: p_registration_number;

Line 491: x_return_status := FND_API.G_RET_STS_SUCCESS;

487: END IF;
488: END IF;
489: ELSIF l_check_digit = to_char((ceil(l_work_nif_d/10) *10) - l_work_nif_d)
490: THEN
491: x_return_status := FND_API.G_RET_STS_SUCCESS;
492: ELSE
493: x_return_status := FND_API.G_RET_STS_ERROR;
494: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
495: THEN

Line 493: x_return_status := FND_API.G_RET_STS_ERROR;

489: ELSIF l_check_digit = to_char((ceil(l_work_nif_d/10) *10) - l_work_nif_d)
490: THEN
491: x_return_status := FND_API.G_RET_STS_SUCCESS;
492: ELSE
493: x_return_status := FND_API.G_RET_STS_ERROR;
494: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
495: THEN
496: g_log_msg := 'Check Algorithm failed for ' ||
497: p_registration_number;

Line 503: x_return_status := FND_API.G_RET_STS_ERROR;

499: G_MODULE_NAME || l_api_name, g_log_msg);
500: END IF;
501: END IF;
502: ELSE
503: x_return_status := FND_API.G_RET_STS_ERROR;
504: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
505: THEN
506: g_log_msg := 'Non numeric characters found in ' ||
507: p_registration_number;

Line 520: x_return_status := FND_API.G_RET_STS_ERROR;

516: p_registration_number;
517: FND_LOG.STRING(G_LEVEL_STATEMENT,
518: G_MODULE_NAME || l_api_name, g_log_msg);
519: END IF;
520: x_return_status := FND_API.G_RET_STS_ERROR;
521: END IF; /* End of person or company check */
522: ELSE
523: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
524: THEN

Line 530: x_return_status := FND_API.G_RET_STS_ERROR;

526: p_registration_number;
527: FND_LOG.STRING(G_LEVEL_STATEMENT,
528: G_MODULE_NAME || l_api_name, g_log_msg);
529: END IF;
530: x_return_status := FND_API.G_RET_STS_ERROR;
531: END IF; /* does not start with a valid character */
532: ELSE
533: x_return_status := FND_API.G_RET_STS_ERROR;
534: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)

Line 533: x_return_status := FND_API.G_RET_STS_ERROR;

529: END IF;
530: x_return_status := FND_API.G_RET_STS_ERROR;
531: END IF; /* does not start with a valid character */
532: ELSE
533: x_return_status := FND_API.G_RET_STS_ERROR;
534: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
535: THEN
536: g_log_msg := 'Reg Num failed length check '||
537: p_registration_number;

Line 542: IF x_return_status = FND_API.G_RET_STS_ERROR

538: FND_LOG.STRING(G_LEVEL_STATEMENT,
539: G_MODULE_NAME || l_api_name, g_log_msg);
540: END IF;
541: END IF; /* end of length check */
542: IF x_return_status = FND_API.G_RET_STS_ERROR
543: THEN
544: FND_MESSAGE.SET_NAME('XLE', 'XLE_INVALID_REG_NUM_ERR');
545: FND_MESSAGE.SET_TOKEN('REG_CODE', p_registration_code);
546: FND_MESSAGE.SET_TOKEN('REG_NUM', p_registration_number);

Line 553: WHEN FND_API.G_EXC_ERROR THEN

549: FND_MSG_PUB.Count_And_Get
550: (p_count => x_msg_count,
551: p_data => x_msg_data);
552: EXCEPTION
553: WHEN FND_API.G_EXC_ERROR THEN
554: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
555: THEN
556: g_log_msg := SQLERRM;
557: FND_LOG.STRING(G_LEVEL_STATEMENT,

Line 560: x_return_status := FND_API.G_RET_STS_ERROR ;

556: g_log_msg := SQLERRM;
557: FND_LOG.STRING(G_LEVEL_STATEMENT,
558: G_MODULE_NAME || l_api_name, g_log_msg);
559: END IF;
560: x_return_status := FND_API.G_RET_STS_ERROR ;
561: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
562: l_api_name);
563: FND_MSG_PUB.Count_And_Get
564: ( p_count => x_msg_count,

Line 567: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

563: FND_MSG_PUB.Count_And_Get
564: ( p_count => x_msg_count,
565: p_data => x_msg_data
566: );
567: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
568: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
569: THEN
570: g_log_msg := SQLERRM;
571: FND_LOG.STRING(G_LEVEL_STATEMENT,

Line 574: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

570: g_log_msg := SQLERRM;
571: FND_LOG.STRING(G_LEVEL_STATEMENT,
572: G_MODULE_NAME || l_api_name, g_log_msg);
573: END IF;
574: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
575: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
576: l_api_name);
577: FND_MSG_PUB.Count_And_Get
578: ( p_count => x_msg_count,

Line 588: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

584: g_log_msg := SQLERRM;
585: FND_LOG.STRING(G_LEVEL_STATEMENT,
586: G_MODULE_NAME || l_api_name, g_log_msg);
587: END IF;
588: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
589: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
590: l_api_name);
591: FND_MSG_PUB.Count_And_Get
592: ( p_count => x_msg_count,

Line 753: x_return_status := FND_API.G_RET_STS_SUCCESS;

749: l_mod11 NUMBER(8);
750: l_cal_cd NUMBER(2);
751: l_api_name VARCHAR2(50) := 'do_pt_regnum_validations';
752: BEGIN
753: x_return_status := FND_API.G_RET_STS_SUCCESS;
754: IF p_registration_code <> 'NIPC'
755: THEN
756: RETURN;
757: END IF;

Line 782: x_return_status := FND_API.G_RET_STS_SUCCESS;

778: l_cal_cd := 0;
779: END IF;
780: IF l_cal_cd = l_check_digit
781: THEN
782: x_return_status := FND_API.G_RET_STS_SUCCESS;
783: ELSE
784: x_return_status := FND_API.G_RET_STS_ERROR;
785: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
786: THEN

Line 784: x_return_status := FND_API.G_RET_STS_ERROR;

780: IF l_cal_cd = l_check_digit
781: THEN
782: x_return_status := FND_API.G_RET_STS_SUCCESS;
783: ELSE
784: x_return_status := FND_API.G_RET_STS_ERROR;
785: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
786: THEN
787: g_log_msg := ' Check algorithm not successfull for '||
788: p_registration_number;

Line 794: x_return_status := FND_API.G_RET_STS_ERROR;

790: G_MODULE_NAME || l_api_name, g_log_msg);
791: END IF;
792: END IF;
793: ELSE
794: x_return_status := FND_API.G_RET_STS_ERROR;
795: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
796: THEN
797: g_log_msg := 'Non numeric characters found ' ||
798: p_registration_number;

Line 804: x_return_status := FND_API.G_RET_STS_ERROR;

800: G_MODULE_NAME || l_api_name, g_log_msg);
801: END IF;
802: END IF;
803: ELSE
804: x_return_status := FND_API.G_RET_STS_ERROR;
805: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
806: THEN
807: g_log_msg := 'Reg Num failed length check '||
808: p_registration_number;

Line 813: IF x_return_status = FND_API.G_RET_STS_ERROR

809: FND_LOG.STRING(G_LEVEL_STATEMENT,
810: G_MODULE_NAME || l_api_name, g_log_msg);
811: END IF;
812: END IF; /* of fail length check */
813: IF x_return_status = FND_API.G_RET_STS_ERROR
814: THEN
815: FND_MESSAGE.SET_NAME('XLE', 'XLE_INVALID_REG_NUM_ERR');
816: FND_MESSAGE.SET_TOKEN('REG_CODE', p_registration_code);
817: FND_MESSAGE.SET_TOKEN('REG_NUM', p_registration_number);

Line 824: WHEN FND_API.G_EXC_ERROR THEN

820: FND_MSG_PUB.Count_And_Get
821: (p_count => x_msg_count,
822: p_data => x_msg_data);
823: EXCEPTION
824: WHEN FND_API.G_EXC_ERROR THEN
825: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
826: THEN
827: g_log_msg := SQLERRM;
828: FND_LOG.STRING(G_LEVEL_STATEMENT,

Line 831: x_return_status := FND_API.G_RET_STS_ERROR ;

827: g_log_msg := SQLERRM;
828: FND_LOG.STRING(G_LEVEL_STATEMENT,
829: G_MODULE_NAME || l_api_name, g_log_msg);
830: END IF;
831: x_return_status := FND_API.G_RET_STS_ERROR ;
832: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
833: l_api_name);
834: FND_MSG_PUB.Count_And_Get
835: ( p_count => x_msg_count,

Line 838: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

834: FND_MSG_PUB.Count_And_Get
835: ( p_count => x_msg_count,
836: p_data => x_msg_data
837: );
838: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
839: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
840: THEN
841: g_log_msg := SQLERRM;
842: FND_LOG.STRING(G_LEVEL_STATEMENT,

Line 845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

841: g_log_msg := SQLERRM;
842: FND_LOG.STRING(G_LEVEL_STATEMENT,
843: G_MODULE_NAME || l_api_name, g_log_msg);
844: END IF;
845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
846: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
847: l_api_name);
848: FND_MSG_PUB.Count_And_Get
849: ( p_count => x_msg_count,

Line 859: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

855: g_log_msg := SQLERRM;
856: FND_LOG.STRING(G_LEVEL_STATEMENT,
857: G_MODULE_NAME || l_api_name, g_log_msg);
858: END IF;
859: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
860: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
861: l_api_name);
862: FND_MSG_PUB.Count_And_Get
863: ( p_count => x_msg_count,

Line 892: x_return_status := FND_API.G_RET_STS_ERROR;

888: l_api_name VARCHAR2(50) := 'do_it_regnum_validations';
889:
890: procedure fail_uniqueness is
891: begin
892: x_return_status := FND_API.G_RET_STS_ERROR;
893: x_msg_data := 'PO_NIF_DUPLICATE_NIF_NUM';
894: end fail_uniqueness;
895:
896: /** FUNCTION returns the calculated check digit **/

Line 1156: x_return_status := FND_API.G_RET_STS_SUCCESS;

1152: END IF;
1153: RETURN l_odd_result;
1154: END func_odd_weighting;
1155: BEGIN
1156: x_return_status := FND_API.G_RET_STS_SUCCESS;
1157: IF p_registration_code <> 'FCIT'
1158: THEN
1159: RETURN;
1160: END IF;

Line 1189: x_return_status := FND_API.G_RET_STS_ERROR;

1185: /*** After having calculated what should be the ITALIAN Fiscal ***/
1186: /*** Check digit compare to the actual and fail if not the same ***/
1187: IF l_calc_cd <> l_check_digit
1188: THEN
1189: x_return_status := FND_API.G_RET_STS_ERROR;
1190: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
1191: THEN
1192: g_log_msg := 'Check Algorithm failed for '||
1193: p_registration_number;

Line 1198: x_return_status := FND_API.G_RET_STS_SUCCESS;

1194: FND_LOG.STRING(G_LEVEL_STATEMENT,
1195: G_MODULE_NAME || l_api_name, g_log_msg);
1196: END IF;
1197: ELSE
1198: x_return_status := FND_API.G_RET_STS_SUCCESS;
1199: END IF;
1200: ELSIF length(l_nif_value) = 11 -- Bug No : 6884561 Start
1201: then
1202: /** Additional requirement of Italy BUG NO : 6884561 **/

Line 1213: x_return_status := FND_API.G_RET_STS_ERROR;

1209: vat_ret_code,
1210: vat_ret_message);
1211: IF vat_ret_code = 'F'
1212: then
1213: x_return_status := FND_API.G_RET_STS_ERROR;
1214: ELSE
1215: x_return_status := FND_API.G_RET_STS_SUCCESS;
1216: x_msg_data := '';
1217: END IF;

Line 1215: x_return_status := FND_API.G_RET_STS_SUCCESS;

1211: IF vat_ret_code = 'F'
1212: then
1213: x_return_status := FND_API.G_RET_STS_ERROR;
1214: ELSE
1215: x_return_status := FND_API.G_RET_STS_SUCCESS;
1216: x_msg_data := '';
1217: END IF;
1218: ELSE -- Bug No : 6884561 End
1219:

Line 1221: x_return_status := FND_API.G_RET_STS_ERROR;

1217: END IF;
1218: ELSE -- Bug No : 6884561 End
1219:
1220: /** Fiscal code is incorrect length **/
1221: x_return_status := FND_API.G_RET_STS_ERROR;
1222: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
1223: THEN
1224: g_log_msg := 'Registration number is of incorrect length '||
1225: p_registration_number;

Line 1231: IF x_return_status = FND_API.G_RET_STS_ERROR

1227: G_MODULE_NAME || l_api_name, g_log_msg);
1228: END IF;
1229: END IF;
1230:
1231: IF x_return_status = FND_API.G_RET_STS_ERROR
1232: THEN
1233: FND_MESSAGE.SET_NAME('XLE', 'XLE_INVALID_REG_NUM_ERR');
1234: FND_MESSAGE.SET_TOKEN('REG_CODE', p_registration_code);
1235: FND_MESSAGE.SET_TOKEN('REG_NUM', p_registration_number);

Line 1242: WHEN FND_API.G_EXC_ERROR THEN

1238: FND_MSG_PUB.Count_And_Get
1239: (p_count => x_msg_count,
1240: p_data => x_msg_data);
1241: EXCEPTION
1242: WHEN FND_API.G_EXC_ERROR THEN
1243: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
1244: THEN
1245: g_log_msg := SQLERRM;
1246: FND_LOG.STRING(G_LEVEL_STATEMENT,

Line 1249: x_return_status := FND_API.G_RET_STS_ERROR ;

1245: g_log_msg := SQLERRM;
1246: FND_LOG.STRING(G_LEVEL_STATEMENT,
1247: G_MODULE_NAME || l_api_name, g_log_msg);
1248: END IF;
1249: x_return_status := FND_API.G_RET_STS_ERROR ;
1250: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
1251: l_api_name);
1252: FND_MSG_PUB.Count_And_Get
1253: ( p_count => x_msg_count,

Line 1256: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1252: FND_MSG_PUB.Count_And_Get
1253: ( p_count => x_msg_count,
1254: p_data => x_msg_data
1255: );
1256: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1257: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
1258: THEN
1259: g_log_msg := SQLERRM;
1260: FND_LOG.STRING(G_LEVEL_STATEMENT,

Line 1263: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1259: g_log_msg := SQLERRM;
1260: FND_LOG.STRING(G_LEVEL_STATEMENT,
1261: G_MODULE_NAME || l_api_name, g_log_msg);
1262: END IF;
1263: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1264: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
1265: l_api_name);
1266: FND_MSG_PUB.Count_And_Get
1267: ( p_count => x_msg_count,

Line 1277: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1273: g_log_msg := SQLERRM;
1274: FND_LOG.STRING(G_LEVEL_STATEMENT,
1275: G_MODULE_NAME || l_api_name, g_log_msg);
1276: END IF;
1277: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1278: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
1279: l_api_name);
1280: FND_MSG_PUB.Count_And_Get
1281: ( p_count => x_msg_count,

Line 1303: x_return_status := FND_API.G_RET_STS_SUCCESS;

1299: l_check_digit VARCHAR2(2);
1300: l_val_digit VARCHAR2(2);
1301: l_api_name VARCHAR2(50) := 'do_ar_regnum_validations';
1302: BEGIN
1303: x_return_status := FND_API.G_RET_STS_SUCCESS;
1304: IF p_registration_code <> 'CUIT'
1305: THEN
1306: RETURN;
1307: END IF;

Line 1337: x_return_status := FND_API.G_RET_STS_ERROR;

1333: l_val_digit:='0';
1334: END IF;
1335: IF l_val_digit <> l_check_digit
1336: THEN
1337: x_return_status := FND_API.G_RET_STS_ERROR;
1338: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
1339: THEN
1340: g_log_msg := 'Check Algorithm failed for '||
1341: p_registration_number;

Line 1346: x_return_status := FND_API.G_RET_STS_SUCCESS;

1342: FND_LOG.STRING(G_LEVEL_STATEMENT,
1343: G_MODULE_NAME || l_api_name, g_log_msg);
1344: END IF;
1345: ELSE
1346: x_return_status := FND_API.G_RET_STS_SUCCESS;
1347: END IF;
1348: ELSE
1349: x_return_status := FND_API.G_RET_STS_ERROR;
1350: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)

Line 1349: x_return_status := FND_API.G_RET_STS_ERROR;

1345: ELSE
1346: x_return_status := FND_API.G_RET_STS_SUCCESS;
1347: END IF;
1348: ELSE
1349: x_return_status := FND_API.G_RET_STS_ERROR;
1350: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
1351: THEN
1352: g_log_msg := 'Incorrect length for reg number ' ||
1353: p_registration_number;

Line 1359: x_return_status := FND_API.G_RET_STS_ERROR;

1355: G_MODULE_NAME || l_api_name, g_log_msg);
1356: END IF;
1357: END IF; -- Check length
1358: ELSE
1359: x_return_status := FND_API.G_RET_STS_ERROR;
1360: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
1361: THEN
1362: g_log_msg := 'Non numeric characters found in reg num '||
1363: p_registration_number;

Line 1368: IF x_return_status = FND_API.G_RET_STS_ERROR

1364: FND_LOG.STRING(G_LEVEL_STATEMENT,
1365: G_MODULE_NAME || l_api_name, g_log_msg);
1366: END IF;
1367: END IF ; -- Numeric Value check
1368: IF x_return_status = FND_API.G_RET_STS_ERROR
1369: THEN
1370: FND_MESSAGE.SET_NAME('XLE', 'XLE_INVALID_REG_NUM_ERR');
1371: FND_MESSAGE.SET_TOKEN('REG_CODE', p_registration_code);
1372: FND_MESSAGE.SET_TOKEN('REG_NUM', p_registration_number);

Line 1379: WHEN FND_API.G_EXC_ERROR THEN

1375: FND_MSG_PUB.Count_And_Get
1376: (p_count => x_msg_count,
1377: p_data => x_msg_data);
1378: EXCEPTION
1379: WHEN FND_API.G_EXC_ERROR THEN
1380: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
1381: THEN
1382: g_log_msg := SQLERRM;
1383: FND_LOG.STRING(G_LEVEL_STATEMENT,

Line 1386: x_return_status := FND_API.G_RET_STS_ERROR ;

1382: g_log_msg := SQLERRM;
1383: FND_LOG.STRING(G_LEVEL_STATEMENT,
1384: G_MODULE_NAME || l_api_name, g_log_msg);
1385: END IF;
1386: x_return_status := FND_API.G_RET_STS_ERROR ;
1387: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
1388: l_api_name);
1389: FND_MSG_PUB.Count_And_Get
1390: ( p_count => x_msg_count,

Line 1393: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1389: FND_MSG_PUB.Count_And_Get
1390: ( p_count => x_msg_count,
1391: p_data => x_msg_data
1392: );
1393: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1394: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
1395: THEN
1396: g_log_msg := SQLERRM;
1397: FND_LOG.STRING(G_LEVEL_STATEMENT,

Line 1400: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1396: g_log_msg := SQLERRM;
1397: FND_LOG.STRING(G_LEVEL_STATEMENT,
1398: G_MODULE_NAME || l_api_name, g_log_msg);
1399: END IF;
1400: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1401: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
1402: l_api_name);
1403: FND_MSG_PUB.Count_And_Get
1404: ( p_count => x_msg_count,

Line 1414: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1410: g_log_msg := SQLERRM;
1411: FND_LOG.STRING(G_LEVEL_STATEMENT,
1412: G_MODULE_NAME || l_api_name, g_log_msg);
1413: END IF;
1414: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1415: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
1416: l_api_name);
1417: FND_MSG_PUB.Count_And_Get
1418: ( p_count => x_msg_count,

Line 1441: x_return_status := FND_API.G_RET_STS_SUCCESS;

1437: l_nif_num xle_registrations.registration_number%TYPE;
1438: l_val_digit VARCHAR2(2);
1439: l_api_name VARCHAR2(50) := 'do_cl_regnum_validations';
1440: BEGIN
1441: x_return_status := FND_API.G_RET_STS_SUCCESS;
1442: IF p_registration_code <> 'RUT'
1443: THEN
1444: RETURN;
1445: END IF;

Line 1480: x_return_status := FND_API.G_RET_STS_ERROR;

1476: l_val_digit := '0';
1477: END IF;
1478: IF l_val_digit <> l_check_digit
1479: THEN
1480: x_return_status := FND_API.G_RET_STS_ERROR;
1481: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
1482: THEN
1483: g_log_msg := 'Check Algorithm failed for '||
1484: p_registration_number;

Line 1489: x_return_status := FND_API.G_RET_STS_SUCCESS;

1485: FND_LOG.STRING(G_LEVEL_STATEMENT,
1486: G_MODULE_NAME || l_api_name, g_log_msg);
1487: END IF;
1488: ELSE
1489: x_return_status := FND_API.G_RET_STS_SUCCESS;
1490: END IF;
1491: ELSE
1492: x_return_status := FND_API.G_RET_STS_ERROR;
1493: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)

Line 1492: x_return_status := FND_API.G_RET_STS_ERROR;

1488: ELSE
1489: x_return_status := FND_API.G_RET_STS_SUCCESS;
1490: END IF;
1491: ELSE
1492: x_return_status := FND_API.G_RET_STS_ERROR;
1493: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
1494: THEN
1495: g_log_msg := 'Check length failed for '||
1496: p_registration_number;

Line 1502: x_return_status := FND_API.G_RET_STS_ERROR;

1498: G_MODULE_NAME || l_api_name, g_log_msg);
1499: END IF;
1500: END IF; -- Check length
1501: ELSE
1502: x_return_status := FND_API.G_RET_STS_ERROR;
1503: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
1504: THEN
1505: g_log_msg := 'Non numeric characters found in '||
1506: p_registration_number;

Line 1511: IF x_return_status = FND_API.G_RET_STS_ERROR

1507: FND_LOG.STRING(G_LEVEL_STATEMENT,
1508: G_MODULE_NAME || l_api_name, g_log_msg);
1509: END IF;
1510: END IF ; -- Numeric Value check
1511: IF x_return_status = FND_API.G_RET_STS_ERROR
1512: THEN
1513: FND_MESSAGE.SET_NAME('XLE', 'XLE_INVALID_REG_NUM_ERR');
1514: FND_MESSAGE.SET_TOKEN('REG_CODE', p_registration_code);
1515: FND_MESSAGE.SET_TOKEN('REG_NUM', p_registration_number);

Line 1522: WHEN FND_API.G_EXC_ERROR THEN

1518: FND_MSG_PUB.Count_And_Get
1519: (p_count => x_msg_count,
1520: p_data => x_msg_data);
1521: EXCEPTION
1522: WHEN FND_API.G_EXC_ERROR THEN
1523: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
1524: THEN
1525: g_log_msg := SQLERRM;
1526: FND_LOG.STRING(G_LEVEL_STATEMENT,

Line 1529: x_return_status := FND_API.G_RET_STS_ERROR ;

1525: g_log_msg := SQLERRM;
1526: FND_LOG.STRING(G_LEVEL_STATEMENT,
1527: G_MODULE_NAME || l_api_name, g_log_msg);
1528: END IF;
1529: x_return_status := FND_API.G_RET_STS_ERROR ;
1530: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
1531: l_api_name);
1532: FND_MSG_PUB.Count_And_Get
1533: ( p_count => x_msg_count,

Line 1536: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1532: FND_MSG_PUB.Count_And_Get
1533: ( p_count => x_msg_count,
1534: p_data => x_msg_data
1535: );
1536: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1537: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
1538: THEN
1539: g_log_msg := SQLERRM;
1540: FND_LOG.STRING(G_LEVEL_STATEMENT,

Line 1543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1539: g_log_msg := SQLERRM;
1540: FND_LOG.STRING(G_LEVEL_STATEMENT,
1541: G_MODULE_NAME || l_api_name, g_log_msg);
1542: END IF;
1543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1544: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
1545: l_api_name);
1546: FND_MSG_PUB.Count_And_Get
1547: ( p_count => x_msg_count,

Line 1557: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1553: g_log_msg := SQLERRM;
1554: FND_LOG.STRING(G_LEVEL_STATEMENT,
1555: G_MODULE_NAME || l_api_name, g_log_msg);
1556: END IF;
1557: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1558: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
1559: l_api_name);
1560: FND_MSG_PUB.Count_And_Get
1561: ( p_count => x_msg_count,

Line 1585: x_return_status := FND_API.G_RET_STS_SUCCESS;

1581: l_val_digit VARCHAR2(2);
1582: l_mod_value NUMBER(2);
1583: l_api_name VARCHAR2(50) := 'do_co_regnum_validations';
1584: BEGIN
1585: x_return_status := FND_API.G_RET_STS_SUCCESS;
1586: -- The last check digit for Colombian Reg Number can be 0-9
1587: l_nif_value := substr(p_registration_number, 1,
1588: (length(p_registration_number)-1));
1589: l_check_digit := substr(p_registration_number,

Line 1622: x_return_status := FND_API.G_RET_STS_ERROR;

1618: l_val_digit:=11-l_mod_value;
1619: END IF;
1620: IF l_check_digit <> l_val_digit
1621: THEN
1622: x_return_status := FND_API.G_RET_STS_ERROR;
1623: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
1624: THEN
1625: g_log_msg := 'Check Algorithm failed for '||
1626: p_registration_number;

Line 1631: x_return_status := FND_API.G_RET_STS_SUCCESS;

1627: FND_LOG.STRING(G_LEVEL_STATEMENT,
1628: G_MODULE_NAME || l_api_name, g_log_msg);
1629: END IF;
1630: ELSE
1631: x_return_status := FND_API.G_RET_STS_SUCCESS;
1632: END IF;
1633: ELSE
1634: x_return_status := FND_API.G_RET_STS_ERROR;
1635: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)

Line 1634: x_return_status := FND_API.G_RET_STS_ERROR;

1630: ELSE
1631: x_return_status := FND_API.G_RET_STS_SUCCESS;
1632: END IF;
1633: ELSE
1634: x_return_status := FND_API.G_RET_STS_ERROR;
1635: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
1636: THEN
1637: g_log_msg := 'Check length failed for '||
1638: p_registration_number;

Line 1644: x_return_status := FND_API.G_RET_STS_ERROR;

1640: G_MODULE_NAME || l_api_name, g_log_msg);
1641: END IF;
1642: END IF; -- Check length
1643: ELSE
1644: x_return_status := FND_API.G_RET_STS_ERROR;
1645: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
1646: THEN
1647: g_log_msg := 'Non numeric characters found in ' ||
1648: p_registration_number;

Line 1653: IF x_return_status = FND_API.G_RET_STS_ERROR

1649: FND_LOG.STRING(G_LEVEL_STATEMENT,
1650: G_MODULE_NAME || l_api_name, g_log_msg);
1651: END IF;
1652: END IF;
1653: IF x_return_status = FND_API.G_RET_STS_ERROR
1654: THEN
1655: FND_MESSAGE.SET_NAME('XLE', 'XLE_INVALID_REG_NUM_ERR');
1656: FND_MESSAGE.SET_TOKEN('REG_CODE', p_registration_code);
1657: FND_MESSAGE.SET_TOKEN('REG_NUM', p_registration_number);

Line 1664: WHEN FND_API.G_EXC_ERROR THEN

1660: FND_MSG_PUB.Count_And_Get
1661: (p_count => x_msg_count,
1662: p_data => x_msg_data);
1663: EXCEPTION
1664: WHEN FND_API.G_EXC_ERROR THEN
1665: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
1666: THEN
1667: g_log_msg := SQLERRM;
1668: FND_LOG.STRING(G_LEVEL_STATEMENT,

Line 1671: x_return_status := FND_API.G_RET_STS_ERROR ;

1667: g_log_msg := SQLERRM;
1668: FND_LOG.STRING(G_LEVEL_STATEMENT,
1669: G_MODULE_NAME || l_api_name, g_log_msg);
1670: END IF;
1671: x_return_status := FND_API.G_RET_STS_ERROR ;
1672: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
1673: l_api_name);
1674: FND_MSG_PUB.Count_And_Get
1675: ( p_count => x_msg_count,

Line 1678: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1674: FND_MSG_PUB.Count_And_Get
1675: ( p_count => x_msg_count,
1676: p_data => x_msg_data
1677: );
1678: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1679: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
1680: THEN
1681: g_log_msg := SQLERRM;
1682: FND_LOG.STRING(G_LEVEL_STATEMENT,

Line 1685: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1681: g_log_msg := SQLERRM;
1682: FND_LOG.STRING(G_LEVEL_STATEMENT,
1683: G_MODULE_NAME || l_api_name, g_log_msg);
1684: END IF;
1685: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1686: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
1687: l_api_name);
1688: FND_MSG_PUB.Count_And_Get
1689: ( p_count => x_msg_count,

Line 1699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1695: g_log_msg := SQLERRM;
1696: FND_LOG.STRING(G_LEVEL_STATEMENT,
1697: G_MODULE_NAME || l_api_name, g_log_msg);
1698: END IF;
1699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1700: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
1701: l_api_name);
1702: FND_MSG_PUB.Count_And_Get
1703: ( p_count => x_msg_count,

Line 1727: x_return_status := FND_API.G_RET_STS_SUCCESS;

1723: l_control_digit_XX VARCHAR2(2);
1724: l_trn xle_registrations.registration_number%TYPE;
1725: l_api_name VARCHAR2(50) := 'do_br_regnum_validations';
1726: BEGIN
1727: x_return_status := FND_API.G_RET_STS_SUCCESS;
1728: IF p_registration_code IN ('CPF','CNPJ') THEN
1729: l_trn := TRANSLATE(p_registration_number, '0123456789/-.', '0123456789') ;
1730: IF p_registration_code = 'CPF' THEN
1731: l_trn := lpad(l_trn,11,0);

Line 1740: x_return_status := FND_API.G_RET_STS_ERROR;

1736: l_trn_branch := substr(l_trn,10,4);
1737: l_trn_digit := substr(l_trn,14,2);
1738: END IF;
1739: IF check_numeric(l_trn,1,length(l_trn)) <> '0' THEN
1740: x_return_status := FND_API.G_RET_STS_ERROR;
1741: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
1742: THEN
1743: g_log_msg := 'Failed length check or non numeric ' ||
1744: ' characters found ' ||

Line 1786: x_return_status:= FND_API.G_RET_STS_ERROR;

1782: substr(to_char(l_control_digit_2),1,1);
1783: IF l_control_digit_XX <> l_trn_digit
1784: THEN
1785: /* Digit controls do not match */
1786: x_return_status:= FND_API.G_RET_STS_ERROR;
1787: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
1788: THEN
1789: g_log_msg := 'Check Algorithm failed for '||
1790: p_registration_number;

Line 1795: x_return_status:= FND_API.G_RET_STS_SUCCESS;

1791: FND_LOG.STRING(G_LEVEL_STATEMENT,
1792: G_MODULE_NAME || l_api_name, g_log_msg);
1793: END IF;
1794: ELSE
1795: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1796: END IF;
1797: ELSIF p_registration_code = 'CNPJ' THEN
1798: /* Calculate two digit controls of registration number CNPJ type */
1799: l_control_digit_1 := (11 - mod(

Line 1838: x_return_status:= FND_API.G_RET_STS_ERROR;

1834: l_control_digit_XX := substr(to_char(l_control_digit_1),1,1) ||
1835: substr(to_char(l_control_digit_2),1,1);
1836: IF l_trn_digit <> l_control_digit_XX
1837: THEN
1838: x_return_status:= FND_API.G_RET_STS_ERROR;
1839: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
1840: THEN
1841: g_log_msg := 'Check Algorithm failed for '||
1842: p_registration_number;

Line 1847: x_return_status:= FND_API.G_RET_STS_SUCCESS;

1843: FND_LOG.STRING(G_LEVEL_STATEMENT,
1844: G_MODULE_NAME || l_api_name, g_log_msg);
1845: END IF;
1846: ELSE
1847: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1848: END IF;
1849: END IF;
1850: IF x_return_status = FND_API.G_RET_STS_ERROR
1851: THEN

Line 1850: IF x_return_status = FND_API.G_RET_STS_ERROR

1846: ELSE
1847: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1848: END IF;
1849: END IF;
1850: IF x_return_status = FND_API.G_RET_STS_ERROR
1851: THEN
1852: FND_MESSAGE.SET_NAME('XLE', 'XLE_INVALID_REG_NUM_ERR');
1853: FND_MESSAGE.SET_TOKEN('REG_CODE', p_registration_code);
1854: FND_MESSAGE.SET_TOKEN('REG_NUM', p_registration_number);

Line 1862: WHEN FND_API.G_EXC_ERROR THEN

1858: (p_count => x_msg_count,
1859: p_data => x_msg_data);
1860: END IF;
1861: EXCEPTION
1862: WHEN FND_API.G_EXC_ERROR THEN
1863: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
1864: THEN
1865: g_log_msg := SQLERRM;
1866: FND_LOG.STRING(G_LEVEL_STATEMENT,

Line 1869: x_return_status := FND_API.G_RET_STS_ERROR ;

1865: g_log_msg := SQLERRM;
1866: FND_LOG.STRING(G_LEVEL_STATEMENT,
1867: G_MODULE_NAME || l_api_name, g_log_msg);
1868: END IF;
1869: x_return_status := FND_API.G_RET_STS_ERROR ;
1870: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
1871: l_api_name);
1872: FND_MSG_PUB.Count_And_Get
1873: ( p_count => x_msg_count,

Line 1876: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1872: FND_MSG_PUB.Count_And_Get
1873: ( p_count => x_msg_count,
1874: p_data => x_msg_data
1875: );
1876: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1877: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL)
1878: THEN
1879: g_log_msg := SQLERRM;
1880: FND_LOG.STRING(G_LEVEL_STATEMENT,

Line 1883: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1879: g_log_msg := SQLERRM;
1880: FND_LOG.STRING(G_LEVEL_STATEMENT,
1881: G_MODULE_NAME || l_api_name, g_log_msg);
1882: END IF;
1883: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1884: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
1885: l_api_name);
1886: FND_MSG_PUB.Count_And_Get
1887: ( p_count => x_msg_count,

Line 1897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1893: g_log_msg := SQLERRM;
1894: FND_LOG.STRING(G_LEVEL_STATEMENT,
1895: G_MODULE_NAME || l_api_name, g_log_msg);
1896: END IF;
1897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1898: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
1899: l_api_name);
1900: FND_MSG_PUB.Count_And_Get
1901: ( p_count => x_msg_count,