APPS.PSP_ENC_ELEMENTS_PKG dependencies on PSP_ENC_ELEMENTS

Line 1: PACKAGE BODY PSP_ENC_ELEMENTS_PKG as

1: PACKAGE BODY PSP_ENC_ELEMENTS_PKG as
2: /* $Header: PSPENELB.pls 120.1 2006/02/20 05:06:08 spchakra noship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_ENC_ELEMENT_ID in NUMBER,

Line 14: cursor C is select ROWID from PSP_ENC_ELEMENTS

10: X_ELEMENT_TYPE_CATEGORY in VARCHAR2,
11: X_ELEMENT_TYPE_ID in NUMBER,
12: X_MODE in VARCHAR2 default 'R'
13: ) is
14: cursor C is select ROWID from PSP_ENC_ELEMENTS
15: where ENC_ELEMENT_ID = X_ENC_ELEMENT_ID;
16: X_LAST_UPDATE_DATE DATE;
17: X_LAST_UPDATED_BY NUMBER;
18: X_LAST_UPDATE_LOGIN NUMBER;

Line 37: insert into PSP_ENC_ELEMENTS (

33: else
34: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
35: app_exception.raise_exception;
36: end if;
37: insert into PSP_ENC_ELEMENTS (
38: ENC_ELEMENT_ID,
39: INPUT_VALUE_ID, -- Added for Additional Earinings Element Enh
40: FORMULA_ID, -- Added for Encumbrance Rearchitecture
41: BUSINESS_GROUP_ID,

Line 91: from PSP_ENC_ELEMENTS

87: ELEMENT_TYPE_CATEGORY,
88: ELEMENT_TYPE_ID,
89: INPUT_VALUE_ID,
90: FORMULA_ID
91: from PSP_ENC_ELEMENTS
92: where ENC_ELEMENT_ID = X_ENC_ELEMENT_ID
93: -- AND ( (x_input_value_id IS NOT NULL AND input_value_id = x_input_value_id)
94: -- OR (x_formula_id IS NOT NULL AND formula_id = x_formula_id))
95: for update of ENC_ELEMENT_ID, INPUT_VALUE_ID, FORMULA_ID nowait; -- Included for Enh. Encumbering addl. earnings elements

Line 155: update PSP_ENC_ELEMENTS set

151: else
152: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
153: app_exception.raise_exception;
154: end if;
155: update PSP_ENC_ELEMENTS set
156: BUSINESS_GROUP_ID = X_BUSINESS_GROUP_ID,
157: SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID,
158: INPUT_VALUE_ID = X_INPUT_VALUE_ID, -- Added for Additional Earinings Element Enh
159: FORMULA_ID = X_FORMULA_ID, -- Added for Additional Earinings Element Enh

Line 183: cursor c1 is select rowid from PSP_ENC_ELEMENTS

179: X_ELEMENT_TYPE_CATEGORY in VARCHAR2,
180: X_ELEMENT_TYPE_ID in NUMBER,
181: X_MODE in VARCHAR2 default 'R'
182: ) is
183: cursor c1 is select rowid from PSP_ENC_ELEMENTS
184: where ENC_ELEMENT_ID = X_ENC_ELEMENT_ID
185: ;
186: dummy c1%rowtype;
187: begin

Line 220: delete from PSP_ENC_ELEMENTS

216: procedure DELETE_ROW (
217: X_ENC_ELEMENT_ID in NUMBER
218: ) is
219: begin
220: delete from PSP_ENC_ELEMENTS
221: where ENC_ELEMENT_ID = X_ENC_ELEMENT_ID;
222: if (sql%notfound) then
223: raise no_data_found;
224: end if;

Line 227: end PSP_ENC_ELEMENTS_PKG;

223: raise no_data_found;
224: end if;
225: end DELETE_ROW;
226:
227: end PSP_ENC_ELEMENTS_PKG;