The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT
FCURR.CURRENCY_CODE,
FCURR.PRECISION,
FCURR.MINIMUM_ACCOUNTABLE_UNIT,
FCURR.DESCRIPTION,
GSBKS.NAME
INTO BASE_CURR,PREC,MIN_AU,DESCR,ORG_NAME
FROM
AR_SYSTEM_PARAMETERS ASP,
FND_CURRENCIES_VL FCURR,
GL_SETS_OF_BOOKS GSBKS
WHERE ASP.SET_OF_BOOKS_ID = GSBKS.SET_OF_BOOKS_ID
AND GSBKS.CURRENCY_CODE = FCURR.CURRENCY_CODE;
SELECT
SET_OF_BOOKS_ID,
GLOBAL_ATTRIBUTE1
INTO L_LEDGER_ID,L_ACCT_BALANCING_SEGMENT
FROM
AR_SYSTEM_PARAMETERS;
SELECT
ETB.ESTABLISHMENT_NAME
INTO L_LEGAL_ENTITY_NAME
FROM
XLE_ESTABLISHMENT_V ETB,
XLE_BSV_ASSOCIATIONS BSV,
GL_LEDGER_LE_V GL
WHERE ETB.LEGAL_ENTITY_ID = GL.LEGAL_ENTITY_ID
AND BSV.LEGAL_PARENT_ID = ETB.LEGAL_ENTITY_ID
AND ETB.ESTABLISHMENT_ID = BSV.LEGAL_CONSTRUCT_ID
AND BSV.ENTITY_NAME = L_ACCT_BALANCING_SEGMENT
AND GL.LEDGER_ID = L_LEDGER_ID;
SELECT
RTRIM(GLOBAL_ATTRIBUTE1),
FND_NUMBER.CANONICAL_TO_NUMBER(NVL(GLOBAL_ATTRIBUTE2
,'0')),
TO_NUMBER(NVL(GLOBAL_ATTRIBUTE3
,'0')),
RTRIM(GLOBAL_ATTRIBUTE4),
TO_NUMBER(NVL(GLOBAL_ATTRIBUTE5
,'0')),
RTRIM(GLOBAL_ATTRIBUTE6),
FND_NUMBER.CANONICAL_TO_NUMBER(NVL(GLOBAL_ATTRIBUTE7
,'0'))
INTO X_INTEREST_TYPE,X_INTEREST_RATE_AMOUNT,X_PERIOD_DAYS,X_INTEREST_FORMULA,X_GRACE_DAYS,X_PENALTY_TYPE,X_PENALTY_RATE_AMOUNT
FROM
RA_CUSTOMER_TRX CUST
WHERE CUST.CUSTOMER_TRX_ID = C_CUSTOMER_TRX_ID;
SELECT
RTRIM(LOC.CITY)
INTO X_CITY
FROM
HZ_CUST_ACCT_SITES AD,
HZ_LOCATIONS LOC,
HZ_PARTY_SITES PST,
RA_CUSTOMER_TRX CUST,
HZ_CUST_SITE_USES SUS,
AR_PAYMENT_SCHEDULES SCH
WHERE SCH.PAYMENT_SCHEDULE_ID = C_PAYMENT_SCHEDULE_ID
AND CUST.CUSTOMER_TRX_ID = SCH.CUSTOMER_TRX_ID
AND SUS.SITE_USE_ID = CUST.BILL_TO_SITE_USE_ID
AND AD.CUST_ACCT_SITE_ID = SUS.CUST_ACCT_SITE_ID
AND AD.PARTY_SITE_ID = PST.PARTY_SITE_ID
AND LOC.LOCATION_ID = PST.LOCATION_ID;
SELECT
MEANING
INTO X_BEARER_OF_TRADE_NOTE
FROM
FND_LOOKUPS
WHERE LOOKUP_TYPE = 'JLBR_AR_BEARER_OF_TRADE_NOTE'
AND LOOKUP_CODE = C_GLOBAL_ATTRIBUTE9;
FUNCTION C_DOCUMENT_STATUSFORMULA(SELECTED_FOR_RECEIPT_BATCH_ID IN NUMBER
,C_PAYMENT_SCHEDULE_ID IN NUMBER) RETURN VARCHAR2 IS
X_DOCUMENT_STATUS VARCHAR2(80);
IF SELECTED_FOR_RECEIPT_BATCH_ID IS NOT NULL THEN
BEGIN
SELECT
FLV.MEANING
INTO X_DOCUMENT_STATUS
FROM
FND_LOOKUPS FLV,
JL_BR_AR_COLLECTION_DOCS DOCS
WHERE DOCS.PAYMENT_SCHEDULE_ID = C_PAYMENT_SCHEDULE_ID
AND FLV.LOOKUP_CODE = DOCS.DOCUMENT_STATUS
AND FLV.LOOKUP_TYPE = 'JLBR_AR_COLLECTION_DOCS_STATUS'
AND NVL(DOCS.DOCUMENT_STATUS
,'-') not in ( 'CANCELED' , 'REFUSED' , 'PARTIALLY_RECEIVED' , 'WRITTEN_OFF' );
FUNCTION C_BORDERO_NUMBERFORMULA(SELECTED_FOR_RECEIPT_BATCH_ID IN NUMBER
,C_PAYMENT_SCHEDULE_ID IN NUMBER) RETURN NUMBER IS
X_BORDERO_NUMBER NUMBER;
IF SELECTED_FOR_RECEIPT_BATCH_ID IS NOT NULL THEN
BEGIN
SELECT
DOCS.BORDERO_ID
INTO X_BORDERO_NUMBER
FROM
JL_BR_AR_COLLECTION_DOCS DOCS
WHERE DOCS.PAYMENT_SCHEDULE_ID = C_PAYMENT_SCHEDULE_ID
AND NVL(DOCS.DOCUMENT_STATUS
,'-') not in ( 'CANCELED' , 'REFUSED' , 'PARTIALLY_RECEIVED' , 'WRITTEN_OFF' );
FUNCTION C_SELECTION_NUMBERFORMULA(SELECTED_FOR_RECEIPT_BATCH_ID IN NUMBER
,C_PAYMENT_SCHEDULE_ID IN NUMBER) RETURN NUMBER IS
X_SELECTION_NUMBER NUMBER;
X_SELECTION_NUMBER := NULL;
IF SELECTED_FOR_RECEIPT_BATCH_ID IS NOT NULL THEN
BEGIN
SELECT
BOR.SELECTION_CONTROL_ID
INTO X_SELECTION_NUMBER
FROM
JL_BR_AR_COLLECTION_DOCS DOCS,
JL_BR_AR_BORDEROS BOR
WHERE DOCS.PAYMENT_SCHEDULE_ID = C_PAYMENT_SCHEDULE_ID
AND BOR.BORDERO_ID = DOCS.BORDERO_ID
AND NVL(DOCS.DOCUMENT_STATUS
,'-') not in ( 'CANCELED' , 'REFUSED' , 'PARTIALLY_RECEIVED' , 'WRITTEN_OFF' )
AND BOR.BORDERO_STATUS not in ( 'CANCELED' , 'WRITE_OFF' , 'REFUSED' );
RETURN (X_SELECTION_NUMBER);
END C_SELECTION_NUMBERFORMULA;
SELECT
MEANING
INTO L_MEANING
FROM
AR_LOOKUPS
WHERE LOOKUP_CODE = C_STATUS
AND LOOKUP_TYPE = 'INVOICE_TRX_STATUS';
SELECT
MEANING
INTO L_MEANING
FROM
AR_LOOKUPS
WHERE LOOKUP_CODE = C_CLASS
AND LOOKUP_TYPE = 'INV/CM/ADJ';