[Home] [Help]
1: package body PA_STATUS_LISTS_PKG as
2: /* $Header: PACISLTB.pls 120.0 2005/05/30 17:22:42 appldev noship $ */
3: procedure INSERT_ROW (
4: X_RECORD_VERSION_NUMBER in NUMBER,
5: X_STATUS_LIST_ID in NUMBER,
13: X_LAST_UPDATE_DATE in DATE,
14: X_LAST_UPDATED_BY in NUMBER,
15: X_LAST_UPDATE_LOGIN in NUMBER
16: ) is
17: cursor C is select ROWID from PA_STATUS_LISTS
18: where STATUS_LIST_ID = X_STATUS_LIST_ID
19: ;
20: l_rowid rowid;
21: begin
18: where STATUS_LIST_ID = X_STATUS_LIST_ID
19: ;
20: l_rowid rowid;
21: begin
22: insert into PA_STATUS_LISTS (
23: LAST_UPDATE_DATE,
24: LAST_UPDATED_BY,
25: LAST_UPDATE_LOGIN,
26: CREATED_BY,
63: Resource_Busy EXCEPTION;
64: Invalid_Rec_Change EXCEPTION;
65: PRAGMA exception_init(Resource_Busy,-00054);
66: l_rec_ver_no NUMBER;
67: g_module_name VARCHAR2(100) := 'pa.plsql.PA_STATUS_LISTS';
68: l_debug_mode VARCHAR2(1);
69:
70: l_debug_level2 CONSTANT NUMBER := 2;
71: l_debug_level3 CONSTANT NUMBER := 3;
102: l_debug_level3);
103: pa_debug.reset_curr_function;
104: END IF;
105: select record_version_number into l_rec_ver_no
106: from pa_status_lists
107: where status_list_id = X_STATUS_LIST_ID
108: for update nowait;
109: if(X_RECORD_VERSION_NUMBER <> l_rec_ver_no) then
110: raise Invalid_Rec_Change;
145: X_LAST_UPDATED_BY in NUMBER,
146: X_LAST_UPDATE_LOGIN in NUMBER
147: ) is
148: begin
149: update PA_STATUS_LISTS set
150: STATUS_TYPE = X_STATUS_TYPE,
151: NAME = X_NAME,
152: RECORD_VERSION_NUMBER = X_RECORD_VERSION_NUMBER+1,
153: START_DATE_ACTIVE = X_START_DATE_ACTIVE,
168: X_STATUS_LIST_ID in NUMBER,
169: X_RECORD_VERSION_NUMBER in NUMBER
170: ) is
171: begin
172: delete from PA_STATUS_LISTS
173: where STATUS_LIST_ID = X_STATUS_LIST_ID;
174:
175: if (sql%notfound) then
176: raise no_data_found;
178:
179: end DELETE_ROW;
180:
181:
182: end PA_STATUS_LISTS_PKG;