The following lines contain the word 'select', 'insert', 'update' or 'delete':
p_create_update_flag IN VARCHAR2,
x_return_status IN OUT NOCOPY VARCHAR2
)
IS
l_count NUMBER;
SELECT count(*)
INTO l_count
FROM AR_LOOKUPS
WHERE lookup_type = 'STOCK_SYMBOL'
AND lookup_code = p_stock_markets_rec.stock_exchange_code;
p_create_update_flag IN VARCHAR2,
x_return_status IN OUT NOCOPY VARCHAR2
)
IS
l_count NUMBER;
IF (p_create_update_flag = 'C' AND
(p_security_issued_rec.stock_exchange_id is NULL OR
p_security_issued_rec.stock_exchange_id = FND_API.G_MISS_NUM)) OR
(p_create_update_flag = 'U' AND
p_security_issued_rec.stock_exchange_id is NULL) THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
if (p_create_update_flag = 'U' AND
(p_security_issued_rec.stock_exchange_id <> FND_API.G_MISS_NUM OR
p_security_issued_rec.begin_date <> FND_API.G_MISS_DATE OR
p_security_issued_rec.end_date <> FND_API.G_MISS_DATE )) THEN
BEGIN
SELECT stock_exchange_id, begin_date, end_date
INTO l_stock_exchange_id, l_begin_date, l_end_date
FROM HZ_SECURITY_ISSUED
WHERE security_issued_id = p_security_issued_rec.security_issued_id;
FND_MESSAGE.SET_NAME('AR', 'HZ_API_NONUPDATEABLE_COLUMN');
SELECT COUNT(*) INTO l_count
FROM hz_parties
where party_id = p_security_issued_rec.party_id;
SELECT COUNT(*) INTO l_count
FROM hz_stock_markets
where stock_exchange_id = p_security_issued_rec.stock_exchange_id;
SELECT count(*)
INTO l_count
FROM fnd_currencies
WHERE currency_code = p_security_issued_rec.security_currency_code
AND currency_flag = 'Y'
AND enabled_flag in ('Y', 'N');
IF p_create_update_flag = 'C' THEN
IF p_security_issued_rec.end_date is NOT NULL AND
p_security_issued_rec.end_date <> FND_API.G_MISS_DATE THEN
if (p_security_issued_rec.end_date < p_security_issued_rec.begin_date OR
p_security_issued_rec.begin_date IS NULL OR
p_security_issued_rec.begin_date = FND_API.G_MISS_DATE) THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_START_DATE_GREATER');
ELSIF p_create_update_flag = 'U' THEN
if (p_security_issued_rec.end_date is NOT NULL AND
p_security_issued_rec.end_date <> FND_API.G_MISS_DATE) THEN
if p_security_issued_rec.begin_date is NOT NULL AND
p_security_issued_rec.begin_date <> FND_API.G_MISS_DATE then
if p_security_issued_rec.end_date < p_security_issued_rec.begin_date then
FND_MESSAGE.SET_NAME('AR', 'HZ_API_START_DATE_GREATER');
p_create_update_flag IN VARCHAR2,
x_return_status IN OUT NOCOPY VARCHAR2
)
IS
l_count NUMBER;
IF (p_create_update_flag = 'C' AND
(p_financial_reports_rec.party_id is NULL OR
p_financial_reports_rec.party_id = FND_API.G_MISS_NUM)) OR
(p_create_update_flag = 'U' AND
p_financial_reports_rec.party_id is NULL) THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
IF (p_create_update_flag = 'U') THEN
BEGIN
SELECT party_id,report_start_date,
report_end_date, content_source_type, actual_content_source
INTO l_party_id, l_report_start_date,
l_report_end_date, l_content_source_type, db_actual_content_source
FROM HZ_FINANCIAL_REPORTS
WHERE financial_report_id= p_financial_reports_rec.financial_report_id;
FND_MESSAGE.SET_NAME('AR', 'HZ_API_NONUPDATEABLE_COLUMN');
SELECT COUNT(*) INTO l_count
FROM hz_parties
where party_id = p_financial_reports_rec.party_id;
IF p_create_update_flag = 'C' THEN
IF p_financial_reports_rec.report_end_date is NOT NULL AND
p_financial_reports_rec.report_end_date <> FND_API.G_MISS_DATE THEN
if (p_financial_reports_rec.report_end_date
< p_financial_reports_rec.report_start_date OR
p_financial_reports_rec.report_start_date IS NULL OR
p_financial_reports_rec.report_start_date = FND_API.G_MISS_DATE) THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_START_DATE_GREATER');
ELSIF p_create_update_flag = 'U' THEN
if (p_financial_reports_rec.report_end_date is NOT NULL AND
p_financial_reports_rec.report_end_date <> FND_API.G_MISS_DATE) THEN
if p_financial_reports_rec.report_start_date is NOT NULL AND
p_financial_reports_rec.report_start_date <> FND_API.G_MISS_DATE then
if p_financial_reports_rec.report_end_date
< p_financial_reports_rec.report_start_date then
FND_MESSAGE.SET_NAME('AR', 'HZ_API_START_DATE_GREATER');
IF p_create_update_flag = 'U' THEN
IF l_content_source_type <> p_financial_reports_rec.content_source_type
OR p_financial_reports_rec.content_source_type IS NULL THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_NONUPDATEABLE_COLUMN');
IF p_create_update_flag = 'C'
AND (p_financial_reports_rec.content_source_type IS NULL
OR p_financial_reports_rec.content_source_type = FND_API.G_MISS_CHAR) THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
p_create_update_flag => p_create_update_flag,
p_check_update_privilege => 'Y',
p_content_source_type => p_financial_reports_rec.content_source_type,
p_old_content_source_type => l_content_source_type,
p_actual_content_source => p_financial_reports_rec.actual_content_source,
p_old_actual_content_source => db_actual_content_source,
p_entity_name => 'HZ_FINANCIAL_REPORTS',
x_return_status => x_return_status );
p_create_update_flag IN VARCHAR2,
x_return_status IN OUT NOCOPY VARCHAR2,
x_rep_content_source_type OUT NOCOPY VARCHAR2,
x_rep_actual_content_source OUT NOCOPY VARCHAR2
)
IS
l_count NUMBER;
IF (p_create_update_flag = 'C' AND
(p_financial_numbers_rec.financial_report_id is NULL OR
p_financial_numbers_rec.financial_report_id = FND_API.G_MISS_NUM)) OR
(p_create_update_flag = 'U' AND
p_financial_numbers_rec.financial_report_id is NULL) THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
IF (p_create_update_flag = 'U') THEN
SELECT financial_report_id, content_source_type
INTO l_financial_report_id, db_content_source_type
FROM HZ_FINANCIAL_NUMBERS
WHERE financial_number_id = p_financial_numbers_rec.financial_number_id;
FND_MESSAGE.SET_NAME('AR', 'HZ_API_NONUPDATEABLE_COLUMN');
SELECT content_source_type, actual_content_source
INTO x_rep_content_source_type, x_rep_actual_content_source
FROM HZ_FINANCIAL_REPORTS
where financial_report_id = p_financial_numbers_rec.financial_report_id;
IF p_create_update_flag = 'U' THEN
IF l_content_source_type <> p_financial_numbers_rec.content_source_type
OR p_financial_numbers_rec.content_source_type IS NULL THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_NONUPDATEABLE_COLUMN');
IF p_create_update_flag = 'C'
AND (p_financial_numbers_rec.content_source_type IS NULL
OR p_financial_numbers_rec.content_source_type = FND_API.G_MISS_CHAR) THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
p_create_update_flag => p_create_update_flag,
p_column => 'content_source_type',
p_column_value => p_financial_numbers_rec.content_source_type,
p_default_value => 'USER_ENTERED',
p_old_column_value => db_content_source_type,
x_return_status => x_return_status);
p_create_update_flag IN VARCHAR2,
x_return_status IN OUT NOCOPY VARCHAR2
)
IS
l_count NUMBER;
IF (p_create_update_flag = 'C' AND
(p_certifications_rec.party_id is NULL OR
p_certifications_rec.party_id = FND_API.G_MISS_NUM)) OR
(p_create_update_flag = 'U' AND
p_certifications_rec.party_id is NULL) THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
IF (p_create_update_flag = 'C' AND
(p_certifications_rec.certification_name is NULL OR
p_certifications_rec.certification_name = FND_API.G_MISS_CHAR)) OR
(p_create_update_flag = 'U' AND
p_certifications_rec.certification_name is NULL) THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
IF (p_create_update_flag = 'U' AND
p_certifications_rec.party_id <> FND_API.G_MISS_NUM) THEN
SELECT party_id
INTO l_party_id
FROM HZ_CERTIFICATIONS
WHERE certification_id = p_certifications_rec.certification_id;
FND_MESSAGE.SET_NAME('AR', 'HZ_API_NONUPDATEABLE_COLUMN');
SELECT count(*)
INTO l_count
FROM HZ_PARTIES
WHERE party_id = p_certifications_rec.party_id;
p_create_update_flag IN VARCHAR2,
x_return_status IN OUT NOCOPY VARCHAR2
)
IS
l_count NUMBER;
IF (p_create_update_flag = 'C' AND
(p_industrial_reference_rec.party_id is NULL OR
p_industrial_reference_rec.party_id = FND_API.G_MISS_NUM)) OR
(p_create_update_flag = 'U' AND
p_industrial_reference_rec.party_id is NULL) THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
IF (p_create_update_flag = 'C' AND
(p_industrial_reference_rec.industry_reference is NULL OR
p_industrial_reference_rec.industry_reference = FND_API.G_MISS_CHAR)) OR
(p_create_update_flag = 'U' AND
p_industrial_reference_rec.industry_reference is NULL) THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
IF (p_create_update_flag = 'U' AND
p_industrial_reference_rec.party_id <> FND_API.G_MISS_NUM) THEN
SELECT party_id
INTO l_party_id
FROM HZ_INDUSTRIAL_REFERENCE
WHERE INDUSTRY_REFERENCE_ID = p_industrial_reference_rec.INDUSTRY_REFERENCE_ID;
FND_MESSAGE.SET_NAME('AR', 'HZ_API_NONUPDATEABLE_COLUMN');
SELECT count(*)
INTO l_count
FROM HZ_PARTIES
WHERE party_id = p_industrial_reference_rec.party_id;
p_create_update_flag IN VARCHAR2,
x_return_status IN OUT NOCOPY VARCHAR2
)
IS
l_count NUMBER;
IF (p_create_update_flag = 'C' AND
(p_industrial_classes_rec.code_primary_segment is NULL OR
p_industrial_classes_rec.code_primary_segment = FND_API.G_MISS_CHAR)) OR
(p_create_update_flag = 'U' AND
p_industrial_classes_rec.code_primary_segment is NULL) THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
p_create_update_flag IN VARCHAR2,
x_return_status IN OUT NOCOPY VARCHAR2
)
IS
l_count NUMBER;
IF (p_create_update_flag = 'C' AND
(p_industrial_class_app_rec.party_id is NULL OR
p_industrial_class_app_rec.party_id = FND_API.G_MISS_NUM)) OR
(p_create_update_flag = 'U' AND
p_industrial_class_app_rec.party_id is NULL) THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
IF (p_create_update_flag = 'C' AND
(p_industrial_class_app_rec.industrial_class_id is NULL OR
p_industrial_class_app_rec.industrial_class_id = FND_API.G_MISS_NUM)) OR
(p_create_update_flag = 'U' AND
p_industrial_class_app_rec.industrial_class_id is NULL) THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
IF (p_create_update_flag = 'U' AND
(p_industrial_class_app_rec.party_id <> FND_API.G_MISS_NUM OR
p_industrial_class_app_rec.industrial_class_id <> FND_API.G_MISS_NUM OR
p_industrial_class_app_rec.end_date <> FND_API.G_MISS_DATE OR
p_industrial_class_app_rec.begin_date <> FND_API.G_MISS_DATE )) THEN
BEGIN
SELECT party_id, industrial_class_id, begin_date, end_date
INTO l_party_id, l_industrial_class_id, l_begin_date, l_end_date
FROM HZ_INDUSTRIAL_CLASS_APP
WHERE code_applied_id= p_industrial_class_app_rec.code_applied_id;
FND_MESSAGE.SET_NAME('AR', 'HZ_API_NONUPDATEABLE_COLUMN');
FND_MESSAGE.SET_NAME('AR', 'HZ_API_NONUPDATEABLE_COLUMN');
SELECT COUNT(*) INTO l_count
FROM hz_parties
where party_id = p_industrial_class_app_rec.party_id;
SELECT COUNT(*) INTO l_count
FROM hz_industrial_classes
where industrial_class_id = p_industrial_class_app_rec.industrial_class_id;
IF p_create_update_flag = 'C' THEN
IF p_industrial_class_app_rec.end_date is NOT NULL AND
p_industrial_class_app_rec.end_date <> FND_API.G_MISS_DATE THEN
if (p_industrial_class_app_rec.end_date
< p_industrial_class_app_rec.begin_date OR
p_industrial_class_app_rec.begin_date IS NULL OR
p_industrial_class_app_rec.begin_date = FND_API.G_MISS_DATE) THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_START_DATE_GREATER');
ELSIF p_create_update_flag = 'U' THEN
if (p_industrial_class_app_rec.end_date is NOT NULL AND
p_industrial_class_app_rec.end_date <> FND_API.G_MISS_DATE) THEN
if p_industrial_class_app_rec.begin_date is NOT NULL AND
p_industrial_class_app_rec.begin_date <> FND_API.G_MISS_DATE then
if p_industrial_class_app_rec.end_date