1: package body CS_TP_TEMPLATE_QUESTIONS_PKG as
2: /* $Header: cstptqb.pls 115.5 2002/12/04 19:51:36 wzli noship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_TEMPLATE_ID in NUMBER,
30: X_LAST_UPDATE_DATE in DATE,
31: X_LAST_UPDATED_BY in NUMBER,
32: X_LAST_UPDATE_LOGIN in NUMBER
33: ) is
34: cursor C is select ROWID from CS_TP_TEMPLATE_QUESTIONS
35: where TEMPLATE_ID = X_TEMPLATE_ID
36: AND QUESTION_ID = X_QUESTION_ID
37: ;
38: begin
35: where TEMPLATE_ID = X_TEMPLATE_ID
36: AND QUESTION_ID = X_QUESTION_ID
37: ;
38: begin
39: insert into CS_TP_TEMPLATE_QUESTIONS (
40: TEMPLATE_ID,
41: QUESTION_ID,
42: SEQUENCE_NUMBER,
43: ATTRIBUTE_CATEGORY,
150: ATTRIBUTE15
151: -- NOTE_TYPE,
152: -- SHOW_ON_CREATION_FLAG
153:
154: from CS_TP_TEMPLATE_QUESTIONS
155: where TEMPLATE_ID = X_TEMPLATE_ID
156: AND QUESTION_ID = X_QUESTION_ID
157: for update of TEMPLATE_ID, QUESTION_ID nowait;
158: recinfo c%rowtype;
242: X_LAST_UPDATED_BY in NUMBER,
243: X_LAST_UPDATE_LOGIN in NUMBER
244: ) is
245: begin
246: update CS_TP_TEMPLATE_QUESTIONS set
247: SEQUENCE_NUMBER = X_SEQUENCE_NUMBER,
248: ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
249: ATTRIBUTE1 = X_ATTRIBUTE1,
250: ATTRIBUTE2 = X_ATTRIBUTE2,
281: X_TEMPLATE_ID in NUMBER,
282: X_QUESTION_ID in NUMBER
283: ) is
284: begin
285: delete from CS_TP_TEMPLATE_QUESTIONS
286: where TEMPLATE_ID = X_TEMPLATE_ID
287: AND QUESTION_ID = X_QUESTION_ID;
288:
289: if (sql%notfound) then
290: raise no_data_found;
291: end if;
292: end DELETE_ROW;
293:
294: end CS_TP_TEMPLATE_QUESTIONS_PKG;