The following lines contain the word 'select', 'insert', 'update' or 'delete':
fnd_msg_pub.delete_MSG(p_msg_index => 1);
l_stmt := ' SELECT APPLICATION_ID
,LEDGER_ID
,PERIOD_NAME
,LAST_UPDATE_DATE
,LAST_UPDATED_BY
,CLOSING_STATUS
,START_DATE
,END_DATE
,PERIOD_TYPE
,PERIOD_YEAR
,PERIOD_NUM
,QUARTER_NUM
,ADJUSTMENT_PERIOD_FLAG
,CREATION_DATE
,CREATED_BY
,LAST_UPDATE_LOGIN
,ATTRIBUTE1
,ATTRIBUTE2
,ATTRIBUTE3
,ATTRIBUTE4
,ATTRIBUTE5
,CONTEXT
,YEAR_START_DATE
,QUARTER_START_DATE
,EFFECTIVE_PERIOD_NUM
,ELIMINATION_CONFIRMED_FLAG
FROM GL_PERIOD_STATUSES
WHERE Application_id = ' || ':1' ||
' AND ledger_id = ' || ':2' ;
l_period_rec.LAST_UPDATE_DATE := l_perd_rec.LAST_UPDATE_DATE ;
l_period_rec.LAST_UPDATED_BY := l_perd_rec.LAST_UPDATED_BY;
l_period_rec.LAST_UPDATE_LOGIN := l_perd_rec.LAST_UPDATE_LOGIN;
PROCEDURE UPDATE_PERIOD_STATUS(p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_period_tbl IN PERIOD_TBL_TYPE)
IS
l_api_name CONSTANT VARCHAR2(40) := 'UPDATE_PERIOD_STATUS';
SELECT closing_status
FROM gl_period_statuses
WHERE application_id = 540
AND ledger_id = p_ledger_id
AND period_name = p_period_name;
UPDATE_PERD_ROW(p_api_version => 1.0,
p_init_msg_list => p_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_period_rec => p_period_tbl(i));
END UPDATE_PERIOD_STATUS;
PROCEDURE UPDATE_PERD_ROW (p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_period_rec IN PERIOD_REC_TYPE)
IS
l_api_name CONSTANT VARCHAR2(40) := 'UPDATE_PERD_ROW';
SELECT closing_status
FROM GL_PERIOD_STATUSES
WHERE application_id = 540
AND ledger_id = p_ledger_id
AND period_name = v_period_name
FOR UPDATE;
SELECT '1'
FROM okl_trns_acc_dstrs
WHERE gl_date BETWEEN p_start_date AND p_end_date
AND post_to_gl ='Y'
AND posted_yn = 'N'
AND org_id IN
(SELECT org_id
FROM OKL_SYS_ACCT_OPTS
WHERE set_of_books_id =p_ledger_id);
SELECT 1
FROM xla_events xle, xla_transaction_entities xte
WHERE xle.event_date BETWEEN p_start_date AND p_end_date
AND xle.entity_id = xte.entity_id
AND xle.event_status_code IN ('I','U')
AND xte.ledger_id = p_ledger_id
AND xle.application_id = 540
AND rownum = 1;
SELECT 1
FROM xla_ae_headers
WHERE application_id = 540
AND gl_transfer_status_code = 'N'
AND ledger_id = p_ledger_id
AND PERIOD_NAME = p_period_rec.period_name;
SELECT period_name
FROM gl_period_statuses
WHERE application_id = 101
AND ledger_id = p_ledger_id
AND start_date <= p_start_date
AND closing_status IN ('O', 'F');
SELECT closing_status
FROM gl_period_statuses
WHERE application_id = 101
AND ledger_id = p_ledger_id
AND period_name = p_period_name;
SELECT period_name
FROM gl_period_statuses
WHERE application_id = 540
AND ledger_id = p_ledger_id
AND closing_status IN ('F','O')
AND start_date < p_start_date;
UPDATE GL_PERIOD_STATUSES
SET CLOSING_STATUS = p_period_rec.closing_status,
LAST_UPDATE_DATE = SYSDATE,
LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID
WHERE APPLICATION_ID = 540
AND LEDGER_ID = p_period_rec.set_of_books_id
AND PERIOD_NAME = p_period_rec.period_name;
END UPDATE_PERD_ROW;