The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE insert_ptp (
p_party_id IN NUMBER,
p_ptp_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2
)IS
l_api_name CONSTANT VARCHAR2(30) := 'INSERT_PTP';
INSERT INTO zx_party_tax_profile (
collecting_authority_flag,
provider_type_code,
create_awt_dists_type_code,
create_awt_invoices_type_code,
tax_classification_code,
self_assess_flag,
allow_offset_tax_flag,
rep_registration_number,
effective_from_use_le,
record_type_code,
request_id,
party_tax_profile_id,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15,
attribute_category,
party_id,
program_login_id,
party_type_code,
supplier_flag,
customer_flag,
site_flag,
process_for_applicability_flag,
rounding_level_code,
rounding_rule_code,
withholding_start_date,
inclusive_tax_flag,
allow_awt_flag,
use_le_as_subscriber_flag,
legal_establishment_flag,
first_party_le_flag,
reporting_authority_flag,
creation_date,
created_by,
last_update_date,
last_updated_by,
last_update_login,
object_version_number)
VALUES (
NULL,
'BOTH',
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
'MIGRATED',
NULL,
p_ptp_id,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
p_party_id,
NULL,
'TAX_PARTNER',
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
SYSDATE,
FND_GLOBAL.USER_ID,
SYSDATE,
FND_GLOBAL.USER_ID,
FND_GLOBAL.LOGIN_ID,
1);
FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','INSERT_PTP : '||SQLERRM);
END insert_ptp;
SELECT 1
INTO l_exists
FROM zx_party_tax_profile
WHERE party_tax_profile_id = 1;
SELECT 1
INTO dummy
FROM hz_parties
WHERE party_number = '09-685-3189';
/*Insert into zx_party_tax_profile*/
insert_ptp (p_party_id => l_party_id,
p_ptp_id => 1,
x_return_status => l_return_status
);
SELECT 1
INTO l_exists
FROM zx_party_tax_profile
WHERE party_tax_profile_id = 2;
SELECT 1
INTO dummy
FROM hz_parties
WHERE party_number = '13-583-0177';
/*Insert into zx_party_tax_profile*/
insert_ptp (p_party_id => l_party_id,
p_ptp_id => 2,
x_return_status => l_return_status
);
SELECT 1
INTO l_exists
FROM zx_party_tax_profile
WHERE party_tax_profile_id = 3;
SELECT 1
INTO dummy
FROM hz_parties
WHERE party_number = '';
/*Insert into zx_party_tax_profile*/
insert_ptp (p_party_id => l_party_id,
p_ptp_id => 3,
x_return_status => l_return_status
);
SELECT 1
INTO l_exists
FROM zx_party_tax_profile
WHERE party_tax_profile_id = 4;
SELECT 1
INTO dummy
FROM hz_parties
WHERE party_number = '';
/*Insert into zx_party_tax_profile*/
insert_ptp (p_party_id => l_party_id,
p_ptp_id => 4,
x_return_status => l_return_status
);