1483: ) IS
1484:
1485: CURSOR C_get_carrier_services(p_carrier_id NUMBER) IS
1486: SELECT carrier_service_id
1487: FROM wsh_carrier_services
1488: WHERE carrier_id = p_carrier_id;
1489:
1490: CURSOR C_get_carrier_sites(p_carrier_id NUMBER) IS
1491: SELECT party_site_id
1538: WHERE carrier_id = p_carrier_id;
1539:
1540: CURSOR C_get_ship_method_code(p_carrier_service_id NUMBER) IS
1541: SELECT ship_method_code
1542: FROM wsh_carrier_services
1543: WHERE carrier_service_id = p_carrier_service_id;
1544:
1545: hz_fail_exception EXCEPTION;
1546: unassignall_fail_exception EXCEPTION;
1602: l_position := 10;
1603: l_procedure := 'Calling Car_Ser_Unassign_AllOrg';
1604:
1605: -- Unassigning Organization from Carrier service
1606: WSH_CARRIER_SERVICES_PKG.Car_Ser_Unassign_AllOrg(
1607: p_carrier_service_id => l_carrier_service_id,
1608: p_ship_method_code => l_ship_method_code,
1609: p_freight_code => l_freight_code,
1610: x_exception_msg => l_exception_msg,
1678: END LOOP;
1679: CLOSE C_get_carrier_services;
1680:
1681: -- Update to Deactivate All Carrier Services.
1682: UPDATE WSH_CARRIER_SERVICES
1683: SET ENABLED_FLAG = 'N'
1684: WHERE carrier_id= p_carrier_id;
1685:
1686: -- Deactivation of Carrier Services