[Home] [Help]
824: PROCEDURE crspl_ins_unit_offer_note (
825: p_unit_cd IN IGS_PS_UNIT_VER.unit_cd%TYPE,
826: p_version_number IN IGS_PS_UNIT_VER.version_number%TYPE )
827: AS
828: v_unit_offer_note_rec IGS_PS_UNIT_OFR_NOTE%ROWTYPE;
829: v_new_ref_number IGS_GE_NOTE.reference_number%TYPE;
830: --- The following cursor excludes notes records with NULL values in the
831: --- note_text field as this implies that it contains data in the note_ole
832: --- field which cannot be copied with the current product limitations.
831: --- note_text field as this implies that it contains data in the note_ole
832: --- field which cannot be copied with the current product limitations.
833: CURSOR c_unit_offer_note_rec IS
834: SELECT *
835: FROM IGS_PS_UNIT_OFR_NOTE uon
836: WHERE uon.unit_cd = p_unit_cd AND
837: uon.version_number = p_version_number AND
838: EXISTS (
839: SELECT 'x'
847: v_unit_offer_note_rec.reference_number,
848: v_new_ref_number);
849: BEGIN
850: x_rowid := NULL;
851: IGS_PS_UNIT_OFR_NOTE_PKG.Insert_Row(
852: X_ROWID => x_rowid,
853: X_UNIT_CD => p_new_unit_cd,
854: X_VERSION_NUMBER => p_new_version_number,
855: X_CAL_TYPE => v_unit_offer_note_rec.cal_type,
2356: --- values.
2357: crspl_ins_unit_offer(
2358: p_old_unit_cd,
2359: p_old_version_number);
2360: --- Check if the IGS_PS_UNIT_OFR_NOTE record exists for the old IGS_PS_UNIT code and
2361: --- version number. If it does exist, create the new record with the
2362: --- substituted values. A new IGS_GE_NOTE record must be created as well.
2363: crspl_ins_unit_offer_note(
2364: p_old_unit_cd,