1: package body CS_TP_TEMPLATE_LINKS_PKG as
2: /* $Header: cstptlkb.pls 115.5 2002/12/04 19:11:16 wzli noship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_LINK_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_LINKS
34: where LINK_ID = X_LINK_ID
35: ;
36: begin
37: insert into CS_TP_TEMPLATE_LINKS (
33: cursor C is select ROWID from CS_TP_TEMPLATE_LINKS
34: where LINK_ID = X_LINK_ID
35: ;
36: begin
37: insert into CS_TP_TEMPLATE_LINKS (
38: LINK_ID,
39: TEMPLATE_ID,
40: OTHER_ID,
41: LOOKUP_CODE,
143: ATTRIBUTE12,
144: ATTRIBUTE13,
145: ATTRIBUTE14,
146: ATTRIBUTE15
147: from CS_TP_TEMPLATE_LINKS
148: where LINK_ID = X_LINK_ID
149: for update of LINK_ID nowait;
150: recinfo c%rowtype;
151: begin
229: X_LAST_UPDATED_BY in NUMBER,
230: X_LAST_UPDATE_LOGIN in NUMBER
231: ) is
232: begin
233: update CS_TP_TEMPLATE_LINKS set
234: TEMPLATE_ID = X_TEMPLATE_ID,
235: OTHER_ID = X_OTHER_ID,
236: LOOKUP_CODE = X_LOOKUP_CODE,
237: LOOKUP_TYPE = X_LOOKUP_TYPE,
265: procedure DELETE_ROW (
266: X_LINK_ID in NUMBER
267: ) is
268: begin
269: delete from CS_TP_TEMPLATE_LINKS
270: where LINK_ID = X_LINK_ID;
271:
272: if (sql%notfound) then
273: raise no_data_found;
273: raise no_data_found;
274: end if;
275: end DELETE_ROW;
276:
277: end CS_TP_TEMPLATE_LINKS_PKG;