803: -------------------------------------------------------------------------
804: FUNCTION CREATE_EMPTY_VERSION (p_business_area_id IN NUMBER,
805: p_version_type IN VARCHAR2)
806: return NUMBER is
807: l_version_id ZPB_BUSAREA_VERSIONS.VERSION_ID%type;
808: l_version_name ZPB_BUSAREA_VERSIONS.NAME%type;
809: l_version_desc ZPB_BUSAREA_VERSIONS.DESCRIPTION%type;
810: l_version_curr ZPB_BUSAREA_VERSIONS.CURRENCY_ENABLED%type;
811: l_version_inter ZPB_BUSAREA_VERSIONS.INTERCOMPANY_ENABLED%type;
804: FUNCTION CREATE_EMPTY_VERSION (p_business_area_id IN NUMBER,
805: p_version_type IN VARCHAR2)
806: return NUMBER is
807: l_version_id ZPB_BUSAREA_VERSIONS.VERSION_ID%type;
808: l_version_name ZPB_BUSAREA_VERSIONS.NAME%type;
809: l_version_desc ZPB_BUSAREA_VERSIONS.DESCRIPTION%type;
810: l_version_curr ZPB_BUSAREA_VERSIONS.CURRENCY_ENABLED%type;
811: l_version_inter ZPB_BUSAREA_VERSIONS.INTERCOMPANY_ENABLED%type;
812: l_parent_version_type ZPB_BUSAREA_VERSIONS.VERSION_TYPE%type;
805: p_version_type IN VARCHAR2)
806: return NUMBER is
807: l_version_id ZPB_BUSAREA_VERSIONS.VERSION_ID%type;
808: l_version_name ZPB_BUSAREA_VERSIONS.NAME%type;
809: l_version_desc ZPB_BUSAREA_VERSIONS.DESCRIPTION%type;
810: l_version_curr ZPB_BUSAREA_VERSIONS.CURRENCY_ENABLED%type;
811: l_version_inter ZPB_BUSAREA_VERSIONS.INTERCOMPANY_ENABLED%type;
812: l_parent_version_type ZPB_BUSAREA_VERSIONS.VERSION_TYPE%type;
813: l_ver_fdr_obj_def_id ZPB_BUSAREA_VERSIONS.FUNC_DIM_SET_OBJ_DEF_ID%type; -- "Consistent Dimension"
806: return NUMBER is
807: l_version_id ZPB_BUSAREA_VERSIONS.VERSION_ID%type;
808: l_version_name ZPB_BUSAREA_VERSIONS.NAME%type;
809: l_version_desc ZPB_BUSAREA_VERSIONS.DESCRIPTION%type;
810: l_version_curr ZPB_BUSAREA_VERSIONS.CURRENCY_ENABLED%type;
811: l_version_inter ZPB_BUSAREA_VERSIONS.INTERCOMPANY_ENABLED%type;
812: l_parent_version_type ZPB_BUSAREA_VERSIONS.VERSION_TYPE%type;
813: l_ver_fdr_obj_def_id ZPB_BUSAREA_VERSIONS.FUNC_DIM_SET_OBJ_DEF_ID%type; -- "Consistent Dimension"
814: begin
807: l_version_id ZPB_BUSAREA_VERSIONS.VERSION_ID%type;
808: l_version_name ZPB_BUSAREA_VERSIONS.NAME%type;
809: l_version_desc ZPB_BUSAREA_VERSIONS.DESCRIPTION%type;
810: l_version_curr ZPB_BUSAREA_VERSIONS.CURRENCY_ENABLED%type;
811: l_version_inter ZPB_BUSAREA_VERSIONS.INTERCOMPANY_ENABLED%type;
812: l_parent_version_type ZPB_BUSAREA_VERSIONS.VERSION_TYPE%type;
813: l_ver_fdr_obj_def_id ZPB_BUSAREA_VERSIONS.FUNC_DIM_SET_OBJ_DEF_ID%type; -- "Consistent Dimension"
814: begin
815: begin
808: l_version_name ZPB_BUSAREA_VERSIONS.NAME%type;
809: l_version_desc ZPB_BUSAREA_VERSIONS.DESCRIPTION%type;
810: l_version_curr ZPB_BUSAREA_VERSIONS.CURRENCY_ENABLED%type;
811: l_version_inter ZPB_BUSAREA_VERSIONS.INTERCOMPANY_ENABLED%type;
812: l_parent_version_type ZPB_BUSAREA_VERSIONS.VERSION_TYPE%type;
813: l_ver_fdr_obj_def_id ZPB_BUSAREA_VERSIONS.FUNC_DIM_SET_OBJ_DEF_ID%type; -- "Consistent Dimension"
814: begin
815: begin
816: select VERSION_ID
809: l_version_desc ZPB_BUSAREA_VERSIONS.DESCRIPTION%type;
810: l_version_curr ZPB_BUSAREA_VERSIONS.CURRENCY_ENABLED%type;
811: l_version_inter ZPB_BUSAREA_VERSIONS.INTERCOMPANY_ENABLED%type;
812: l_parent_version_type ZPB_BUSAREA_VERSIONS.VERSION_TYPE%type;
813: l_ver_fdr_obj_def_id ZPB_BUSAREA_VERSIONS.FUNC_DIM_SET_OBJ_DEF_ID%type; -- "Consistent Dimension"
814: begin
815: begin
816: select VERSION_ID
817: into l_version_id
814: begin
815: begin
816: select VERSION_ID
817: into l_version_id
818: from ZPB_BUSAREA_VERSIONS
819: where BUSINESS_AREA_ID = p_business_area_id
820: and VERSION_TYPE = p_version_type;
821: exception
822: when no_data_found
842: l_version_curr,
843: l_version_inter,
844: l_ver_fdr_obj_def_id -- "Consistent Dimension"
845: from
846: ZPB_BUSAREA_VERSIONS
847: where
848: BUSINESS_AREA_ID = p_business_area_id
849: and VERSION_TYPE = l_parent_version_type;
850:
859:
860: if (l_version_id is not null) then
861: CLEAR_VERSION(l_version_id);
862:
863: update ZPB_BUSAREA_VERSIONS set
864: NAME = l_version_name,
865: DESCRIPTION = l_version_desc,
866: CURRENCY_ENABLED = l_version_curr,
867: INTERCOMPANY_ENABLED = l_version_inter,
872: where BUSINESS_AREA_ID = p_business_area_id
873: and VERSION_TYPE = p_version_type;
874:
875: else
876: select ZPB_BUSAREA_VERSIONS_SEQ.nextval into l_version_id from dual;
877:
878: insert into ZPB_BUSAREA_VERSIONS
879: (VERSION_ID,
880: BUSINESS_AREA_ID,
874:
875: else
876: select ZPB_BUSAREA_VERSIONS_SEQ.nextval into l_version_id from dual;
877:
878: insert into ZPB_BUSAREA_VERSIONS
879: (VERSION_ID,
880: BUSINESS_AREA_ID,
881: VERSION_TYPE,
882: NAME,
928: p_from_version_type IN VARCHAR2,
929: p_to_busarea_id IN NUMBER,
930: p_to_version_type IN VARCHAR2)
931: return NUMBER is
932: l_from_version_id ZPB_BUSAREA_VERSIONS.VERSION_ID%type;
933: l_to_version_id ZPB_BUSAREA_VERSIONS.VERSION_ID%type;
934: l_version_name ZPB_BUSAREA_VERSIONS.NAME%type;
935: l_version_desc ZPB_BUSAREA_VERSIONS.DESCRIPTION%type;
936: l_version_curr ZPB_BUSAREA_VERSIONS.CURRENCY_ENABLED%type;
929: p_to_busarea_id IN NUMBER,
930: p_to_version_type IN VARCHAR2)
931: return NUMBER is
932: l_from_version_id ZPB_BUSAREA_VERSIONS.VERSION_ID%type;
933: l_to_version_id ZPB_BUSAREA_VERSIONS.VERSION_ID%type;
934: l_version_name ZPB_BUSAREA_VERSIONS.NAME%type;
935: l_version_desc ZPB_BUSAREA_VERSIONS.DESCRIPTION%type;
936: l_version_curr ZPB_BUSAREA_VERSIONS.CURRENCY_ENABLED%type;
937: l_version_inter ZPB_BUSAREA_VERSIONS.INTERCOMPANY_ENABLED%type;
930: p_to_version_type IN VARCHAR2)
931: return NUMBER is
932: l_from_version_id ZPB_BUSAREA_VERSIONS.VERSION_ID%type;
933: l_to_version_id ZPB_BUSAREA_VERSIONS.VERSION_ID%type;
934: l_version_name ZPB_BUSAREA_VERSIONS.NAME%type;
935: l_version_desc ZPB_BUSAREA_VERSIONS.DESCRIPTION%type;
936: l_version_curr ZPB_BUSAREA_VERSIONS.CURRENCY_ENABLED%type;
937: l_version_inter ZPB_BUSAREA_VERSIONS.INTERCOMPANY_ENABLED%type;
938: l_version_line_name ZPB_BUSAREA_VERSIONS.LINE_HIERARCHY_NAME%type;
931: return NUMBER is
932: l_from_version_id ZPB_BUSAREA_VERSIONS.VERSION_ID%type;
933: l_to_version_id ZPB_BUSAREA_VERSIONS.VERSION_ID%type;
934: l_version_name ZPB_BUSAREA_VERSIONS.NAME%type;
935: l_version_desc ZPB_BUSAREA_VERSIONS.DESCRIPTION%type;
936: l_version_curr ZPB_BUSAREA_VERSIONS.CURRENCY_ENABLED%type;
937: l_version_inter ZPB_BUSAREA_VERSIONS.INTERCOMPANY_ENABLED%type;
938: l_version_line_name ZPB_BUSAREA_VERSIONS.LINE_HIERARCHY_NAME%type;
939: l_version_line_desc ZPB_BUSAREA_VERSIONS.LINE_HIERARCHY_DESC%type;
932: l_from_version_id ZPB_BUSAREA_VERSIONS.VERSION_ID%type;
933: l_to_version_id ZPB_BUSAREA_VERSIONS.VERSION_ID%type;
934: l_version_name ZPB_BUSAREA_VERSIONS.NAME%type;
935: l_version_desc ZPB_BUSAREA_VERSIONS.DESCRIPTION%type;
936: l_version_curr ZPB_BUSAREA_VERSIONS.CURRENCY_ENABLED%type;
937: l_version_inter ZPB_BUSAREA_VERSIONS.INTERCOMPANY_ENABLED%type;
938: l_version_line_name ZPB_BUSAREA_VERSIONS.LINE_HIERARCHY_NAME%type;
939: l_version_line_desc ZPB_BUSAREA_VERSIONS.LINE_HIERARCHY_DESC%type;
940: l_parent_version_type ZPB_BUSAREA_VERSIONS.VERSION_TYPE%type;
933: l_to_version_id ZPB_BUSAREA_VERSIONS.VERSION_ID%type;
934: l_version_name ZPB_BUSAREA_VERSIONS.NAME%type;
935: l_version_desc ZPB_BUSAREA_VERSIONS.DESCRIPTION%type;
936: l_version_curr ZPB_BUSAREA_VERSIONS.CURRENCY_ENABLED%type;
937: l_version_inter ZPB_BUSAREA_VERSIONS.INTERCOMPANY_ENABLED%type;
938: l_version_line_name ZPB_BUSAREA_VERSIONS.LINE_HIERARCHY_NAME%type;
939: l_version_line_desc ZPB_BUSAREA_VERSIONS.LINE_HIERARCHY_DESC%type;
940: l_parent_version_type ZPB_BUSAREA_VERSIONS.VERSION_TYPE%type;
941: l_ver_fdr_obj_def_id ZPB_BUSAREA_VERSIONS.FUNC_DIM_SET_OBJ_DEF_ID%type; -- "Consistent Dimension"
934: l_version_name ZPB_BUSAREA_VERSIONS.NAME%type;
935: l_version_desc ZPB_BUSAREA_VERSIONS.DESCRIPTION%type;
936: l_version_curr ZPB_BUSAREA_VERSIONS.CURRENCY_ENABLED%type;
937: l_version_inter ZPB_BUSAREA_VERSIONS.INTERCOMPANY_ENABLED%type;
938: l_version_line_name ZPB_BUSAREA_VERSIONS.LINE_HIERARCHY_NAME%type;
939: l_version_line_desc ZPB_BUSAREA_VERSIONS.LINE_HIERARCHY_DESC%type;
940: l_parent_version_type ZPB_BUSAREA_VERSIONS.VERSION_TYPE%type;
941: l_ver_fdr_obj_def_id ZPB_BUSAREA_VERSIONS.FUNC_DIM_SET_OBJ_DEF_ID%type; -- "Consistent Dimension"
942:
935: l_version_desc ZPB_BUSAREA_VERSIONS.DESCRIPTION%type;
936: l_version_curr ZPB_BUSAREA_VERSIONS.CURRENCY_ENABLED%type;
937: l_version_inter ZPB_BUSAREA_VERSIONS.INTERCOMPANY_ENABLED%type;
938: l_version_line_name ZPB_BUSAREA_VERSIONS.LINE_HIERARCHY_NAME%type;
939: l_version_line_desc ZPB_BUSAREA_VERSIONS.LINE_HIERARCHY_DESC%type;
940: l_parent_version_type ZPB_BUSAREA_VERSIONS.VERSION_TYPE%type;
941: l_ver_fdr_obj_def_id ZPB_BUSAREA_VERSIONS.FUNC_DIM_SET_OBJ_DEF_ID%type; -- "Consistent Dimension"
942:
943: begin
936: l_version_curr ZPB_BUSAREA_VERSIONS.CURRENCY_ENABLED%type;
937: l_version_inter ZPB_BUSAREA_VERSIONS.INTERCOMPANY_ENABLED%type;
938: l_version_line_name ZPB_BUSAREA_VERSIONS.LINE_HIERARCHY_NAME%type;
939: l_version_line_desc ZPB_BUSAREA_VERSIONS.LINE_HIERARCHY_DESC%type;
940: l_parent_version_type ZPB_BUSAREA_VERSIONS.VERSION_TYPE%type;
941: l_ver_fdr_obj_def_id ZPB_BUSAREA_VERSIONS.FUNC_DIM_SET_OBJ_DEF_ID%type; -- "Consistent Dimension"
942:
943: begin
944:
937: l_version_inter ZPB_BUSAREA_VERSIONS.INTERCOMPANY_ENABLED%type;
938: l_version_line_name ZPB_BUSAREA_VERSIONS.LINE_HIERARCHY_NAME%type;
939: l_version_line_desc ZPB_BUSAREA_VERSIONS.LINE_HIERARCHY_DESC%type;
940: l_parent_version_type ZPB_BUSAREA_VERSIONS.VERSION_TYPE%type;
941: l_ver_fdr_obj_def_id ZPB_BUSAREA_VERSIONS.FUNC_DIM_SET_OBJ_DEF_ID%type; -- "Consistent Dimension"
942:
943: begin
944:
945: select
956: l_version_line_name,
957: l_version_line_desc,
958: l_ver_fdr_obj_def_id -- "Consistent Dimension"
959: from
960: ZPB_BUSAREA_VERSIONS
961: where
962: BUSINESS_AREA_ID = p_from_busarea_id
963: and VERSION_TYPE = p_from_version_type;
964:
964:
965: begin
966: select VERSION_ID
967: into l_to_version_id
968: from ZPB_BUSAREA_VERSIONS
969: where BUSINESS_AREA_ID = p_to_busarea_id
970: and VERSION_TYPE = p_to_version_type;
971: exception
972: when no_data_found then
981: l_parent_version_type := GET_PARENT_VERSION_TYPE(p_to_version_type);
982: begin
983: select NAME, DESCRIPTION
984: into l_version_name, l_version_desc
985: from ZPB_BUSAREA_VERSIONS
986: where VERSION_TYPE = l_parent_version_type
987: and BUSINESS_AREA_ID = p_to_busarea_id;
988: exception
989: when no_data_found then
992: end;
993: else
994: select NAME, DESCRIPTION
995: into l_version_name, l_version_desc
996: from ZPB_BUSAREA_VERSIONS
997: where VERSION_ID = l_from_version_id;
998: end if;
999:
1000: CLEAR_VERSION(l_to_version_id);
998: end if;
999:
1000: CLEAR_VERSION(l_to_version_id);
1001:
1002: update ZPB_BUSAREA_VERSIONS set
1003: NAME = l_version_name,
1004: DESCRIPTION = l_version_desc,
1005: CURRENCY_ENABLED = l_version_curr,
1006: INTERCOMPANY_ENABLED = l_version_inter,
1255: -- OUT: concurrent request number
1256: -------------------------------------------------------------------------
1257: FUNCTION DELETE_BUSINESS_AREA_CR (p_business_area_id IN NUMBER)
1258: return NUMBER is
1259: l_ba_name ZPB_BUSAREA_VERSIONS.NAME%type;
1260: l_errbuf VARCHAR2(1000);
1261: l_retcode VARCHAR2(1);
1262: l_retVal NUMBER;
1263:
1317: l_refreshed_count NUMBER;
1318:
1319: cursor l_versions_curs is
1320: select VERSION_ID
1321: from ZPB_BUSAREA_VERSIONS
1322: where BUSINESS_AREA_ID = p_business_area_id;
1323: l_versions l_versions_curs%ROWTYPE;
1324:
1325: cursor l_writeback_tasks_curs is
1391: -- b 4616073 finds and purges all workflows for any ACID or Instance for this Business Area
1392:
1393: select COUNT(*)
1394: into l_refreshed_count
1395: from ZPB_BUSAREA_VERSIONS
1396: WHERE VERSION_TYPE = 'R'
1397: and BUSINESS_AREA_ID = p_business_area_id;
1398:
1399: -- if you're deleting a BA that hasn't been refreshed
1512: end if; -- end if refreshed
1513:
1514: for l_versions in l_versions_curs loop
1515: CLEAR_VERSION (l_versions.VERSION_ID);
1516: delete from ZPB_BUSAREA_VERSIONS
1517: where VERSION_ID = l_versions.VERSION_ID;
1518: end loop;
1519:
1520: delete from ZPB_BUSAREA_COMMENTS
1586: -- IN: p_business_area_id - The Business Area ID
1587: -------------------------------------------------------------------------
1588: FUNCTION REFRESH (p_business_area_id IN NUMBER)
1589: return NUMBER is
1590: l_ba_name ZPB_BUSAREA_VERSIONS.NAME%type;
1591: l_desc FND_CONCURRENT_REQUESTS.DESCRIPTION%type;
1592: begin
1593: select NAME
1594: into l_ba_name
2248: end loop;
2249:
2250: if (l_dup_dims_exists = -99) then
2251:
2252: update ZPB_BUSAREA_VERSIONS
2253: set FUNC_DIM_SET_OBJ_DEF_ID = NULL
2254: where VERSION_ID = p_version_id;
2255:
2256: update ZPB_BUSAREA_DIMENSIONS