705: --{
706: delete vea_packages PK
707: where tpa_flag = 'Y'
708: and not exists ( select 1
709: from vea_program_units PU
710: where PU.layer_provider_code = PK.layer_provider_code
711: AND PU.package_id = PK.package_id
712: );
713: --}
805: LOOP
806: --{
807: l_location := '0030';
808: --
809: vea_program_units_sv.delete_rows
810: (
811: p_layer_provider_code => p_layer_provider_code,
812: p_tp_layer_id => p_tp_layer_id,
813: p_package_id => package_rec.package_id,