[Home] [Help]
188:
189: IF (P_party_id IS NULL) THEN
190: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
191: FND_MESSAGE.SET_TOKEN('FIELD_NAME','P_party_id');
192: wsh_util_core.add_message(x_return_status,l_module_name);
193: raise fnd_api.g_exc_error;
194: END IF;
195:
196: IF (P_location_id IS NULL) THEN
195:
196: IF (P_location_id IS NULL) THEN
197: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
198: FND_MESSAGE.SET_TOKEN('FIELD_NAME','P_location_id');
199: wsh_util_core.add_message(x_return_status,l_module_name);
200: raise fnd_api.g_exc_error;
201: END IF;
202:
203: IF (P_location_code IS NULL ) THEN
202:
203: IF (P_location_code IS NULL ) THEN
204: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
205: FND_MESSAGE.SET_TOKEN('FIELD_NAME','P_location_code');
206: wsh_util_core.add_message(x_return_status,l_module_name);
207: raise fnd_api.g_exc_error;
208: END IF;
209:
210: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
206: wsh_util_core.add_message(x_return_status,l_module_name);
207: raise fnd_api.g_exc_error;
208: END IF;
209:
210: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
211:
212: --Assign the party and location information to input parameter of below HZ api.
213: l_site_rec.party_id := p_party_id;
214: l_site_rec.location_id := p_location_id;
250: WSH_DEBUG_SV.log(l_module_name,'HZ_PARTY_SITE_V2PUB.Create_Party_Site l_return_status',l_return_status);
251: WSH_DEBUG_SV.log(l_module_name,'x_party_site_id',x_party_site_id);
252: WSH_DEBUG_SV.log(l_module_name,'l_party_site_number',l_party_site_number);
253: END IF;
254: wsh_util_core.api_post_call(
255: p_return_status => l_return_status,
256: x_num_warnings => l_num_warnings,
257: x_num_errors => l_num_errors);
258:
256: x_num_warnings => l_num_warnings,
257: x_num_errors => l_num_errors);
258:
259: IF l_num_errors > 0 THEN
260: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
261: ELSIF l_num_warnings > 0 THEN
262: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
263: END IF;
264:
258:
259: IF l_num_errors > 0 THEN
260: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
261: ELSIF l_num_warnings > 0 THEN
262: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
263: END IF;
264:
265: IF l_debug_on THEN
266: WSH_DEBUG_SV.pop(l_module_name);
266: WSH_DEBUG_SV.pop(l_module_name);
267: END IF;
268: EXCEPTION
269: WHEN FND_API.G_EXC_ERROR THEN
270: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
271:
272: IF l_debug_on THEN
273: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
274: WSH_DEBUG_SV.logmsg(l_module_name,'l_msg_count: '||l_msg_count,WSH_DEBUG_SV.C_EXCEP_LEVEL);
276: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
277: END IF;
278:
279: WHEN OTHERS THEN
280: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
281:
282: IF l_debug_on THEN
283: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
284: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
460: WSH_DEBUG_SV.push(l_module_name);
461: WSH_DEBUG_SV.log(l_module_name,'p_vendor_id',p_vendor_id);
462: END IF;
463:
464: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
465:
466: IF (VENDOR_PARTY_EXISTS(p_vendor_id,l_party_id) <> 'Y' ) THEN --{
467:
468: --Create only, if Party does not already exists.
507: WSH_DEBUG_SV.log(l_module_name,'l_party_number',l_party_number);
508: WSH_DEBUG_SV.log(l_module_name,'l_profile_id',l_profile_id);
509: END IF;
510:
511: wsh_util_core.api_post_call(
512: p_return_status => l_return_status,
513: x_num_warnings => l_num_warnings,
514: x_num_errors => l_num_errors);
515:
553: WSH_DEBUG_SV.log(l_module_name,'l_party_id',l_rel_party_id);
554: WSH_DEBUG_SV.log(l_module_name,'l_party_number',l_party_number);
555: END IF;
556:
557: wsh_util_core.api_post_call(
558: p_return_status => l_return_status,
559: x_num_warnings => l_num_warnings,
560: x_num_errors => l_num_errors);
561:
598: WSH_DEBUG_SV.log(l_module_name,'exception_message',exception_message);
599: WSH_DEBUG_SV.log(l_module_name,'l_code_assignment_id',l_code_assignment_id);
600: END IF;
601:
602: wsh_util_core.api_post_call(
603: p_return_status => l_return_status,
604: x_num_warnings => l_num_warnings,
605: x_num_errors => l_num_errors);
606: END IF;
606: END IF;
607: END IF; --}
608:
609: IF l_num_errors > 0 THEN
610: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
611: ELSIF l_num_warnings > 0 THEN
612: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
613: END IF;
614:
608:
609: IF l_num_errors > 0 THEN
610: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
611: ELSIF l_num_warnings > 0 THEN
612: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
613: END IF;
614:
615: IF l_debug_on THEN
616: WSH_DEBUG_SV.pop(l_module_name);
619: RETURN l_party_id;
620:
621: EXCEPTION
622: WHEN FND_API.G_EXC_ERROR THEN
623: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
624:
625: IF l_debug_on THEN
626: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
627: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
629:
630: RETURN null;
631:
632: WHEN OTHERS THEN
633: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
634:
635: IF l_debug_on THEN
636: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
637: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
724: WSH_DEBUG_SV.log(l_module_name,'P_county',P_county);
725: WSH_DEBUG_SV.log(l_module_name,'p_country',p_country);
726: END IF;
727:
728: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
729:
730: l_loc_rec.location_id := p_location_id;
731: l_loc_rec.address1 := p_address1;
732: l_loc_rec.address2 := p_address2;
759: IF l_debug_on THEN
760: WSH_DEBUG_SV.log(l_module_name,'HZ_LOCATION_V2PUB.Update_Location l_return_status',l_return_status);
761: END IF;
762:
763: wsh_util_core.api_post_call(
764: p_return_status => l_return_status,
765: x_num_warnings => l_num_warnings,
766: x_num_errors => l_num_errors);
767:
765: x_num_warnings => l_num_warnings,
766: x_num_errors => l_num_errors);
767:
768: IF l_num_errors > 0 THEN
769: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
770: ELSIF l_num_warnings > 0 THEN
771: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
772: END IF;
773:
767:
768: IF l_num_errors > 0 THEN
769: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
770: ELSIF l_num_warnings > 0 THEN
771: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
772: END IF;
773:
774: IF l_debug_on THEN
775: WSH_DEBUG_SV.pop(l_module_name);
775: WSH_DEBUG_SV.pop(l_module_name);
776: END IF;
777: EXCEPTION
778: WHEN FND_API.G_EXC_ERROR THEN
779: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
780:
781: IF l_debug_on THEN
782: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
783: WSH_DEBUG_SV.logmsg(l_module_name,'l_msg_count: '||l_msg_count,WSH_DEBUG_SV.C_EXCEP_LEVEL);
785: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
786: END IF;
787:
788: WHEN OTHERS THEN
789: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
790:
791: IF l_debug_on THEN
792: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
793: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
876:
877: IF (P_party_id IS NULL) THEN
878: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
879: FND_MESSAGE.SET_TOKEN('FIELD_NAME','P_party_id');
880: wsh_util_core.add_message(x_return_status,l_module_name);
881: raise fnd_api.g_exc_error;
882: END IF;
883:
884: IF (P_address1 IS NULL) THEN
883:
884: IF (P_address1 IS NULL) THEN
885: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
886: FND_MESSAGE.SET_TOKEN('FIELD_NAME','P_address1');
887: wsh_util_core.add_message(x_return_status,l_module_name);
888: raise fnd_api.g_exc_error;
889: END IF;
890:
891: IF (p_country IS NULL ) THEN
890:
891: IF (p_country IS NULL ) THEN
892: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
893: FND_MESSAGE.SET_TOKEN('FIELD_NAME','p_country');
894: wsh_util_core.add_message(x_return_status,l_module_name);
895: raise fnd_api.g_exc_error;
896: END IF;
897:
898: IF (p_location_code IS NULL ) THEN
897:
898: IF (p_location_code IS NULL ) THEN
899: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
900: FND_MESSAGE.SET_TOKEN('FIELD_NAME','p_location_code');
901: wsh_util_core.add_message(x_return_status,l_module_name);
902: raise fnd_api.g_exc_error;
903: END IF;
904:
905: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
901: wsh_util_core.add_message(x_return_status,l_module_name);
902: raise fnd_api.g_exc_error;
903: END IF;
904:
905: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
906:
907: --Check if location is already created for party.
908: IF ( NOT check_HZ_location(
909: p_location_code => p_location_code,
947: WSH_DEBUG_SV.log(l_module_name,'HZ_LOCATION_V2PUB.Create_Location l_return_status',l_return_status);
948: WSH_DEBUG_SV.log(l_module_name,'x_location_id',x_location_id);
949: END IF;
950:
951: wsh_util_core.api_post_call(
952: p_return_status => l_return_status,
953: x_num_warnings => l_num_warnings,
954: x_num_errors => l_num_errors);
955:
964: IF l_debug_on THEN
965: WSH_DEBUG_SV.log(l_module_name,'Create_HZ_Party_Site l_return_status',l_return_status);
966: WSH_DEBUG_SV.log(l_module_name,'x_party_site_id',x_party_site_id);
967: END IF;
968: wsh_util_core.api_post_call(
969: p_return_status => l_return_status,
970: x_num_warnings => l_num_warnings,
971: x_num_errors => l_num_errors);
972: END IF;
971: x_num_errors => l_num_errors);
972: END IF;
973:
974: IF l_num_errors > 0 THEN
975: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
976: ELSIF l_num_warnings > 0 THEN
977: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
978: END IF;
979:
973:
974: IF l_num_errors > 0 THEN
975: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
976: ELSIF l_num_warnings > 0 THEN
977: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
978: END IF;
979:
980: IF l_debug_on THEN
981: WSH_DEBUG_SV.pop(l_module_name);
981: WSH_DEBUG_SV.pop(l_module_name);
982: END IF;
983: EXCEPTION
984: WHEN FND_API.G_EXC_ERROR THEN
985: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
986:
987: IF l_debug_on THEN
988: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
989: WSH_DEBUG_SV.logmsg(l_module_name,'l_msg_count: '||l_msg_count,WSH_DEBUG_SV.C_EXCEP_LEVEL);
991: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
992: END IF;
993:
994: WHEN OTHERS THEN
995: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
996:
997: IF l_debug_on THEN
998: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
999: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1159: WSH_DEBUG_SV.push(l_module_name);
1160: WSH_DEBUG_SV.log(l_module_name,'P_supplier_name',P_supplier_name);
1161: END IF;
1162:
1163: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1164:
1165:
1166: --Validate the ISP user.
1167: IF (p_in_param.caller= 'ISP' ) THEN
1207: WSH_DEBUG_SV.pop(l_module_name);
1208: END IF;
1209: EXCEPTION
1210: WHEN FND_API.G_EXC_ERROR THEN
1211: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
1212:
1213: IF l_debug_on THEN
1214: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1215: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1215: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1216: END IF;
1217:
1218: WHEN OTHERS THEN
1219: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1220:
1221: IF l_debug_on THEN
1222: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
1223: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1354:
1355: IF (P_party_site_id IS NULL) THEN
1356: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
1357: FND_MESSAGE.SET_TOKEN('FIELD_NAME','P_party_site_id');
1358: wsh_util_core.add_message(x_return_status,l_module_name);
1359: raise fnd_api.g_exc_error;
1360: END IF;
1361:
1362: IF (P_site_use_type IS NULL ) THEN
1361:
1362: IF (P_site_use_type IS NULL ) THEN
1363: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
1364: FND_MESSAGE.SET_TOKEN('FIELD_NAME','P_site_use_type');
1365: wsh_util_core.add_message(x_return_status,l_module_name);
1366: raise fnd_api.g_exc_error;
1367: END IF;
1368:
1369: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1365: wsh_util_core.add_message(x_return_status,l_module_name);
1366: raise fnd_api.g_exc_error;
1367: END IF;
1368:
1369: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1370:
1371: --Check if Party site uses is already created.
1372: IF ( NOT check_HZ_Party_Site_uses(
1373: P_party_site_id => p_party_site_id,
1390: IF l_debug_on THEN
1391: WSH_DEBUG_SV.log(l_module_name,'HZ_PARTY_SITE_V2PUB.Create_Party_Site_Use l_return_status',l_return_status);
1392: WSH_DEBUG_SV.log(l_module_name,'x_party_site_use_id',x_party_site_use_id);
1393: END IF;
1394: wsh_util_core.api_post_call(
1395: p_return_status => l_return_status,
1396: x_num_warnings => l_num_warnings,
1397: x_num_errors => l_num_errors);
1398:
1398:
1399: END IF;
1400:
1401: IF l_num_errors > 0 THEN
1402: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1403: ELSIF l_num_warnings > 0 THEN
1404: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1405: END IF;
1406:
1400:
1401: IF l_num_errors > 0 THEN
1402: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1403: ELSIF l_num_warnings > 0 THEN
1404: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1405: END IF;
1406:
1407: IF l_debug_on THEN
1408: WSH_DEBUG_SV.pop(l_module_name);
1408: WSH_DEBUG_SV.pop(l_module_name);
1409: END IF;
1410: EXCEPTION
1411: WHEN FND_API.G_EXC_ERROR THEN
1412: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
1413:
1414: IF l_debug_on THEN
1415: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1416: WSH_DEBUG_SV.logmsg(l_module_name,'l_msg_count: '||l_msg_count,WSH_DEBUG_SV.C_EXCEP_LEVEL);
1418: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1419: END IF;
1420:
1421: WHEN OTHERS THEN
1422: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1423:
1424: IF l_debug_on THEN
1425: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
1426: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1476: WSH_DEBUG_SV.log(l_module_name,'P_PHONE',P_PHONE);
1477: WSH_DEBUG_SV.log(l_module_name,'p_owner_table_id',p_owner_table_id);
1478: END IF;
1479:
1480: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1481:
1482: --Phone Number not is mandatory parameter for creating phone contact,
1483: --call api create only if it is not null.
1484: IF (p_phone IS NOT NULL) THEN
1508: IF l_debug_on THEN
1509: WSH_DEBUG_SV.log(l_module_name,'HZ_CONTACT_POINT_V2PUB.Create_phone_Contact_Point l_contact_point_id',l_contact_point_id);
1510: WSH_DEBUG_SV.log(l_module_name,'l_contact_point_id',l_contact_point_id);
1511: END IF;
1512: wsh_util_core.api_post_call(
1513: p_return_status => l_return_status,
1514: x_num_warnings => l_num_warnings,
1515: x_num_errors => l_num_errors);
1516:
1516:
1517: END IF;
1518:
1519: IF l_num_errors > 0 THEN
1520: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1521: ELSIF l_num_warnings > 0 THEN
1522: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1523: END IF;
1524:
1518:
1519: IF l_num_errors > 0 THEN
1520: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1521: ELSIF l_num_warnings > 0 THEN
1522: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1523: END IF;
1524:
1525: IF l_debug_on THEN
1526: WSH_DEBUG_SV.pop(l_module_name);
1526: WSH_DEBUG_SV.pop(l_module_name);
1527: END IF;
1528: EXCEPTION
1529: WHEN FND_API.G_EXC_ERROR THEN
1530: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
1531:
1532: FND_MESSAGE.SET_NAME('WSH', 'WSH_RR_ERROR_CR_CONTACT');
1533: fnd_msg_pub.add;
1534:
1539: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1540: END IF;
1541:
1542: WHEN OTHERS THEN
1543: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1544:
1545: IF l_debug_on THEN
1546: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
1547: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1634: IF l_debug_on THEN
1635: WSH_DEBUG_SV.push(l_module_name);
1636: END IF;
1637:
1638: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1639:
1640:
1641: IF (nvl(P_person_name,'#') <> nvl(p_old_person_name,'#') ) THEN --{
1642: l_person_rec.person_first_name := p_person_name;
1669: WSH_DEBUG_SV.log(l_module_name,'l_msg_count',l_msg_count);
1670: WSH_DEBUG_SV.log(l_module_name,'l_msg_data',l_msg_data);
1671: END IF;
1672:
1673: wsh_util_core.api_post_call(
1674: p_return_status => l_return_status,
1675: x_num_warnings => l_num_warnings,
1676: x_num_errors => l_num_errors);
1677:
1689:
1690: IF l_debug_on THEN
1691: WSH_DEBUG_SV.log(l_module_name,'Create_hz_phone_contact l_return_status',l_return_status);
1692: END IF;
1693: wsh_util_core.api_post_call(
1694: p_return_status => l_return_status,
1695: x_num_warnings => l_num_warnings,
1696: x_num_errors => l_num_errors);
1697:
1728: WSH_DEBUG_SV.log(l_module_name,'HZ_CONTACT_POINT_V2PUB.Update_Contact_Point l_return_status',l_return_status);
1729: WSH_DEBUG_SV.log(l_module_name,'l_msg_count',l_msg_count);
1730: WSH_DEBUG_SV.log(l_module_name,'l_msg_data',l_msg_data);
1731: END IF;
1732: wsh_util_core.api_post_call(
1733: p_return_status => l_return_status,
1734: x_num_warnings => l_num_warnings,
1735: x_num_errors => l_num_errors);
1736: END IF;
1770: WSH_DEBUG_SV.log(l_module_name,'l_msg_count',l_msg_count);
1771: WSH_DEBUG_SV.log(l_module_name,'l_msg_data',l_msg_data);
1772: END IF;
1773:
1774: wsh_util_core.api_post_call(
1775: p_return_status => l_return_status,
1776: x_num_warnings => l_num_warnings,
1777: x_num_errors => l_num_errors);
1778:
1779: END IF; --}
1780:
1781:
1782: IF l_num_errors > 0 THEN
1783: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1784: ELSIF l_num_warnings > 0 THEN
1785: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1786: END IF;
1787:
1781:
1782: IF l_num_errors > 0 THEN
1783: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1784: ELSIF l_num_warnings > 0 THEN
1785: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1786: END IF;
1787:
1788: IF l_debug_on THEN
1789: WSH_DEBUG_SV.pop(l_module_name);
1789: WSH_DEBUG_SV.pop(l_module_name);
1790: END IF;
1791: EXCEPTION
1792: WHEN FND_API.G_EXC_ERROR THEN
1793: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
1794:
1795: FND_MESSAGE.SET_NAME('WSH', 'WSH_RR_ERROR_UP_CONTACT');
1796: fnd_msg_pub.add;
1797:
1810: CLOSE Get_Cont_Point_Version;
1811: END IF;
1812:
1813: WHEN OTHERS THEN
1814: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1815:
1816: IF l_debug_on THEN
1817: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
1818: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1904: WSH_DEBUG_SV.log(l_module_name,'P_PHONE',P_PHONE);
1905: WSH_DEBUG_SV.log(l_module_name,'P_EMAIL',P_EMAIL);
1906: END IF;
1907:
1908: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1909:
1910: l_per_rec.person_first_name := P_PERSON_NAME;
1911: l_per_rec.created_by_module := C_CREATED_BY_MODULE;
1912: l_per_rec.party_rec.status := 'A';
1931: WSH_DEBUG_SV.log(l_module_name,'l_party_number',l_party_number);
1932: WSH_DEBUG_SV.log(l_module_name,'l_profile_id',l_profile_id);
1933: END IF;
1934: --
1935: wsh_util_core.api_post_call(
1936: p_return_status => l_return_status,
1937: x_num_warnings => l_num_warnings,
1938: x_num_errors => l_num_errors);
1939:
1973: WSH_DEBUG_SV.log(l_module_name,'l_party_relationship_id',l_party_relationship_id);
1974: WSH_DEBUG_SV.log(l_module_name,'l_party_id',l_party_id);
1975: WSH_DEBUG_SV.log(l_module_name,'l_party_number',l_party_number);
1976: END IF;
1977: wsh_util_core.api_post_call(
1978: p_return_status => l_return_status,
1979: x_num_warnings => l_num_warnings,
1980: x_num_errors => l_num_errors);
1981:
2004: IF l_debug_on THEN
2005: WSH_DEBUG_SV.log(l_module_name,'HZ_CONTACT_POINT_V2PUB.Create_email_Contact_Point l_return_status',l_return_status);
2006: WSH_DEBUG_SV.log(l_module_name,'l_contact_point_id',l_contact_point_id);
2007: END IF;
2008: wsh_util_core.api_post_call(
2009: p_return_status => l_return_status,
2010: x_num_warnings => l_num_warnings,
2011: x_num_errors => l_num_errors);
2012:
2020:
2021: IF l_debug_on THEN
2022: WSH_DEBUG_SV.log(l_module_name,'Create_hz_phone_contact l_return_status',l_return_status);
2023: END IF;
2024: wsh_util_core.api_post_call(
2025: p_return_status => l_return_status,
2026: x_num_warnings => l_num_warnings,
2027: x_num_errors => l_num_errors);
2028: END IF;
2027: x_num_errors => l_num_errors);
2028: END IF;
2029:
2030: IF l_num_errors > 0 THEN
2031: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2032: ELSIF l_num_warnings > 0 THEN
2033: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2034: END IF;
2035:
2029:
2030: IF l_num_errors > 0 THEN
2031: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2032: ELSIF l_num_warnings > 0 THEN
2033: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2034: END IF;
2035:
2036: IF l_debug_on THEN
2037: WSH_DEBUG_SV.pop(l_module_name);
2037: WSH_DEBUG_SV.pop(l_module_name);
2038: END IF;
2039: EXCEPTION
2040: WHEN FND_API.G_EXC_ERROR THEN
2041: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
2042:
2043: FND_MESSAGE.SET_NAME('WSH', 'WSH_RR_ERROR_CR_CONTACT');
2044: fnd_msg_pub.add;
2045:
2050: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2051: END IF;
2052:
2053: WHEN OTHERS THEN
2054: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2055:
2056: IF l_debug_on THEN
2057: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
2058: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2181: WSH_DEBUG_SV.log(l_module_name,'P_phone',P_phone);
2182: WSH_DEBUG_SV.log(l_module_name,'P_EMAIL',P_EMAIL);
2183: END IF;
2184:
2185: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2186:
2187: --See if contact information are already exists for Party and Party site.
2188: OPEN Get_Contact_info(p_party_id,p_party_site_id);
2189: FETCH Get_Contact_info
2215:
2216: IF l_debug_on THEN
2217: WSH_DEBUG_SV.log(l_module_name,'Create_HZ_contact l_return_status',l_return_status);
2218: END IF;
2219: wsh_util_core.api_post_call(
2220: p_return_status => l_return_status,
2221: x_num_warnings => l_num_warnings,
2222: x_num_errors => l_num_errors);
2223:
2242:
2243: IF l_debug_on THEN
2244: WSH_DEBUG_SV.log(l_module_name,'HZ_RELATIONSHIP_V2PUB.update_relationship l_return_status',l_return_status);
2245: END IF;
2246: wsh_util_core.api_post_call(
2247: p_return_status => l_return_status,
2248: x_num_warnings => l_num_warnings,
2249: x_num_errors => l_num_errors);
2250:
2268:
2269: IF l_debug_on THEN
2270: WSH_DEBUG_SV.log(l_module_name,'Update_HZ_contact l_return_status',l_return_status);
2271: END IF;
2272: wsh_util_core.api_post_call(
2273: p_return_status => l_return_status,
2274: x_num_warnings => l_num_warnings,
2275: x_num_errors => l_num_errors);
2276: END IF;
2276: END IF;
2277: CLOSE Get_Contact_info;
2278:
2279: IF l_num_errors > 0 THEN
2280: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2281: ELSIF l_num_warnings > 0 THEN
2282: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2283: END IF;
2284:
2278:
2279: IF l_num_errors > 0 THEN
2280: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2281: ELSIF l_num_warnings > 0 THEN
2282: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2283: END IF;
2284:
2285: IF l_debug_on THEN
2286: WSH_DEBUG_SV.pop(l_module_name);
2286: WSH_DEBUG_SV.pop(l_module_name);
2287: END IF;
2288: EXCEPTION
2289: WHEN FND_API.G_EXC_ERROR THEN
2290: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
2291:
2292: IF l_debug_on THEN
2293: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2294: WSH_DEBUG_SV.logmsg(l_module_name,'l_msg_count: '||l_msg_count,WSH_DEBUG_SV.C_EXCEP_LEVEL);
2300: CLOSE Get_Contact_info;
2301: END IF;
2302:
2303: WHEN OTHERS THEN
2304: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2305:
2306: IF l_debug_on THEN
2307: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
2308: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2395: WSH_DEBUG_SV.log(l_module_name,'p_phone',p_phone);
2396: WSH_DEBUG_SV.log(l_module_name,'p_email',p_email);
2397: END IF;
2398:
2399: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2400:
2401: l_location_id := p_location_id;
2402:
2403: Update_Hz_Location(
2417: IF l_debug_on THEN
2418: WSH_DEBUG_SV.log(l_module_name,'Update_Hz_Location l_return_status',l_return_status);
2419: END IF;
2420:
2421: wsh_util_core.api_post_call(
2422: p_return_status => l_return_status,
2423: x_num_warnings => l_num_warnings,
2424: x_num_errors => l_num_errors);
2425:
2432:
2433: IF l_debug_on THEN
2434: WSH_DEBUG_SV.log(l_module_name,' WSH_UTIL_VALIDATE.validate_location l_return_status',l_return_status);
2435: END IF;
2436: wsh_util_core.api_post_call(
2437: p_return_status => l_return_status,
2438: x_num_warnings => l_num_warnings,
2439: x_num_errors => l_num_errors);
2440:
2449:
2450: IF l_debug_on THEN
2451: WSH_DEBUG_SV.log(l_module_name,'Process_HZ_contact l_return_status',l_return_status);
2452: END IF;
2453: wsh_util_core.api_post_call(
2454: p_return_status => l_return_status,
2455: x_num_warnings => l_num_warnings,
2456: x_num_errors => l_num_errors);
2457:
2455: x_num_warnings => l_num_warnings,
2456: x_num_errors => l_num_errors);
2457:
2458: IF l_num_errors > 0 THEN
2459: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2460: ELSIF l_num_warnings > 0 THEN
2461: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2462: END IF;
2463:
2457:
2458: IF l_num_errors > 0 THEN
2459: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2460: ELSIF l_num_warnings > 0 THEN
2461: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2462: END IF;
2463:
2464: IF l_debug_on THEN
2465: WSH_DEBUG_SV.pop(l_module_name);
2465: WSH_DEBUG_SV.pop(l_module_name);
2466: END IF;
2467: EXCEPTION
2468: WHEN FND_API.G_EXC_ERROR THEN
2469: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
2470:
2471: FND_MESSAGE.SET_NAME('WSH', 'WSH_RR_ERROR_UP_LOC');
2472: fnd_msg_pub.add;
2473:
2476: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2477: END IF;
2478:
2479: WHEN OTHERS THEN
2480: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2481:
2482: IF l_debug_on THEN
2483: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
2484: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2574: WSH_DEBUG_SV.log(l_module_name,'p_phone',p_phone);
2575: WSH_DEBUG_SV.log(l_module_name,'p_email',p_email);
2576: END IF;
2577:
2578: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2579:
2580: --Create Location and Party Site
2581: Create_Hz_Location_Party_Site(
2582: P_party_id => p_party_id,
2599: WSH_DEBUG_SV.log(l_module_name,'Create_Hz_Location_Party_Site l_return_status',l_return_status);
2600: WSH_DEBUG_SV.log(l_module_name,'x_location_id',x_location_id);
2601: WSH_DEBUG_SV.log(l_module_name,'x_party_site_id',x_party_site_id);
2602: END IF;
2603: wsh_util_core.api_post_call(
2604: p_return_status => l_return_status,
2605: x_num_warnings => l_num_warnings,
2606: x_num_errors => l_num_errors);
2607:
2614:
2615: IF l_debug_on THEN
2616: WSH_DEBUG_SV.log(l_module_name,' WSH_UTIL_VALIDATE.validate_location l_return_status',l_return_status);
2617: END IF;
2618: wsh_util_core.api_post_call(
2619: p_return_status => l_return_status,
2620: x_num_warnings => l_num_warnings,
2621: x_num_errors => l_num_errors);
2622:
2631: IF l_debug_on THEN
2632: WSH_DEBUG_SV.log(l_module_name,' Create_HZ_Party_Site_uses l_return_status',l_return_status);
2633: WSH_DEBUG_SV.log(l_module_name,'l_party_site_use_id',l_party_site_use_id);
2634: END IF;
2635: wsh_util_core.api_post_call(
2636: p_return_status => l_return_status,
2637: x_num_warnings => l_num_warnings,
2638: x_num_errors => l_num_errors);
2639:
2648:
2649: IF l_debug_on THEN
2650: WSH_DEBUG_SV.log(l_module_name,'Create_HZ_contact PHONE l_return_status',l_return_status);
2651: END IF;
2652: wsh_util_core.api_post_call(
2653: p_return_status => l_return_status,
2654: x_num_warnings => l_num_warnings,
2655: x_num_errors => l_num_errors);
2656:
2654: x_num_warnings => l_num_warnings,
2655: x_num_errors => l_num_errors);
2656:
2657: IF l_num_errors > 0 THEN
2658: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2659: ELSIF l_num_warnings > 0 THEN
2660: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2661: END IF;
2662:
2656:
2657: IF l_num_errors > 0 THEN
2658: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2659: ELSIF l_num_warnings > 0 THEN
2660: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2661: END IF;
2662:
2663:
2664: IF l_debug_on THEN
2665: WSH_DEBUG_SV.pop(l_module_name);
2666: END IF;
2667: EXCEPTION
2668: WHEN FND_API.G_EXC_ERROR THEN
2669: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
2670:
2671: FND_MESSAGE.SET_NAME('WSH', 'WSH_RR_ERROR_CR_LOC');
2672: fnd_msg_pub.add;
2673:
2676: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2677: END IF;
2678:
2679: WHEN OTHERS THEN
2680: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2681:
2682: IF l_debug_on THEN
2683: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
2684: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2832: WSH_DEBUG_SV.log(l_module_name,'P_Address.count',P_Address.supplier_name.count);
2833: WSH_DEBUG_SV.log(l_module_name,'x_error_tbl.count',x_error_tbl.count);
2834: END IF;
2835:
2836: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2837: l_num_errors := 0;
2838: l_num_warning := 0;
2839: --Initilize success and error message table.
2840: x_success_tbl := WSH_FILE_MSG_TABLE();
2854: FND_MESSAGE.SET_NAME('WSH','WSH_RR_INV_ACTION');
2855: FND_MESSAGE.SET_TOKEN('LINE_NUMBER',l_index);
2856: fnd_msg_pub.add;
2857:
2858: wsh_util_core.api_post_call(p_return_status =>WSH_UTIL_CORE.G_RET_STS_ERROR,
2859: x_num_warnings =>l_num_warning,
2860: x_num_errors =>l_num_errors);
2861: END IF;
2862:
2860: x_num_errors =>l_num_errors);
2861: END IF;
2862:
2863: IF (P_Address.error_flag(l_index) = 'Y' ) THEN
2864: wsh_util_core.api_post_call(p_return_status =>WSH_UTIL_CORE.G_RET_STS_ERROR,
2865: x_num_warnings =>l_num_warning,
2866: x_num_errors =>l_num_errors);
2867: END IF;
2868:
2878: WSH_DEBUG_SV.log(l_module_name,'Validate_Supplier l_return_status',l_return_status);
2879: WSH_DEBUG_SV.log(l_module_name,'l_vendor_id',l_vendor_id);
2880: WSH_DEBUG_SV.log(l_module_name,'l_party_id',l_party_id);
2881: END IF;
2882: wsh_util_core.api_post_call(p_return_status =>l_return_status,
2883: x_num_warnings =>l_num_warning,
2884: x_num_errors =>l_num_errors);
2885:
2886:
2897: IF (P_Address.action(l_index) = 'I' ) THEN
2898: FND_MESSAGE.SET_NAME('WSH','WSH_RR_INV_ACTION');
2899: FND_MESSAGE.SET_TOKEN('LINE_NUMBER',l_index);
2900: fnd_msg_pub.add;
2901: wsh_util_core.api_post_call(p_return_status =>WSH_UTIL_CORE.G_RET_STS_ERROR,
2902: x_num_warnings =>l_num_warning,
2903: x_num_errors =>l_num_errors);
2904: END IF;
2905:
2938: IF l_debug_on THEN
2939: WSH_DEBUG_SV.log(l_module_name,'Update_Address l_return_status',l_return_status);
2940: END IF;
2941:
2942: wsh_util_core.api_post_call(p_return_status =>l_return_status,
2943: x_num_warnings =>l_num_warning,
2944: x_num_errors =>l_num_errors);
2945:
2946: ELSE --}{
2953: FND_MESSAGE.SET_NAME('WSH','WSH_RR_INV_ACTION');
2954: FND_MESSAGE.SET_TOKEN('LINE_NUMBER',l_index);
2955: fnd_msg_pub.add;
2956:
2957: wsh_util_core.api_post_call(p_return_status =>WSH_UTIL_CORE.G_RET_STS_ERROR,
2958: x_num_warnings =>l_num_warning,
2959: x_num_errors =>l_num_errors);
2960: END IF;
2961:
2986: WSH_DEBUG_SV.log(l_module_name,'l_location_id',l_location_id);
2987: WSH_DEBUG_SV.log(l_module_name,'l_party_site_id',l_party_site_id);
2988: END IF;
2989:
2990: wsh_util_core.api_post_call(p_return_status =>l_return_status,
2991: x_num_warnings =>l_num_warning,
2992: x_num_errors =>l_num_errors);
2993: END IF; --}
2994:
3027:
3028:
3029: IF (l_num_errors >= l_tot_line ) THEN
3030: --Error if all the lines are error.
3031: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
3032: ELSIF ( (l_num_errors > 0 and l_num_errors < l_tot_line) or (l_num_warning > 0 ) ) THEN
3033: --Warning , if error line is more than one and less than total number of address line.
3034: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING ;
3035: END IF;
3030: --Error if all the lines are error.
3031: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
3032: ELSIF ( (l_num_errors > 0 and l_num_errors < l_tot_line) or (l_num_warning > 0 ) ) THEN
3033: --Warning , if error line is more than one and less than total number of address line.
3034: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING ;
3035: END IF;
3036:
3037:
3038: --Collect all the error message. Error messages are inserted in
3050: WSH_DEBUG_SV.pop(l_module_name);
3051: END IF;
3052: EXCEPTION
3053: WHEN OTHERS THEN
3054: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3055:
3056: IF l_debug_on THEN
3057: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
3058: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);