14: CURSOR c_countries (l_AREA_CODE bis_areas_v.AREA_CODE%type)
15: IS
16: select
17: con.name name
18: from BIS_TERRITORY_HIERARCHIES ter,
19: bis_countries_v con
20: where ter.CHILD_TERRITORY_CODE = con.country_code
21: and ter.parent_territory_code = l_AREA_CODE;
22:
40: p_country_code VARCHAR2
41: )
42: IS
43: BEGIN
44: INSERT into BIS_TERRITORY_HIERARCHIES (PARENT_TERRITORY_CODE,
45: PARENT_TERRITORY_TYPE,
46: CHILD_TERRITORY_CODE,
47: CHILD_TERRITORY_TYPE,
48: START_DATE_ACTIVE,
77: PROCEDURE DEL_AREA_COUNTRY_ASSO(p_area_code VARCHAR2 )
78: IS
79: BEGIN
80:
81: Delete BIS_TERRITORY_HIERARCHIES where PARENT_TERRITORY_CODE = p_area_code;
82:
83: commit;
84:
85: EXCEPTION