APPS.PA_OBJ_STATUS_LISTS_PKG dependencies on PA_OBJ_STATUS_LISTS

Line 1: package body PA_OBJ_STATUS_LISTS_PKG as

1: package body PA_OBJ_STATUS_LISTS_PKG as
2: /* $Header: PAOBSLTB.pls 120.1 2005/08/19 16:36:53 mwasowic noship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
5: X_OBJ_STATUS_LIST_ID in NUMBER,

Line 16: cursor C is select ROWID from PA_OBJ_STATUS_LISTS

12: X_LAST_UPDATE_DATE in DATE,
13: X_LAST_UPDATED_BY in NUMBER,
14: X_LAST_UPDATE_LOGIN in NUMBER
15: ) is
16: cursor C is select ROWID from PA_OBJ_STATUS_LISTS
17: where OBJ_STATUS_LIST_ID = X_OBJ_STATUS_LIST_ID
18: ;
19: begin
20: insert into PA_OBJ_STATUS_LISTS (

Line 20: insert into PA_OBJ_STATUS_LISTS (

16: cursor C is select ROWID from PA_OBJ_STATUS_LISTS
17: where OBJ_STATUS_LIST_ID = X_OBJ_STATUS_LIST_ID
18: ;
19: begin
20: insert into PA_OBJ_STATUS_LISTS (
21: LAST_UPDATED_BY,
22: LAST_UPDATE_LOGIN,
23: CREATED_BY,
24: LAST_UPDATE_DATE,

Line 66: from PA_OBJ_STATUS_LISTS

62: OBJECT_ID,
63: STATUS_LIST_ID,
64: STATUS_TYPE,
65: OBJ_STATUS_LIST_ID
66: from PA_OBJ_STATUS_LISTS
67: where OBJ_STATUS_LIST_ID = X_OBJ_STATUS_LIST_ID
68: for update of OBJ_STATUS_LIST_ID nowait;
69: begin
70: for tlinfo in c1 loop

Line 102: update PA_OBJ_STATUS_LISTS set

98: X_LAST_UPDATED_BY in NUMBER,
99: X_LAST_UPDATE_LOGIN in NUMBER
100: ) is
101: begin
102: update PA_OBJ_STATUS_LISTS set
103: OBJECT_TYPE = X_OBJECT_TYPE,
104: OBJECT_ID = X_OBJECT_ID,
105: STATUS_LIST_ID = X_STATUS_LIST_ID,
106: STATUS_TYPE = X_STATUS_TYPE,

Line 121: delete from PA_OBJ_STATUS_LISTS

117: procedure DELETE_ROW (
118: X_OBJ_STATUS_LIST_ID in NUMBER
119: ) is
120: begin
121: delete from PA_OBJ_STATUS_LISTS
122: where OBJ_STATUS_LIST_ID = X_OBJ_STATUS_LIST_ID;
123:
124: if (sql%notfound) then
125: raise no_data_found;

Line 130: end PA_OBJ_STATUS_LISTS_PKG;

126: end if;
127:
128: end DELETE_ROW;
129:
130: end PA_OBJ_STATUS_LISTS_PKG;