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 dummy
FROM zx_party_tax_profile
where party_tax_profile_id = 1;
SELECT 1
INTO dummy
FROM hz_parties
WHERE party_number = '09-685-3189';
/*select hz_party_number_s.nextval
into p_organization_rec.party_rec.party_number
from dual;
/*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 dummy
FROM zx_party_tax_profile
where party_tax_profile_id = 2;
SELECT 1
INTO dummy
FROM hz_parties
WHERE party_number = '13-583-0177';
select hz_party_number_s.nextval
into p_organization_rec.party_rec.party_number
from dual;
/*Insert into zx_party_tax_profile*/
insert_ptp (p_party_id => l_party_id,
p_ptp_id => 2,
x_return_status => l_return_status
);