1: package body CN_ATTAIN_SCHEDULES_PKG as
2: /* $Header: cntatshb.pls 115.4 2002/11/21 21:09:03 hlchen ship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out nocopy VARCHAR2,
5: X_ATTAIN_SCHEDULE_ID in NUMBER,
26: X_LAST_UPDATE_DATE in DATE,
27: X_LAST_UPDATED_BY in NUMBER,
28: X_LAST_UPDATE_LOGIN in NUMBER
29: ) is
30: cursor C is select ROWID from CN_ATTAIN_SCHEDULES
31: where ATTAIN_SCHEDULE_ID = X_ATTAIN_SCHEDULE_ID
32: ;
33: begin
34: insert into CN_ATTAIN_SCHEDULES (
30: cursor C is select ROWID from CN_ATTAIN_SCHEDULES
31: where ATTAIN_SCHEDULE_ID = X_ATTAIN_SCHEDULE_ID
32: ;
33: begin
34: insert into CN_ATTAIN_SCHEDULES (
35: ATTAIN_SCHEDULE_ID,
36: NAME,
37: ATTRIBUTE_CATEGORY,
38: ATTRIBUTE1,
133: ATTRIBUTE13,
134: ATTRIBUTE14,
135: ATTRIBUTE15,
136: OBJECT_VERSION_NUMBER
137: from CN_ATTAIN_SCHEDULES
138: where ATTAIN_SCHEDULE_ID = X_ATTAIN_SCHEDULE_ID
139: for update of ATTAIN_SCHEDULE_ID nowait;
140: begin
141: for tlinfo in c1 loop
207: X_LAST_UPDATED_BY in NUMBER,
208: X_LAST_UPDATE_LOGIN in NUMBER
209: ) is
210: begin
211: update CN_ATTAIN_SCHEDULES set
212: NAME = TRIM(X_NAME),
213: ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
214: ATTRIBUTE1 = X_ATTRIBUTE1,
215: ATTRIBUTE2 = X_ATTRIBUTE2,
241: procedure DELETE_ROW (
242: X_ATTAIN_SCHEDULE_ID in NUMBER
243: ) is
244: begin
245: delete from CN_ATTAIN_SCHEDULES
246: where ATTAIN_SCHEDULE_ID = X_ATTAIN_SCHEDULE_ID;
247:
248: if (sql%notfound) then
249: raise no_data_found;
250: end if;
251:
252: end DELETE_ROW;
253:
254: end CN_ATTAIN_SCHEDULES_PKG;