The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT
count(*)
INTO L_LE_ID_COUNT
FROM
JE_IT_EXEMPT_LETTERS
WHERE SET_OF_BOOKS_ID = P_SET_OF_BOOKS_ID
AND LEGAL_ENTITY_ID IS NULL;
SELECT
NVL(A.LEGAL_ENTITY_ID
,B.LEGAL_ENTITY_ID)
INTO P_LEGAL_ENTITY_ID_V
FROM
JG_ZZ_VAT_REP_ENTITIES A,
JG_ZZ_VAT_REP_ENTITIES B
WHERE A.MAPPING_VAT_REP_ENTITY_ID = B.VAT_REPORTING_ENTITY_ID (+)
AND A.VAT_REPORTING_ENTITY_ID = P_REP_IDENTIFIER;
SELECT
TO_DATE(START_DATE
,'DD-MM-RRRR')
INTO P_FIRST_DAY
FROM
GL_PERIODS
WHERE PERIOD_SET_NAME = P_PERIOD_SET_NAME
AND PERIOD_NAME = P_PERIOD_FROM;
SELECT
TO_DATE(END_DATE
,'DD-MM-RRRR')
INTO P_LAST_DAY
FROM
GL_PERIODS
WHERE PERIOD_SET_NAME = P_PERIOD_SET_NAME
AND PERIOD_NAME = P_PERIOD_TO;
SELECT
LEDGER.NAME,
LEDGER.CURRENCY_CODE
INTO C_OUR_SOB_NAME,C_FUNCTIONAL_CURRENCY
FROM
GL_LEDGERS_PUBLIC_V LEDGER
WHERE LEDGER.LEDGER_ID = P_SET_OF_BKS_ID;
SELECT
sysdate
INTO P_EFFECTIVE_DATE
FROM
DUAL;
SELECT
ETBP.PARTY_ID
INTO X_ME_PARTY_ID
FROM
XLE_ETB_PROFILES ETBP
WHERE ETBP.MAIN_ESTABLISHMENT_FLAG = 'Y'
AND ETBP.LEGAL_ENTITY_ID = P_LEGAL_ENTITY_ID_V;
SELECT
XFIV.NAME,
XFIV.ADDRESS_LINE_1,
SUBSTR(SUBSTR(XFIV.POSTAL_CODE
,1
,5) || ' ' || XFIV.TOWN_OR_CITY || ' ' || XFIV.REGION_1
,1
,40),
SUBSTR(XFIV.POSTAL_CODE
,1
,5) || ' ' || XFIV.TOWN_OR_CITY,
SUBSTR(HRL.DESCRIPTION
,1
,43),
XFIV.COUNTRY
INTO C_LE_NAME,C_OUR_STREET,C_OUR_ZIPCITY,C_OUR_ZIP_CITY,C_LOCATION,P_COUNTRY
FROM
XLE_FIRSTPARTY_INFORMATION_V XFIV,
HR_LOCATIONS HRL
WHERE XFIV.LEGAL_ENTITY_ID = P_LEGAL_ENTITY_ID_V
AND XFIV.LOCATION_ID = HRL.LOCATION_ID;
SELECT
GEOGRAPHY_NAME
INTO C_OUR_COUNTRY
FROM
HZ_GEOGRAPHIES
WHERE GEOGRAPHY_CODE = P_COUNTRY
AND GEOGRAPHY_TYPE = 'COUNTRY';
SELECT
REGISTRATION_NUMBER
INTO C_TAXPAYER_ID
FROM
XLE_REGISTRATIONS_V
WHERE LEGAL_ENTITY_ID = P_LEGAL_ENTITY_ID_V
AND LEGISLATIVE_CATEGORY = 'INCOME_TAX';
SELECT
REGISTRATION_NUMBER
INTO C_COMMERCIAL_NUM
FROM
XLE_REGISTRATIONS_V
WHERE LEGAL_ENTITY_ID = P_LEGAL_ENTITY_ID_V
AND LEGISLATIVE_CATEGORY = 'COMMERCIAL_LAW';
UPDATE
JE_IT_EXEMPT_LETTERS
SET
PRINT_FLAG = 'N'
WHERE ROWID = PRINT_ROWID;
UPDATE
JE_IT_EXEMPT_LETTERS
SET
ISSUE_FLAG = 'N'
,ISSUE_DATE = SYSDATE
WHERE ROWID = ISSUE_ROWID;
SELECT
PLACE_OF_BIRTH || ' ' || DATE_OF_BIRTH,
GENDER
INTO C_PLACE,C_SEX
FROM
HZ_PERSON_PROFILES HPP
WHERE EXISTS (
SELECT
null
FROM
HZ_PARTIES HP
WHERE HP.PARTY_ID = HPP.PARTY_ID
AND HP.PARTY_NAME = HPP.PERSON_NAME
AND HP.PARTY_ID = PARTYID );