The following lines contain the word 'select', 'insert', 'update' or 'delete':
/* SELECT NVL(GSA_INDICATOR,'N')
INTO l_gsa_flag
FROM OE_SOLD_TO_ORGS_V STO, RA_CUSTOMERS C
WHERE STO.ORGANIZATION_ID = l_invoice_to_org_id
AND STO.CUSTOMER_ID (+)= C.CUSTOMER_ID; */
select /* MOAC_SQL_CHANGE */ nvl(gsa_indicator,'N')
into l_gsa_flag
from hz_cust_site_uses_all hsu
where site_use_id = l_invoice_to_org_id ;
/* SELECT NVL(GSA_INDICATOR,'N')
INTO l_gsa_flag
FROM OE_INVOICE_TO_ORGS_V ITO, RA_SITE_USES SU
WHERE ITO.ORGANIZATION_ID = l_invoice_to_org_id
AND ITO.SITE_USE_ID = SU.SITE_USE_ID; */
select nvl(gsa_indicator_flag,'N')
into l_gsa_flag
from hz_parties hp,hz_cust_accounts hca
where hp.party_id = hca.party_id
and hca.cust_account_id = l_customer_id ;
SELECT count(*)
INTO l_gsa_count
FROM OE_DISCOUNTS OEDIS,
OE_DISCOUNT_CUSTOMERS OEDCU,
OE_DISCOUNT_LINES OEDLN,
OE_PRICE_BREAK_LINES OEPBL
WHERE OEDIS.GSA_INDICATOR = 'Y'
AND OEDIS.PRICE_LIST_ID = l_price_list_id
AND l_pricing_date
BETWEEN NVL(OEDIS.START_DATE_ACTIVE,l_pricing_date)
AND NVL(OEDIS.END_DATE_ACTIVE,l_pricing_date)
AND OEDIS.DISCOUNT_ID = OEDLN.DISCOUNT_ID
AND OEDLN.ENTITY_VALUE = l_inventory_item_id
AND l_pricing_date
BETWEEN NVL(OEDLN.START_DATE_ACTIVE,l_pricing_date)
AND NVL(OEDLN.END_DATE_ACTIVE,l_pricing_date)
AND OEDLN.DISCOUNT_LINE_ID = OEPBL.DISCOUNT_LINE_ID (+)
AND l_pricing_quantity
BETWEEN NVL(OEPBL.PRICE_BREAK_LINES_LOW_RANGE,1)
AND NVL(OEPBL.PRICE_BREAK_LINES_HIGH_RANGE,l_pricing_quantity)
AND l_pricing_date
BETWEEN NVL(OEPBL.START_DATE_ACTIVE,l_pricing_date)
AND NVL(OEPBL.END_DATE_ACTIVE,l_pricing_date)
AND NVL(OEPBL.PRICE, OEDLN.PRICE) >= l_unit_selling_price
AND OEDCU.DISCOUNT_ID (+) = OEDIS.DISCOUNT_ID
AND l_pricing_date
BETWEEN NVL(OEDCU.START_DATE_ACTIVE,l_pricing_date)
AND NVL(OEDCU.END_DATE_ACTIVE,l_pricing_date);
SELECT count(*)
INTO l_nongsa_count
FROM OE_DISCOUNTS OEDIS,
OE_DISCOUNT_CUSTOMERS OEDCU,
OE_DISCOUNT_LINES OEDLN,
OE_PRICE_BREAK_LINES OEPBL
WHERE OEDIS.GSA_INDICATOR = 'N'
AND OEDIS.PRICE_LIST_ID = l_price_list_id
AND l_pricing_date
BETWEEN NVL(OEDIS.START_DATE_ACTIVE,l_pricing_date)
AND NVL(OEDIS.END_DATE_ACTIVE,l_pricing_date)
AND OEDIS.DISCOUNT_ID = OEDLN.DISCOUNT_ID
AND OEDLN.ENTITY_VALUE = l_inventory_item_id
AND l_pricing_date
BETWEEN NVL(OEDLN.START_DATE_ACTIVE,l_pricing_date)
AND NVL(OEDLN.END_DATE_ACTIVE,l_pricing_date)
AND OEDLN.DISCOUNT_LINE_ID = OEPBL.DISCOUNT_LINE_ID (+)
AND l_pricing_quantity
BETWEEN NVL(OEPBL.PRICE_BREAK_LINES_LOW_RANGE,1)
AND NVL(OEPBL.PRICE_BREAK_LINES_HIGH_RANGE,l_pricing_quantity)
AND l_pricing_date
BETWEEN NVL(OEPBL.START_DATE_ACTIVE,l_pricing_date)
AND NVL(OEPBL.END_DATE_ACTIVE,l_pricing_date)
AND NVL(OEPBL.PRICE, OEDLN.PRICE) <= l_unit_selling_price
AND OEDIS.DISCOUNT_ID = OEDCU.DISCOUNT_ID (+)
AND l_pricing_date
BETWEEN NVL(OEDCU.START_DATE_ACTIVE,l_pricing_date)
AND NVL(OEDCU.END_DATE_ACTIVE,l_pricing_date);
SELECT OE_HOLD_definitions.HOLD_ID
INTO x_hold_id
FROM OE_HOLD_definitions WHERE TYPE_CODE = 'GSA';
SELECT MAX(S.HOLD_SOURCE_ID)
INTO x_source_id
FROM OE_HOLD_SOURCES S
WHERE S.HOLD_ENTITY_ID = l_header_id
AND S.HOLD_ENTITY_CODE = 'O'
AND NVL(RELEASED_FLAG,'N') ='N';
SELECT OE_HOLD_RELEASES_S.NEXTVAL
INTO l_hold_release_id
FROM DUAL;
INSERT INTO OE_HOLD_RELEASES
(HOLD_RELEASE_ID,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
REQUEST_ID,
PROGRAM_APPLICATION_ID,
PROGRAM_ID,
PROGRAM_UPDATE_DATE,
HOLD_SOURCE_ID,
-- HOLD_ENTITY_CODE,
-- HOLD_ENTITY_ID,
RELEASE_REASON_CODE )
SELECT l_hold_release_id,
SYSDATE,
FND_GLOBAL.user_id,
SYSDATE,
FND_GLOBAL.user_id,
FND_GLOBAL.login_id,
l_request_id,
l_program_application_id,
l_program_id,
DECODE(l_request_id, NULL, NULL, SYSDATE ),
l_hold_source_id,
--'O',
--l_header_id,
'PASS_GSA'
FROM DUAL
WHERE l_hold_source_id <> 0;
UPDATE OE_ORDER_HOLDS OEHLD
SET HOLD_RELEASE_ID = l_hold_release_id,
RELEASED_FLAG='Y',
LAST_UPDATE_DATE = SYSDATE,
LAST_UPDATED_BY = FND_GLOBAL.user_id,
LAST_UPDATE_LOGIN = FND_GLOBAL.login_id,
REQUEST_ID = l_request_id,
PROGRAM_APPLICATION_ID = l_program_application_id,
PROGRAM_ID = l_program_id,
PROGRAM_UPDATE_DATE = DECODE( l_request_id, NULL, NULL, SYSDATE )
WHERE HOLD_SOURCE_ID = l_hold_source_id
AND HEADER_ID = l_header_id
AND LINE_ID = l_line_id;