[Home] [Help]
1: package body IGR_I_A_CHARTYP_PKG as
2: /* $Header: IGSRH14B.pls 120.0 2005/06/01 20:48:18 appldev noship $ */
3:
4:
5: l_rowid VARCHAR2(25);
2: /* $Header: IGSRH14B.pls 120.0 2005/06/01 20:48:18 appldev noship $ */
3:
4:
5: l_rowid VARCHAR2(25);
6: old_references IGR_I_A_CHARTYP%RowType;
7: new_references IGR_I_A_CHARTYP%RowType;
8:
9: PROCEDURE Set_Column_Values (
10: p_action IN VARCHAR2,
3:
4:
5: l_rowid VARCHAR2(25);
6: old_references IGR_I_A_CHARTYP%RowType;
7: new_references IGR_I_A_CHARTYP%RowType;
8:
9: PROCEDURE Set_Column_Values (
10: p_action IN VARCHAR2,
11: x_rowid IN VARCHAR2 DEFAULT NULL,
20: ) as
21:
22: CURSOR cur_old_ref_values IS
23: SELECT *
24: FROM IGR_I_A_CHARTYP
25: WHERE rowid = x_rowid;
26:
27: BEGIN
28:
60:
61: -- Trigger description :-
62: -- "OSS_TST".trg_eapect_br_iu
63: -- BEFORE INSERT OR UPDATE
64: -- ON IGR_I_A_CHARTYP
65: -- FOR EACH ROW
66:
67: PROCEDURE BeforeRowInsertUpdate1(
68: p_inserting IN BOOLEAN DEFAULT FALSE,
170: x_enquiry_characteristic_type IN VARCHAR2
171: ) RETURN BOOLEAN AS
172: CURSOR cur_rowid IS
173: SELECT rowid
174: FROM IGR_I_A_CHARTYP
175: WHERE person_id = x_person_id
176: AND enquiry_appl_number = x_enquiry_appl_number
177: AND ENQUIRY_CHARACTERISTIC_TYPE = x_enquiry_characteristic_type
178: FOR UPDATE NOWAIT;
200: ) as
201:
202: CURSOR cur_rowid IS
203: SELECT rowid
204: FROM IGR_I_A_CHARTYP
205: WHERE person_id = x_person_id
206: AND enquiry_appl_number = x_enquiry_appl_number ;
207:
208: lv_rowid cur_rowid%RowType;
227: ) as
228:
229: CURSOR cur_rowid IS
230: SELECT rowid
231: FROM IGR_I_A_CHARTYP
232: WHERE ENQUIRY_CHARACTERISTIC_TYPE = x_enquiry_characteristic_type ;
233:
234: lv_rowid cur_rowid%RowType;
235:
326: X_ENQUIRY_APPL_NUMBER in NUMBER,
327: X_ENQUIRY_CHARACTERISTIC_TYPE in VARCHAR2,
328: X_MODE in VARCHAR2 default 'R'
329: ) as
330: cursor C is select ROWID from IGR_I_A_CHARTYP
331: where PERSON_ID = X_PERSON_ID
332: and ENQUIRY_APPL_NUMBER = X_ENQUIRY_APPL_NUMBER
333: and ENQUIRY_CHARACTERISTIC_TYPE = X_ENQUIRY_CHARACTERISTIC_TYPE;
334: X_LAST_UPDATE_DATE DATE;
364: x_last_update_date=>X_LAST_UPDATE_DATE,
365: x_last_updated_by=>X_LAST_UPDATED_BY,
366: x_last_update_login=>X_LAST_UPDATE_LOGIN
367: );
368: insert into IGR_I_A_CHARTYP (
369: PERSON_ID,
370: ENQUIRY_APPL_NUMBER,
371: ENQUIRY_CHARACTERISTIC_TYPE,
372: CREATION_DATE,
401: X_ENQUIRY_APPL_NUMBER in NUMBER,
402: X_ENQUIRY_CHARACTERISTIC_TYPE in VARCHAR2
403: ) as
404: cursor c1 is select ROWID
405: from IGR_I_A_CHARTYP
406: where ROWID = X_ROWID
407: for update nowait;
408: tlinfo c1%rowtype;
409:
431: p_action => 'DELETE',
432: x_rowid => X_ROWID
433: );
434:
435: delete from IGR_I_A_CHARTYP
436: where ROWID = X_ROWID;
437: if (sql%notfound) then
438: raise no_data_found;
439: end if;
440:
441:
442: end DELETE_ROW;
443:
444: end IGR_I_A_CHARTYP_PKG;