APPS.PA_CAPITAL_EVENTS_PKG dependencies on PA_CAPITAL_EVENTS

Line 1: PACKAGE BODY PA_CAPITAL_EVENTS_PKG as

1: PACKAGE BODY PA_CAPITAL_EVENTS_PKG as
2: /* $Header: PAXEVNTB.pls 120.2 2005/08/26 13:08:01 skannoji noship $ */
3:
4: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5: X_Capital_Event_Id IN OUT NOCOPY NUMBER,

Line 25: FROM pa_capital_events

21: ) IS
22:
23: CURSOR C IS
24: SELECT rowid
25: FROM pa_capital_events
26: WHERE capital_event_id = X_Capital_Event_Id;
27:
28: CURSOR C2 IS
29: SELECT pa_capital_events_s.nextval

Line 29: SELECT pa_capital_events_s.nextval

25: FROM pa_capital_events
26: WHERE capital_event_id = X_Capital_Event_Id;
27:
28: CURSOR C2 IS
29: SELECT pa_capital_events_s.nextval
30: FROM sys.dual;
31:
32: BEGIN
33: IF (X_Capital_Event_Id IS NULL) THEN

Line 39: INSERT INTO pa_capital_events(

35: FETCH C2 INTO X_Capital_Event_Id;
36: CLOSE C2;
37: END IF;
38:
39: INSERT INTO pa_capital_events(
40: capital_event_id,
41: project_id,
42: capital_event_number,
43: event_type,

Line 86: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CAPITAL_EVENTS_PKG',

82:
83: EXCEPTION
84: WHEN OTHERS THEN
85: ROLLBACK;
86: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CAPITAL_EVENTS_PKG',
87: p_procedure_name => 'INSERT_ROW',
88: p_error_text => SUBSTRB(SQLERRM,1,240));
89: RAISE;
90:

Line 106: FROM pa_capital_events

102: ) IS
103:
104: CURSOR C IS
105: SELECT *
106: FROM pa_capital_events
107: WHERE pa_capital_events.rowid = X_Rowid
108: FOR UPDATE of Capital_Event_Id NOWAIT;
109:
110: Recinfo C%ROWTYPE;

Line 107: WHERE pa_capital_events.rowid = X_Rowid

103:
104: CURSOR C IS
105: SELECT *
106: FROM pa_capital_events
107: WHERE pa_capital_events.rowid = X_Rowid
108: FOR UPDATE of Capital_Event_Id NOWAIT;
109:
110: Recinfo C%ROWTYPE;
111:

Line 160: UPDATE pa_capital_events

156: X_Program_Update_Date DATE
157: ) IS
158:
159: BEGIN
160: UPDATE pa_capital_events
161: SET
162: capital_event_id = X_Capital_Event_Id,
163: project_id = X_Project_Id,
164: capital_event_number = X_Capital_Event_Number,

Line 188: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CAPITAL_EVENTS_PKG',

184: WHEN NO_DATA_FOUND THEN
185: RAISE;
186: WHEN OTHERS THEN
187: ROLLBACK;
188: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CAPITAL_EVENTS_PKG',
189: p_procedure_name => 'UPDATE_ROW',
190: p_error_text => SUBSTRB(SQLERRM,1,240));
191: RAISE;
192: END Update_Row;

Line 199: DELETE FROM pa_capital_events

195: PROCEDURE Delete_Row(X_Rowid VARCHAR2,
196: X_Capital_Event_Id NUMBER) IS
197: BEGIN
198:
199: DELETE FROM pa_capital_events
200: WHERE rowid = X_Rowid;
201:
202: IF (SQL%NOTFOUND) THEN
203: RAISE NO_DATA_FOUND;

Line 208: END PA_CAPITAL_EVENTS_PKG;

204: END IF;
205: END Delete_Row;
206:
207:
208: END PA_CAPITAL_EVENTS_PKG;