343: -- Logging Infra: Intentionally, not implementing log infra around get_pos_loc_or_site procedure
344: -- as it internally logs its messages.
345: IF p_location_type = 'SHIP_FROM' THEN
346: get_pos_loc_or_site(
347: zx_valid_init_params_pkg.source_rec.ship_from_party_type, x_location_table_name,
348: l_loc_site,
349: x_return_status);
350:
351: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
353: END IF;
354:
355: ELSIF p_location_type = 'SHIP_TO' THEN
356: get_pos_loc_or_site(
357: zx_valid_init_params_pkg.source_rec.ship_to_party_type,
358: x_location_table_name,
359: l_loc_site,
360: x_return_status);
361:
364: END IF;
365:
366: ELSIF p_location_type = 'BILL_FROM' THEN
367: get_pos_loc_or_site(
368: zx_valid_init_params_pkg.source_rec.bill_from_party_type, x_location_table_name,
369: l_loc_site,
370: x_return_status);
371: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
372: RAISE FND_API.G_EXC_ERROR;
373: END IF;
374:
375: ELSIF p_location_type = 'BILL_TO' THEN
376: get_pos_loc_or_site(
377: zx_valid_init_params_pkg.source_rec.bill_to_party_type,
378: x_location_table_name,
379: l_loc_site,
380: x_return_status);
381: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
383: END IF;
384:
385: ELSIF p_location_type = 'POA' THEN
386: get_pos_loc_or_site(
387: zx_valid_init_params_pkg.source_rec.poa_party_type,
388: x_location_table_name,
389: l_loc_site,
390: x_return_status);
391: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
393: END IF;
394:
395: ELSIF p_location_type = 'POO' THEN
396: get_pos_loc_or_site(
397: zx_valid_init_params_pkg.source_rec.poo_party_type,
398: x_location_table_name,
399: l_loc_site,
400: x_return_status);
401: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
403: END IF;
404:
405: ELSIF p_location_type = 'TRADING_HQ' THEN
406: get_pos_loc_or_site(
407: zx_valid_init_params_pkg.source_rec.trad_hq_party_type,
408: x_location_table_name,
409: l_loc_site,
410: x_return_status);
411: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
413: END IF;
414:
415: ELSIF p_location_type = 'OWN_HQ' THEN
416: get_pos_loc_or_site(
417: zx_valid_init_params_pkg.source_rec.own_hq_party_type, x_location_table_name,
418: l_loc_site,
419: x_return_status);
420: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
421: RAISE FND_API.G_EXC_ERROR;
422: END IF;
423:
424: ELSIF p_location_type = 'TITLE_TRANS' THEN
425: get_pos_loc_or_site(
426: zx_valid_init_params_pkg.source_rec.ttl_trns_party_type,
427: x_location_table_name,
428: l_loc_site,
429: x_return_status);
430: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
432: END IF;
433:
434: ELSIF p_location_type = 'PAYING' THEN
435: get_pos_loc_or_site(
436: zx_valid_init_params_pkg.source_rec.paying_party_type,
437: x_location_table_name,
438: l_loc_site,
439: x_return_status);
440: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
442: END IF;
443:
444: ELSIF p_location_type = 'POC' THEN
445: /*get_pos_loc_or_site(
446: zx_valid_init_params_pkg.source_rec.ship_from_party_type, x_location_table_name,
447: l_loc_site,
448: x_return_status);
449: */
450: null;
450: null;
451:
452: ELSIF p_location_type = 'POI' THEN
453: get_pos_loc_or_site(
454: zx_valid_init_params_pkg.source_rec.poi_party_type,
455: x_location_table_name,
456: l_loc_site,
457: x_return_status);
458: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
460: END IF;
461:
462: ELSIF p_location_type = 'POD' THEN
463: get_pos_loc_or_site(
464: zx_valid_init_params_pkg.source_rec.pod_party_type,
465: x_location_table_name,
466: l_loc_site,
467: x_return_status);
468: IF x_return_status = FND_API.G_RET_STS_ERROR THEN