16: l_name := FND_MESSAGE.GET;
17:
18: select count(*)
19: into l_count
20: from ZPB_BUSINESS_AREAS_VL
21: where NAME = l_name;
22:
23: if (l_count > 0) then
24: l_name := l_name||' '||l_count;
741: -- OUT: The created Business Area's ID
742: -------------------------------------------------------------------------
743: FUNCTION CREATE_BUSINESS_AREA
744: return NUMBER is
745: l_business_area_id ZPB_BUSINESS_AREAS.BUSINESS_AREA_ID%type;
746: l_user_id FND_USER.USER_ID%type;
747: begin
748: l_user_id := FND_GLOBAL.USER_ID;
749:
746: l_user_id FND_USER.USER_ID%type;
747: begin
748: l_user_id := FND_GLOBAL.USER_ID;
749:
750: select ZPB_BUSINESS_AREAS_SEQ.nextval into l_business_area_id from dual;
751:
752: insert into ZPB_BUSINESS_AREAS
753: (BUSINESS_AREA_ID,
754: BUSAREA_CREATED_BY,
748: l_user_id := FND_GLOBAL.USER_ID;
749:
750: select ZPB_BUSINESS_AREAS_SEQ.nextval into l_business_area_id from dual;
751:
752: insert into ZPB_BUSINESS_AREAS
753: (BUSINESS_AREA_ID,
754: BUSAREA_CREATED_BY,
755: DATA_AW,
756: ANNOTATION_AW,
1232: from ZPB_BUSAREA_LEDGERS
1233: where VERSION_ID = l_from_version_id;
1234:
1235: if (p_to_version_type = 'P') then
1236: update ZPB_BUSINESS_AREAS
1237: set PUBLISH_DATE = sysdate,
1238: PUBLISHED_BY = FND_GLOBAL.USER_ID
1239: where BUSINESS_AREA_ID = p_to_busarea_id;
1240: elsif (p_to_version_type = 'R') then
1237: set PUBLISH_DATE = sysdate,
1238: PUBLISHED_BY = FND_GLOBAL.USER_ID
1239: where BUSINESS_AREA_ID = p_to_busarea_id;
1240: elsif (p_to_version_type = 'R') then
1241: update ZPB_BUSINESS_AREAS
1242: set REFRESH_DATE = sysdate,
1243: REFRESHED_BY = FND_GLOBAL.USER_ID
1244: where BUSINESS_AREA_ID = p_to_busarea_id;
1245: end if;
1263:
1264: begin
1265: -- update the status field so that that UI knows
1266: -- that this BA is in the process of being deleted
1267: update ZPB_BUSINESS_AREAS
1268: set STATUS = 'D'
1269: where BUSINESS_AREA_ID = p_business_area_id;
1270:
1271: begin
1270:
1271: begin
1272: select NAME
1273: into l_ba_name
1274: from ZPB_BUSINESS_AREAS_VL
1275: where BUSINESS_AREA_ID = p_business_area_id;
1276: exception
1277: when no_data_found then
1278: l_ba_name := '';
1307: PROCEDURE DELETE_BUSINESS_AREA (ERRBUF OUT NOCOPY VARCHAR2,
1308: RETCODE OUT NOCOPY VARCHAR2,
1309: p_business_area_id IN NUMBER)
1310: is
1311: l_snapshot_id ZPB_BUSINESS_AREAS.SNAPSHOT_OBJECT_ID%type;
1312: l_aw ZPB_BUSINESS_AREAS.DATA_AW%type;
1313: l_msg_count NUMBER;
1314: l_msg_data VARCHAR2(1000);
1315: l_ret_status VARCHAR2(1);
1308: RETCODE OUT NOCOPY VARCHAR2,
1309: p_business_area_id IN NUMBER)
1310: is
1311: l_snapshot_id ZPB_BUSINESS_AREAS.SNAPSHOT_OBJECT_ID%type;
1312: l_aw ZPB_BUSINESS_AREAS.DATA_AW%type;
1313: l_msg_count NUMBER;
1314: l_msg_data VARCHAR2(1000);
1315: l_ret_status VARCHAR2(1);
1316: l_folder_count NUMBER;
1339: from ZPB_USERS
1340: where BUSINESS_AREA_ID = p_business_area_id
1341: UNION
1342: select ZPB_AW.GET_SCHEMA||'.'||DATA_AW AW_NAME
1343: from ZPB_BUSINESS_AREAS
1344: where BUSINESS_AREA_ID = p_business_area_id
1345: UNION
1346: select ZPB_AW.GET_SCHEMA||'.'||ANNOTATION_AW AW_NAME
1347: from ZPB_BUSINESS_AREAS
1343: from ZPB_BUSINESS_AREAS
1344: where BUSINESS_AREA_ID = p_business_area_id
1345: UNION
1346: select ZPB_AW.GET_SCHEMA||'.'||ANNOTATION_AW AW_NAME
1347: from ZPB_BUSINESS_AREAS
1348: where BUSINESS_AREA_ID = p_business_area_id
1349: UNION
1350: select ZPB_AW.GET_SCHEMA||'.SQTEMP'||p_business_area_id from dual;
1351:
1365: a.owner = zpb_aw.get_schema;
1366: begin
1367: select SNAPSHOT_OBJECT_ID
1368: into l_snapshot_id
1369: from ZPB_BUSINESS_AREAS
1370: where BUSINESS_AREA_ID = p_business_area_id;
1371:
1372: if (l_snapshot_id is not null) then
1373: FEM_FOLDERS_UTL_PKG.ASSIGN_USER_TO_FOLDER
1490: ZPB_METADATA_PKG.CLEANBUSAREA(p_business_area_id);
1491:
1492: select DATA_AW
1493: into l_aw
1494: from ZPB_BUSINESS_AREAS
1495: where BUSINESS_AREA_ID = p_business_area_id;
1496:
1497: ZPB_BUILD_METADATA.DROP_CWM2_METADATA(l_aw);
1498:
1529:
1530: delete from ZPB_BUSAREA_USERS
1531: where BUSINESS_AREA_ID = p_business_area_id;
1532:
1533: delete from ZPB_BUSINESS_AREAS
1534: where BUSINESS_AREA_ID = p_business_area_id;
1535:
1536: -- Bug 5007134
1537: -- Delete the business area path in the bibeans repository
1591: l_desc FND_CONCURRENT_REQUESTS.DESCRIPTION%type;
1592: begin
1593: select NAME
1594: into l_ba_name
1595: from ZPB_BUSINESS_AREAS_VL
1596: where BUSINESS_AREA_ID = p_business_area_id;
1597:
1598: FND_MESSAGE.CLEAR;
1599: FND_MESSAGE.SET_NAME('ZPB', 'ZPB_BUSAREA_REFRESH');