درستور Sql برای درج روی چند جدول بدون استفاده از Cursor

/************************* INS_LMP_TABLES_FUN  ************************************

ÏÑÌ ˜ÑÏä јæÑÏ åÇ ÐÑ ÌÏæá ÇÈÚÇÏ 

  ***************************************************************************************************************/

 FUNCTION INS_COMBINATION_FOR_WIDTH_FUN(P_DIMENSA_USAGE_OF    LMP_BAS_MIX_DIMENSIONS.BAS_MIX_DIMENSION_ID %TYPE,

                              P_PROFM_BAS_PRODUCT_FAMILY_ID LMP_BAS_MIX_DIMENSIONS.PROFM_BAS_PRODUCT_FAMILY_ID %TYPE)

    RETURN VARCHAR2 IS

  BEGIN

    INSERT INTO LMP_BAS_MIX_COMBINATIONS

      (

       bas_mix_combination_id,

       flg_active_mixcm,

       flg_prod_station_mixcm,

       mixdm_bas_mix_dimensa_usage_of,

       mixdm_bas_mix_dimension_id,

       pcn_yield_q_mixcm,

       pcn_yield_w_mixcm,

       profm_bas_product_family_id,

       qty_prod_rate_mixcm,

       statn_bas_station_id)

      SELECT LMP_BAS_CONSTRAINTS_SEQ.NEXTVAL,

             1,

             0,

             bas_mix_dimension_id,

             P_BAS_MIX_DIMENSION_ID,

             0,

             0,

             profm_bas_product_family_id,

             0,

             statn_bas_station_id

        FROM LMP_BAS_MIX_DIMENSIONS BMD

       WHERE BMD.PROFM_BAS_PRODUCT_FAMILY_ID = P_PRODUCT_FAMILY_ID;

       RETURN 'INSERT_OK';

       EXCEPTION WHEN OTHERS THEN RETURN 'FAILED';

  END;

/************************* DEL_LMP_TABLES_FUN ************************************

Ç˜ ˜ÑÏä јæÑÏ åÇ ÇÒ ÌÏæá ÇÈÚÇÏ 

  ***************************************************************************************************************/

  FUNCTION DEL_LMP_TABLES_FUN(P_PRODUCT_FAMILY_ID    LMP_BAS_MIX_DIMENSIONS.PROFM_BAS_PRODUCT_FAMILY_ID %TYPE,

                              P_BAS_MIX_DIMENSION_ID LMP_BAS_MIX_DIMENSIONS.BAS_MIX_DIMENSION_ID %TYPE)

    RETURN VARCHAR2 IS

  BEGIN

    DELETE FROM LMP_BAS_MIX_COMBINATIONS

      WHERE mixdm_bas_mix_dimension_id = P_BAS_MIX_DIMENSION_ID

       AND  profm_bas_product_family_id = P_PRODUCT_FAMILY_ID;

        DELETE FROM LMP_BAS_MIX_DIMENSIONS 

      WHERE BAS_MIX_DIMENSION_ID= P_BAS_MIX_DIMENSION_ID;

       RETURN 'DELETE_OK';

       EXCEPTION WHEN OTHERS THEN RETURN 'FAILED';

  END;

END FRM_FLMP1C10_PKG;