1180: l_msg_count NUMBER(2);
1181:
1182: l_svc_plan_id IEB_SERVICE_PLANS.SVCPLN_ID%type;
1183:
1184: l_map_id IEB_GROUP_PLAN_MAPS.MAP_ID%type;
1185:
1186: BEGIN
1187:
1188:
1194: x_msg_data := '';
1195: x_msg_count := 0;
1196:
1197:
1198: select IEB_GROUP_PLAN_MAPS_S1.nextval into l_map_id from dual;
1199: EXECUTE immediate 'INSERT INTO IEB_GROUP_PLAN_MAPS '||
1200: '(MAP_ID, '||
1201: ' SERVICE_PLAN_ID, '||
1202: ' CREATED_BY, '||
1195: x_msg_count := 0;
1196:
1197:
1198: select IEB_GROUP_PLAN_MAPS_S1.nextval into l_map_id from dual;
1199: EXECUTE immediate 'INSERT INTO IEB_GROUP_PLAN_MAPS '||
1200: '(MAP_ID, '||
1201: ' SERVICE_PLAN_ID, '||
1202: ' CREATED_BY, '||
1203: ' CREATION_DATE, '||
1706:
1707:
1708:
1709: EXECUTE immediate
1710: ' delete from ieb_group_plan_maps where service_plan_id = :1 or service_plan_id in (select SERVICE_PLAN_ID from ieb_regional_plans where base_plan_id =:2)'
1711: USING x_service_plan_id, x_service_plan_id ;
1712:
1713: if (sql%notfound) then
1714: null;
1994: null;
1995: end if;
1996:
1997: EXECUTE immediate
1998: ' delete from ieb_group_plan_maps where service_plan_id = :1 '
1999: USING p_reg_plan_id;
2000:
2001: if (sql%notfound) then
2002: null;
2066: x_msg_data := '';
2067:
2068:
2069: EXECUTE immediate
2070: ' delete from ieb_group_plan_maps where service_plan_id = :1 '
2071: USING p_reg_plan_id;
2072:
2073: if (sql%notfound) then
2074: null;