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,
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 (
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,
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
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,
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;
126: end if;
127:
128: end DELETE_ROW;
129:
130: end PA_OBJ_STATUS_LISTS_PKG;