21: P_AGENCY_SUBELEMENT VARCHAR2(30) := P_AGENCY_SUBELEMENT;*/
22: L_COUNT NUMBER;
23: L_DUMMY NUMBER;
24: L_ORG_STR_VERSION_ID PER_ORG_STRUCTURE_VERSIONS.ORG_STRUCTURE_VERSION_ID%TYPE;
25: L_BUS_GROUP_ID PER_ORGANIZATION_STRUCTURES.BUSINESS_GROUP_ID%TYPE;
26: CURSOR C_PARENT IS
27: SELECT
28: DISTINCT
29: 0 LVL,
205: VER.ORG_STRUCTURE_VERSION_ID,
206: STRUC.BUSINESS_GROUP_ID BUS_ID
207: INTO L_ORG_STR_VERSION_ID,L_BUS_GROUP_ID
208: FROM
209: PER_ORGANIZATION_STRUCTURES STRUC,
210: PER_ORG_STRUCTURE_VERSIONS VER
211: WHERE STRUC.ORGANIZATION_STRUCTURE_ID = P_ORGANIZATION_HIERARCHY
212: AND STRUC.ORGANIZATION_STRUCTURE_ID = VER.ORGANIZATION_STRUCTURE_ID
213: AND VER.ORG_STRUCTURE_VERSION_ID = P_HIERARCHY_VERSION