APPS.IGR_I_A_ITYPE_PKG dependencies on IGR_I_A_ITYPE

Line 1: package body IGR_I_A_ITYPE_Pkg as

1: package body IGR_I_A_ITYPE_Pkg as
2: /* $Header: IGSRH15B.pls 120.0 2005/06/01 22:27:30 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGR_I_A_ITYPE%RowType;

Line 5: old_references IGR_I_A_ITYPE%RowType;

1: package body IGR_I_A_ITYPE_Pkg as
2: /* $Header: IGSRH15B.pls 120.0 2005/06/01 22:27:30 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGR_I_A_ITYPE%RowType;
6: new_references IGR_I_A_ITYPE%RowType;
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 DEFAULT NULL,

Line 6: new_references IGR_I_A_ITYPE%RowType;

2: /* $Header: IGSRH15B.pls 120.0 2005/06/01 22:27:30 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGR_I_A_ITYPE%RowType;
6: new_references IGR_I_A_ITYPE%RowType;
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 DEFAULT NULL,
10: x_person_id IN NUMBER DEFAULT NULL,

Line 22: FROM IGR_I_A_ITYPE

18: ) as
19:
20: CURSOR cur_old_ref_values IS
21: SELECT *
22: FROM IGR_I_A_ITYPE
23: WHERE rowid = x_rowid;
24:
25: BEGIN
26:

Line 175: FROM IGR_I_A_ITYPE

171: x_info_type_id IN VARCHAR2
172: ) RETURN BOOLEAN AS
173: CURSOR cur_rowid IS
174: SELECT rowid
175: FROM IGR_I_A_ITYPE
176: WHERE person_id = x_person_id
177: AND enquiry_appl_number = x_enquiry_appl_number
178: AND INFO_TYPE_ID = x_info_type_id
179: FOR UPDATE NOWAIT;

Line 204: FROM IGR_I_A_ITYPE

200: ) as
201:
202: CURSOR cur_rowid IS
203: SELECT rowid
204: FROM IGR_I_A_ITYPE
205: WHERE person_id = x_person_id
206: AND enquiry_appl_number = x_enquiry_appl_number ;
207:
208: lv_rowid cur_rowid%RowType;

Line 225: PROCEDURE GET_FK_IGR_I_A_ITYPE (

221: Close cur_rowid;
222:
223: END GET_FK_IGR_I_APPL;
224:
225: PROCEDURE GET_FK_IGR_I_A_ITYPE (
226: x_info_type_id IN VARCHAR2
227: ) as
228:
229: CURSOR cur_rowid IS

Line 231: FROM IGR_I_A_ITYPE

227: ) as
228:
229: CURSOR cur_rowid IS
230: SELECT rowid
231: FROM IGR_I_A_ITYPE
232: WHERE INFO_TYPE_ID = x_info_type_id ;
233:
234: lv_rowid cur_rowid%RowType;
235:

Line 249: END GET_FK_IGR_I_A_ITYPE;

245: Return;
246: END IF;
247: Close cur_rowid;
248:
249: END GET_FK_IGR_I_A_ITYPE;
250:
251: PROCEDURE Before_DML (
252: p_action IN VARCHAR2,
253: x_rowid IN VARCHAR2 DEFAULT NULL,

Line 327: cursor C is select ROWID from IGR_I_A_ITYPE

323: X_ENQUIRY_APPL_NUMBER in NUMBER,
324: x_info_type_id in VARCHAR2,
325: X_MODE in VARCHAR2 default 'R'
326: ) as
327: cursor C is select ROWID from IGR_I_A_ITYPE
328: where PERSON_ID = X_PERSON_ID
329: and ENQUIRY_APPL_NUMBER = X_ENQUIRY_APPL_NUMBER
330: and INFO_TYPE_ID = x_info_type_id;
331: X_LAST_UPDATE_DATE DATE;

Line 367: insert into IGR_I_A_ITYPE (

363: x_last_updated_by=>X_LAST_UPDATED_BY,
364: x_last_update_login=>X_LAST_UPDATE_LOGIN
365: );
366:
367: insert into IGR_I_A_ITYPE (
368: PERSON_ID,
369: ENQUIRY_APPL_NUMBER,
370: INFO_TYPE_ID,
371: CREATION_DATE,

Line 403: from IGR_I_A_ITYPE

399: X_ENQUIRY_APPL_NUMBER in NUMBER,
400: x_info_type_id in VARCHAR2
401: ) as
402: cursor c1 is select ROWID
403: from IGR_I_A_ITYPE
404: where ROWID = X_ROWID
405: for update nowait;
406: tlinfo c1%rowtype;
407:

Line 431: delete from IGR_I_A_ITYPE

427: Before_DML(
428: p_action => 'DELETE',
429: x_rowid => X_ROWID
430: );
431: delete from IGR_I_A_ITYPE
432: where ROWID = X_ROWID;
433: if (sql%notfound) then
434: raise no_data_found;
435: end if;

Line 438: end IGR_I_A_ITYPE_Pkg;

434: raise no_data_found;
435: end if;
436: end DELETE_ROW;
437:
438: end IGR_I_A_ITYPE_Pkg;