APPS.PSP_ER_APPROVALS_PKG dependencies on PSP_ER_APPROVALS

Line 1: package body PSP_ER_APPROVALS_PKG as

1: package body PSP_ER_APPROVALS_PKG as
2: /* $Header: PSPERAPB.pls 115.4 2002/11/18 12:24:42 lveerubh ship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_EFFORT_REPORT_ID in NUMBER,

Line 11: cursor C is select ROWID from PSP_ER_APPROVALS

7: X_APPROVING_PERSON_ID in NUMBER,
8: X_APPROVED_DATE in DATE,
9: X_MODE in VARCHAR2 default 'R'
10: ) is
11: cursor C is select ROWID from PSP_ER_APPROVALS
12: where EFFORT_REPORT_ID = X_EFFORT_REPORT_ID
13: and VERSION_NUM = X_VERSION_NUM
14: and APPROVING_PERSON_ID = X_APPROVING_PERSON_ID;
15: X_LAST_UPDATE_DATE DATE;

Line 36: insert into PSP_ER_APPROVALS (

32: else
33: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
34: app_exception.raise_exception;
35: end if;
36: insert into PSP_ER_APPROVALS (
37: EFFORT_REPORT_ID,
38: VERSION_NUM,
39: APPROVING_PERSON_ID,
40: APPROVED_DATE,

Line 77: from PSP_ER_APPROVALS

73: X_APPROVED_DATE in DATE
74: ) is
75: cursor c1 is select
76: APPROVED_DATE
77: from PSP_ER_APPROVALS
78: where EFFORT_REPORT_ID = X_EFFORT_REPORT_ID
79: and VERSION_NUM = X_VERSION_NUM
80: and APPROVING_PERSON_ID = X_APPROVING_PERSON_ID
81: for update of EFFORT_REPORT_ID nowait;

Line 133: update PSP_ER_APPROVALS set

129: else
130: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
131: app_exception.raise_exception;
132: end if;
133: update PSP_ER_APPROVALS set
134: APPROVED_DATE = X_APPROVED_DATE,
135: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
136: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
137: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN

Line 155: cursor c1 is select rowid from PSP_ER_APPROVALS

151: X_APPROVING_PERSON_ID in NUMBER,
152: X_APPROVED_DATE in DATE,
153: X_MODE in VARCHAR2 default 'R'
154: ) is
155: cursor c1 is select rowid from PSP_ER_APPROVALS
156: where EFFORT_REPORT_ID = X_EFFORT_REPORT_ID
157: and VERSION_NUM = X_VERSION_NUM
158: and APPROVING_PERSON_ID = X_APPROVING_PERSON_ID
159: ;

Line 190: delete from PSP_ER_APPROVALS

186: X_VERSION_NUM in NUMBER,
187: X_APPROVING_PERSON_ID in NUMBER
188: ) is
189: begin
190: delete from PSP_ER_APPROVALS
191: where EFFORT_REPORT_ID = X_EFFORT_REPORT_ID
192: and VERSION_NUM = X_VERSION_NUM
193: and APPROVING_PERSON_ID = X_APPROVING_PERSON_ID;
194: ---if (sql%notfound) then

Line 200: end PSP_ER_APPROVALS_PKG;

196: --- end if;
197: commit;
198: end DELETE_ROW;
199:
200: end PSP_ER_APPROVALS_PKG;