2711: V_count NUMBER;
2712: l_sql_stmt VARCHAR2 (4000);
2713: l_sql_stmt_del VARCHAR2 (4000);
2714: l_sql_stmt_tab VARCHAR2 (4000);
2715: lv_plan_name msc_plans.COMPILE_DESIGNATOR%TYPE;
2716: lv_plan_id msc_plans.plan_id%TYPE;
2717: lv_INSTANCE_ID MSC_APPS_INSTANCES.instance_id%TYPE;
2718: LV_DATA_START_DATE MSC_PLANS.DATA_START_DATE%TYPE;
2719: lv_PLAN_COMPLETION_DATE MSC_PLANS.PLAN_COMPLETION_DATE%TYPE;
2712: l_sql_stmt VARCHAR2 (4000);
2713: l_sql_stmt_del VARCHAR2 (4000);
2714: l_sql_stmt_tab VARCHAR2 (4000);
2715: lv_plan_name msc_plans.COMPILE_DESIGNATOR%TYPE;
2716: lv_plan_id msc_plans.plan_id%TYPE;
2717: lv_INSTANCE_ID MSC_APPS_INSTANCES.instance_id%TYPE;
2718: LV_DATA_START_DATE MSC_PLANS.DATA_START_DATE%TYPE;
2719: lv_PLAN_COMPLETION_DATE MSC_PLANS.PLAN_COMPLETION_DATE%TYPE;
2720: lv_UOM MSC_DEPARTMENT_RESOURCES.UNIT_OF_MEASURE%TYPE;
2714: l_sql_stmt_tab VARCHAR2 (4000);
2715: lv_plan_name msc_plans.COMPILE_DESIGNATOR%TYPE;
2716: lv_plan_id msc_plans.plan_id%TYPE;
2717: lv_INSTANCE_ID MSC_APPS_INSTANCES.instance_id%TYPE;
2718: LV_DATA_START_DATE MSC_PLANS.DATA_START_DATE%TYPE;
2719: lv_PLAN_COMPLETION_DATE MSC_PLANS.PLAN_COMPLETION_DATE%TYPE;
2720: lv_UOM MSC_DEPARTMENT_RESOURCES.UNIT_OF_MEASURE%TYPE;
2721: v_dblink MSC_APPS_INSTANCES.M2A_DBLINK%TYPE;
2722: LV_SOURCE_APPLICATION VARCHAR2 (3);
2715: lv_plan_name msc_plans.COMPILE_DESIGNATOR%TYPE;
2716: lv_plan_id msc_plans.plan_id%TYPE;
2717: lv_INSTANCE_ID MSC_APPS_INSTANCES.instance_id%TYPE;
2718: LV_DATA_START_DATE MSC_PLANS.DATA_START_DATE%TYPE;
2719: lv_PLAN_COMPLETION_DATE MSC_PLANS.PLAN_COMPLETION_DATE%TYPE;
2720: lv_UOM MSC_DEPARTMENT_RESOURCES.UNIT_OF_MEASURE%TYPE;
2721: v_dblink MSC_APPS_INSTANCES.M2A_DBLINK%TYPE;
2722: LV_SOURCE_APPLICATION VARCHAR2 (3);
2723: v_current_date MSC_NET_RESOURCE_AVAIL.LAST_UPDATE_DATE%TYPE;
2784:
2785: BEGIN
2786: SELECT PLAN_ID,DATA_START_DATE,PLAN_COMPLETION_DATE
2787: INTO lv_plan_id,lv_DATA_START_DATE,lv_PLAN_COMPLETION_DATE
2788: FROM msc_plans
2789: WHERE COMPILE_DESIGNATOR = lv_plan_name
2790: AND SR_INSTANCE_ID = pINSTANCE_ID;
2791: EXCEPTION
2792: WHEN NO_DATA_FOUND
2791: EXCEPTION
2792: WHEN NO_DATA_FOUND
2793: THEN
2794: RETCODE := MSC_UTIL.G_WARNING;
2795: LOG_MESSAGE('Error::NO RECORDS for PLAN '|| lv_plan_name || '::IN TABLE MSC_PLANS');
2796: ERRBUF := FND_MESSAGE.GET;
2797: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR, ERRBUF);
2798: MSC_UTIL.LOG_MSG (MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
2799: RETURN;
2821: IF lv_PLAN_COMPLETION_DATE is null
2822: THEN
2823: RETCODE := MSC_UTIL.G_WARNING;
2824:
2825: LOG_MESSAGE('Error::For The Plan PLAN '|| lv_plan_name || '::PLAN_COMPLETION_DATE is Null In TABLE MSC_PLANS');
2826:
2827: END IF;
2828:
2829: IF V_count > 0 and lv_PLAN_COMPLETION_DATE is not null