求一个存储过程

有两张表
TABLE1
AREANAME AREAID北京市xxx
广东省中山市XXX 
广东省中山市XXXX 
广东省中山市XXX
广东省中山市XXX
......
XXX省XXX市
TABLE2
AREAID AREANAME PAREAID AREALEVEL PAREANAME
000 中国 COUN
001 北京 000 PROV 中国
00754 全椒 0013 CITY 安徽
00755 肥西 0013 CITY 安徽
00756 长丰 0013 CITY 安徽
00757 肥东 0013 CITY 安徽
.......现在想根据如下算法更新table1中的areaid的值，请大侠给出oracle 10g存储过程的写法，多谢
1.如果table2中的PAREANAME和AREANAME均包含在TABLE1的AREANAME中，则TABLE1.AREAID = TABLE2.AREAID
2.如果TABLE1中的地址为直辖市，则直接判断TABLE2的AREANAME是否包含该值，然后更新AREAID上面的算法可能也不对，请大家帮我想想应该如何做，我得目的就是根据TABLE1中AREANAME的值去TABLE2中找到相应的AREAID值,然后更新TABLE1中AREAID的值。
请高手顺便帮助写出存储过程程序。