513: CLOSE dup_rec;
514: --
515: -- Gets the sequence number
516: SELECT AHL_DOCUMENT_SUB_TYPES_S.Nextval INTO 517: l_document_sub_type_id from DUAL; 518: -- Insert the new record into subscriptions table
519: INSERT INTO AHL_DOCUMENT_SUB_TYPES
520: (
521: DOCUMENT_SUB_TYPE_ID,