1: PACKAGE BODY igs_pe_priv_level_pkg AS
2: /* $Header: IGSNI61B.pls 120.1 2005/06/28 06:12:06 appldev ship $ */
3:
4: /******************************************************
5: Created By : nigupta
11: (reverse chronological order - newest change first)
12: ********************************************************/
13:
14: l_rowid VARCHAR2(25);
15: old_references igs_pe_priv_level%RowType;
16: new_references igs_pe_priv_level%RowType;
17:
18: PROCEDURE Set_Column_Values (
19: p_action IN VARCHAR2,
12: ********************************************************/
13:
14: l_rowid VARCHAR2(25);
15: old_references igs_pe_priv_level%RowType;
16: new_references igs_pe_priv_level%RowType;
17:
18: PROCEDURE Set_Column_Values (
19: p_action IN VARCHAR2,
20: x_rowid IN VARCHAR2 DEFAULT NULL,
48: ********************************************************/
49:
50: CURSOR cur_old_ref_values IS
51: SELECT *
52: FROM IGS_PE_PRIV_LEVEL
53: WHERE rowid = x_rowid;
54:
55: BEGIN
56:
190: ********************************************************/
191:
192: CURSOR cur_rowid IS
193: SELECT rowid
194: FROM igs_pe_priv_level
195: WHERE privacy_level_id = x_privacy_level_id
196: FOR UPDATE NOWAIT;
197:
198: lv_rowid cur_rowid%RowType;
227: ********************************************************/
228:
229: CURSOR cur_rowid IS
230: SELECT rowid
231: FROM igs_pe_priv_level
232: WHERE person_id = x_person_id ;
233:
234: lv_rowid cur_rowid%RowType;
235:
399: --
400: --Change History:
401: --Who When What
402: ----------------------------------------------------------------------------------------------
403: CURSOR c_priv_overlap(cp_person_id igs_pe_visa.person_id%TYPE, cp_data_group_id igs_pe_priv_level.data_group_id%TYPE) IS
404: SELECT count(1)
405: FROM
406: igs_pe_priv_level p1,
407: igs_pe_priv_level p2
402: ----------------------------------------------------------------------------------------------
403: CURSOR c_priv_overlap(cp_person_id igs_pe_visa.person_id%TYPE, cp_data_group_id igs_pe_priv_level.data_group_id%TYPE) IS
404: SELECT count(1)
405: FROM
406: igs_pe_priv_level p1,
407: igs_pe_priv_level p2
408: WHERE
409: p1.person_id = cp_person_id and
410: p1.person_id = p2.person_id and
403: CURSOR c_priv_overlap(cp_person_id igs_pe_visa.person_id%TYPE, cp_data_group_id igs_pe_priv_level.data_group_id%TYPE) IS
404: SELECT count(1)
405: FROM
406: igs_pe_priv_level p1,
407: igs_pe_priv_level p2
408: WHERE
409: p1.person_id = cp_person_id and
410: p1.person_id = p2.person_id and
411: p1.data_group_id = cp_data_group_id and
498:
499: (reverse chronological order - newest change first)
500: ********************************************************/
501:
502: cursor C is select ROWID from IGS_PE_PRIV_LEVEL
503: where PRIVACY_LEVEL_ID= X_PRIVACY_LEVEL_ID
504: ;
505: X_LAST_UPDATE_DATE DATE ;
506: X_LAST_UPDATED_BY NUMBER ;
524: IGS_GE_MSG_STACK.ADD;
525: app_exception.raise_exception;
526: end if;
527:
528: Select IGS_PE_PRIV_LEVEL_S.NEXTVAL into X_PRIVACY_LEVEL_ID from Dual;
529:
530: Before_DML(
531: p_action=>'INSERT',
532: x_rowid=>X_ROWID,
546: x_last_update_login=>X_LAST_UPDATE_LOGIN);
547: IF (x_mode = 'S') THEN
548: igs_sc_gen_001.set_ctx('R');
549: END IF;
550: insert into IGS_PE_PRIV_LEVEL (
551: PRIVACY_LEVEL_ID
552: ,PERSON_ID
553: ,DATA_GROUP
554: ,DATA_GROUP_ID
643: , WHOM
644: , REF_NOTES_ID
645: , START_DATE
646: , END_DATE
647: from IGS_PE_PRIV_LEVEL
648: where ROWID = X_ROWID
649: for update nowait;
650: tlinfo c1%rowtype;
651: begin
749: x_last_update_login=>X_LAST_UPDATE_LOGIN);
750: IF (x_mode = 'S') THEN
751: igs_sc_gen_001.set_ctx('R');
752: END IF;
753: update IGS_PE_PRIV_LEVEL set
754: PERSON_ID = NEW_REFERENCES.PERSON_ID,
755: DATA_GROUP = NEW_REFERENCES.DATA_GROUP,
756: DATA_GROUP_ID = NEW_REFERENCES.DATA_GROUP_ID,
757: ACTION = NEW_REFERENCES.ACTION,
819:
820: (reverse chronological order - newest change first)
821: ********************************************************/
822:
823: cursor c1 is select ROWID from IGS_PE_PRIV_LEVEL
824: where PRIVACY_LEVEL_ID= X_PRIVACY_LEVEL_ID
825: ;
826: begin
827: open c1;
883: );
884: IF (x_mode = 'S') THEN
885: igs_sc_gen_001.set_ctx('R');
886: END IF;
887: delete from IGS_PE_PRIV_LEVEL
888: where ROWID = X_ROWID;
889: if (sql%notfound) then
890: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
891: igs_ge_msg_stack.add;
900: p_action => 'DELETE',
901: x_rowid => X_ROWID
902: );
903: end DELETE_ROW;
904: END igs_pe_priv_level_pkg;