[Home] [Help]
1: package body IGS_PE_PRSID_GRP_SEC_PKG AS
2: /* $Header: IGSNI23B.pls 115.5 2003/02/18 08:48:02 npalanis ship $ */
3:
4:
5:
3:
4:
5:
6: l_rowid VARCHAR2(25);
7: old_references IGS_PE_PRSID_GRP_SEC%RowType;
8: new_references IGS_PE_PRSID_GRP_SEC%RowType;
9:
10: PROCEDURE Set_Column_Values (
11: p_action IN VARCHAR2,
4:
5:
6: l_rowid VARCHAR2(25);
7: old_references IGS_PE_PRSID_GRP_SEC%RowType;
8: new_references IGS_PE_PRSID_GRP_SEC%RowType;
9:
10: PROCEDURE Set_Column_Values (
11: p_action IN VARCHAR2,
12: x_rowid IN VARCHAR2 DEFAULT NULL,
23: ) AS
24:
25: CURSOR cur_old_ref_values IS
26: SELECT *
27: FROM IGS_PE_PRSID_GRP_SEC
28: WHERE rowid = x_rowid;
29:
30: BEGIN
31:
200: ) RETURN BOOLEAN AS
201:
202: CURSOR cur_rowid IS
203: SELECT rowid
204: FROM IGS_PE_PRSID_GRP_SEC
205: WHERE group_id = x_group_id
206: AND person_id = x_person_id
207: FOR UPDATE NOWAIT;
208:
226: ) AS
227:
228: CURSOR cur_rowid IS
229: SELECT rowid
230: FROM IGS_PE_PRSID_GRP_SEC
231: WHERE person_id = x_person_id ;
232:
233: lv_rowid cur_rowid%RowType;
234:
353: X_UPDATE_IND in VARCHAR2,
354: X_DELETE_IND in VARCHAR2,
355: X_MODE in VARCHAR2 default 'R'
356: ) AS
357: cursor C is select ROWID from IGS_PE_PRSID_GRP_SEC
358: where GROUP_ID = X_GROUP_ID
359: and PERSON_ID = X_PERSON_ID;
360: X_LAST_UPDATE_DATE DATE;
361: X_LAST_UPDATED_BY NUMBER;
408: x_last_update_date=>X_LAST_UPDATE_DATE,
409: x_last_updated_by=>X_LAST_UPDATED_BY,
410: x_last_update_login=>X_LAST_UPDATE_LOGIN
411: );
412: insert into IGS_PE_PRSID_GRP_SEC (
413: GROUP_ID,
414: PERSON_ID,
415: INSERT_IND,
416: UPDATE_IND,
466: cursor c1 is select
467: INSERT_IND,
468: UPDATE_IND,
469: DELETE_IND
470: from IGS_PE_PRSID_GRP_SEC
471: where ROWID = X_ROWID
472: for update nowait;
473: tlinfo c1%rowtype;
474:
561: else
562: X_PROGRAM_UPDATE_DATE := SYSDATE;
563: end if;
564: end if;
565: update IGS_PE_PRSID_GRP_SEC set
566: INSERT_IND = NEW_REFERENCES.INSERT_IND,
567: UPDATE_IND = NEW_REFERENCES.UPDATE_IND,
568: DELETE_IND = NEW_REFERENCES.DELETE_IND,
569: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
592: X_UPDATE_IND in VARCHAR2,
593: X_DELETE_IND in VARCHAR2,
594: X_MODE in VARCHAR2 default 'R'
595: ) AS
596: cursor c1 is select rowid from IGS_PE_PRSID_GRP_SEC
597: where GROUP_ID = X_GROUP_ID
598: and PERSON_ID = X_PERSON_ID
599: ;
600:
631: Before_DML(
632: p_action => 'DELETE',
633: x_rowid => X_ROWID
634: );
635: delete from IGS_PE_PRSID_GRP_SEC
636: where ROWID = X_ROWID;
637: if (sql%notfound) then
638: raise no_data_found;
639: end if;
642: x_rowid => X_ROWID
643: );
644: end DELETE_ROW;
645:
646: end IGS_PE_PRSID_GRP_SEC_PKG;