1: PACKAGE BODY XLE_REGISTRATIONS_VAL_PVT AS
2: /* $Header: xleregvb.pls 120.8 2011/05/20 09:35:47 srsampat ship $ */
3: G_PKG_NAME VARCHAR2(30) := 'XLE_REGISTRATIONS_VAL_PVT';
4: -- Logging Infra
5: G_CURRENT_RUNTIME_LEVEL NUMBER;
1: PACKAGE BODY XLE_REGISTRATIONS_VAL_PVT AS
2: /* $Header: xleregvb.pls 120.8 2011/05/20 09:35:47 srsampat ship $ */
3: G_PKG_NAME VARCHAR2(30) := 'XLE_REGISTRATIONS_VAL_PVT';
4: -- Logging Infra
5: G_CURRENT_RUNTIME_LEVEL NUMBER;
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
12: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'XLE.PLSQL.XLE_REGISTRATIONS_VAL_PVT';
13: g_log_msg VARCHAR2(2000);
14: -- Logging Infra
15: /*-----------------------------------------------------------
16: This procedure is called from the Creae LE page, Create
52: p_jurisdiction_id NUMBER,
53: p_registration_number VARCHAR2)
54: IS
55: SELECT registration_id
56: FROM xle_registrations
57: WHERE source_table = p_source_table
58: AND jurisdiction_id = p_jurisdiction_id
59: AND registration_number = p_registration_number
60: AND (effective_to is null or effective_to >= sysdate);
304: x_return_status IN OUT NOCOPY VARCHAR2 ,
305: x_msg_data IN OUT NOCOPY VARCHAR2 ,
306: x_msg_count IN OUT NOCOPY NUMBER )
307: IS
308: l_nif_value xle_registrations.registration_number%TYPE;
309: l_check_digit VARCHAR2(2);
310: l_work_nif VARCHAR2(20);
311: l_numeric_result VARCHAR2(40);
312: l_work_nif_d NUMBER(20);
735: x_return_status IN OUT NOCOPY VARCHAR2 ,
736: x_msg_data IN OUT NOCOPY VARCHAR2 ,
737: x_msg_count IN OUT NOCOPY NUMBER )
738: IS
739: l_nif_value xle_registrations.registration_number%TYPE;
740: l_check_digit VARCHAR2(2);
741: l_work_nif VARCHAR2(20);
742: l_numeric_result VARCHAR2(40);
743: l_work_nif_d NUMBER(20);
874: x_return_status IN OUT NOCOPY VARCHAR2 ,
875: x_msg_data IN OUT NOCOPY VARCHAR2 ,
876: x_msg_count IN OUT NOCOPY NUMBER )
877: IS
878: l_nif_value xle_registrations.registration_number%TYPE;
879: l_check_digit VARCHAR2(2);
880: l_position_i NUMBER(2);
881: l_position_weight NUMBER(2);
882: l_total_weighting NUMBER(3);
1293: x_return_status IN OUT NOCOPY VARCHAR2 ,
1294: x_msg_data IN OUT NOCOPY VARCHAR2 ,
1295: x_msg_count IN OUT NOCOPY NUMBER )
1296: IS
1297: l_nif_value xle_registrations.registration_number%TYPE;
1298: l_nif_num xle_registrations.registration_number%TYPE;
1299: l_check_digit VARCHAR2(2);
1300: l_val_digit VARCHAR2(2);
1301: l_api_name VARCHAR2(50) := 'do_ar_regnum_validations';
1294: x_msg_data IN OUT NOCOPY VARCHAR2 ,
1295: x_msg_count IN OUT NOCOPY NUMBER )
1296: IS
1297: l_nif_value xle_registrations.registration_number%TYPE;
1298: l_nif_num xle_registrations.registration_number%TYPE;
1299: l_check_digit VARCHAR2(2);
1300: l_val_digit VARCHAR2(2);
1301: l_api_name VARCHAR2(50) := 'do_ar_regnum_validations';
1302: BEGIN
1430: x_return_status IN OUT NOCOPY VARCHAR2 ,
1431: x_msg_data IN OUT NOCOPY VARCHAR2 ,
1432: x_msg_count IN OUT NOCOPY NUMBER )
1433: IS
1434: l_nif_value xle_registrations.registration_number%TYPE;
1435: l_check_digit VARCHAR2(2);
1436: l_var1 xle_registrations.registration_number%TYPE;
1437: l_nif_num xle_registrations.registration_number%TYPE;
1438: l_val_digit VARCHAR2(2);
1432: x_msg_count IN OUT NOCOPY NUMBER )
1433: IS
1434: l_nif_value xle_registrations.registration_number%TYPE;
1435: l_check_digit VARCHAR2(2);
1436: l_var1 xle_registrations.registration_number%TYPE;
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
1433: IS
1434: l_nif_value xle_registrations.registration_number%TYPE;
1435: l_check_digit VARCHAR2(2);
1436: l_var1 xle_registrations.registration_number%TYPE;
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;
1573: x_return_status IN OUT NOCOPY VARCHAR2 ,
1574: x_msg_data IN OUT NOCOPY VARCHAR2 ,
1575: x_msg_count IN OUT NOCOPY NUMBER )
1576: IS
1577: l_nif_value xle_registrations.registration_number%TYPE;
1578: l_check_digit VARCHAR2(2);
1579: l_var1 xle_registrations.registration_number%TYPE;
1580: l_nif_num xle_registrations.registration_number%TYPE;
1581: l_val_digit VARCHAR2(2);
1575: x_msg_count IN OUT NOCOPY NUMBER )
1576: IS
1577: l_nif_value xle_registrations.registration_number%TYPE;
1578: l_check_digit VARCHAR2(2);
1579: l_var1 xle_registrations.registration_number%TYPE;
1580: l_nif_num xle_registrations.registration_number%TYPE;
1581: l_val_digit VARCHAR2(2);
1582: l_mod_value NUMBER(2);
1583: l_api_name VARCHAR2(50) := 'do_co_regnum_validations';
1576: IS
1577: l_nif_value xle_registrations.registration_number%TYPE;
1578: l_check_digit VARCHAR2(2);
1579: l_var1 xle_registrations.registration_number%TYPE;
1580: l_nif_num xle_registrations.registration_number%TYPE;
1581: l_val_digit VARCHAR2(2);
1582: l_mod_value NUMBER(2);
1583: l_api_name VARCHAR2(50) := 'do_co_regnum_validations';
1584: BEGIN
1720: l_trn_digit VARCHAR2(2);
1721: l_control_digit_1 NUMBER;
1722: l_control_digit_2 NUMBER;
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
1901: ( p_count => x_msg_count,
1902: p_data => x_msg_data
1903: );
1904: END do_br_regnum_validations;
1905: END XLE_REGISTRATIONS_VAL_PVT;