APPS.PA_EXPENDITURES_PKG dependencies on PA_EXPENDITURES

Line 1: package body pa_expenditures_pkg as

1: package body pa_expenditures_pkg as
2: /* $Header: PAXTEXPB.pls 120.2 2005/08/09 04:53:34 avajain noship $ */
3:
4: procedure insert_row (x_rowid in out NOCOPY VARCHAR2,
5: x_expenditure_id in out NOCOPY NUMBER,

Line 39: -- PA_EXPENDITURES_ALL table's new columns

35: x_acct_rate_date in DATE,
36: x_acct_exchange_rate in NUMBER,
37: -- Trx_import enhancement:
38: -- These new parameters are needed to populate
39: -- PA_EXPENDITURES_ALL table's new columns
40: x_orig_exp_txn_reference1 in VARCHAR2,
41: x_orig_exp_txn_reference2 in VARCHAR2,
42: x_orig_exp_txn_reference3 in VARCHAR2,
43: x_orig_user_exp_txn_reference in VARCHAR2,

Line 49: cursor return_rowid is select rowid from pa_expenditures

45: x_person_type in VARCHAR2,
46: P_Org_ID IN NUMBER) -- 12i MOAC changes
47: is
48:
49: cursor return_rowid is select rowid from pa_expenditures
50: where expenditure_id = x_expenditure_id;
51: cursor get_exp_id is select pa_expenditures_s.nextval from dual;
52:
53: BEGIN

Line 51: cursor get_exp_id is select pa_expenditures_s.nextval from dual;

47: is
48:
49: cursor return_rowid is select rowid from pa_expenditures
50: where expenditure_id = x_expenditure_id;
51: cursor get_exp_id is select pa_expenditures_s.nextval from dual;
52:
53: BEGIN
54:
55: if (x_expenditure_id is null) then

Line 60: insert into pa_expenditures (

56: open get_exp_id;
57: fetch get_exp_id into x_expenditure_id;
58: end if;
59:
60: insert into pa_expenditures (
61: expenditure_id,
62: last_update_date,
63: last_updated_by,
64: creation_date,

Line 182: -- PA_EXPENDITURES_ALL table's new columns

178: x_acct_rate_date in DATE,
179: x_acct_exchange_rate in NUMBER,
180: -- Trx_import enhancement:
181: -- These new parameters are needed to populate
182: -- PA_EXPENDITURES_ALL table's new columns
183: x_orig_exp_txn_reference1 in VARCHAR2,
184: x_orig_exp_txn_reference2 in VARCHAR2,
185: x_orig_exp_txn_reference3 in VARCHAR2,
186: x_orig_user_exp_txn_reference in VARCHAR2,

Line 191: update pa_expenditures

187: x_vendor_id in NUMBER,
188: x_person_type in VARCHAR2 ) is
189: BEGIN
190:
191: update pa_expenditures
192: set expenditure_id = x_expenditure_id,
193: last_update_date = x_last_update_date,
194: last_updated_by = x_last_updated_by,
195: expenditure_status_code = x_expenditure_status_code,

Line 256: delete from pa_expenditures

252: pa_expenditure_items_pkg.delete_row (items_rec.expenditure_item_id);
253: end if;
254: END LOOP;
255:
256: delete from pa_expenditures
257: where expenditure_id = x_expenditure_id;
258: EXCEPTION
259: when APP_EXCEPTION.RECORD_LOCK_EXCEPTION then
260: fnd_message.set_name ('FND', 'FORM_UNABLE_TO_RESERVE_RECORD');

Line 266: cursor get_exp_id is select expenditure_id from pa_expenditures

262: END delete_row;
263:
264:
265: procedure delete_row (x_rowid in VARCHAR2) is
266: cursor get_exp_id is select expenditure_id from pa_expenditures
267: where rowid = x_rowid;
268: exp_rec get_exp_id%rowtype;
269: BEGIN
270: open get_exp_id;

Line 283: END pa_expenditures_pkg;

279: BEGIN
280: null;
281: END lock_row;
282:
283: END pa_expenditures_pkg;