The following lines contain the word 'select', 'insert', 'update' or 'delete':
06-23-95 A. Erickson cn_periods.period_name column name update
MAR-02-99 H. Chen code changes for MLS
Name : CN_LEDGER_JOURNAL_ENTRIES_API
Purpose : Holds functions for accessing and procedures for setting
properties of journal entries.
Notes :
*/
--+
-- Procedure name
-- New_JE
-- Purpose
-- An API function which returns the journal entry ID of a newly created
-- entry.
--+
FUNCTION New_JE (X_batch_id NUMBER,
X_salesrep_id NUMBER,
X_period_id NUMBER,
X_account NUMBER,
X_credit NUMBER,
X_debit NUMBER,
X_date DATE) return NUMBER IS
JE_Return NUMBER;
INSERT INTO cn_ledger_journal_entries
(batch_id, srp_period_id, balance_id, credit, debit, je_date,
ledger_je_id, reason)
(SELECT X_batch_id, srp_per.srp_period_id, X_account,
X_credit, X_debit, X_date,
cn_ledger_journal_entries_s.nextval,
batch.reason
FROM cn_srp_periods srp_per,
cn_ledger_je_batches batch
WHERE salesrep_id = X_salesrep_id
AND period_id = X_period_id
AND batch.batch_id = X_batch_id);
SELECT cn_ledger_journal_entries_s.currval INTO JE_Return FROM dual;
INSERT INTO cn_ledger_journal_entries
(batch_id,
srp_period_id,
balance_id,
credit,
debit,
je_date,
ledger_je_id,
reason)
(SELECT X_batch_id,
srp_per.srp_period_id,
X_account,
X_credit,
X_debit,
X_date,
cn_ledger_journal_entries_s.nextval,
batch.reason
FROM cn_srp_periods srp_per,
cn_ledger_je_batches batch
WHERE salesrep_id = X_salesrep_id
AND period_id = x_period_id
AND credit_type_id = x_credit_type_id
AND role_id = x_role_id
AND batch.batch_id = X_batch_id);
SELECT cn_ledger_journal_entries_s.CURRVAL INTO JE_Return FROM dual;
INSERT INTO cn_ledger_journal_entries
(batch_id, srp_period_id, balance_id, credit, debit, je_date,
ledger_je_id, reason)
(SELECT X_batch_id, srp_per.srp_period_id, X_account,
X_credit, X_debit, X_date,
cn_ledger_journal_entries_s.nextval, X_reason
FROM cn_srp_periods srp_per
WHERE salesrep_id = X_salesrep_id
AND period_id = X_period_id);
SELECT cn_ledger_journal_entries_s.currval INTO JE_Return FROM dual;
SELECT who, reason, decode(status, 'POSTED', 'Y', 'N')
INTO X_who_name, X_reason, X_posted
FROM cn_ledger_je_batches
WHERE batch_id = X_batch_id;
SELECT rep.name, rep.salesrep_id
INTO X_salesrep_name, X_salesrep_id
FROM cn_salesreps rep,
cn_srp_periods per
WHERE per.srp_period_id = X_srp_period_id
AND rep.salesrep_id = per.salesrep_id;
SELECT per.period_name, per.period_ID
INTO X_period_name, X_period_id
FROM cn_periods per,
cn_srp_periods srp
WHERE srp.period_id = per.period_id
AND srp.srp_period_id = X_srp_period_id;
SELECT balance_name INTO X_account_name
FROM cn_ledger_bal_types
WHERE balance_id = X_balance_id;