1: package body CS_TP_TEMPLATE_ATTRIBUTE_PKG as
2: /* $Header: cstptatb.pls 115.7 2002/12/04 18:45:56 wzli noship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_TEMPLATE_ATTRIBUTE_ID in NUMBER,
29: X_LAST_UPDATE_DATE in DATE,
30: X_LAST_UPDATED_BY in NUMBER,
31: X_LAST_UPDATE_LOGIN in NUMBER
32: ) is
33: cursor C is select ROWID from CS_TP_TEMPLATE_ATTRIBUTE
34: where TEMPLATE_ATTRIBUTE_ID = X_TEMPLATE_ATTRIBUTE_ID
35: ;
36: begin
37: insert into CS_TP_TEMPLATE_ATTRIBUTE (
33: cursor C is select ROWID from CS_TP_TEMPLATE_ATTRIBUTE
34: where TEMPLATE_ATTRIBUTE_ID = X_TEMPLATE_ATTRIBUTE_ID
35: ;
36: begin
37: insert into CS_TP_TEMPLATE_ATTRIBUTE (
38: TEMPLATE_ATTRIBUTE_ID,
39: TEMPLATE_ID,
40: OTHER_ID,
41: OBJECT_CODE,
148: ATTRIBUTE12,
149: ATTRIBUTE13,
150: ATTRIBUTE14,
151: ATTRIBUTE15
152: from CS_TP_TEMPLATE_ATTRIBUTE
153: where TEMPLATE_ATTRIBUTE_ID = X_TEMPLATE_ATTRIBUTE_ID
154: for update of TEMPLATE_ATTRIBUTE_ID nowait;
155: recinfo c%rowtype;
156: begin
239: X_LAST_UPDATED_BY in NUMBER,
240: X_LAST_UPDATE_LOGIN in NUMBER
241: ) is
242: begin
243: update CS_TP_TEMPLATE_ATTRIBUTE set
244: TEMPLATE_ID = X_TEMPLATE_ID,
245: OTHER_ID = X_OTHER_ID,
246: OBJECT_CODE = X_OBJECT_CODE,
247: START_THRESHOLD = X_START_THRESHOLD,
275: procedure DELETE_ROW (
276: X_TEMPLATE_ATTRIBUTE_ID in NUMBER
277: ) is
278: begin
279: delete from CS_TP_TEMPLATE_ATTRIBUTE
280: where TEMPLATE_ATTRIBUTE_ID = X_TEMPLATE_ATTRIBUTE_ID;
281:
282: if (sql%notfound) then
283: raise no_data_found;
283: raise no_data_found;
284: end if;
285: end DELETE_ROW;
286:
287: end CS_TP_TEMPLATE_ATTRIBUTE_PKG;