359: IF p_customer_spec_rec.orgn_code IS NULL THEN
360: IF p_customer_spec_rec.whse_code IS NOT NULL THEN
361: BEGIN
362: SELECT orgn_code INTO l_orgn_code
363: FROM IC_WHSE_MST
364: WHERE whse_code = p_customer_spec_rec.whse_code;
365: EXCEPTION
366: WHEN OTHERS THEN
367: RAISE INVALID_WHSE;
1066: IF p_supplier_spec_rec.orgn_code IS NULL THEN
1067: IF p_supplier_spec_rec.whse_code IS NOT NULL THEN
1068: BEGIN
1069: SELECT orgn_code INTO l_orgn_code
1070: FROM IC_WHSE_MST
1071: WHERE whse_code = p_supplier_spec_rec.whse_code;
1072: EXCEPTION
1073: WHEN OTHERS THEN
1074: RAISE INVALID_WHSE;