1: package body IGS_GE_REF_CD_TYPE_PKG as
2: /* $Header: IGSMI04B.pls 120.1 2006/01/25 09:19:54 skpandey noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_GE_REF_CD_TYPE_ALL%RowType;
6: new_references IGS_GE_REF_CD_TYPE_ALL%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSMI04B.pls 120.1 2006/01/25 09:19:54 skpandey noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_GE_REF_CD_TYPE_ALL%RowType;
6: new_references IGS_GE_REF_CD_TYPE_ALL%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
41: ***************************************************************/
42:
43: CURSOR cur_old_ref_values IS
44: SELECT *
45: FROM IGS_GE_REF_CD_TYPE_ALL
46: WHERE rowid = x_rowid;
47:
48: BEGIN
49:
355: (reverse chronological order - newest change first)
356: ***************************************************************/
357: CURSOR cur_rowid IS
358: SELECT rowid
359: FROM IGS_GE_REF_CD_TYPE_ALL
360: WHERE reference_cd_type = x_reference_cd_type
361: FOR UPDATE NOWAIT;
362:
363: lv_rowid cur_rowid%RowType;
546: sbeerell 09-MAY-2000 Changed according to DLD version 2
547: (reverse chronological order - newest change first)
548: ***************************************************************/
549:
550: cursor C is select ROWID from IGS_GE_REF_CD_TYPE_ALL
551: where REFERENCE_CD_TYPE = X_REFERENCE_CD_TYPE;
552: X_LAST_UPDATE_DATE DATE;
553: X_LAST_UPDATED_BY NUMBER;
554: X_LAST_UPDATE_LOGIN NUMBER;
594:
595: x_mandatory_flag => X_MANDATORY_FLAG,
596: x_restricted_flag =>x_restricted_flag
597: );
598: insert into IGS_GE_REF_CD_TYPE_ALL (
599: SELF_SERVICE_FLAG
600: ,REFERENCE_CD_TYPE
601: ,DESCRIPTION
602: ,S_REFERENCE_CD_TYPE
686: UNIT_SECTION_FLAG,
687: UNIT_SECTION_OCCURRENCE_FLAG,
688: MANDATORY_FLAG,
689: RESTRICTED_FLAG
690: from IGS_GE_REF_CD_TYPE_ALL
691: where ROWID = X_ROWID
692: for update nowait;
693: tlinfo c1%rowtype;
694:
801: x_mandatory_flag =>X_MANDATORY_FLAG,
802: x_restricted_flag => x_restricted_flag
803: );
804:
805: update IGS_GE_REF_CD_TYPE_ALL set
806: SELF_SERVICE_FLAG = NEW_REFERENCES.SELF_SERVICE_FLAG,
807: DESCRIPTION = NEW_REFERENCES.DESCRIPTION,
808: S_REFERENCE_CD_TYPE = NEW_REFERENCES.S_REFERENCE_CD_TYPE,
809: CLOSED_IND = NEW_REFERENCES.CLOSED_IND,
854: sbeerell 09-MAY-2000 Changed according to DLD version 2
855: (reverse chronological order - newest change first)
856: ***************************************************************/
857:
858: cursor c1 is select rowid from IGS_GE_REF_CD_TYPE_ALL
859: where ROWID = X_ROWID
860: ;
861:
862: begin
910: p_action => 'DELETE',
911: x_rowid => X_ROWID
912: );
913:
914: delete from IGS_GE_REF_CD_TYPE_ALL
915: where ROWID = X_ROWID;
916: if (sql%notfound) then
917: raise no_data_found;
918: end if;