[Home] [Help]
772: PROCEDURE crspl_ins_unit_ver_note (
773: p_unit_cd IN IGS_PS_UNIT_VER.unit_cd%TYPE,
774: p_version_number IN IGS_PS_UNIT_VER.version_number%TYPE )
775: AS
776: v_unit_ver_note_rec IGS_PS_UNIT_VER_NOTE%ROWTYPE;
777: v_new_ref_number IGS_GE_NOTE.reference_number%TYPE;
778: --- The following cursor excludes notes records with NULL values in the
779: --- note_text field as this implies that it contains data in the note_ole
780: --- field which cannot be copied with the current product limitations.
779: --- note_text field as this implies that it contains data in the note_ole
780: --- field which cannot be copied with the current product limitations.
781: CURSOR c_unit_ver_note_rec IS
782: SELECT *
783: FROM IGS_PS_UNIT_VER_NOTE uvn
784: WHERE uvn.unit_cd = p_unit_cd AND
785: uvn.version_number = p_version_number AND
786: EXISTS (
787: SELECT 'x'
794: v_unit_ver_note_rec.reference_number,
795: v_new_ref_number);
796: BEGIN
797: x_rowid := NULL;
798: IGS_PS_UNIT_VER_NOTE_PKG.Insert_Row(
799: X_ROWID => x_rowid,
800: X_UNIT_CD => p_new_unit_cd,
801: X_REFERENCE_NUMBER => v_new_ref_number,
802: X_VERSION_NUMBER => p_new_version_number,
2314: CLOSE c_old_unit_vers_rec;
2315: RETURN;
2316: END IF;
2317: CLOSE c_old_unit_vers_rec;
2318: --- Check if the IGS_PS_UNIT_VER_NOTE record exists for the old IGS_PS_UNIT code and
2319: --- version number. If it does exist, create the new record with the
2320: --- substituted values. A new IGS_GE_NOTE record must be created as well.
2321: crspl_ins_unit_ver_note(
2322: p_old_unit_cd,