[Home] [Help]
406: fnd_message.set_name('AR','HZ_DUP_PARTY_WITH_PARTY_TYPE');
407: fnd_message.set_token('PARTY_ID', p_party_id);
408: fnd_message.set_token('PARTY_TYPE', l_party_type);
409: fnd_msg_pub.add;
410: RAISE FND_API.G_EXC_ERROR;
411: END IF;
412:
413: END party_exists;
414:
518: -- Preserve backwards compatibility and use the original logic
519: --
520:
521: IF p_person_rec.person_title IS NOT NULL AND
522: p_person_rec.person_title <> FND_API.G_MISS_CHAR
523: THEN
524: l_person_name := p_person_rec.person_title;
525: END IF;
526:
524: l_person_name := p_person_rec.person_title;
525: END IF;
526:
527: IF p_person_rec.person_first_name IS NOT NULL AND
528: p_person_rec.person_first_name <> FND_API.G_MISS_CHAR
529: THEN
530: IF l_person_name IS NOT NULL THEN
531: l_person_name := l_person_name || ' ' || p_person_rec.person_first_name;
532: ELSE
534: END IF;
535: END IF;
536:
537: IF p_person_rec.person_middle_name IS NOT NULL AND
538: p_person_rec.person_middle_name <> FND_API.G_MISS_CHAR
539: THEN
540: IF l_person_name IS NOT NULL THEN
541: l_person_name := l_person_name || ' ' || p_person_rec.person_middle_name;
542: ELSE
544: END IF;
545: END IF;
546:
547: IF p_person_rec.person_last_name IS NOT NULL AND
548: p_person_rec.person_last_name <> FND_API.G_MISS_CHAR
549: THEN
550: IF l_person_name IS NOT NULL THEN
551: l_person_name := l_person_name || ' ' || p_person_rec.person_last_name;
552: ELSE
554: END IF;
555: END IF;
556:
557: IF p_person_rec.person_name_suffix IS NOT NULL AND
558: p_person_rec.person_name_suffix <> FND_API.G_MISS_CHAR
559: THEN
560: IF l_person_name IS NOT NULL THEN
561: l_person_name := l_person_name || ' ' || p_person_rec.person_name_suffix;
562: ELSE
624: p_msg_level=>fnd_log.level_procedure);
625: END IF;
626:
627: IF p_person_first_name IS NOT NULL AND
628: p_person_first_name <> FND_API.G_MISS_CHAR
629: THEN
630: l_party_name := p_person_first_name;
631: END IF;
632:
630: l_party_name := p_person_first_name;
631: END IF;
632:
633: IF p_person_last_name IS NOT NULL AND
634: p_person_last_name <> FND_API.G_MISS_CHAR
635: THEN
636: IF l_party_name IS NOT NULL THEN
637: l_party_name := l_party_name||' '||p_person_last_name;
638: ELSE
754: WHEN OTHERS THEN
755: fnd_message.set_name('AR', 'HZ_API_RECORD_CHANGED');
756: fnd_message.set_token('TABLE', 'HZ_PARTIES');
757: fnd_msg_pub.add;
758: RAISE FND_API.G_EXC_ERROR;
759: END;
760:
761: UPDATE hz_parties
762: SET party_name = l_party_name
1035: IF p_party_type = 'PERSON' THEN
1036: l_party_rec := p_person_rec.party_rec;
1037: l_old_party_rec := p_old_person_rec.party_rec;
1038: --4621564
1039: IF p_old_person_rec.created_by_module = fnd_api.g_miss_char THEN
1040: l_created_by_module := 'TCA_V2_API';
1041: ELSE
1042: l_created_by_module := p_old_person_rec.created_by_module;
1043: END IF;
1046: ELSIF p_party_type = 'ORGANIZATION' THEN
1047: l_party_rec := p_organization_rec.party_rec;
1048: l_old_party_rec := p_old_organization_rec.party_rec;
1049: --4621564
1050: IF p_old_organization_rec.created_by_module = fnd_api.g_miss_char THEN
1051: l_created_by_module := 'TCA_V2_API';
1052: ELSE
1053: l_created_by_module := p_old_organization_rec.created_by_module;
1054: END IF;
1057: ELSE
1058: l_party_rec := p_group_rec.party_rec;
1059: l_old_party_rec := p_old_group_rec.party_rec;
1060: --4621564
1061: IF p_old_group_rec.created_by_module = fnd_api.g_miss_char THEN
1062: l_created_by_module := 'TCA_V2_API';
1063: ELSE
1064: l_created_by_module := p_old_group_rec.created_by_module;
1065: END IF;
1078: -- Mapping API is not populating party_rec.category_code.
1079:
1080: IF (p_create_update_flag = 'C' AND
1081: l_party_rec.category_code IS NOT NULL AND
1082: l_party_rec.category_code <> FND_API.G_MISS_CHAR) OR
1083: (p_create_update_flag = 'U'AND
1084: l_party_rec.category_code IS NOT NULL AND
1085: -- Bug 3876180.
1086: -- l_party_rec.category_code <> FND_API.G_MISS_CHAR AND
1082: l_party_rec.category_code <> FND_API.G_MISS_CHAR) OR
1083: (p_create_update_flag = 'U'AND
1084: l_party_rec.category_code IS NOT NULL AND
1085: -- Bug 3876180.
1086: -- l_party_rec.category_code <> FND_API.G_MISS_CHAR AND
1087: l_party_rec.category_code <> l_old_party_rec.category_code) AND
1088: l_data_source_type = G_MISS_CONTENT_SOURCE_TYPE
1089: THEN
1090: hz_classification_v2pub.set_primary_code_assignment(
1102: x_return_status => x_return_status,
1103: x_msg_count => l_msg_count,
1104: x_msg_data => l_msg_data );
1105:
1106: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1107: RAISE FND_API.G_EXC_ERROR;
1108: END IF;
1109: END IF;
1110:
1103: x_msg_count => l_msg_count,
1104: x_msg_data => l_msg_data );
1105:
1106: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1107: RAISE FND_API.G_EXC_ERROR;
1108: END IF;
1109: END IF;
1110:
1111: IF p_party_type = 'ORGANIZATION' THEN
1114: -- sic_code_type is required for entering sic_code and vice versa.
1115: -- That means, for both of them, we either provide values or leave
1116: -- them NULL.
1117: IF p_create_update_flag = 'C' THEN
1118: l_sic_code := NVL(p_organization_rec.sic_code, FND_API.G_MISS_CHAR);
1119: l_sic_code_type := NVL(p_organization_rec.sic_code_type, FND_API.G_MISS_CHAR);
1120: ELSE
1121: l_sic_code := NVL(p_organization_rec.sic_code, p_old_organization_rec.sic_code);
1122: l_sic_code_type := NVL(p_organization_rec.sic_code_type, p_old_organization_rec.sic_code_type);
1115: -- That means, for both of them, we either provide values or leave
1116: -- them NULL.
1117: IF p_create_update_flag = 'C' THEN
1118: l_sic_code := NVL(p_organization_rec.sic_code, FND_API.G_MISS_CHAR);
1119: l_sic_code_type := NVL(p_organization_rec.sic_code_type, FND_API.G_MISS_CHAR);
1120: ELSE
1121: l_sic_code := NVL(p_organization_rec.sic_code, p_old_organization_rec.sic_code);
1122: l_sic_code_type := NVL(p_organization_rec.sic_code_type, p_old_organization_rec.sic_code_type);
1123: END IF;
1121: l_sic_code := NVL(p_organization_rec.sic_code, p_old_organization_rec.sic_code);
1122: l_sic_code_type := NVL(p_organization_rec.sic_code_type, p_old_organization_rec.sic_code_type);
1123: END IF;
1124:
1125: IF (l_sic_code_type = FND_API.G_MISS_CHAR AND
1126: l_sic_code <> FND_API.G_MISS_CHAR) OR
1127: (l_sic_code = FND_API.G_MISS_CHAR AND
1128: l_sic_code_type <> FND_API.G_MISS_CHAR)
1129: THEN
1122: l_sic_code_type := NVL(p_organization_rec.sic_code_type, p_old_organization_rec.sic_code_type);
1123: END IF;
1124:
1125: IF (l_sic_code_type = FND_API.G_MISS_CHAR AND
1126: l_sic_code <> FND_API.G_MISS_CHAR) OR
1127: (l_sic_code = FND_API.G_MISS_CHAR AND
1128: l_sic_code_type <> FND_API.G_MISS_CHAR)
1129: THEN
1130: fnd_message.set_name('AR', 'HZ_API_SIC_CODE_TYPE_REQUIRED');
1123: END IF;
1124:
1125: IF (l_sic_code_type = FND_API.G_MISS_CHAR AND
1126: l_sic_code <> FND_API.G_MISS_CHAR) OR
1127: (l_sic_code = FND_API.G_MISS_CHAR AND
1128: l_sic_code_type <> FND_API.G_MISS_CHAR)
1129: THEN
1130: fnd_message.set_name('AR', 'HZ_API_SIC_CODE_TYPE_REQUIRED');
1131: fnd_msg_pub.add;
1124:
1125: IF (l_sic_code_type = FND_API.G_MISS_CHAR AND
1126: l_sic_code <> FND_API.G_MISS_CHAR) OR
1127: (l_sic_code = FND_API.G_MISS_CHAR AND
1128: l_sic_code_type <> FND_API.G_MISS_CHAR)
1129: THEN
1130: fnd_message.set_name('AR', 'HZ_API_SIC_CODE_TYPE_REQUIRED');
1131: fnd_msg_pub.add;
1132: RAISE FND_API.G_EXC_ERROR;
1128: l_sic_code_type <> FND_API.G_MISS_CHAR)
1129: THEN
1130: fnd_message.set_name('AR', 'HZ_API_SIC_CODE_TYPE_REQUIRED');
1131: fnd_msg_pub.add;
1132: RAISE FND_API.G_EXC_ERROR;
1133: END IF;
1134:
1135: -- the sic_code_type ='OTHER' is allowed only when
1136: -- comming data source = G_MISS_CONTENT_SOURCE_TYPE
1139: l_data_source_type <> G_MISS_CONTENT_SOURCE_TYPE
1140: THEN
1141: fnd_message.set_name('AR', 'HZ_API_SIC_CODE_TYPE_OTHER');
1142: fnd_msg_pub.add;
1143: RAISE FND_API.G_EXC_ERROR;
1144: END IF;
1145:
1146: -- call hz_classification_v2pub.set_primary_code_assignment.
1147: -- if sic_code_type is not 'OTHER', then make the sic_code as the primary
1149: -- hz_classification_v2pub.set_primary_code_assignment.
1150: -- if local_activity_code has a value, call
1151: -- hz_classification_v2pub.set_primary_code_assignment.
1152:
1153: IF l_sic_code=FND_API.G_MISS_CHAR
1154: AND l_sic_code_type=FND_API.G_MISS_CHAR
1155: AND p_old_organization_rec.sic_code_type IS NOT NULL
1156: AND p_old_organization_rec.sic_code_type<>FND_API.G_MISS_CHAR
1157: THEN
1150: -- if local_activity_code has a value, call
1151: -- hz_classification_v2pub.set_primary_code_assignment.
1152:
1153: IF l_sic_code=FND_API.G_MISS_CHAR
1154: AND l_sic_code_type=FND_API.G_MISS_CHAR
1155: AND p_old_organization_rec.sic_code_type IS NOT NULL
1156: AND p_old_organization_rec.sic_code_type<>FND_API.G_MISS_CHAR
1157: THEN
1158: l_sic_code_type := p_old_organization_rec.sic_code_type;
1152:
1153: IF l_sic_code=FND_API.G_MISS_CHAR
1154: AND l_sic_code_type=FND_API.G_MISS_CHAR
1155: AND p_old_organization_rec.sic_code_type IS NOT NULL
1156: AND p_old_organization_rec.sic_code_type<>FND_API.G_MISS_CHAR
1157: THEN
1158: l_sic_code_type := p_old_organization_rec.sic_code_type;
1159: END IF;
1160:
1158: l_sic_code_type := p_old_organization_rec.sic_code_type;
1159: END IF;
1160:
1161:
1162: IF --l_sic_code <> FND_API.G_MISS_CHAR AND ( bug 3876180 )
1163: l_sic_code_type <> FND_API.G_MISS_CHAR AND
1164: l_sic_code_type <> 'OTHER' AND
1165: (p_create_update_flag = 'C' OR
1166: (p_create_update_flag = 'U' AND
1159: END IF;
1160:
1161:
1162: IF --l_sic_code <> FND_API.G_MISS_CHAR AND ( bug 3876180 )
1163: l_sic_code_type <> FND_API.G_MISS_CHAR AND
1164: l_sic_code_type <> 'OTHER' AND
1165: (p_create_update_flag = 'C' OR
1166: (p_create_update_flag = 'U' AND
1167: NVL(p_organization_rec.sic_code, FND_API.G_MISS_CHAR) <>
1163: l_sic_code_type <> FND_API.G_MISS_CHAR AND
1164: l_sic_code_type <> 'OTHER' AND
1165: (p_create_update_flag = 'C' OR
1166: (p_create_update_flag = 'U' AND
1167: NVL(p_organization_rec.sic_code, FND_API.G_MISS_CHAR) <>
1168: p_old_organization_rec.sic_code
1169: OR -- Bug 4043346
1170: NVL(p_organization_rec.sic_code_type, FND_API.G_MISS_CHAR) <>
1171: p_old_organization_rec.sic_code_type))
1166: (p_create_update_flag = 'U' AND
1167: NVL(p_organization_rec.sic_code, FND_API.G_MISS_CHAR) <>
1168: p_old_organization_rec.sic_code
1169: OR -- Bug 4043346
1170: NVL(p_organization_rec.sic_code_type, FND_API.G_MISS_CHAR) <>
1171: p_old_organization_rec.sic_code_type))
1172: THEN
1173: hz_classification_v2pub.set_primary_code_assignment(
1174: p_owner_table_name => 'HZ_PARTIES',
1185: x_return_status => x_return_status,
1186: x_msg_count => l_msg_count,
1187: x_msg_data => l_msg_data );
1188:
1189: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1190: RAISE FND_API.G_EXC_ERROR;
1191: END IF;
1192: END IF;
1193:
1186: x_msg_count => l_msg_count,
1187: x_msg_data => l_msg_data );
1188:
1189: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1190: RAISE FND_API.G_EXC_ERROR;
1191: END IF;
1192: END IF;
1193:
1194: IF (p_create_update_flag = 'C' AND
1192: END IF;
1193:
1194: IF (p_create_update_flag = 'C' AND
1195: p_organization_rec.local_activity_code IS NOT NULL AND
1196: p_organization_rec.local_activity_code <> FND_API.G_MISS_CHAR) OR
1197: (p_create_update_flag = 'U'AND
1198: p_organization_rec.local_activity_code IS NOT NULL AND
1199: p_organization_rec.local_activity_code <> FND_API.G_MISS_CHAR AND
1200: p_organization_rec.local_activity_code <> p_old_organization_rec.local_activity_code)
1195: p_organization_rec.local_activity_code IS NOT NULL AND
1196: p_organization_rec.local_activity_code <> FND_API.G_MISS_CHAR) OR
1197: (p_create_update_flag = 'U'AND
1198: p_organization_rec.local_activity_code IS NOT NULL AND
1199: p_organization_rec.local_activity_code <> FND_API.G_MISS_CHAR AND
1200: p_organization_rec.local_activity_code <> p_old_organization_rec.local_activity_code)
1201: THEN
1202:
1203: -- Bug 3040565 : Modified the parameter p_class_category to set_primary_code_assignment to pass
1227: x_return_status => x_return_status,
1228: x_msg_count => l_msg_count,
1229: x_msg_data => l_msg_data );
1230:
1231: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1232: RAISE FND_API.G_EXC_ERROR;
1233: END IF;
1234: END IF;
1235: END IF;
1228: x_msg_count => l_msg_count,
1229: x_msg_data => l_msg_data );
1230:
1231: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1232: RAISE FND_API.G_EXC_ERROR;
1233: END IF;
1234: END IF;
1235: END IF;
1236:
1485: fnd_message.set_name('AR', 'HZ_NO_PROFILE_PRESENT');
1486: fnd_message.set_token('PARTY_ID', TO_CHAR(p_person_rec.party_rec.party_id));
1487: fnd_message.set_token('CONTENT_SOURCE_TYPE', p_data_source_type);
1488: fnd_msg_pub.add;
1489: RAISE fnd_api.g_exc_error;
1490: END IF;
1491: CLOSE c_person;
1492:
1493:
1537: p_new_profile_id => x_profile_id,
1538: x_return_status => l_return_status
1539: );
1540:
1541: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1542: RAISE FND_API.G_EXC_ERROR;
1543: END IF;
1544: END IF;
1545:
1538: x_return_status => l_return_status
1539: );
1540:
1541: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1542: RAISE FND_API.G_EXC_ERROR;
1543: END IF;
1544: END IF;
1545:
1546: ELSE
1723: WHEN g_resource_busy THEN
1724: fnd_message.set_name('AR', 'HZ_API_RECORD_CHANGED');
1725: fnd_message.set_token('TABLE', 'HZ_PERSON_PROFILES');
1726: fnd_msg_pub.add;
1727: RAISE fnd_api.g_exc_error;
1728:
1729: END do_update_person_profile;
1730:
1731: /**
2047: fnd_message.set_name('AR', 'HZ_NO_PROFILE_PRESENT');
2048: fnd_message.set_token('PARTY_ID', TO_CHAR(p_organization_rec.party_rec.party_id));
2049: fnd_message.set_token('CONTENT_SOURCE_TYPE', p_data_source_type);
2050: fnd_msg_pub.add;
2051: RAISE fnd_api.g_exc_error;
2052: END IF;
2053: CLOSE c_org;
2054:
2055: IF fnd_profile.value ('HZ_PROFILE_VERSION') = 'NEW_VERSION' THEN
2117: p_new_profile_id => x_profile_id,
2118: x_return_status => l_return_status
2119: );
2120:
2121: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2122: RAISE FND_API.G_EXC_ERROR;
2123: END IF;
2124: END IF;
2125:
2118: x_return_status => l_return_status
2119: );
2120:
2121: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2122: RAISE FND_API.G_EXC_ERROR;
2123: END IF;
2124: END IF;
2125:
2126: ELSE
2341: WHEN g_resource_busy THEN
2342: fnd_message.set_name('AR', 'HZ_API_RECORD_CHANGED');
2343: fnd_message.set_token('TABLE', 'HZ_ORGANIZATION_PROFILES');
2344: fnd_msg_pub.add;
2345: RAISE fnd_api.g_exc_error;
2346:
2347: END do_update_org_profile;
2348:
2349: /**
2389: l_orig_system HZ_ORIG_SYS_REFERENCES.ORIG_SYSTEM%TYPE;
2390: l_orig_system_reference HZ_ORIG_SYS_REFERENCES.ORIG_SYSTEM_REFERENCE%TYPE;
2391: l_created_by_module HZ_ORIG_SYS_REFERENCES.CREATED_BY_MODULE%TYPE;
2392: l_exists VARCHAR2(1);
2393: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2394: l_msg_count NUMBER;
2395: l_msg_data VARCHAR2(2000);
2396:
2397: CURSOR c_check_party_mapping
2457: * If it is already existing, the call may be due to
2458: * HZ_PROFILE_VERSION profile setup
2459: */
2460: if l_orig_system is not null and
2461: l_orig_system <>fnd_api.g_miss_char
2462: then
2463: open c_check_party_mapping;
2464: fetch c_check_party_mapping into l_exists;
2465: if c_check_party_mapping%NOTFOUND then
2469: l_orig_sys_reference_rec.owner_table_id := p_party_id;
2470: l_orig_sys_reference_rec.created_by_module := nvl(l_created_by_module, 'TCA_V2_API');
2471:
2472: hz_orig_system_ref_pub.create_orig_system_reference(
2473: FND_API.G_FALSE,
2474: l_orig_sys_reference_rec,
2475: l_return_status,
2476: l_msg_count,
2477: l_msg_data);
2475: l_return_status,
2476: l_msg_count,
2477: l_msg_data);
2478:
2479: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2480: RAISE FND_API.G_EXC_ERROR;
2481: END IF;
2482: end if;
2483: end if;
2476: l_msg_count,
2477: l_msg_data);
2478:
2479: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2480: RAISE FND_API.G_EXC_ERROR;
2481: END IF;
2482: end if;
2483: end if;
2484:
2606: x_person_rec OUT NOCOPY PERSON_REC_TYPE,
2607: x_organization_rec OUT NOCOPY ORGANIZATION_REC_TYPE
2608: ) IS
2609:
2610: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2611: l_msg_count NUMBER;
2612: l_msg_data VARCHAR2(2000);
2613: l_debug_prefix VARCHAR2(30) := '';
2614: BEGIN
2648: x_msg_data => l_msg_data);
2649:
2650: END IF;
2651:
2652: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2653: RAISE FND_API.G_EXC_ERROR;
2654: END IF;
2655:
2656: -- Debug info.
2649:
2650: END IF;
2651:
2652: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2653: RAISE FND_API.G_EXC_ERROR;
2654: END IF;
2655:
2656: -- Debug info.
2657: /*IF g_debug THEN
2725: l_party_object_version_number NUMBER;
2726: l_rowid ROWID := NULL;
2727: l_process_party_name VARCHAR2(1);
2728: l_dummy VARCHAR2(1);
2729: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2730: l_context VARCHAR2(1);
2731:
2732: l_debug_prefix VARCHAR2(30);
2733: l_orig_sys_reference_rec HZ_ORIG_SYSTEM_REF_PUB.ORIG_SYS_REFERENCE_REC_TYPE;
2781:
2782: -- moved the mosr logic to update_xxx due to get_rec need party_id
2783: /* if p_create_update_flag = 'U' THEN
2784: IF (l_party_rec.orig_system is not null
2785: and l_party_rec.orig_system <>fnd_api.g_miss_char)
2786: and (l_party_rec.orig_system_reference is not null
2787: and l_party_rec.orig_system_reference <>fnd_api.g_miss_char)
2788: and (l_party_rec.party_id = FND_API.G_MISS_NUM or l_party_rec.party_id is null) THEN
2789: hz_orig_system_ref_pub.get_owner_table_id
2783: /* if p_create_update_flag = 'U' THEN
2784: IF (l_party_rec.orig_system is not null
2785: and l_party_rec.orig_system <>fnd_api.g_miss_char)
2786: and (l_party_rec.orig_system_reference is not null
2787: and l_party_rec.orig_system_reference <>fnd_api.g_miss_char)
2788: and (l_party_rec.party_id = FND_API.G_MISS_NUM or l_party_rec.party_id is null) THEN
2789: hz_orig_system_ref_pub.get_owner_table_id
2790: (p_orig_system => l_party_rec.orig_system,
2791: p_orig_system_reference => l_party_rec.orig_system_reference,
2784: IF (l_party_rec.orig_system is not null
2785: and l_party_rec.orig_system <>fnd_api.g_miss_char)
2786: and (l_party_rec.orig_system_reference is not null
2787: and l_party_rec.orig_system_reference <>fnd_api.g_miss_char)
2788: and (l_party_rec.party_id = FND_API.G_MISS_NUM or l_party_rec.party_id is null) THEN
2789: hz_orig_system_ref_pub.get_owner_table_id
2790: (p_orig_system => l_party_rec.orig_system,
2791: p_orig_system_reference => l_party_rec.orig_system_reference,
2792: p_owner_table_name => 'HZ_PARTIES',
2791: p_orig_system_reference => l_party_rec.orig_system_reference,
2792: p_owner_table_name => 'HZ_PARTIES',
2793: x_owner_table_id => l_party_rec.party_id,
2794: x_return_status => l_return_status);
2795: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2796: RAISE FND_API.G_EXC_ERROR;
2797: END IF;
2798: END IF;
2799: end if;
2792: p_owner_table_name => 'HZ_PARTIES',
2793: x_owner_table_id => l_party_rec.party_id,
2794: x_return_status => l_return_status);
2795: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2796: RAISE FND_API.G_EXC_ERROR;
2797: END IF;
2798: END IF;
2799: end if;
2800: */
2807: -- not passed or is a duplicate raise error.
2808:
2809: IF NVL(fnd_profile.value('HZ_GENERATE_PARTY_NUMBER'), 'Y') = 'N' THEN
2810:
2811: IF l_party_rec.party_number = FND_API.G_MISS_CHAR OR
2812: l_party_rec.party_number IS NULL
2813: THEN
2814: fnd_message.set_name('AR', 'HZ_API_MISSING_COLUMN');
2815: fnd_message.set_token('COLUMN', 'party number');
2813: THEN
2814: fnd_message.set_name('AR', 'HZ_API_MISSING_COLUMN');
2815: fnd_message.set_token('COLUMN', 'party number');
2816: fnd_msg_pub.add;
2817: RAISE FND_API.G_EXC_ERROR;
2818: END IF;
2819:
2820: OPEN c_party_number_exists(l_party_rec.party_number);
2821: FETCH c_party_number_exists INTO l_dummy;
2823: IF NOT c_party_number_exists%NOTFOUND THEN
2824: fnd_message.set_name('AR', 'HZ_API_DUPLICATE_COLUMN');
2825: fnd_message.set_token('COLUMN', 'party_number');
2826: fnd_msg_pub.add;
2827: RAISE FND_API.G_EXC_ERROR;
2828: END IF;
2829: CLOSE c_party_number_exists;
2830:
2831: ELSE -- GENERATE_PARTY_NUMBER is 'Y'
2829: CLOSE c_party_number_exists;
2830:
2831: ELSE -- GENERATE_PARTY_NUMBER is 'Y'
2832:
2833: IF l_party_rec.party_number <> FND_API.G_MISS_CHAR AND
2834: l_party_rec.party_number IS NOT NULL
2835: THEN
2836: fnd_message.set_name('AR', 'HZ_API_PARTY_NUMBER_AUTO_ON');
2837: fnd_msg_pub.add;
2834: l_party_rec.party_number IS NOT NULL
2835: THEN
2836: fnd_message.set_name('AR', 'HZ_API_PARTY_NUMBER_AUTO_ON');
2837: fnd_msg_pub.add;
2838: RAISE FND_API.G_EXC_ERROR;
2839: END IF;
2840:
2841: END IF;
2842:
2853: fnd_message.set_name('AR', 'HZ_API_NO_RECORD');
2854: fnd_message.set_token('RECORD', 'party');
2855: fnd_message.set_token('VALUE', NVL(TO_CHAR(p_party_id), 'NULL'));
2856: fnd_msg_pub.add;
2857: RAISE fnd_api.g_exc_error;
2858: ELSIF p_check_object_version_number = 'Y' AND
2859: NOT ((p_party_object_version_number IS NULL AND
2860: l_party_object_version_number IS NULL) OR
2861: (p_party_object_version_number IS NOT NULL AND
2864: THEN
2865: fnd_message.set_name('AR', 'HZ_API_RECORD_CHANGED');
2866: fnd_message.set_token('TABLE', 'HZ_PARTIES');
2867: fnd_msg_pub.add;
2868: RAISE fnd_api.g_exc_error;
2869: END IF;
2870: CLOSE c_party;
2871:
2872: p_party_object_version_number := nvl(l_party_object_version_number, 1)+1;
2996:
2997: -- generate customer key
2998:
2999: IF l_party_name IS NOT NULL AND
3000: l_party_name <> FND_API.G_MISS_CHAR AND
3001: l_party_name <> NVL(db_party_name, FND_API.G_MISS_CHAR)
3002: THEN
3003: l_customer_key := HZ_FUZZY_PUB.generate_key (
3004: p_key_type => 'PERSON',
2997: -- generate customer key
2998:
2999: IF l_party_name IS NOT NULL AND
3000: l_party_name <> FND_API.G_MISS_CHAR AND
3001: l_party_name <> NVL(db_party_name, FND_API.G_MISS_CHAR)
3002: THEN
3003: l_customer_key := HZ_FUZZY_PUB.generate_key (
3004: p_key_type => 'PERSON',
3005: p_first_name => l_first_name,
3044:
3045: -- generate customer key
3046:
3047: IF l_party_name IS NOT NULL AND
3048: l_party_name <> FND_API.G_MISS_CHAR AND
3049: l_party_name <> NVL(db_party_name, FND_API.G_MISS_CHAR)
3050: THEN
3051: l_customer_key := hz_fuzzy_pub.generate_key (
3052: p_key_type => 'ORGANIZATION',
3045: -- generate customer key
3046:
3047: IF l_party_name IS NOT NULL AND
3048: l_party_name <> FND_API.G_MISS_CHAR AND
3049: l_party_name <> NVL(db_party_name, FND_API.G_MISS_CHAR)
3050: THEN
3051: l_customer_key := hz_fuzzy_pub.generate_key (
3052: p_key_type => 'ORGANIZATION',
3053: p_party_name => p_organization_rec.organization_name );
3073:
3074: -- generate customer key
3075:
3076: IF l_party_name IS NOT NULL AND
3077: l_party_name <> FND_API.G_MISS_CHAR AND
3078: l_party_name <> NVL(db_party_name, FND_API.G_MISS_CHAR)
3079: THEN
3080: l_customer_key := HZ_FUZZY_PUB.generate_key (
3081: p_key_type => 'GROUP',
3074: -- generate customer key
3075:
3076: IF l_party_name IS NOT NULL AND
3077: l_party_name <> FND_API.G_MISS_CHAR AND
3078: l_party_name <> NVL(db_party_name, FND_API.G_MISS_CHAR)
3079: THEN
3080: l_customer_key := HZ_FUZZY_PUB.generate_key (
3081: p_key_type => 'GROUP',
3082: p_party_name => p_group_rec.group_name );
3097:
3098: -- validate party record.
3099: HZ_registry_validate_v2pub.validate_party(
3100: p_create_update_flag, l_party_rec, l_old_party_rec,
3101: NVL(db_created_by_module, fnd_api.g_miss_char), l_return_status);
3102: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3103: RAISE FND_API.G_EXC_ERROR;
3104: END IF;
3105:
3098: -- validate party record.
3099: HZ_registry_validate_v2pub.validate_party(
3100: p_create_update_flag, l_party_rec, l_old_party_rec,
3101: NVL(db_created_by_module, fnd_api.g_miss_char), l_return_status);
3102: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3103: RAISE FND_API.G_EXC_ERROR;
3104: END IF;
3105:
3106: -- call table handlers
3099: HZ_registry_validate_v2pub.validate_party(
3100: p_create_update_flag, l_party_rec, l_old_party_rec,
3101: NVL(db_created_by_module, fnd_api.g_miss_char), l_return_status);
3102: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3103: RAISE FND_API.G_EXC_ERROR;
3104: END IF;
3105:
3106: -- call table handlers
3107:
3118: p_msg_level=>fnd_log.level_procedure);
3119: END IF;
3120:
3121: -- this is for handling orig_system_reference defaulting
3122: IF l_party_rec.party_id = FND_API.G_MISS_NUM THEN
3123: l_party_rec.party_id := NULL;
3124: END IF;
3125:
3126: hz_parties_pkg.insert_row (
3222: p_msg_level=>fnd_log.level_procedure);
3223: END IF;
3224:
3225: if l_party_rec.orig_system is not null
3226: and l_party_rec.orig_system <>fnd_api.g_miss_char
3227: -- Bug 4239442 : create MOSR entry only for GROUP party
3228: and p_party_type not in ('PERSON', 'ORGANIZATION')
3229: then
3230: l_orig_sys_reference_rec.orig_system := l_party_rec.orig_system;
3233: l_orig_sys_reference_rec.owner_table_id := l_party_rec.party_id;
3234: l_orig_sys_reference_rec.created_by_module := l_created_by_module;
3235:
3236: hz_orig_system_ref_pub.create_orig_system_reference(
3237: FND_API.G_FALSE,
3238: l_orig_sys_reference_rec,
3239: l_return_status,
3240: l_msg_count,
3241: l_msg_data);
3238: l_orig_sys_reference_rec,
3239: l_return_status,
3240: l_msg_count,
3241: l_msg_data);
3242: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3243: RAISE FND_API.G_EXC_ERROR;
3244: END IF;
3245: end if;
3246:
3239: l_return_status,
3240: l_msg_count,
3241: l_msg_data);
3242: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3243: RAISE FND_API.G_EXC_ERROR;
3244: END IF;
3245: end if;
3246:
3247: x_party_id := l_party_rec.party_id;
3297: X_RETURN_STATUS => l_return_status,
3298: P_REGISTRATION_TYPE_CODE => null,--4742586
3299: P_COUNTRY_CODE => null--4742586
3300: );
3301: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3302: RAISE FND_API.G_EXC_ERROR;
3303: END IF;
3304: END IF;
3305:
3298: P_REGISTRATION_TYPE_CODE => null,--4742586
3299: P_COUNTRY_CODE => null--4742586
3300: );
3301: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3302: RAISE FND_API.G_EXC_ERROR;
3303: END IF;
3304: END IF;
3305:
3306: ELSE -- p_create_update_flag = 'U'
3316: p_msg_level=>fnd_log.level_procedure);
3317: END IF;
3318:
3319: if (l_party_rec.orig_system is not null
3320: and l_party_rec.orig_system <>fnd_api.g_miss_char)
3321: and (l_party_rec.orig_system_reference is not null
3322: and l_party_rec.orig_system_reference <>fnd_api.g_miss_char)
3323: then
3324: l_party_rec.orig_system_reference := null;
3318:
3319: if (l_party_rec.orig_system is not null
3320: and l_party_rec.orig_system <>fnd_api.g_miss_char)
3321: and (l_party_rec.orig_system_reference is not null
3322: and l_party_rec.orig_system_reference <>fnd_api.g_miss_char)
3323: then
3324: l_party_rec.orig_system_reference := null;
3325: -- In mosr, we have bypassed osr nonupdateable validation
3326: -- but we should not update existing osr, set it to null
3417: --Bug 1417600: Update party name for parties of type RELATIONSHIP
3418: --when subject or ojbect party's name has been changed.
3419:
3420: IF l_party_name IS NOT NULL AND
3421: l_party_name <> FND_API.G_MISS_CHAR AND
3422: l_party_name <> NVL(db_party_name, FND_API.G_MISS_CHAR)
3423: THEN
3424: do_update_party_rel_name(l_party_rec.party_id, l_party_name);
3425: END IF;
3418: --when subject or ojbect party's name has been changed.
3419:
3420: IF l_party_name IS NOT NULL AND
3421: l_party_name <> FND_API.G_MISS_CHAR AND
3422: l_party_name <> NVL(db_party_name, FND_API.G_MISS_CHAR)
3423: THEN
3424: do_update_party_rel_name(l_party_rec.party_id, l_party_name);
3425: END IF;
3426:
3452: fnd_message.set_name('AR', 'HZ_API_NO_RECORD');
3453: fnd_message.set_token('RECORD', 'ZX_PARTY_TAX_PROFILE');
3454: fnd_message.set_token('VALUE', to_char(p_party_id) || ', THIRD_PARTY');
3455: fnd_msg_pub.add;
3456: RAISE FND_API.G_EXC_ERROR;
3457: END;
3458:
3459: ZX_PARTY_TAX_PROFILE_PKG.update_row (
3460: P_PARTY_TAX_PROFILE_ID => L_PARTY_TAX_PROFILE_ID,
3504: X_RETURN_STATUS => l_return_status,
3505: P_REGISTRATION_TYPE_CODE => null,--4742586
3506: P_COUNTRY_CODE => null--4742586
3507: );
3508: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3509: RAISE FND_API.G_EXC_ERROR;
3510: END IF;
3511: END IF;
3512: END IF;
3505: P_REGISTRATION_TYPE_CODE => null,--4742586
3506: P_COUNTRY_CODE => null--4742586
3507: );
3508: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3509: RAISE FND_API.G_EXC_ERROR;
3510: END IF;
3511: END IF;
3512: END IF;
3513: END IF;
3526: IF l_temp ='Y' THEN
3527: ICX_CAT_POPULATE_ITEM_GRP.populateVendorNameChanges
3528: (
3529: P_API_VERSION => 1.0,
3530: P_COMMIT => FND_API.G_FALSE,
3531: P_INIT_MSG_LIST => FND_API.G_FALSE,
3532: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
3533: X_RETURN_STATUS => l_return_status,
3534: P_VENDOR_ID => p_party_id ,
3527: ICX_CAT_POPULATE_ITEM_GRP.populateVendorNameChanges
3528: (
3529: P_API_VERSION => 1.0,
3530: P_COMMIT => FND_API.G_FALSE,
3531: P_INIT_MSG_LIST => FND_API.G_FALSE,
3532: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
3533: X_RETURN_STATUS => l_return_status,
3534: P_VENDOR_ID => p_party_id ,
3535: P_VENDOR_NAME => p_organization_rec.organization_name
3528: (
3529: P_API_VERSION => 1.0,
3530: P_COMMIT => FND_API.G_FALSE,
3531: P_INIT_MSG_LIST => FND_API.G_FALSE,
3532: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
3533: X_RETURN_STATUS => l_return_status,
3534: P_VENDOR_ID => p_party_id ,
3535: P_VENDOR_NAME => p_organization_rec.organization_name
3536: ) ;
3563: WHEN g_resource_busy THEN
3564: fnd_message.set_name('AR', 'HZ_API_RECORD_CHANGED');
3565: fnd_message.set_token('TABLE', 'hz_parties');
3566: fnd_msg_pub.add;
3567: RAISE fnd_api.g_exc_error;
3568:
3569: END do_create_update_party_only;
3570:
3571: /**
3674: p_def_actual_content_source => G_SST_SOURCE_TYPE,
3675: x_data_source_from => l_data_source_from );
3676:
3677: --2794173, Setting the default value for the deceased_flag
3678: IF (p_person_rec.deceased_flag is NULL or p_person_rec.deceased_flag = fnd_api.g_miss_char) then
3679: IF (p_person_rec.date_of_death is NULL or p_person_rec.date_of_death = fnd_api.g_miss_date) then
3680: p_person_rec.deceased_flag := 'N';
3681: ELSE
3682: p_person_rec.deceased_flag := 'Y';
3675: x_data_source_from => l_data_source_from );
3676:
3677: --2794173, Setting the default value for the deceased_flag
3678: IF (p_person_rec.deceased_flag is NULL or p_person_rec.deceased_flag = fnd_api.g_miss_char) then
3679: IF (p_person_rec.date_of_death is NULL or p_person_rec.date_of_death = fnd_api.g_miss_date) then
3680: p_person_rec.deceased_flag := 'N';
3681: ELSE
3682: p_person_rec.deceased_flag := 'Y';
3683: END IF;
3704:
3705: HZ_registry_validate_v2pub.validate_person(
3706: 'C', p_person_rec, G_MISS_PERSON_REC, x_return_status);
3707:
3708: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3709: RAISE FND_API.G_EXC_ERROR;
3710: END IF;
3711:
3712: l_mixnmatch_enabled := g_per_mixnmatch_enabled;
3705: HZ_registry_validate_v2pub.validate_person(
3706: 'C', p_person_rec, G_MISS_PERSON_REC, x_return_status);
3707:
3708: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3709: RAISE FND_API.G_EXC_ERROR;
3710: END IF;
3711:
3712: l_mixnmatch_enabled := g_per_mixnmatch_enabled;
3713: l_selected_datasources := g_per_selected_datasources;
3731:
3732: HZ_registry_validate_v2pub.validate_organization(
3733: 'C', p_organization_rec, G_MISS_ORGANIZATION_REC, x_return_status);
3734:
3735: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3736: RAISE FND_API.G_EXC_ERROR;
3737: END IF;
3738:
3739:
3732: HZ_registry_validate_v2pub.validate_organization(
3733: 'C', p_organization_rec, G_MISS_ORGANIZATION_REC, x_return_status);
3734:
3735: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3736: RAISE FND_API.G_EXC_ERROR;
3737: END IF;
3738:
3739:
3740: -- Bug 3317806 For non user entered data ( actual_content_source <> 'USER_ENTERED' ) ,
3758: l_selected_datasources := g_org_selected_datasources;
3759:
3760: ELSIF p_party_type = 'GROUP' THEN
3761: IF p_group_rec.party_rec.party_id IS NOT NULL AND
3762: p_group_rec.party_rec.party_id <> FND_API.G_MISS_NUM AND
3763: party_exists(p_party_type, p_group_rec.party_rec.party_id, l_party_number) = 'Y'
3764: THEN
3765: fnd_message.set_name('AR', 'HZ_API_DUPLICATE_COLUMN');
3766: fnd_message.set_token('COLUMN', 'party_id');
3764: THEN
3765: fnd_message.set_name('AR', 'HZ_API_DUPLICATE_COLUMN');
3766: fnd_message.set_token('COLUMN', 'party_id');
3767: fnd_msg_pub.add;
3768: RAISE FND_API.G_EXC_ERROR;
3769: END IF;
3770:
3771: -- Validate group record.
3772:
3772:
3773: HZ_registry_validate_v2pub.validate_group(
3774: 'C', p_group_rec, G_MISS_GROUP_REC, x_return_status);
3775:
3776: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3777: RAISE FND_API.G_EXC_ERROR;
3778: END IF;
3779:
3780: -- Create group party.
3773: HZ_registry_validate_v2pub.validate_group(
3774: 'C', p_group_rec, G_MISS_GROUP_REC, x_return_status);
3775:
3776: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3777: RAISE FND_API.G_EXC_ERROR;
3778: END IF;
3779:
3780: -- Create group party.
3781:
3811: THEN
3812: l_data_source_type := G_SST_SOURCE_TYPE;
3813:
3814: IF l_party_id IS NOT NULL AND
3815: l_party_id <> FND_API.G_MISS_NUM AND
3816: party_exists(p_party_type, l_party_id, l_party_number) = 'Y'
3817: THEN
3818: fnd_message.set_name('AR', 'HZ_API_DUPLICATE_COLUMN');
3819: fnd_message.set_token('COLUMN', 'party_id');
3817: THEN
3818: fnd_message.set_name('AR', 'HZ_API_DUPLICATE_COLUMN');
3819: fnd_message.set_token('COLUMN', 'party_id');
3820: fnd_msg_pub.add;
3821: RAISE FND_API.G_EXC_ERROR;
3822: END IF;
3823:
3824: -- party does not exist, create new party.
3825:
3880:
3881: -- Error out NOCOPY if the profile with this data source already exists.
3882:
3883: IF l_party_id IS NOT NULL AND
3884: l_party_id <> FND_API.G_MISS_NUM AND
3885: party_exists(p_party_type, l_party_id, l_party_number) = 'Y'
3886: THEN
3887: IF party_profile_exists(
3888: p_party_type, l_party_id, l_data_source_type) = 'Y'
3889: THEN
3890: fnd_message.set_name('AR', 'HZ_API_DUPLICATE_COLUMN');
3891: fnd_message.set_token('COLUMN', 'party_id,'||l_data_source_from);
3892: fnd_msg_pub.add;
3893: RAISE FND_API.G_EXC_ERROR;
3894: ELSE
3895: x_party_id := l_party_id;
3896: x_party_number := l_party_number;
3897: END IF;
4047: p_new_sst_organization_rec => l_new_sst_organization_rec,
4048: p_data_source_type => l_data_source_type,
4049: x_return_status => x_return_status );
4050:
4051: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4052: RAISE FND_API.G_EXC_ERROR;
4053: END IF;
4054: END IF;
4055:
4048: p_data_source_type => l_data_source_type,
4049: x_return_status => x_return_status );
4050:
4051: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4052: RAISE FND_API.G_EXC_ERROR;
4053: END IF;
4054: END IF;
4055:
4056: -- Create SST profile.
4167: -- DQM
4168: --Bug 4866187
4169: --Bug 5370799
4170: IF (p_organization_rec.party_rec.orig_system IS NULL OR
4171: p_organization_rec.party_rec.orig_system=FND_API.G_MISS_CHAR ) THEN
4172: HZ_DQM_SYNC.sync_org(x_party_id, l_party_create_update_flag);
4173: END IF;
4174: ELSIF p_party_type = 'PERSON' THEN
4175:
4204:
4205: -- DQM
4206: --Bug 4866187
4207: --Bug 5370799
4208: IF (p_person_rec.party_rec.orig_system IS NULL OR p_person_rec.party_rec.orig_system=FND_API.G_MISS_CHAR ) THEN
4209: HZ_DQM_SYNC.sync_person(x_party_id, l_party_create_update_flag);
4210: END IF;
4211:
4212: END IF;
4264: x_msg_data => l_msg_data
4265: );
4266:
4267:
4268: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4269: RAISE FND_API.G_EXC_ERROR;
4270: END IF;
4271: END IF;
4272: END IF;
4265: );
4266:
4267:
4268: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4269: RAISE FND_API.G_EXC_ERROR;
4270: END IF;
4271: END IF;
4272: END IF;
4273:
4363: l_new_party_name HZ_PARTIES.PARTY_NAME%TYPE;
4364: l_old_tax_reference HZ_PARTIES.TAX_REFERENCE%TYPE;
4365: l_new_tax_reference HZ_PARTIES.TAX_REFERENCE%TYPE;
4366: -------------Bug 4586451
4367: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
4368: -------------------------Bug No. 4586451
4369:
4370: CURSOR c_party_name(p_party_id NUMBER) IS
4371: SELECT party_name,tax_reference FROM HZ_PARTIES
4398: CLOSE c_party_name;
4399: ------End Bug No:2771835-----------
4400: -- 2794173, Setting the default value for the deceased_flag
4401: IF (p_person_rec.deceased_flag is NULL and p_person_rec.date_of_death is not NULL) then
4402: IF p_person_rec.date_of_death= FND_API.G_MISS_DATE then
4403: p_person_rec.deceased_flag := 'N';
4404:
4405: ELSE
4406: p_person_rec.deceased_flag := 'Y';
4406: p_person_rec.deceased_flag := 'Y';
4407: END IF;
4408: END IF;
4409:
4410: IF (p_person_rec.deceased_flag = fnd_api.g_miss_char) then
4411: p_person_rec.deceased_flag := 'N';
4412: END IF;
4413:
4414: IF (p_person_rec.deceased_flag = 'N' and p_person_rec.date_of_death is null) then
4411: p_person_rec.deceased_flag := 'N';
4412: END IF;
4413:
4414: IF (p_person_rec.deceased_flag = 'N' and p_person_rec.date_of_death is null) then
4415: p_person_rec.date_of_death := fnd_api.g_miss_date;
4416: end if;
4417:
4418:
4419: --Bug Number 3099624.
4440:
4441: HZ_registry_validate_v2pub.validate_person(
4442: 'U', p_person_rec, p_old_person_rec, x_return_status);
4443:
4444: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4445: RAISE FND_API.G_EXC_ERROR;
4446: END IF;
4447:
4448: l_mixnmatch_enabled := g_per_mixnmatch_enabled;
4441: HZ_registry_validate_v2pub.validate_person(
4442: 'U', p_person_rec, p_old_person_rec, x_return_status);
4443:
4444: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4445: RAISE FND_API.G_EXC_ERROR;
4446: END IF;
4447:
4448: l_mixnmatch_enabled := g_per_mixnmatch_enabled;
4449: l_selected_datasources := g_per_selected_datasources;
4463:
4464: HZ_registry_validate_v2pub.validate_organization(
4465: 'U', p_organization_rec, p_old_organization_rec, x_return_status);
4466:
4467: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4468: RAISE FND_API.G_EXC_ERROR;
4469: END IF;
4470:
4471: -- Bug 3317806 For non user entered data ( actual_content_source <> 'USER_ENTERED' ) ,
4464: HZ_registry_validate_v2pub.validate_organization(
4465: 'U', p_organization_rec, p_old_organization_rec, x_return_status);
4466:
4467: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4468: RAISE FND_API.G_EXC_ERROR;
4469: END IF;
4470:
4471: -- Bug 3317806 For non user entered data ( actual_content_source <> 'USER_ENTERED' ) ,
4472: -- if local_activity_code_type = 'NACE' and the local_activity_code is invalid with
4500:
4501: HZ_registry_validate_v2pub.validate_group(
4502: 'U', p_group_rec, p_old_group_rec, x_return_status);
4503:
4504: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4505: RAISE FND_API.G_EXC_ERROR;
4506: END IF;
4507:
4508: -- update group party.
4501: HZ_registry_validate_v2pub.validate_group(
4502: 'U', p_group_rec, p_old_group_rec, x_return_status);
4503:
4504: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4505: RAISE FND_API.G_EXC_ERROR;
4506: END IF;
4507:
4508: -- update group party.
4509:
4635: p_new_sst_organization_rec => l_new_sst_organization_rec,
4636: p_data_source_type => l_data_source_type,
4637: x_return_status => x_return_status );
4638:
4639: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4640: RAISE FND_API.G_EXC_ERROR;
4641: END IF;
4642:
4643: l_new_sst_person_rec.party_rec.party_id := l_party_id;
4636: p_data_source_type => l_data_source_type,
4637: x_return_status => x_return_status );
4638:
4639: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4640: RAISE FND_API.G_EXC_ERROR;
4641: END IF;
4642:
4643: l_new_sst_person_rec.party_rec.party_id := l_party_id;
4644: l_new_sst_organization_rec.party_rec.party_id := l_party_id;
4691: p_msg_level=>fnd_log.level_statement);
4692: END IF;
4693: ---------------Bug 4586451
4694: IF p_party_type ='ORGANIZATION'AND
4695: p_organization_rec.organization_name <>FND_API.G_MISS_CHAR AND
4696: p_organization_rec.organization_name IS NOT NULL AND
4697: p_organization_rec.organization_name<>p_old_organization_rec.organization_name AND
4698: nvl(p_organization_rec.actual_content_source,p_old_organization_rec.actual_content_source) IN (G_SST_SOURCE_TYPE,G_MISS_CONTENT_SOURCE_TYPE) THEN
4699: validate_party_name (
4701: p_party_name => p_organization_rec.organization_name,
4702: x_return_status => l_return_status);
4703: END IF;
4704:
4705: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4706: RAISE FND_API.G_EXC_ERROR;
4707: END IF;
4708:
4709: ----------------Bug4586451
4702: x_return_status => l_return_status);
4703: END IF;
4704:
4705: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4706: RAISE FND_API.G_EXC_ERROR;
4707: END IF;
4708:
4709: ----------------Bug4586451
4710:
4827: *
4828: * ARGUMENTS
4829: * IN:
4830: * p_init_msg_list Initialize message stack if it is set to
4831: * FND_API.G_TRUE. Default is fnd_api.g_false.
4832: * p_person_rec Person record.
4833: * p_party_usage_code Party Usage Code
4834: * IN/OUT:
4835: * OUT:
4836: * x_party_id Party ID.
4837: * x_party_number Party number.
4838: * x_profile_id Person profile ID.
4839: * x_return_status Return status after the call. The status can
4840: * be FND_API.G_RET_STS_SUCCESS (success),
4841: * fnd_api.g_ret_sts_error (error),
4842: * fnd_api.g_ret_sts_unexp_error (unexpected error).
4843: * x_msg_count Number of messages in message stack.
4844: * x_msg_data Message text if x_msg_count is 1.
4837: * x_party_number Party number.
4838: * x_profile_id Person profile ID.
4839: * x_return_status Return status after the call. The status can
4840: * be FND_API.G_RET_STS_SUCCESS (success),
4841: * fnd_api.g_ret_sts_error (error),
4842: * fnd_api.g_ret_sts_unexp_error (unexpected error).
4843: * x_msg_count Number of messages in message stack.
4844: * x_msg_data Message text if x_msg_count is 1.
4845: *
4838: * x_profile_id Person profile ID.
4839: * x_return_status Return status after the call. The status can
4840: * be FND_API.G_RET_STS_SUCCESS (success),
4841: * fnd_api.g_ret_sts_error (error),
4842: * fnd_api.g_ret_sts_unexp_error (unexpected error).
4843: * x_msg_count Number of messages in message stack.
4844: * x_msg_data Message text if x_msg_count is 1.
4845: *
4846: * NOTES
4851: *
4852: */
4853:
4854: PROCEDURE create_person (
4855: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
4856: p_person_rec IN PERSON_REC_TYPE,
4857: p_party_usage_code IN VARCHAR2,
4858: x_party_id OUT NOCOPY NUMBER,
4859: x_party_number OUT NOCOPY VARCHAR2,
4866: l_context VARCHAR2(30);
4867: l_api_name CONSTANT VARCHAR2(30) := 'create_person';
4868: l_person_rec PERSON_REC_TYPE := p_person_rec;
4869:
4870: dss_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
4871: dss_msg_count NUMBER := 0;
4872: dss_msg_data VARCHAR2(2000):= null;
4873: l_test_security VARCHAR2(1):= 'F';
4874: l_debug_prefix VARCHAR2(30) := '';
4892: END IF;
4893:
4894:
4895: -- initialize message list if p_init_msg_list is set to TRUE.
4896: IF FND_API.to_Boolean(p_init_msg_list) THEN
4897: FND_MSG_PUB.initialize;
4898: END IF;
4899:
4900: -- initialize API return status to success.
4897: FND_MSG_PUB.initialize;
4898: END IF;
4899:
4900: -- initialize API return status to success.
4901: x_return_status := FND_API.G_RET_STS_SUCCESS;
4902:
4903: -- enable policy function if it is disabled.
4904:
4905: l_context := NVL(SYS_CONTEXT('hz', g_apps_context), 'N');
4940: x_return_status => dss_return_status,
4941: x_msg_count => dss_msg_count,
4942: x_msg_data => dss_msg_data);
4943:
4944: if dss_return_status <> fnd_api.g_ret_sts_success THEN
4945: RAISE FND_API.G_EXC_ERROR;
4946: end if;
4947:
4948: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
4941: x_msg_count => dss_msg_count,
4942: x_msg_data => dss_msg_data);
4943:
4944: if dss_return_status <> fnd_api.g_ret_sts_success THEN
4945: RAISE FND_API.G_EXC_ERROR;
4946: end if;
4947:
4948: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
4949: --
4944: if dss_return_status <> fnd_api.g_ret_sts_success THEN
4945: RAISE FND_API.G_EXC_ERROR;
4946: end if;
4947:
4948: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
4949: --
4950: -- Bug 3835601: replaced the dss message with a more user friendly message
4951: --
4952: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_NO_INSERT_PRIVILEGE');
4952: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_NO_INSERT_PRIVILEGE');
4953: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',
4954: hz_dss_util_pub.get_display_name(null, 'PERSON'));
4955: FND_MSG_PUB.ADD;
4956: RAISE FND_API.G_EXC_ERROR;
4957: end if;
4958: END IF;
4959:
4960: -- enable policy function if it was enabled before calling
4965: END IF;
4966:
4967: --Standard call to get message count and if count is 1, get message info.
4968: fnd_msg_pub.count_and_get(
4969: p_encoded => fnd_api.g_false,
4970: p_count => x_msg_count,
4971: p_data => x_msg_data);
4972:
4973: -- Debug info.
4991: -- Check if API is called in debug mode. If yes, disable debug.
4992: --disable_debug;
4993:
4994: EXCEPTION
4995: WHEN FND_API.G_EXC_ERROR THEN
4996: ROLLBACK TO create_person;
4997:
4998: IF l_context = 'N' THEN
4999: hz_common_pub.enable_cont_source_security;
4998: IF l_context = 'N' THEN
4999: hz_common_pub.enable_cont_source_security;
5000: END IF;
5001:
5002: x_return_status := fnd_api.g_ret_sts_error;
5003:
5004: fnd_msg_pub.count_and_get(
5005: p_encoded => fnd_api.g_false,
5006: p_count => x_msg_count,
5001:
5002: x_return_status := fnd_api.g_ret_sts_error;
5003:
5004: fnd_msg_pub.count_and_get(
5005: p_encoded => fnd_api.g_false,
5006: p_count => x_msg_count,
5007: p_data => x_msg_data);
5008:
5009: -- Debug info.
5027:
5028: -- Check if API is called in debug mode. If yes, disable debug.
5029: --disable_debug;
5030:
5031: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5032: ROLLBACK TO create_person;
5033:
5034: IF l_context = 'N' THEN
5035: hz_common_pub.enable_cont_source_security;
5034: IF l_context = 'N' THEN
5035: hz_common_pub.enable_cont_source_security;
5036: END IF;
5037:
5038: x_return_status := fnd_api.g_ret_sts_unexp_error;
5039:
5040: fnd_msg_pub.count_and_get(
5041: p_encoded => fnd_api.g_false,
5042: p_count => x_msg_count,
5037:
5038: x_return_status := fnd_api.g_ret_sts_unexp_error;
5039:
5040: fnd_msg_pub.count_and_get(
5041: p_encoded => fnd_api.g_false,
5042: p_count => x_msg_count,
5043: p_data => x_msg_data);
5044:
5045: -- Debug info.
5070: IF l_context = 'N' THEN
5071: hz_common_pub.enable_cont_source_security;
5072: END IF;
5073:
5074: x_return_status := fnd_api.g_ret_sts_unexp_error;
5075:
5076: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
5077: fnd_message.set_token('ERROR',SQLERRM);
5078: fnd_msg_pub.add;
5077: fnd_message.set_token('ERROR',SQLERRM);
5078: fnd_msg_pub.add;
5079:
5080: fnd_msg_pub.count_and_get(
5081: p_encoded => fnd_api.g_false,
5082: p_count => x_msg_count,
5083: p_data => x_msg_data);
5084:
5085: -- Debug info.
5118: *
5119: * ARGUMENTS
5120: * IN:
5121: * p_init_msg_list Initialize message stack if it is set to
5122: * FND_API.G_TRUE. Default is fnd_api.g_false.
5123: * p_person_rec Person record.
5124: * IN/OUT:
5125: * OUT:
5126: * x_party_id Party ID.
5126: * x_party_id Party ID.
5127: * x_party_number Party number.
5128: * x_profile_id Person profile ID.
5129: * x_return_status Return status after the call. The status can
5130: * be FND_API.G_RET_STS_SUCCESS (success),
5131: * fnd_api.g_ret_sts_error (error),
5132: * fnd_api.g_ret_sts_unexp_error (unexpected error).
5133: * x_msg_count Number of messages in message stack.
5134: * x_msg_data Message text if x_msg_count is 1.
5127: * x_party_number Party number.
5128: * x_profile_id Person profile ID.
5129: * x_return_status Return status after the call. The status can
5130: * be FND_API.G_RET_STS_SUCCESS (success),
5131: * fnd_api.g_ret_sts_error (error),
5132: * fnd_api.g_ret_sts_unexp_error (unexpected error).
5133: * x_msg_count Number of messages in message stack.
5134: * x_msg_data Message text if x_msg_count is 1.
5135: *
5128: * x_profile_id Person profile ID.
5129: * x_return_status Return status after the call. The status can
5130: * be FND_API.G_RET_STS_SUCCESS (success),
5131: * fnd_api.g_ret_sts_error (error),
5132: * fnd_api.g_ret_sts_unexp_error (unexpected error).
5133: * x_msg_count Number of messages in message stack.
5134: * x_msg_data Message text if x_msg_count is 1.
5135: *
5136: * NOTES
5141: *
5142: */
5143:
5144: PROCEDURE create_person (
5145: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
5146: p_person_rec IN PERSON_REC_TYPE,
5147: x_party_id OUT NOCOPY NUMBER,
5148: x_party_number OUT NOCOPY VARCHAR2,
5149: x_profile_id OUT NOCOPY NUMBER,
5179: *
5180: * ARGUMENTS
5181: * IN:
5182: * p_init_msg_list Initialize message stack if it is set to
5183: * FND_API.G_TRUE. Default is fnd_api.g_false.
5184: * p_person_rec Person record.
5185: * IN/OUT:
5186: * p_party_object_version_number Used for locking the being updated record.
5187: * OUT:
5186: * p_party_object_version_number Used for locking the being updated record.
5187: * OUT:
5188: * x_profile_id Person profile ID.
5189: * x_return_status Return status after the call. The status can
5190: * be FND_API.G_RET_STS_SUCCESS (success),
5191: * fnd_api.g_ret_sts_error (error),
5192: * fnd_api.g_ret_sts_unexp_error (unexpected error).
5193: * x_msg_count Number of messages in message stack.
5194: * x_msg_data Message text if x_msg_count is 1.
5187: * OUT:
5188: * x_profile_id Person profile ID.
5189: * x_return_status Return status after the call. The status can
5190: * be FND_API.G_RET_STS_SUCCESS (success),
5191: * fnd_api.g_ret_sts_error (error),
5192: * fnd_api.g_ret_sts_unexp_error (unexpected error).
5193: * x_msg_count Number of messages in message stack.
5194: * x_msg_data Message text if x_msg_count is 1.
5195: *
5188: * x_profile_id Person profile ID.
5189: * x_return_status Return status after the call. The status can
5190: * be FND_API.G_RET_STS_SUCCESS (success),
5191: * fnd_api.g_ret_sts_error (error),
5192: * fnd_api.g_ret_sts_unexp_error (unexpected error).
5193: * x_msg_count Number of messages in message stack.
5194: * x_msg_data Message text if x_msg_count is 1.
5195: *
5196: * NOTES
5201: *
5202: */
5203:
5204: PROCEDURE update_person (
5205: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
5206: p_person_rec IN PERSON_REC_TYPE,
5207: p_party_object_version_number IN OUT NOCOPY NUMBER,
5208: x_profile_id OUT NOCOPY NUMBER,
5209: x_return_status OUT NOCOPY VARCHAR2,
5216: l_old_person_rec PERSON_REC_TYPE;
5217: l_data_source_from VARCHAR2(30);
5218: l_context VARCHAR2(30);
5219:
5220: dss_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5221: dss_msg_count NUMBER := 0;
5222: dss_msg_data VARCHAR2(2000):= null;
5223: l_test_security VARCHAR2(1):= 'F';
5224: l_debug_prefix VARCHAR2(30) := '';
5241: p_msg_level=>fnd_log.level_procedure);
5242: END IF;
5243:
5244: -- initialize message list if p_init_msg_list is set to TRUE.
5245: IF FND_API.to_Boolean(p_init_msg_list) THEN
5246: FND_MSG_PUB.initialize;
5247: END IF;
5248:
5249: -- initialize API return status to success.
5246: FND_MSG_PUB.initialize;
5247: END IF;
5248:
5249: -- initialize API return status to success.
5250: x_return_status := FND_API.G_RET_STS_SUCCESS;
5251:
5252: -- enable policy function if it is disabled.
5253:
5254: l_context := NVL(SYS_CONTEXT('hz', g_apps_context), 'N');
5272: fnd_message.set_name('AR', 'HZ_API_NO_RECORD');
5273: fnd_message.set_token('RECORD', 'person');
5274: fnd_message.set_token('VALUE', to_char(p_person_rec.party_rec.party_id));
5275: fnd_msg_pub.add;
5276: RAISE FND_API.G_EXC_ERROR;
5277: END;
5278: **/
5279:
5280: IF (l_person_rec.party_rec.orig_system is not null
5277: END;
5278: **/
5279:
5280: IF (l_person_rec.party_rec.orig_system is not null
5281: and l_person_rec.party_rec.orig_system <>fnd_api.g_miss_char)
5282: and (l_person_rec.party_rec.orig_system_reference is not null
5283: and l_person_rec.party_rec.orig_system_reference <>fnd_api.g_miss_char)
5284: and (l_person_rec.party_rec.party_id = FND_API.G_MISS_NUM or l_person_rec.party_rec.party_id is null) THEN
5285:
5279:
5280: IF (l_person_rec.party_rec.orig_system is not null
5281: and l_person_rec.party_rec.orig_system <>fnd_api.g_miss_char)
5282: and (l_person_rec.party_rec.orig_system_reference is not null
5283: and l_person_rec.party_rec.orig_system_reference <>fnd_api.g_miss_char)
5284: and (l_person_rec.party_rec.party_id = FND_API.G_MISS_NUM or l_person_rec.party_rec.party_id is null) THEN
5285:
5286: hz_orig_system_ref_pub.get_owner_table_id
5287: (p_orig_system => l_person_rec.party_rec.orig_system,
5280: IF (l_person_rec.party_rec.orig_system is not null
5281: and l_person_rec.party_rec.orig_system <>fnd_api.g_miss_char)
5282: and (l_person_rec.party_rec.orig_system_reference is not null
5283: and l_person_rec.party_rec.orig_system_reference <>fnd_api.g_miss_char)
5284: and (l_person_rec.party_rec.party_id = FND_API.G_MISS_NUM or l_person_rec.party_rec.party_id is null) THEN
5285:
5286: hz_orig_system_ref_pub.get_owner_table_id
5287: (p_orig_system => l_person_rec.party_rec.orig_system,
5288: p_orig_system_reference => l_person_rec.party_rec.orig_system_reference,
5289: p_owner_table_name => 'HZ_PARTIES',
5290: x_owner_table_id => l_person_rec.party_rec.party_id,
5291: x_return_status => x_return_status);
5292:
5293: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5294: RAISE FND_API.G_EXC_ERROR;
5295: END IF;
5296: END IF;
5297: -- cache if mix-n-match is enabled
5290: x_owner_table_id => l_person_rec.party_rec.party_id,
5291: x_return_status => x_return_status);
5292:
5293: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5294: RAISE FND_API.G_EXC_ERROR;
5295: END IF;
5296: END IF;
5297: -- cache if mix-n-match is enabled
5298:
5314: x_return_status => x_return_status,
5315: x_msg_count => x_msg_count,
5316: x_msg_data => x_msg_data);
5317:
5318: IF x_return_status = fnd_api.g_ret_sts_error THEN
5319: RAISE FND_API.G_EXC_ERROR;
5320: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5322: END IF;
5315: x_msg_count => x_msg_count,
5316: x_msg_data => x_msg_data);
5317:
5318: IF x_return_status = fnd_api.g_ret_sts_error THEN
5319: RAISE FND_API.G_EXC_ERROR;
5320: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5322: END IF;
5323:
5316: x_msg_data => x_msg_data);
5317:
5318: IF x_return_status = fnd_api.g_ret_sts_error THEN
5319: RAISE FND_API.G_EXC_ERROR;
5320: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5322: END IF;
5323:
5324: -- Bug 2486394 Check if the DSS security is granted to the user
5317:
5318: IF x_return_status = fnd_api.g_ret_sts_error THEN
5319: RAISE FND_API.G_EXC_ERROR;
5320: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5322: END IF;
5323:
5324: -- Bug 2486394 Check if the DSS security is granted to the user
5325: -- Bug 3818648: check dss profile before call test_instance.
5334: x_return_status => dss_return_status,
5335: x_msg_count => dss_msg_count,
5336: x_msg_data => dss_msg_data);
5337:
5338: if dss_return_status <> fnd_api.g_ret_sts_success THEN
5339: RAISE FND_API.G_EXC_ERROR;
5340: end if;
5341:
5342: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
5335: x_msg_count => dss_msg_count,
5336: x_msg_data => dss_msg_data);
5337:
5338: if dss_return_status <> fnd_api.g_ret_sts_success THEN
5339: RAISE FND_API.G_EXC_ERROR;
5340: end if;
5341:
5342: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
5343: --
5338: if dss_return_status <> fnd_api.g_ret_sts_success THEN
5339: RAISE FND_API.G_EXC_ERROR;
5340: end if;
5341:
5342: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
5343: --
5344: -- Bug 3835601: replaced the dss message with a more user friendly message
5345: --
5346: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_NO_UPDATE_PRIVILEGE');
5346: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_NO_UPDATE_PRIVILEGE');
5347: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',
5348: hz_dss_util_pub.get_display_name(null, 'PERSON'));
5349: FND_MSG_PUB.ADD;
5350: RAISE FND_API.G_EXC_ERROR;
5351: end if;
5352: END IF;
5353:
5354: -- call to business logic.
5370: END IF;
5371:
5372: --Standard call to get message count and if count is 1, get message info.
5373: fnd_msg_pub.count_and_get(
5374: p_encoded => fnd_api.g_false,
5375: p_count => x_msg_count,
5376: p_data => x_msg_data);
5377:
5378: -- Debug info.
5397: -- Check if API is called in debug mode. If yes, disable debug.
5398: --disable_debug;
5399:
5400: EXCEPTION
5401: WHEN FND_API.G_EXC_ERROR THEN
5402: ROLLBACK TO update_person;
5403:
5404: IF l_context = 'N' THEN
5405: hz_common_pub.enable_cont_source_security;
5404: IF l_context = 'N' THEN
5405: hz_common_pub.enable_cont_source_security;
5406: END IF;
5407:
5408: x_return_status := fnd_api.g_ret_sts_error;
5409:
5410: fnd_msg_pub.count_and_get(
5411: p_encoded => fnd_api.g_false,
5412: p_count => x_msg_count,
5407:
5408: x_return_status := fnd_api.g_ret_sts_error;
5409:
5410: fnd_msg_pub.count_and_get(
5411: p_encoded => fnd_api.g_false,
5412: p_count => x_msg_count,
5413: p_data => x_msg_data);
5414:
5415: -- Debug info.
5434:
5435: -- Check if API is called in debug mode. If yes, disable debug.
5436: --disable_debug;
5437:
5438: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5439: ROLLBACK TO update_person;
5440:
5441: IF l_context = 'N' THEN
5442: hz_common_pub.enable_cont_source_security;
5441: IF l_context = 'N' THEN
5442: hz_common_pub.enable_cont_source_security;
5443: END IF;
5444:
5445: x_return_status := fnd_api.g_ret_sts_unexp_error;
5446:
5447: fnd_msg_pub.count_and_get(
5448: p_encoded => fnd_api.g_false,
5449: p_count => x_msg_count,
5444:
5445: x_return_status := fnd_api.g_ret_sts_unexp_error;
5446:
5447: fnd_msg_pub.count_and_get(
5448: p_encoded => fnd_api.g_false,
5449: p_count => x_msg_count,
5450: p_data => x_msg_data);
5451:
5452: -- Debug info.
5476: IF l_context = 'N' THEN
5477: hz_common_pub.enable_cont_source_security;
5478: END IF;
5479:
5480: x_return_status := fnd_api.g_ret_sts_unexp_error;
5481:
5482: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
5483: fnd_message.set_token('ERROR',SQLERRM);
5484: fnd_msg_pub.add;
5483: fnd_message.set_token('ERROR',SQLERRM);
5484: fnd_msg_pub.add;
5485:
5486: fnd_msg_pub.count_and_get(
5487: p_encoded => fnd_api.g_false,
5488: p_count => x_msg_count,
5489: p_data => x_msg_data);
5490:
5491: -- Debug info.
5523: *
5524: * ARGUMENTS
5525: * IN:
5526: * p_init_msg_list Initialize message stack if it is set to
5527: * FND_API.G_TRUE. Default is fnd_api.g_false.
5528: * p_group_rec Group record.
5529: * IN/OUT:
5530: * OUT:
5531: * x_party_id Party ID.
5530: * OUT:
5531: * x_party_id Party ID.
5532: * x_party_number Party number.
5533: * x_return_status Return status after the call. The status can
5534: * be FND_API.G_RET_STS_SUCCESS (success),
5535: * fnd_api.g_ret_sts_error (error),
5536: * fnd_api.g_ret_sts_unexp_error (unexpected error).
5537: * x_msg_count Number of messages in message stack.
5538: * x_msg_data Message text if x_msg_count is 1.
5531: * x_party_id Party ID.
5532: * x_party_number Party number.
5533: * x_return_status Return status after the call. The status can
5534: * be FND_API.G_RET_STS_SUCCESS (success),
5535: * fnd_api.g_ret_sts_error (error),
5536: * fnd_api.g_ret_sts_unexp_error (unexpected error).
5537: * x_msg_count Number of messages in message stack.
5538: * x_msg_data Message text if x_msg_count is 1.
5539: *
5532: * x_party_number Party number.
5533: * x_return_status Return status after the call. The status can
5534: * be FND_API.G_RET_STS_SUCCESS (success),
5535: * fnd_api.g_ret_sts_error (error),
5536: * fnd_api.g_ret_sts_unexp_error (unexpected error).
5537: * x_msg_count Number of messages in message stack.
5538: * x_msg_data Message text if x_msg_count is 1.
5539: *
5540: * NOTES
5544: * 07-23-2001 Indrajit Sen o Created.
5545: *
5546: */
5547: PROCEDURE create_group (
5548: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
5549: p_group_rec IN GROUP_REC_TYPE,
5550: x_party_id OUT NOCOPY NUMBER,
5551: x_party_number OUT NOCOPY VARCHAR2,
5552: x_return_status OUT NOCOPY VARCHAR2,
5558: l_api_name CONSTANT VARCHAR2(30) := 'create_group';
5559: l_profile_id NUMBER;
5560: l_group_rec GROUP_REC_TYPE := p_group_rec;
5561:
5562: dss_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5563: dss_msg_count NUMBER := 0;
5564: dss_msg_data VARCHAR2(2000):= null;
5565: l_test_security VARCHAR2(1):= 'F';
5566: l_debug_prefix VARCHAR2(30) := '';
5582: p_msg_level=>fnd_log.level_procedure);
5583: END IF;
5584:
5585: -- initialize message list if p_init_msg_list is set to TRUE.
5586: IF FND_API.to_Boolean(p_init_msg_list) THEN
5587: FND_MSG_PUB.initialize;
5588: END IF;
5589:
5590: -- initialize API return status to success.
5587: FND_MSG_PUB.initialize;
5588: END IF;
5589:
5590: -- initialize API return status to success.
5591: x_return_status := FND_API.G_RET_STS_SUCCESS;
5592:
5593: -- enable policy function if it is disabled.
5594:
5595: l_context := NVL(SYS_CONTEXT('hz', g_apps_context), 'N');
5622: x_return_status => dss_return_status,
5623: x_msg_count => dss_msg_count,
5624: x_msg_data => dss_msg_data);
5625:
5626: if dss_return_status <> fnd_api.g_ret_sts_success THEN
5627: RAISE FND_API.G_EXC_ERROR;
5628: end if;
5629:
5630: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
5623: x_msg_count => dss_msg_count,
5624: x_msg_data => dss_msg_data);
5625:
5626: if dss_return_status <> fnd_api.g_ret_sts_success THEN
5627: RAISE FND_API.G_EXC_ERROR;
5628: end if;
5629:
5630: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
5631: --
5626: if dss_return_status <> fnd_api.g_ret_sts_success THEN
5627: RAISE FND_API.G_EXC_ERROR;
5628: end if;
5629:
5630: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
5631: --
5632: -- Bug 3835601: replaced the dss message with a more user friendly message
5633: --
5634: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_NO_INSERT_PRIVILEGE');
5634: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_NO_INSERT_PRIVILEGE');
5635: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',
5636: hz_dss_util_pub.get_display_name('HZ_PARTIES', null));
5637: FND_MSG_PUB.ADD;
5638: RAISE FND_API.G_EXC_ERROR;
5639: end if;
5640: END IF;
5641:
5642: -- Invoke business event system.
5652: END IF;
5653:
5654: --Standard call to get message count and if count is 1, get message info.
5655: fnd_msg_pub.count_and_get(
5656: p_encoded => fnd_api.g_false,
5657: p_count => x_msg_count,
5658: p_data => x_msg_data);
5659:
5660: -- Debug info.
5679: -- Check if API is called in debug mode. If yes, disable debug.
5680: --disable_debug;
5681:
5682: EXCEPTION
5683: WHEN FND_API.G_EXC_ERROR THEN
5684: ROLLBACK TO create_group;
5685:
5686: IF l_context = 'N' THEN
5687: hz_common_pub.enable_cont_source_security;
5686: IF l_context = 'N' THEN
5687: hz_common_pub.enable_cont_source_security;
5688: END IF;
5689:
5690: x_return_status := fnd_api.g_ret_sts_error;
5691:
5692: fnd_msg_pub.count_and_get(
5693: p_encoded => fnd_api.g_false,
5694: p_count => x_msg_count,
5689:
5690: x_return_status := fnd_api.g_ret_sts_error;
5691:
5692: fnd_msg_pub.count_and_get(
5693: p_encoded => fnd_api.g_false,
5694: p_count => x_msg_count,
5695: p_data => x_msg_data);
5696:
5697: -- Debug info.
5715:
5716: -- Check if API is called in debug mode. If yes, disable debug.
5717: --disable_debug;
5718:
5719: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5720: ROLLBACK TO create_group;
5721:
5722: IF l_context = 'N' THEN
5723: hz_common_pub.enable_cont_source_security;
5722: IF l_context = 'N' THEN
5723: hz_common_pub.enable_cont_source_security;
5724: END IF;
5725:
5726: x_return_status := fnd_api.g_ret_sts_unexp_error;
5727:
5728: fnd_msg_pub.count_and_get(
5729: p_encoded => fnd_api.g_false,
5730: p_count => x_msg_count,
5725:
5726: x_return_status := fnd_api.g_ret_sts_unexp_error;
5727:
5728: fnd_msg_pub.count_and_get(
5729: p_encoded => fnd_api.g_false,
5730: p_count => x_msg_count,
5731: p_data => x_msg_data);
5732:
5733: -- Debug info.
5758: IF l_context = 'N' THEN
5759: hz_common_pub.enable_cont_source_security;
5760: END IF;
5761:
5762: x_return_status := fnd_api.g_ret_sts_unexp_error;
5763:
5764: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
5765: fnd_message.set_token('ERROR',SQLERRM);
5766: fnd_msg_pub.add;
5765: fnd_message.set_token('ERROR',SQLERRM);
5766: fnd_msg_pub.add;
5767:
5768: fnd_msg_pub.count_and_get(
5769: p_encoded => fnd_api.g_false,
5770: p_count => x_msg_count,
5771: p_data => x_msg_data);
5772:
5773: -- Debug info.
5805: *
5806: * ARGUMENTS
5807: * IN:
5808: * p_init_msg_list Initialize message stack if it is set to
5809: * FND_API.G_TRUE. Default is fnd_api.g_false.
5810: * p_group_rec Group record.
5811: * IN/OUT:
5812: * p_party_object_version_number Used for locking the being updated record.
5813: * OUT:
5811: * IN/OUT:
5812: * p_party_object_version_number Used for locking the being updated record.
5813: * OUT:
5814: * x_return_status Return status after the call. The status can
5815: * be FND_API.G_RET_STS_SUCCESS (success),
5816: * fnd_api.g_ret_sts_error (error),
5817: * fnd_api.g_ret_sts_unexp_error (unexpected error).
5818: * x_msg_count Number of messages in message stack.
5819: * x_msg_data Message text if x_msg_count is 1.
5812: * p_party_object_version_number Used for locking the being updated record.
5813: * OUT:
5814: * x_return_status Return status after the call. The status can
5815: * be FND_API.G_RET_STS_SUCCESS (success),
5816: * fnd_api.g_ret_sts_error (error),
5817: * fnd_api.g_ret_sts_unexp_error (unexpected error).
5818: * x_msg_count Number of messages in message stack.
5819: * x_msg_data Message text if x_msg_count is 1.
5820: *
5813: * OUT:
5814: * x_return_status Return status after the call. The status can
5815: * be FND_API.G_RET_STS_SUCCESS (success),
5816: * fnd_api.g_ret_sts_error (error),
5817: * fnd_api.g_ret_sts_unexp_error (unexpected error).
5818: * x_msg_count Number of messages in message stack.
5819: * x_msg_data Message text if x_msg_count is 1.
5820: *
5821: * NOTES
5826: *
5827: */
5828:
5829: PROCEDURE update_group (
5830: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
5831: p_group_rec IN GROUP_REC_TYPE,
5832: p_party_object_version_number IN OUT NOCOPY NUMBER,
5833: x_return_status OUT NOCOPY VARCHAR2,
5834: x_msg_count OUT NOCOPY NUMBER,
5840: l_profile_id NUMBER;
5841: l_group_rec GROUP_REC_TYPE := p_group_rec;
5842: l_old_group_rec GROUP_REC_TYPE := p_group_rec;
5843:
5844: dss_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5845: dss_msg_count NUMBER := 0;
5846: dss_msg_data VARCHAR2(2000):= null;
5847: l_test_security VARCHAR2(1):= 'F';
5848: l_debug_prefix VARCHAR2(30) := '';
5866: END IF;
5867:
5868:
5869: -- initialize message list if p_init_msg_list is set to TRUE.
5870: IF FND_API.to_Boolean(p_init_msg_list) THEN
5871: FND_MSG_PUB.initialize;
5872: END IF;
5873:
5874: -- initialize API return status to success.
5871: FND_MSG_PUB.initialize;
5872: END IF;
5873:
5874: -- initialize API return status to success.
5875: x_return_status := FND_API.G_RET_STS_SUCCESS;
5876:
5877: -- enable policy function if it is disabled.
5878:
5879: l_context := NVL(SYS_CONTEXT('hz', g_apps_context), 'N');
5896: fnd_message.set_name('AR', 'HZ_API_NO_RECORD');
5897: fnd_message.set_token('RECORD', 'group');
5898: fnd_message.set_token('VALUE', to_char(p_group_rec.party_rec.party_id));
5899: fnd_msg_pub.add;
5900: RAISE FND_API.G_EXC_ERROR;
5901: END;
5902: **/
5903:
5904: IF (l_group_rec.party_rec.orig_system is not null
5901: END;
5902: **/
5903:
5904: IF (l_group_rec.party_rec.orig_system is not null
5905: and l_group_rec.party_rec.orig_system <>fnd_api.g_miss_char)
5906: and (l_group_rec.party_rec.orig_system_reference is not null
5907: and l_group_rec.party_rec.orig_system_reference <>fnd_api.g_miss_char)
5908: and (l_group_rec.party_rec.party_id = FND_API.G_MISS_NUM or l_group_rec.party_rec.party_id is null) THEN
5909:
5903:
5904: IF (l_group_rec.party_rec.orig_system is not null
5905: and l_group_rec.party_rec.orig_system <>fnd_api.g_miss_char)
5906: and (l_group_rec.party_rec.orig_system_reference is not null
5907: and l_group_rec.party_rec.orig_system_reference <>fnd_api.g_miss_char)
5908: and (l_group_rec.party_rec.party_id = FND_API.G_MISS_NUM or l_group_rec.party_rec.party_id is null) THEN
5909:
5910: hz_orig_system_ref_pub.get_owner_table_id
5911: (p_orig_system => l_group_rec.party_rec.orig_system,
5904: IF (l_group_rec.party_rec.orig_system is not null
5905: and l_group_rec.party_rec.orig_system <>fnd_api.g_miss_char)
5906: and (l_group_rec.party_rec.orig_system_reference is not null
5907: and l_group_rec.party_rec.orig_system_reference <>fnd_api.g_miss_char)
5908: and (l_group_rec.party_rec.party_id = FND_API.G_MISS_NUM or l_group_rec.party_rec.party_id is null) THEN
5909:
5910: hz_orig_system_ref_pub.get_owner_table_id
5911: (p_orig_system => l_group_rec.party_rec.orig_system,
5912: p_orig_system_reference => l_group_rec.party_rec.orig_system_reference,
5913: p_owner_table_name => 'HZ_PARTIES',
5914: x_owner_table_id => l_group_rec.party_rec.party_id,
5915: x_return_status => x_return_status);
5916:
5917: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5918: RAISE FND_API.G_EXC_ERROR;
5919: END IF;
5920: END IF;
5921:
5914: x_owner_table_id => l_group_rec.party_rec.party_id,
5915: x_return_status => x_return_status);
5916:
5917: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5918: RAISE FND_API.G_EXC_ERROR;
5919: END IF;
5920: END IF;
5921:
5922: -- Get old records. Will be used by validation.
5926: x_return_status => x_return_status,
5927: x_msg_count => x_msg_count,
5928: x_msg_data => x_msg_data);
5929:
5930: IF x_return_status = fnd_api.g_ret_sts_error THEN
5931: RAISE fnd_api.g_exc_error;
5932: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5933: RAISE fnd_api.g_exc_unexpected_error;
5934: END IF;
5927: x_msg_count => x_msg_count,
5928: x_msg_data => x_msg_data);
5929:
5930: IF x_return_status = fnd_api.g_ret_sts_error THEN
5931: RAISE fnd_api.g_exc_error;
5932: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5933: RAISE fnd_api.g_exc_unexpected_error;
5934: END IF;
5935:
5928: x_msg_data => x_msg_data);
5929:
5930: IF x_return_status = fnd_api.g_ret_sts_error THEN
5931: RAISE fnd_api.g_exc_error;
5932: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5933: RAISE fnd_api.g_exc_unexpected_error;
5934: END IF;
5935:
5936: -- Bug 2486394 Check if the DSS security is granted to the user
5929:
5930: IF x_return_status = fnd_api.g_ret_sts_error THEN
5931: RAISE fnd_api.g_exc_error;
5932: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5933: RAISE fnd_api.g_exc_unexpected_error;
5934: END IF;
5935:
5936: -- Bug 2486394 Check if the DSS security is granted to the user
5937: -- Bug 3818648: check dss profile before call test_instance.
5946: x_return_status => dss_return_status,
5947: x_msg_count => dss_msg_count,
5948: x_msg_data => dss_msg_data);
5949:
5950: if dss_return_status <> fnd_api.g_ret_sts_success THEN
5951: RAISE FND_API.G_EXC_ERROR;
5952: end if;
5953:
5954: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
5947: x_msg_count => dss_msg_count,
5948: x_msg_data => dss_msg_data);
5949:
5950: if dss_return_status <> fnd_api.g_ret_sts_success THEN
5951: RAISE FND_API.G_EXC_ERROR;
5952: end if;
5953:
5954: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
5955: --
5950: if dss_return_status <> fnd_api.g_ret_sts_success THEN
5951: RAISE FND_API.G_EXC_ERROR;
5952: end if;
5953:
5954: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
5955: --
5956: -- Bug 3835601: replaced the dss message with a more user friendly message
5957: --
5958: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_NO_UPDATE_PRIVILEGE');
5958: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_NO_UPDATE_PRIVILEGE');
5959: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',
5960: hz_dss_util_pub.get_display_name('HZ_PARTIES', null));
5961: FND_MSG_PUB.ADD;
5962: RAISE FND_API.G_EXC_ERROR;
5963: end if;
5964: END IF;
5965:
5966: -- call to business logic.
5987: END IF;
5988:
5989: --Standard call to get message count and if count is 1, get message info.
5990: fnd_msg_pub.count_and_get(
5991: p_encoded => fnd_api.g_false,
5992: p_count => x_msg_count,
5993: p_data => x_msg_data);
5994:
5995: -- Debug info.
6013: -- Check if API is called in debug mode. If yes, disable debug.
6014: --disable_debug;
6015:
6016: EXCEPTION
6017: WHEN FND_API.G_EXC_ERROR THEN
6018: ROLLBACK TO update_group;
6019:
6020: IF l_context = 'N' THEN
6021: hz_common_pub.enable_cont_source_security;
6020: IF l_context = 'N' THEN
6021: hz_common_pub.enable_cont_source_security;
6022: END IF;
6023:
6024: x_return_status := fnd_api.g_ret_sts_error;
6025:
6026: fnd_msg_pub.count_and_get(
6027: p_encoded => fnd_api.g_false,
6028: p_count => x_msg_count,
6023:
6024: x_return_status := fnd_api.g_ret_sts_error;
6025:
6026: fnd_msg_pub.count_and_get(
6027: p_encoded => fnd_api.g_false,
6028: p_count => x_msg_count,
6029: p_data => x_msg_data);
6030:
6031: -- Debug info.
6049:
6050: -- Check if API is called in debug mode. If yes, disable debug.
6051: --disable_debug;
6052:
6053: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6054: ROLLBACK TO update_group;
6055:
6056: IF l_context = 'N' THEN
6057: hz_common_pub.enable_cont_source_security;
6056: IF l_context = 'N' THEN
6057: hz_common_pub.enable_cont_source_security;
6058: END IF;
6059:
6060: x_return_status := fnd_api.g_ret_sts_unexp_error;
6061:
6062: fnd_msg_pub.count_and_get(
6063: p_encoded => fnd_api.g_false,
6064: p_count => x_msg_count,
6059:
6060: x_return_status := fnd_api.g_ret_sts_unexp_error;
6061:
6062: fnd_msg_pub.count_and_get(
6063: p_encoded => fnd_api.g_false,
6064: p_count => x_msg_count,
6065: p_data => x_msg_data);
6066:
6067: -- Debug info.
6092: IF l_context = 'N' THEN
6093: hz_common_pub.enable_cont_source_security;
6094: END IF;
6095:
6096: x_return_status := fnd_api.g_ret_sts_unexp_error;
6097:
6098: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
6099: fnd_message.set_token('ERROR',SQLERRM);
6100: fnd_msg_pub.add;
6099: fnd_message.set_token('ERROR',SQLERRM);
6100: fnd_msg_pub.add;
6101:
6102: fnd_msg_pub.count_and_get(
6103: p_encoded => fnd_api.g_false,
6104: p_count => x_msg_count,
6105: p_data => x_msg_data);
6106:
6107: -- Debug info.
6140: *
6141: * ARGUMENTS
6142: * IN:
6143: * p_init_msg_list Initialize message stack if it is set to
6144: * FND_API.G_TRUE. Default is fnd_api.g_false.
6145: * p_organization_rec Organization record.
6146: * p_party_usage_code Party Usage Code.
6147: * IN/OUT:
6148: * OUT:
6149: * x_party_id Party ID.
6150: * x_party_number Party number.
6151: * x_profile_id Organization profile ID.
6152: * x_return_status Return status after the call. The status can
6153: * be FND_API.G_RET_STS_SUCCESS (success),
6154: * fnd_api.g_ret_sts_error (error),
6155: * fnd_api.g_ret_sts_unexp_error (unexpected error).
6156: * x_msg_count Number of messages in message stack.
6157: * x_msg_data Message text if x_msg_count is 1.
6150: * x_party_number Party number.
6151: * x_profile_id Organization profile ID.
6152: * x_return_status Return status after the call. The status can
6153: * be FND_API.G_RET_STS_SUCCESS (success),
6154: * fnd_api.g_ret_sts_error (error),
6155: * fnd_api.g_ret_sts_unexp_error (unexpected error).
6156: * x_msg_count Number of messages in message stack.
6157: * x_msg_data Message text if x_msg_count is 1.
6158: *
6151: * x_profile_id Organization profile ID.
6152: * x_return_status Return status after the call. The status can
6153: * be FND_API.G_RET_STS_SUCCESS (success),
6154: * fnd_api.g_ret_sts_error (error),
6155: * fnd_api.g_ret_sts_unexp_error (unexpected error).
6156: * x_msg_count Number of messages in message stack.
6157: * x_msg_data Message text if x_msg_count is 1.
6158: *
6159: * NOTES
6167: *
6168: */
6169:
6170: PROCEDURE create_organization (
6171: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
6172: p_organization_rec IN ORGANIZATION_REC_TYPE,
6173: p_party_usage_code IN VARCHAR2,
6174: x_return_status OUT NOCOPY VARCHAR2,
6175: x_msg_count OUT NOCOPY NUMBER,
6182: l_api_name CONSTANT VARCHAR2(30) := 'create_organization';
6183: l_organization_rec ORGANIZATION_REC_TYPE := p_organization_rec;
6184: l_context VARCHAR2(30);
6185:
6186: dss_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
6187: dss_msg_count NUMBER := 0;
6188: dss_msg_data VARCHAR2(2000):= null;
6189: l_test_security VARCHAR2(1):= 'F';
6190: l_debug_prefix VARCHAR2(30) := '';
6209: END IF;
6210:
6211:
6212: -- initialize message list if p_init_msg_list is set to TRUE.
6213: IF fnd_api.to_boolean(p_init_msg_list) THEN
6214: fnd_msg_pub.initialize;
6215: END IF;
6216:
6217: -- initialize API return status to success.
6214: fnd_msg_pub.initialize;
6215: END IF;
6216:
6217: -- initialize API return status to success.
6218: x_return_status := FND_API.G_RET_STS_SUCCESS;
6219:
6220: -- Debug info.
6221: /*IF g_debug THEN
6222: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,'before LoadDataSources (+)');
6273: p_create_update_flag => 'C',
6274: p_organization_rec => l_organization_rec,
6275: x_return_status => x_return_status );
6276:
6277: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6278: RAISE fnd_api.g_exc_error;
6279: END IF;
6280: END IF;
6281:
6274: p_organization_rec => l_organization_rec,
6275: x_return_status => x_return_status );
6276:
6277: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6278: RAISE fnd_api.g_exc_error;
6279: END IF;
6280: END IF;
6281:
6282: -- Bug 2486394 -Check if the DSS security is granted to the user
6292: x_return_status => dss_return_status,
6293: x_msg_count => dss_msg_count,
6294: x_msg_data => dss_msg_data);
6295:
6296: if dss_return_status <> fnd_api.g_ret_sts_success THEN
6297: RAISE FND_API.G_EXC_ERROR;
6298: end if;
6299:
6300: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
6293: x_msg_count => dss_msg_count,
6294: x_msg_data => dss_msg_data);
6295:
6296: if dss_return_status <> fnd_api.g_ret_sts_success THEN
6297: RAISE FND_API.G_EXC_ERROR;
6298: end if;
6299:
6300: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
6301: --
6296: if dss_return_status <> fnd_api.g_ret_sts_success THEN
6297: RAISE FND_API.G_EXC_ERROR;
6298: end if;
6299:
6300: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
6301: --
6302: -- Bug 3835601: replaced the dss message with a more user friendly message
6303: --
6304: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_NO_INSERT_PRIVILEGE');
6304: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_NO_INSERT_PRIVILEGE');
6305: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',
6306: hz_dss_util_pub.get_display_name(null, 'ORGANIZATION'));
6307: FND_MSG_PUB.ADD;
6308: RAISE FND_API.G_EXC_ERROR;
6309: end if;
6310: END IF;
6311:
6312: -- enable policy function if it was enabled before calling
6317: END IF;
6318:
6319: --Standard call to get message count and if count is 1, get message info.
6320: fnd_msg_pub.count_and_get(
6321: p_encoded => fnd_api.g_false,
6322: p_count => x_msg_count,
6323: p_data => x_msg_data);
6324:
6325: -- Debug info.
6344: -- Check if API is called in debug mode. If yes, disable debug.
6345: --disable_debug;
6346:
6347: EXCEPTION
6348: WHEN fnd_api.g_exc_error THEN
6349: ROLLBACK TO create_organization;
6350:
6351: IF l_context = 'N' THEN
6352: hz_common_pub.enable_cont_source_security;
6351: IF l_context = 'N' THEN
6352: hz_common_pub.enable_cont_source_security;
6353: END IF;
6354:
6355: x_return_status := fnd_api.g_ret_sts_error;
6356:
6357: fnd_msg_pub.count_and_get(
6358: p_encoded => fnd_api.g_false,
6359: p_count => x_msg_count,
6354:
6355: x_return_status := fnd_api.g_ret_sts_error;
6356:
6357: fnd_msg_pub.count_and_get(
6358: p_encoded => fnd_api.g_false,
6359: p_count => x_msg_count,
6360: p_data => x_msg_data);
6361:
6362: -- Debug info.
6380:
6381: -- Check if API is called in debug mode. If yes, disable debug.
6382: --disable_debug;
6383:
6384: WHEN fnd_api.g_exc_unexpected_error THEN
6385: ROLLBACK TO create_organization;
6386:
6387: IF l_context = 'N' THEN
6388: hz_common_pub.enable_cont_source_security;
6387: IF l_context = 'N' THEN
6388: hz_common_pub.enable_cont_source_security;
6389: END IF;
6390:
6391: x_return_status := fnd_api.g_ret_sts_unexp_error;
6392:
6393: fnd_msg_pub.count_and_get(
6394: p_encoded => fnd_api.g_false,
6395: p_count => x_msg_count,
6390:
6391: x_return_status := fnd_api.g_ret_sts_unexp_error;
6392:
6393: fnd_msg_pub.count_and_get(
6394: p_encoded => fnd_api.g_false,
6395: p_count => x_msg_count,
6396: p_data => x_msg_data);
6397:
6398: -- Debug info.
6423: IF l_context = 'N' THEN
6424: hz_common_pub.enable_cont_source_security;
6425: END IF;
6426:
6427: x_return_status := fnd_api.g_ret_sts_unexp_error;
6428:
6429: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
6430: fnd_message.set_token('ERROR',SQLERRM);
6431: fnd_msg_pub.add;
6430: fnd_message.set_token('ERROR',SQLERRM);
6431: fnd_msg_pub.add;
6432:
6433: fnd_msg_pub.count_and_get(
6434: p_encoded => fnd_api.g_false,
6435: p_count => x_msg_count,
6436: p_data => x_msg_data);
6437:
6438: -- Debug info.
6470: *
6471: * ARGUMENTS
6472: * IN:
6473: * p_init_msg_list Initialize message stack if it is set to
6474: * FND_API.G_TRUE. Default is fnd_api.g_false.
6475: * p_organization_rec Organization record.
6476: * IN/OUT:
6477: * OUT:
6478: * x_party_id Party ID.
6478: * x_party_id Party ID.
6479: * x_party_number Party number.
6480: * x_profile_id Organization profile ID.
6481: * x_return_status Return status after the call. The status can
6482: * be FND_API.G_RET_STS_SUCCESS (success),
6483: * fnd_api.g_ret_sts_error (error),
6484: * fnd_api.g_ret_sts_unexp_error (unexpected error).
6485: * x_msg_count Number of messages in message stack.
6486: * x_msg_data Message text if x_msg_count is 1.
6479: * x_party_number Party number.
6480: * x_profile_id Organization profile ID.
6481: * x_return_status Return status after the call. The status can
6482: * be FND_API.G_RET_STS_SUCCESS (success),
6483: * fnd_api.g_ret_sts_error (error),
6484: * fnd_api.g_ret_sts_unexp_error (unexpected error).
6485: * x_msg_count Number of messages in message stack.
6486: * x_msg_data Message text if x_msg_count is 1.
6487: *
6480: * x_profile_id Organization profile ID.
6481: * x_return_status Return status after the call. The status can
6482: * be FND_API.G_RET_STS_SUCCESS (success),
6483: * fnd_api.g_ret_sts_error (error),
6484: * fnd_api.g_ret_sts_unexp_error (unexpected error).
6485: * x_msg_count Number of messages in message stack.
6486: * x_msg_data Message text if x_msg_count is 1.
6487: *
6488: * NOTES
6496: *
6497: */
6498:
6499: PROCEDURE create_organization (
6500: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
6501: p_organization_rec IN ORGANIZATION_REC_TYPE,
6502: x_return_status OUT NOCOPY VARCHAR2,
6503: x_msg_count OUT NOCOPY NUMBER,
6504: x_msg_data OUT NOCOPY VARCHAR2,
6534: *
6535: * ARGUMENTS
6536: * IN:
6537: * p_init_msg_list Initialize message stack if it is set to
6538: * FND_API.G_TRUE. Default is fnd_api.g_false.
6539: * p_organization_rec Organization record.
6540: * IN/OUT:
6541: * p_party_object_version_number Used for locking the being updated record.
6542: * OUT:
6541: * p_party_object_version_number Used for locking the being updated record.
6542: * OUT:
6543: * x_profile_id Organization profile ID.
6544: * x_return_status Return status after the call. The status can
6545: * be fnd_api.g_ret_sts_success (success),
6546: * fnd_api.g_ret_sts_error (error),
6547: * fnd_api.g_ret_sts_unexp_error (unexpected error).
6548: * x_msg_count Number of messages in message stack.
6549: * x_msg_data Message text if x_msg_count is 1.
6542: * OUT:
6543: * x_profile_id Organization profile ID.
6544: * x_return_status Return status after the call. The status can
6545: * be fnd_api.g_ret_sts_success (success),
6546: * fnd_api.g_ret_sts_error (error),
6547: * fnd_api.g_ret_sts_unexp_error (unexpected error).
6548: * x_msg_count Number of messages in message stack.
6549: * x_msg_data Message text if x_msg_count is 1.
6550: *
6543: * x_profile_id Organization profile ID.
6544: * x_return_status Return status after the call. The status can
6545: * be fnd_api.g_ret_sts_success (success),
6546: * fnd_api.g_ret_sts_error (error),
6547: * fnd_api.g_ret_sts_unexp_error (unexpected error).
6548: * x_msg_count Number of messages in message stack.
6549: * x_msg_data Message text if x_msg_count is 1.
6550: *
6551: * NOTES
6560: *
6561: */
6562:
6563: PROCEDURE update_organization (
6564: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
6565: p_organization_rec IN ORGANIZATION_REC_TYPE,
6566: p_party_object_version_number IN OUT NOCOPY NUMBER,
6567: x_profile_id OUT NOCOPY NUMBER,
6568: x_return_status OUT NOCOPY VARCHAR2,
6609: END IF;
6610:
6611:
6612: -- initialize message list if p_init_msg_list is set to TRUE.
6613: IF fnd_api.to_boolean(p_init_msg_list) THEN
6614: fnd_msg_pub.initialize;
6615: END IF;
6616:
6617: -- initialize API return status to success.
6614: fnd_msg_pub.initialize;
6615: END IF;
6616:
6617: -- initialize API return status to success.
6618: x_return_status := fnd_api.g_ret_sts_success;
6619:
6620: -- enable policy function if it is disabled.
6621:
6622: l_context := NVL(SYS_CONTEXT('hz', g_apps_context), 'N');
6636: fnd_message.set_name('AR', 'HZ_API_NO_RECORD');
6637: fnd_message.set_token('RECORD', 'organization');
6638: fnd_message.set_token('VALUE',TO_CHAR(l_organization_rec.party_rec.party_id));
6639: fnd_msg_pub.add;
6640: RAISE fnd_api.g_exc_error;
6641: END IF;
6642: CLOSE c_orgchk;
6643: **/
6644:
6642: CLOSE c_orgchk;
6643: **/
6644:
6645: IF (l_organization_rec.party_rec.orig_system is not null
6646: and l_organization_rec.party_rec.orig_system <>fnd_api.g_miss_char)
6647: and (l_organization_rec.party_rec.orig_system_reference is not null
6648: and l_organization_rec.party_rec.orig_system_reference <>fnd_api.g_miss_char)
6649: and (l_organization_rec.party_rec.party_id = FND_API.G_MISS_NUM or l_organization_rec.party_rec.party_id is null) THEN
6650:
6644:
6645: IF (l_organization_rec.party_rec.orig_system is not null
6646: and l_organization_rec.party_rec.orig_system <>fnd_api.g_miss_char)
6647: and (l_organization_rec.party_rec.orig_system_reference is not null
6648: and l_organization_rec.party_rec.orig_system_reference <>fnd_api.g_miss_char)
6649: and (l_organization_rec.party_rec.party_id = FND_API.G_MISS_NUM or l_organization_rec.party_rec.party_id is null) THEN
6650:
6651: hz_orig_system_ref_pub.get_owner_table_id
6652: (p_orig_system => l_organization_rec.party_rec.orig_system,
6645: IF (l_organization_rec.party_rec.orig_system is not null
6646: and l_organization_rec.party_rec.orig_system <>fnd_api.g_miss_char)
6647: and (l_organization_rec.party_rec.orig_system_reference is not null
6648: and l_organization_rec.party_rec.orig_system_reference <>fnd_api.g_miss_char)
6649: and (l_organization_rec.party_rec.party_id = FND_API.G_MISS_NUM or l_organization_rec.party_rec.party_id is null) THEN
6650:
6651: hz_orig_system_ref_pub.get_owner_table_id
6652: (p_orig_system => l_organization_rec.party_rec.orig_system,
6653: p_orig_system_reference => l_organization_rec.party_rec.orig_system_reference,
6654: p_owner_table_name => 'HZ_PARTIES',
6655: x_owner_table_id => l_organization_rec.party_rec.party_id,
6656: x_return_status => x_return_status);
6657:
6658: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6659: RAISE FND_API.G_EXC_ERROR;
6660: END IF;
6661: END IF;
6662:
6655: x_owner_table_id => l_organization_rec.party_rec.party_id,
6656: x_return_status => x_return_status);
6657:
6658: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6659: RAISE FND_API.G_EXC_ERROR;
6660: END IF;
6661: END IF;
6662:
6663:
6681: x_return_status => x_return_status,
6682: x_msg_count => x_msg_count,
6683: x_msg_data => x_msg_data);
6684:
6685: IF x_return_status = fnd_api.g_ret_sts_error THEN
6686: RAISE fnd_api.g_exc_error;
6687: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6688: RAISE fnd_api.g_exc_unexpected_error;
6689: END IF;
6682: x_msg_count => x_msg_count,
6683: x_msg_data => x_msg_data);
6684:
6685: IF x_return_status = fnd_api.g_ret_sts_error THEN
6686: RAISE fnd_api.g_exc_error;
6687: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6688: RAISE fnd_api.g_exc_unexpected_error;
6689: END IF;
6690:
6683: x_msg_data => x_msg_data);
6684:
6685: IF x_return_status = fnd_api.g_ret_sts_error THEN
6686: RAISE fnd_api.g_exc_error;
6687: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6688: RAISE fnd_api.g_exc_unexpected_error;
6689: END IF;
6690:
6691: --- Bug 2486394 Check if the DSS security is granted to the user
6684:
6685: IF x_return_status = fnd_api.g_ret_sts_error THEN
6686: RAISE fnd_api.g_exc_error;
6687: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6688: RAISE fnd_api.g_exc_unexpected_error;
6689: END IF;
6690:
6691: --- Bug 2486394 Check if the DSS security is granted to the user
6692: -- Bug 3818648: check dss profile before call test_instance.
6701: x_return_status => dss_return_status,
6702: x_msg_count => dss_msg_count,
6703: x_msg_data => dss_msg_data);
6704:
6705: if dss_return_status <> fnd_api.g_ret_sts_success THEN
6706: RAISE FND_API.G_EXC_ERROR;
6707: end if;
6708:
6709: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
6702: x_msg_count => dss_msg_count,
6703: x_msg_data => dss_msg_data);
6704:
6705: if dss_return_status <> fnd_api.g_ret_sts_success THEN
6706: RAISE FND_API.G_EXC_ERROR;
6707: end if;
6708:
6709: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
6710: --
6705: if dss_return_status <> fnd_api.g_ret_sts_success THEN
6706: RAISE FND_API.G_EXC_ERROR;
6707: end if;
6708:
6709: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
6710: --
6711: -- Bug 3835601: replaced the message with a more user friendly message
6712: --
6713: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_NO_UPDATE_PRIVILEGE');
6713: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_NO_UPDATE_PRIVILEGE');
6714: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',
6715: hz_dss_util_pub.get_display_name(null, 'ORGANIZATION'));
6716: FND_MSG_PUB.ADD;
6717: RAISE FND_API.G_EXC_ERROR;
6718: end if;
6719: END IF;
6720:
6721: -- call to business logic.
6739: x_msg_count => x_msg_count,
6740: x_msg_data => x_msg_data,
6741: x_party_id => l_organization_rec.party_rec.party_id);
6742:
6743: IF x_return_status = fnd_api.g_ret_sts_error THEN
6744: RAISE fnd_api.g_exc_error;
6745: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6746: RAISE fnd_api.g_exc_unexpected_error;
6747: END IF;
6740: x_msg_data => x_msg_data,
6741: x_party_id => l_organization_rec.party_rec.party_id);
6742:
6743: IF x_return_status = fnd_api.g_ret_sts_error THEN
6744: RAISE fnd_api.g_exc_error;
6745: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6746: RAISE fnd_api.g_exc_unexpected_error;
6747: END IF;
6748:
6741: x_party_id => l_organization_rec.party_rec.party_id);
6742:
6743: IF x_return_status = fnd_api.g_ret_sts_error THEN
6744: RAISE fnd_api.g_exc_error;
6745: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6746: RAISE fnd_api.g_exc_unexpected_error;
6747: END IF;
6748:
6749: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
6742:
6743: IF x_return_status = fnd_api.g_ret_sts_error THEN
6744: RAISE fnd_api.g_exc_error;
6745: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6746: RAISE fnd_api.g_exc_unexpected_error;
6747: END IF;
6748:
6749: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
6750: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'After the Supplier Denorm Call',
6772: p_create_update_flag => l_create_update_flag,
6773: p_organization_rec => l_organization_rec,
6774: x_return_status => x_return_status );
6775:
6776: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6777: RAISE fnd_api.g_exc_error;
6778: END IF;
6779: END IF;
6780:
6773: p_organization_rec => l_organization_rec,
6774: x_return_status => x_return_status );
6775:
6776: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6777: RAISE fnd_api.g_exc_error;
6778: END IF;
6779: END IF;
6780:
6781:
6787: END IF;
6788:
6789: --Standard call to get message count and if count is 1, get message info.
6790: fnd_msg_pub.count_and_get(
6791: p_encoded => fnd_api.g_false,
6792: p_count => x_msg_count,
6793: p_data => x_msg_data);
6794:
6795: -- Debug info.
6813: -- Check if API is called in debug mode. If yes, disable debug.
6814: --disable_debug;
6815:
6816: EXCEPTION
6817: WHEN fnd_api.g_exc_error THEN
6818: ROLLBACK TO update_organization;
6819:
6820: IF l_context = 'N' THEN
6821: hz_common_pub.enable_cont_source_security;
6820: IF l_context = 'N' THEN
6821: hz_common_pub.enable_cont_source_security;
6822: END IF;
6823:
6824: x_return_status := fnd_api.g_ret_sts_error;
6825:
6826: fnd_msg_pub.count_and_get(
6827: p_encoded => fnd_api.g_false,
6828: p_count => x_msg_count,
6823:
6824: x_return_status := fnd_api.g_ret_sts_error;
6825:
6826: fnd_msg_pub.count_and_get(
6827: p_encoded => fnd_api.g_false,
6828: p_count => x_msg_count,
6829: p_data => x_msg_data);
6830:
6831: -- Debug info.
6849:
6850: -- Check if API is called in debug mode. If yes, disable debug.
6851: --disable_debug;
6852:
6853: WHEN fnd_api.g_exc_unexpected_error THEN
6854: ROLLBACK TO update_organization;
6855:
6856: IF l_context = 'N' THEN
6857: hz_common_pub.enable_cont_source_security;
6856: IF l_context = 'N' THEN
6857: hz_common_pub.enable_cont_source_security;
6858: END IF;
6859:
6860: x_return_status := fnd_api.g_ret_sts_unexp_error;
6861:
6862: fnd_msg_pub.count_and_get(
6863: p_encoded => fnd_api.g_false,
6864: p_count => x_msg_count,
6859:
6860: x_return_status := fnd_api.g_ret_sts_unexp_error;
6861:
6862: fnd_msg_pub.count_and_get(
6863: p_encoded => fnd_api.g_false,
6864: p_count => x_msg_count,
6865: p_data => x_msg_data);
6866:
6867: -- Debug info.
6893: IF l_context = 'N' THEN
6894: hz_common_pub.enable_cont_source_security;
6895: END IF;
6896:
6897: x_return_status := fnd_api.g_ret_sts_unexp_error;
6898:
6899: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
6900: fnd_message.set_token('ERROR',SQLERRM);
6901: fnd_msg_pub.add;
6900: fnd_message.set_token('ERROR',SQLERRM);
6901: fnd_msg_pub.add;
6902:
6903: fnd_msg_pub.count_and_get(
6904: p_encoded => fnd_api.g_false,
6905: p_count => x_msg_count,
6906: p_data => x_msg_data);
6907:
6908: -- Debug info.
6940: *
6941: * ARGUMENTS
6942: * IN:
6943: * p_init_msg_list Initialize message stack if it is set to
6944: * FND_API.G_TRUE. Default is fnd_api.g_false.
6945: * p_party_id Party ID.
6946: * p_content_source_type Content source type.
6947: * IN/OUT:
6948: * OUT:
6947: * IN/OUT:
6948: * OUT:
6949: * x_organization_rec Returned organization record.
6950: * x_return_status Return status after the call. The status can
6951: * be fnd_api.g_ret_sts_success (success),
6952: * fnd_api.g_ret_sts_error (error),
6953: * fnd_api.g_ret_sts_unexp_error (unexpected error).
6954: * x_msg_count Number of messages in message stack.
6955: * x_msg_data Message text if x_msg_count is 1.
6948: * OUT:
6949: * x_organization_rec Returned organization record.
6950: * x_return_status Return status after the call. The status can
6951: * be fnd_api.g_ret_sts_success (success),
6952: * fnd_api.g_ret_sts_error (error),
6953: * fnd_api.g_ret_sts_unexp_error (unexpected error).
6954: * x_msg_count Number of messages in message stack.
6955: * x_msg_data Message text if x_msg_count is 1.
6956: *
6949: * x_organization_rec Returned organization record.
6950: * x_return_status Return status after the call. The status can
6951: * be fnd_api.g_ret_sts_success (success),
6952: * fnd_api.g_ret_sts_error (error),
6953: * fnd_api.g_ret_sts_unexp_error (unexpected error).
6954: * x_msg_count Number of messages in message stack.
6955: * x_msg_data Message text if x_msg_count is 1.
6956: *
6957: * NOTES
6967: *
6968: */
6969:
6970: PROCEDURE get_organization_rec (
6971: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
6972: p_party_id IN NUMBER,
6973: p_content_source_type IN VARCHAR2 := g_miss_content_source_type,
6974: x_organization_rec OUT NOCOPY ORGANIZATION_REC_TYPE,
6975: x_return_status OUT NOCOPY VARCHAR2,
7016:
7017: BEGIN
7018:
7019: --Initialize message list if p_init_msg_list is set to TRUE.
7020: IF fnd_api.to_boolean(p_init_msg_list) THEN
7021: fnd_msg_pub.initialize;
7022: END IF;
7023:
7024: --Initialize API return status to success.
7021: fnd_msg_pub.initialize;
7022: END IF;
7023:
7024: --Initialize API return status to success.
7025: x_return_status := fnd_api.g_ret_sts_success;
7026:
7027: -- enable policy function if it is disabled.
7028:
7029: l_context := NVL(SYS_CONTEXT('hz', g_apps_context), 'N');
7032: END IF;
7033:
7034: --Check whether primary key has been passed in.
7035: IF p_party_id IS NULL OR
7036: p_party_id = fnd_api.g_miss_num
7037: THEN
7038: fnd_message.set_name('AR', 'HZ_API_MISSING_COLUMN');
7039: fnd_message.set_token('COLUMN', 'p_party_id');
7040: fnd_msg_pub.add;
7037: THEN
7038: fnd_message.set_name('AR', 'HZ_API_MISSING_COLUMN');
7039: fnd_message.set_token('COLUMN', 'p_party_id');
7040: fnd_msg_pub.add;
7041: RAISE fnd_api.g_exc_error;
7042: END IF;
7043:
7044: IF p_content_source_type IS NULL OR
7045: p_content_source_type = fnd_api.g_miss_char
7041: RAISE fnd_api.g_exc_error;
7042: END IF;
7043:
7044: IF p_content_source_type IS NULL OR
7045: p_content_source_type = fnd_api.g_miss_char
7046: THEN
7047: fnd_message.set_name('AR', 'HZ_API_MISSING_COLUMN');
7048: fnd_message.set_token('COLUMN', 'p_content_source_type');
7049: fnd_msg_pub.add;
7046: THEN
7047: fnd_message.set_name('AR', 'HZ_API_MISSING_COLUMN');
7048: fnd_message.set_token('COLUMN', 'p_content_source_type');
7049: fnd_msg_pub.add;
7050: RAISE fnd_api.g_exc_error;
7051: END IF;
7052:
7053: IF p_content_source_type = G_MISS_CONTENT_SOURCE_TYPE THEN
7054: OPEN c_org_ue;
7072: fnd_message.set_name('AR', 'HZ_NO_PROFILE_PRESENT');
7073: fnd_message.set_token('PARTY_ID', TO_CHAR(p_party_id));
7074: fnd_message.set_token('CONTENT_SOURCE_TYPE', p_content_source_type);
7075: fnd_msg_pub.add;
7076: RAISE fnd_api.g_exc_error;
7077: END IF;
7078:
7079: hz_organization_profiles_pkg.Select_Row (
7080: x_organization_profile_id => l_profile_id,
7241: END IF;
7242:
7243: --Standard call to get message count and if count is 1, get message info.
7244: fnd_msg_pub.count_and_get(
7245: p_encoded => fnd_api.g_false,
7246: p_count => x_msg_count,
7247: p_data => x_msg_data);
7248:
7249: EXCEPTION
7246: p_count => x_msg_count,
7247: p_data => x_msg_data);
7248:
7249: EXCEPTION
7250: WHEN fnd_api.g_exc_error THEN
7251: IF l_context = 'N' THEN
7252: hz_common_pub.enable_cont_source_security;
7253: END IF;
7254:
7251: IF l_context = 'N' THEN
7252: hz_common_pub.enable_cont_source_security;
7253: END IF;
7254:
7255: x_return_status := fnd_api.g_ret_sts_error;
7256:
7257: fnd_msg_pub.count_and_get(
7258: p_encoded => fnd_api.g_false,
7259: p_count => x_msg_count,
7254:
7255: x_return_status := fnd_api.g_ret_sts_error;
7256:
7257: fnd_msg_pub.count_and_get(
7258: p_encoded => fnd_api.g_false,
7259: p_count => x_msg_count,
7260: p_data => x_msg_data);
7261:
7262: WHEN fnd_api.g_exc_unexpected_error THEN
7258: p_encoded => fnd_api.g_false,
7259: p_count => x_msg_count,
7260: p_data => x_msg_data);
7261:
7262: WHEN fnd_api.g_exc_unexpected_error THEN
7263: IF l_context = 'N' THEN
7264: hz_common_pub.enable_cont_source_security;
7265: END IF;
7266:
7263: IF l_context = 'N' THEN
7264: hz_common_pub.enable_cont_source_security;
7265: END IF;
7266:
7267: x_return_status := fnd_api.g_ret_sts_unexp_error;
7268:
7269: fnd_msg_pub.count_and_get(
7270: p_encoded => fnd_api.g_false,
7271: p_count => x_msg_count,
7266:
7267: x_return_status := fnd_api.g_ret_sts_unexp_error;
7268:
7269: fnd_msg_pub.count_and_get(
7270: p_encoded => fnd_api.g_false,
7271: p_count => x_msg_count,
7272: p_data => x_msg_data);
7273:
7274: WHEN OTHERS THEN
7275: IF l_context = 'N' THEN
7276: hz_common_pub.enable_cont_source_security;
7277: END IF;
7278:
7279: x_return_status := fnd_api.g_ret_sts_unexp_error;
7280:
7281: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
7282: fnd_message.set_token('ERROR',SQLERRM);
7283: fnd_msg_pub.add;
7282: fnd_message.set_token('ERROR',SQLERRM);
7283: fnd_msg_pub.add;
7284:
7285: fnd_msg_pub.count_and_get(
7286: p_encoded => fnd_api.g_false,
7287: p_count => x_msg_count,
7288: p_data => x_msg_data);
7289:
7290: END get_organization_rec;
7300: *
7301: * ARGUMENTS
7302: * IN:
7303: * p_init_msg_list Initialize message stack if it is set to
7304: * FND_API.G_TRUE. Default is fnd_api.g_false.
7305: * p_party_id Party ID.
7306: * p_content_source_type Content source type.
7307: * IN/OUT:
7308: * OUT:
7307: * IN/OUT:
7308: * OUT:
7309: * x_person_rec Returned person record.
7310: * x_return_status Return status after the call. The status can
7311: * be fnd_api.g_ret_sts_success (success),
7312: * fnd_api.g_ret_sts_error (error),
7313: * fnd_api.g_ret_sts_unexp_error (unexpected error)
7314: * x_msg_count Number of messages in message stack.
7315: * x_msg_data Message text if x_msg_count is 1.
7308: * OUT:
7309: * x_person_rec Returned person record.
7310: * x_return_status Return status after the call. The status can
7311: * be fnd_api.g_ret_sts_success (success),
7312: * fnd_api.g_ret_sts_error (error),
7313: * fnd_api.g_ret_sts_unexp_error (unexpected error)
7314: * x_msg_count Number of messages in message stack.
7315: * x_msg_data Message text if x_msg_count is 1.
7316: *
7309: * x_person_rec Returned person record.
7310: * x_return_status Return status after the call. The status can
7311: * be fnd_api.g_ret_sts_success (success),
7312: * fnd_api.g_ret_sts_error (error),
7313: * fnd_api.g_ret_sts_unexp_error (unexpected error)
7314: * x_msg_count Number of messages in message stack.
7315: * x_msg_data Message text if x_msg_count is 1.
7316: *
7317: * NOTES
7322: *
7323: */
7324:
7325: PROCEDURE get_person_rec (
7326: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
7327: p_party_id IN NUMBER,
7328: p_content_source_type IN VARCHAR2 := G_MISS_CONTENT_SOURCE_TYPE,
7329: x_person_rec OUT NOCOPY PERSON_REC_TYPE,
7330: x_return_status OUT NOCOPY VARCHAR2,
7366:
7367: BEGIN
7368:
7369: --Initialize message list if p_init_msg_list is set to TRUE.
7370: IF fnd_api.to_boolean(p_init_msg_list) THEN
7371: fnd_msg_pub.initialize;
7372: END IF;
7373:
7374: --Initialize API return status to success.
7371: fnd_msg_pub.initialize;
7372: END IF;
7373:
7374: --Initialize API return status to success.
7375: x_return_status := fnd_api.g_ret_sts_success;
7376:
7377: -- enable policy function if it is disabled.
7378:
7379: l_context := NVL(SYS_CONTEXT('hz', g_apps_context), 'N');
7382: END IF;
7383:
7384: --Check whether primary key has been passed in.
7385: IF p_party_id IS NULL OR
7386: p_party_id = fnd_api.g_miss_num
7387: THEN
7388: fnd_message.set_name('AR', 'HZ_API_MISSING_COLUMN');
7389: fnd_message.set_token('COLUMN', 'p_party_id');
7390: fnd_msg_pub.add;
7387: THEN
7388: fnd_message.set_name('AR', 'HZ_API_MISSING_COLUMN');
7389: fnd_message.set_token('COLUMN', 'p_party_id');
7390: fnd_msg_pub.add;
7391: RAISE fnd_api.g_exc_error;
7392: END IF;
7393:
7394: IF p_content_source_type IS NULL OR
7395: p_content_source_type = FND_API.G_MISS_CHAR
7391: RAISE fnd_api.g_exc_error;
7392: END IF;
7393:
7394: IF p_content_source_type IS NULL OR
7395: p_content_source_type = FND_API.G_MISS_CHAR
7396: THEN
7397: fnd_message.set_name('AR', 'HZ_API_MISSING_COLUMN');
7398: fnd_message.set_token('COLUMN', 'p_content_source_type');
7399: fnd_msg_pub.add;
7396: THEN
7397: fnd_message.set_name('AR', 'HZ_API_MISSING_COLUMN');
7398: fnd_message.set_token('COLUMN', 'p_content_source_type');
7399: fnd_msg_pub.add;
7400: RAISE fnd_api.g_exc_error;
7401: END IF;
7402:
7403: IF p_content_source_type = G_MISS_CONTENT_SOURCE_TYPE THEN
7404: OPEN c_per_ue;
7422: fnd_message.set_name('AR', 'HZ_NO_PROFILE_PRESENT');
7423: fnd_message.set_token('PARTY_ID', TO_CHAR(p_party_id));
7424: fnd_message.set_token('CONTENT_SOURCE_TYPE', p_content_source_type);
7425: fnd_msg_pub.add;
7426: RAISE fnd_api.g_exc_error;
7427: END IF;
7428:
7429: HZ_person_profiles_pkg.Select_Row (
7430: x_person_profile_id => l_profile_id,
7511: END IF;
7512:
7513: --Standard call to get message count and if count is 1, get message info.
7514: fnd_msg_pub.count_and_get(
7515: p_encoded => fnd_api.g_false,
7516: p_count => x_msg_count,
7517: p_data => x_msg_data);
7518:
7519: EXCEPTION
7516: p_count => x_msg_count,
7517: p_data => x_msg_data);
7518:
7519: EXCEPTION
7520: WHEN fnd_api.g_exc_error THEN
7521: IF l_context = 'N' THEN
7522: hz_common_pub.enable_cont_source_security;
7523: END IF;
7524:
7521: IF l_context = 'N' THEN
7522: hz_common_pub.enable_cont_source_security;
7523: END IF;
7524:
7525: x_return_status := fnd_api.g_ret_sts_error;
7526:
7527: fnd_msg_pub.count_and_get(
7528: p_encoded => fnd_api.g_false,
7529: p_count => x_msg_count,
7524:
7525: x_return_status := fnd_api.g_ret_sts_error;
7526:
7527: fnd_msg_pub.count_and_get(
7528: p_encoded => fnd_api.g_false,
7529: p_count => x_msg_count,
7530: p_data => x_msg_data);
7531:
7532: WHEN fnd_api.g_exc_unexpected_error THEN
7528: p_encoded => fnd_api.g_false,
7529: p_count => x_msg_count,
7530: p_data => x_msg_data);
7531:
7532: WHEN fnd_api.g_exc_unexpected_error THEN
7533: IF l_context = 'N' THEN
7534: hz_common_pub.enable_cont_source_security;
7535: END IF;
7536:
7533: IF l_context = 'N' THEN
7534: hz_common_pub.enable_cont_source_security;
7535: END IF;
7536:
7537: x_return_status := fnd_api.g_ret_sts_unexp_error;
7538:
7539: fnd_msg_pub.count_and_get(
7540: p_encoded => fnd_api.g_false,
7541: p_count => x_msg_count,
7536:
7537: x_return_status := fnd_api.g_ret_sts_unexp_error;
7538:
7539: fnd_msg_pub.count_and_get(
7540: p_encoded => fnd_api.g_false,
7541: p_count => x_msg_count,
7542: p_data => x_msg_data);
7543:
7544: WHEN OTHERS THEN
7545: IF l_context = 'N' THEN
7546: hz_common_pub.enable_cont_source_security;
7547: END IF;
7548:
7549: x_return_status := fnd_api.g_ret_sts_unexp_error;
7550:
7551: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
7552: fnd_message.set_token('ERROR',SQLERRM);
7553: fnd_msg_pub.add;
7552: fnd_message.set_token('ERROR',SQLERRM);
7553: fnd_msg_pub.add;
7554:
7555: fnd_msg_pub.count_and_get(
7556: p_encoded => fnd_api.g_false,
7557: p_count => x_msg_count,
7558: p_data => x_msg_data);
7559:
7560: END get_person_rec;
7569: *
7570: * ARGUMENTS
7571: * IN:
7572: * p_init_msg_list Initialize message stack if it is set to
7573: * FND_API.G_TRUE. Default is fnd_api.g_false.
7574: * p_party_id Party ID.
7575: * IN/OUT:
7576: * OUT:
7577: * x_group_rec Returned group record.
7575: * IN/OUT:
7576: * OUT:
7577: * x_group_rec Returned group record.
7578: * x_return_status Return status after the call. The status can
7579: * be fnd_api.g_ret_sts_success (success),
7580: * fnd_api.g_ret_sts_error (error),
7581: * fnd_api.g_ret_sts_unexp_error (unexpected error).
7582: * x_msg_count Number of messages in message stack.
7583: * x_msg_data Message text if x_msg_count is 1.
7576: * OUT:
7577: * x_group_rec Returned group record.
7578: * x_return_status Return status after the call. The status can
7579: * be fnd_api.g_ret_sts_success (success),
7580: * fnd_api.g_ret_sts_error (error),
7581: * fnd_api.g_ret_sts_unexp_error (unexpected error).
7582: * x_msg_count Number of messages in message stack.
7583: * x_msg_data Message text if x_msg_count is 1.
7584: *
7577: * x_group_rec Returned group record.
7578: * x_return_status Return status after the call. The status can
7579: * be fnd_api.g_ret_sts_success (success),
7580: * fnd_api.g_ret_sts_error (error),
7581: * fnd_api.g_ret_sts_unexp_error (unexpected error).
7582: * x_msg_count Number of messages in message stack.
7583: * x_msg_data Message text if x_msg_count is 1.
7584: *
7585: * NOTES
7590: *
7591: */
7592:
7593: PROCEDURE get_group_rec (
7594: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
7595: p_party_id IN NUMBER,
7596: x_group_rec OUT NOCOPY GROUP_REC_TYPE,
7597: x_return_status OUT NOCOPY VARCHAR2,
7598: x_msg_count OUT NOCOPY NUMBER,
7631:
7632: BEGIN
7633:
7634: --Initialize message list if p_init_msg_list is set to TRUE.
7635: IF fnd_api.to_boolean(p_init_msg_list) THEN
7636: fnd_msg_pub.initialize;
7637: END IF;
7638:
7639: --Initialize API return status to success.
7636: fnd_msg_pub.initialize;
7637: END IF;
7638:
7639: --Initialize API return status to success.
7640: x_return_status := fnd_api.g_ret_sts_success;
7641:
7642: --Check whether primary key has been passed in.
7643: IF p_party_id IS NULL OR
7644: p_party_id = fnd_api.g_miss_num
7640: x_return_status := fnd_api.g_ret_sts_success;
7641:
7642: --Check whether primary key has been passed in.
7643: IF p_party_id IS NULL OR
7644: p_party_id = fnd_api.g_miss_num
7645: THEN
7646: fnd_message.set_name('AR', 'HZ_API_MISSING_COLUMN');
7647: fnd_message.set_token('COLUMN', 'party_id');
7648: fnd_msg_pub.add;
7645: THEN
7646: fnd_message.set_name('AR', 'HZ_API_MISSING_COLUMN');
7647: fnd_message.set_token('COLUMN', 'party_id');
7648: fnd_msg_pub.add;
7649: RAISE fnd_api.g_exc_error;
7650: END IF;
7651:
7652: OPEN c_group;
7653: FETCH c_group INTO l_dummy;
7660: fnd_message.set_name('AR', 'HZ_API_NO_RECORD');
7661: fnd_message.set_token('RECORD', 'group');
7662: fnd_message.set_token('VALUE', to_char(p_party_id));
7663: fnd_msg_pub.add;
7664: RAISE fnd_api.g_exc_error;
7665: END IF;
7666:
7667: x_group_rec.party_rec.party_id := p_party_id;
7668:
7754: );
7755:
7756: --Standard call to get message count and if count is 1, get message info.
7757: fnd_msg_pub.count_and_get(
7758: p_encoded => fnd_api.g_false,
7759: p_count => x_msg_count,
7760: p_data => x_msg_data);
7761:
7762: EXCEPTION
7759: p_count => x_msg_count,
7760: p_data => x_msg_data);
7761:
7762: EXCEPTION
7763: WHEN fnd_api.g_exc_error THEN
7764: x_return_status := fnd_api.g_ret_sts_error;
7765:
7766: fnd_msg_pub.count_and_get(
7767: p_encoded => fnd_api.g_false,
7760: p_data => x_msg_data);
7761:
7762: EXCEPTION
7763: WHEN fnd_api.g_exc_error THEN
7764: x_return_status := fnd_api.g_ret_sts_error;
7765:
7766: fnd_msg_pub.count_and_get(
7767: p_encoded => fnd_api.g_false,
7768: p_count => x_msg_count,
7763: WHEN fnd_api.g_exc_error THEN
7764: x_return_status := fnd_api.g_ret_sts_error;
7765:
7766: fnd_msg_pub.count_and_get(
7767: p_encoded => fnd_api.g_false,
7768: p_count => x_msg_count,
7769: p_data => x_msg_data);
7770:
7771: WHEN fnd_api.g_exc_unexpected_error THEN
7767: p_encoded => fnd_api.g_false,
7768: p_count => x_msg_count,
7769: p_data => x_msg_data);
7770:
7771: WHEN fnd_api.g_exc_unexpected_error THEN
7772: x_return_status := fnd_api.g_ret_sts_unexp_error;
7773:
7774: fnd_msg_pub.count_and_get(
7775: p_encoded => fnd_api.g_false,
7768: p_count => x_msg_count,
7769: p_data => x_msg_data);
7770:
7771: WHEN fnd_api.g_exc_unexpected_error THEN
7772: x_return_status := fnd_api.g_ret_sts_unexp_error;
7773:
7774: fnd_msg_pub.count_and_get(
7775: p_encoded => fnd_api.g_false,
7776: p_count => x_msg_count,
7771: WHEN fnd_api.g_exc_unexpected_error THEN
7772: x_return_status := fnd_api.g_ret_sts_unexp_error;
7773:
7774: fnd_msg_pub.count_and_get(
7775: p_encoded => fnd_api.g_false,
7776: p_count => x_msg_count,
7777: p_data => x_msg_data);
7778:
7779: WHEN OTHERS THEN
7776: p_count => x_msg_count,
7777: p_data => x_msg_data);
7778:
7779: WHEN OTHERS THEN
7780: x_return_status := fnd_api.g_ret_sts_unexp_error;
7781:
7782: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
7783: fnd_message.set_token('ERROR',SQLERRM);
7784: fnd_msg_pub.add;
7783: fnd_message.set_token('ERROR',SQLERRM);
7784: fnd_msg_pub.add;
7785:
7786: fnd_msg_pub.count_and_get(
7787: p_encoded => fnd_api.g_false,
7788: p_count => x_msg_count,
7789: p_data => x_msg_data);
7790:
7791: END get_group_rec;
7800: *
7801: * ARGUMENTS
7802: * IN:
7803: * p_init_msg_list Initialize message stack if it is set to
7804: * FND_API.G_TRUE. Default is fnd_api.g_false.
7805: * p_party_id Party ID.
7806: * IN/OUT:
7807: * OUT:
7808: * x_party_rec Returned party record.
7806: * IN/OUT:
7807: * OUT:
7808: * x_party_rec Returned party record.
7809: * x_return_status Return status after the call. The status can
7810: * be fnd_api.g_ret_sts_success (success),
7811: * fnd_api.g_ret_sts_error (error),
7812: * fnd_api.g_ret_sts_unexp_error (unexpected error).
7813: * x_msg_count Number of messages in message stack.
7814: * x_msg_data Message text if x_msg_count is 1.
7807: * OUT:
7808: * x_party_rec Returned party record.
7809: * x_return_status Return status after the call. The status can
7810: * be fnd_api.g_ret_sts_success (success),
7811: * fnd_api.g_ret_sts_error (error),
7812: * fnd_api.g_ret_sts_unexp_error (unexpected error).
7813: * x_msg_count Number of messages in message stack.
7814: * x_msg_data Message text if x_msg_count is 1.
7815: *
7808: * x_party_rec Returned party record.
7809: * x_return_status Return status after the call. The status can
7810: * be fnd_api.g_ret_sts_success (success),
7811: * fnd_api.g_ret_sts_error (error),
7812: * fnd_api.g_ret_sts_unexp_error (unexpected error).
7813: * x_msg_count Number of messages in message stack.
7814: * x_msg_data Message text if x_msg_count is 1.
7815: *
7816: * NOTES
7821: *
7822: */
7823:
7824: PROCEDURE get_party_rec (
7825: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
7826: p_party_id IN NUMBER,
7827: x_party_rec OUT NOCOPY PARTY_REC_TYPE,
7828: x_return_status OUT NOCOPY VARCHAR2,
7829: x_msg_count OUT NOCOPY NUMBER,
7855: l_debug_prefix VARCHAR2(30) := '';
7856: BEGIN
7857:
7858: --Initialize message list if p_init_msg_list is set to TRUE.
7859: IF fnd_api.to_boolean(p_init_msg_list) THEN
7860: fnd_msg_pub.initialize;
7861: END IF;
7862:
7863: --Initialize API return status to success.
7860: fnd_msg_pub.initialize;
7861: END IF;
7862:
7863: --Initialize API return status to success.
7864: x_return_status := fnd_api.g_ret_sts_success;
7865:
7866: --Check whether primary key has been passed in.
7867: IF p_party_id IS NULL OR
7868: p_party_id = fnd_api.g_miss_num
7864: x_return_status := fnd_api.g_ret_sts_success;
7865:
7866: --Check whether primary key has been passed in.
7867: IF p_party_id IS NULL OR
7868: p_party_id = fnd_api.g_miss_num
7869: THEN
7870: fnd_message.set_name('AR', 'HZ_API_MISSING_COLUMN');
7871: fnd_message.set_token('COLUMN', 'party_id');
7872: fnd_msg_pub.add;
7869: THEN
7870: fnd_message.set_name('AR', 'HZ_API_MISSING_COLUMN');
7871: fnd_message.set_token('COLUMN', 'party_id');
7872: fnd_msg_pub.add;
7873: RAISE fnd_api.g_exc_error;
7874: END IF;
7875:
7876: x_party_rec.party_id := p_party_id;
7877:
7962: );
7963:
7964: --Standard call to get message count and if count is 1, get message info.
7965: fnd_msg_pub.count_and_get(
7966: p_encoded => fnd_api.g_false,
7967: p_count => x_msg_count,
7968: p_data => x_msg_data);
7969:
7970: EXCEPTION
7967: p_count => x_msg_count,
7968: p_data => x_msg_data);
7969:
7970: EXCEPTION
7971: WHEN fnd_api.g_exc_error THEN
7972: x_return_status := fnd_api.g_ret_sts_error;
7973:
7974: fnd_msg_pub.count_and_get(
7975: p_encoded => fnd_api.g_false,
7968: p_data => x_msg_data);
7969:
7970: EXCEPTION
7971: WHEN fnd_api.g_exc_error THEN
7972: x_return_status := fnd_api.g_ret_sts_error;
7973:
7974: fnd_msg_pub.count_and_get(
7975: p_encoded => fnd_api.g_false,
7976: p_count => x_msg_count,
7971: WHEN fnd_api.g_exc_error THEN
7972: x_return_status := fnd_api.g_ret_sts_error;
7973:
7974: fnd_msg_pub.count_and_get(
7975: p_encoded => fnd_api.g_false,
7976: p_count => x_msg_count,
7977: p_data => x_msg_data);
7978:
7979: WHEN fnd_api.g_exc_unexpected_error THEN
7975: p_encoded => fnd_api.g_false,
7976: p_count => x_msg_count,
7977: p_data => x_msg_data);
7978:
7979: WHEN fnd_api.g_exc_unexpected_error THEN
7980: x_return_status := fnd_api.g_ret_sts_unexp_error;
7981:
7982: fnd_msg_pub.count_and_get(
7983: p_encoded => fnd_api.g_false,
7976: p_count => x_msg_count,
7977: p_data => x_msg_data);
7978:
7979: WHEN fnd_api.g_exc_unexpected_error THEN
7980: x_return_status := fnd_api.g_ret_sts_unexp_error;
7981:
7982: fnd_msg_pub.count_and_get(
7983: p_encoded => fnd_api.g_false,
7984: p_count => x_msg_count,
7979: WHEN fnd_api.g_exc_unexpected_error THEN
7980: x_return_status := fnd_api.g_ret_sts_unexp_error;
7981:
7982: fnd_msg_pub.count_and_get(
7983: p_encoded => fnd_api.g_false,
7984: p_count => x_msg_count,
7985: p_data => x_msg_data);
7986:
7987: WHEN OTHERS THEN
7984: p_count => x_msg_count,
7985: p_data => x_msg_data);
7986:
7987: WHEN OTHERS THEN
7988: x_return_status := fnd_api.g_ret_sts_unexp_error;
7989:
7990: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
7991: fnd_message.set_token('ERROR',SQLERRM);
7992: fnd_msg_pub.add;
7991: fnd_message.set_token('ERROR',SQLERRM);
7992: fnd_msg_pub.add;
7993:
7994: fnd_msg_pub.count_and_get(
7995: p_encoded => fnd_api.g_false,
7996: p_count => x_msg_count,
7997: p_data => x_msg_data);
7998:
7999: END get_party_rec;
8040: (G_MISS_CONTENT_SOURCE_TYPE, G_SST_SOURCE_TYPE) AND
8041: ( p_create_update_flag = 'C' AND
8042: NOT(
8043: ( p_organization_rec.AVG_HIGH_CREDIT is null OR
8044: p_organization_rec.AVG_HIGH_CREDIT = FND_API.G_MISS_NUM ) AND
8045: ( p_organization_rec.CREDIT_SCORE is null OR
8046: p_organization_rec.CREDIT_SCORE = FND_API.G_MISS_CHAR) AND
8047: ( p_organization_rec.CREDIT_SCORE_AGE is null OR
8048: p_organization_rec.CREDIT_SCORE_AGE = FND_API.G_MISS_NUM) AND
8042: NOT(
8043: ( p_organization_rec.AVG_HIGH_CREDIT is null OR
8044: p_organization_rec.AVG_HIGH_CREDIT = FND_API.G_MISS_NUM ) AND
8045: ( p_organization_rec.CREDIT_SCORE is null OR
8046: p_organization_rec.CREDIT_SCORE = FND_API.G_MISS_CHAR) AND
8047: ( p_organization_rec.CREDIT_SCORE_AGE is null OR
8048: p_organization_rec.CREDIT_SCORE_AGE = FND_API.G_MISS_NUM) AND
8049: ( p_organization_rec.CREDIT_SCORE_CLASS is null OR
8050: p_organization_rec.CREDIT_SCORE_CLASS = FND_API.G_MISS_NUM) AND
8044: p_organization_rec.AVG_HIGH_CREDIT = FND_API.G_MISS_NUM ) AND
8045: ( p_organization_rec.CREDIT_SCORE is null OR
8046: p_organization_rec.CREDIT_SCORE = FND_API.G_MISS_CHAR) AND
8047: ( p_organization_rec.CREDIT_SCORE_AGE is null OR
8048: p_organization_rec.CREDIT_SCORE_AGE = FND_API.G_MISS_NUM) AND
8049: ( p_organization_rec.CREDIT_SCORE_CLASS is null OR
8050: p_organization_rec.CREDIT_SCORE_CLASS = FND_API.G_MISS_NUM) AND
8051: ( p_organization_rec.CREDIT_SCORE_COMMENTARY is null OR
8052: p_organization_rec.CREDIT_SCORE_COMMENTARY = FND_API.G_MISS_CHAR) AND
8046: p_organization_rec.CREDIT_SCORE = FND_API.G_MISS_CHAR) AND
8047: ( p_organization_rec.CREDIT_SCORE_AGE is null OR
8048: p_organization_rec.CREDIT_SCORE_AGE = FND_API.G_MISS_NUM) AND
8049: ( p_organization_rec.CREDIT_SCORE_CLASS is null OR
8050: p_organization_rec.CREDIT_SCORE_CLASS = FND_API.G_MISS_NUM) AND
8051: ( p_organization_rec.CREDIT_SCORE_COMMENTARY is null OR
8052: p_organization_rec.CREDIT_SCORE_COMMENTARY = FND_API.G_MISS_CHAR) AND
8053: ( p_organization_rec.CREDIT_SCORE_COMMENTARY2 is null OR
8054: p_organization_rec.CREDIT_SCORE_COMMENTARY2 = FND_API.G_MISS_CHAR) AND
8048: p_organization_rec.CREDIT_SCORE_AGE = FND_API.G_MISS_NUM) AND
8049: ( p_organization_rec.CREDIT_SCORE_CLASS is null OR
8050: p_organization_rec.CREDIT_SCORE_CLASS = FND_API.G_MISS_NUM) AND
8051: ( p_organization_rec.CREDIT_SCORE_COMMENTARY is null OR
8052: p_organization_rec.CREDIT_SCORE_COMMENTARY = FND_API.G_MISS_CHAR) AND
8053: ( p_organization_rec.CREDIT_SCORE_COMMENTARY2 is null OR
8054: p_organization_rec.CREDIT_SCORE_COMMENTARY2 = FND_API.G_MISS_CHAR) AND
8055: ( p_organization_rec.CREDIT_SCORE_COMMENTARY3 is null OR
8056: p_organization_rec.CREDIT_SCORE_COMMENTARY3 = FND_API.G_MISS_CHAR) AND
8050: p_organization_rec.CREDIT_SCORE_CLASS = FND_API.G_MISS_NUM) AND
8051: ( p_organization_rec.CREDIT_SCORE_COMMENTARY is null OR
8052: p_organization_rec.CREDIT_SCORE_COMMENTARY = FND_API.G_MISS_CHAR) AND
8053: ( p_organization_rec.CREDIT_SCORE_COMMENTARY2 is null OR
8054: p_organization_rec.CREDIT_SCORE_COMMENTARY2 = FND_API.G_MISS_CHAR) AND
8055: ( p_organization_rec.CREDIT_SCORE_COMMENTARY3 is null OR
8056: p_organization_rec.CREDIT_SCORE_COMMENTARY3 = FND_API.G_MISS_CHAR) AND
8057: ( p_organization_rec.CREDIT_SCORE_COMMENTARY4 is null OR
8058: p_organization_rec.CREDIT_SCORE_COMMENTARY4 = FND_API.G_MISS_CHAR) AND
8052: p_organization_rec.CREDIT_SCORE_COMMENTARY = FND_API.G_MISS_CHAR) AND
8053: ( p_organization_rec.CREDIT_SCORE_COMMENTARY2 is null OR
8054: p_organization_rec.CREDIT_SCORE_COMMENTARY2 = FND_API.G_MISS_CHAR) AND
8055: ( p_organization_rec.CREDIT_SCORE_COMMENTARY3 is null OR
8056: p_organization_rec.CREDIT_SCORE_COMMENTARY3 = FND_API.G_MISS_CHAR) AND
8057: ( p_organization_rec.CREDIT_SCORE_COMMENTARY4 is null OR
8058: p_organization_rec.CREDIT_SCORE_COMMENTARY4 = FND_API.G_MISS_CHAR) AND
8059: ( p_organization_rec.CREDIT_SCORE_COMMENTARY5 is null OR
8060: p_organization_rec.CREDIT_SCORE_COMMENTARY5 = FND_API.G_MISS_CHAR) AND
8054: p_organization_rec.CREDIT_SCORE_COMMENTARY2 = FND_API.G_MISS_CHAR) AND
8055: ( p_organization_rec.CREDIT_SCORE_COMMENTARY3 is null OR
8056: p_organization_rec.CREDIT_SCORE_COMMENTARY3 = FND_API.G_MISS_CHAR) AND
8057: ( p_organization_rec.CREDIT_SCORE_COMMENTARY4 is null OR
8058: p_organization_rec.CREDIT_SCORE_COMMENTARY4 = FND_API.G_MISS_CHAR) AND
8059: ( p_organization_rec.CREDIT_SCORE_COMMENTARY5 is null OR
8060: p_organization_rec.CREDIT_SCORE_COMMENTARY5 = FND_API.G_MISS_CHAR) AND
8061: ( p_organization_rec.CREDIT_SCORE_COMMENTARY6 is null OR
8062: p_organization_rec.CREDIT_SCORE_COMMENTARY6 = FND_API.G_MISS_CHAR) AND
8056: p_organization_rec.CREDIT_SCORE_COMMENTARY3 = FND_API.G_MISS_CHAR) AND
8057: ( p_organization_rec.CREDIT_SCORE_COMMENTARY4 is null OR
8058: p_organization_rec.CREDIT_SCORE_COMMENTARY4 = FND_API.G_MISS_CHAR) AND
8059: ( p_organization_rec.CREDIT_SCORE_COMMENTARY5 is null OR
8060: p_organization_rec.CREDIT_SCORE_COMMENTARY5 = FND_API.G_MISS_CHAR) AND
8061: ( p_organization_rec.CREDIT_SCORE_COMMENTARY6 is null OR
8062: p_organization_rec.CREDIT_SCORE_COMMENTARY6 = FND_API.G_MISS_CHAR) AND
8063: ( p_organization_rec.CREDIT_SCORE_COMMENTARY7 is null OR
8064: p_organization_rec.CREDIT_SCORE_COMMENTARY7 = FND_API.G_MISS_CHAR) AND
8058: p_organization_rec.CREDIT_SCORE_COMMENTARY4 = FND_API.G_MISS_CHAR) AND
8059: ( p_organization_rec.CREDIT_SCORE_COMMENTARY5 is null OR
8060: p_organization_rec.CREDIT_SCORE_COMMENTARY5 = FND_API.G_MISS_CHAR) AND
8061: ( p_organization_rec.CREDIT_SCORE_COMMENTARY6 is null OR
8062: p_organization_rec.CREDIT_SCORE_COMMENTARY6 = FND_API.G_MISS_CHAR) AND
8063: ( p_organization_rec.CREDIT_SCORE_COMMENTARY7 is null OR
8064: p_organization_rec.CREDIT_SCORE_COMMENTARY7 = FND_API.G_MISS_CHAR) AND
8065: ( p_organization_rec.CREDIT_SCORE_COMMENTARY8 is null OR
8066: p_organization_rec.CREDIT_SCORE_COMMENTARY8 = FND_API.G_MISS_CHAR) AND
8060: p_organization_rec.CREDIT_SCORE_COMMENTARY5 = FND_API.G_MISS_CHAR) AND
8061: ( p_organization_rec.CREDIT_SCORE_COMMENTARY6 is null OR
8062: p_organization_rec.CREDIT_SCORE_COMMENTARY6 = FND_API.G_MISS_CHAR) AND
8063: ( p_organization_rec.CREDIT_SCORE_COMMENTARY7 is null OR
8064: p_organization_rec.CREDIT_SCORE_COMMENTARY7 = FND_API.G_MISS_CHAR) AND
8065: ( p_organization_rec.CREDIT_SCORE_COMMENTARY8 is null OR
8066: p_organization_rec.CREDIT_SCORE_COMMENTARY8 = FND_API.G_MISS_CHAR) AND
8067: ( p_organization_rec.CREDIT_SCORE_COMMENTARY9 is null OR
8068: p_organization_rec.CREDIT_SCORE_COMMENTARY9 = FND_API.G_MISS_CHAR) AND
8062: p_organization_rec.CREDIT_SCORE_COMMENTARY6 = FND_API.G_MISS_CHAR) AND
8063: ( p_organization_rec.CREDIT_SCORE_COMMENTARY7 is null OR
8064: p_organization_rec.CREDIT_SCORE_COMMENTARY7 = FND_API.G_MISS_CHAR) AND
8065: ( p_organization_rec.CREDIT_SCORE_COMMENTARY8 is null OR
8066: p_organization_rec.CREDIT_SCORE_COMMENTARY8 = FND_API.G_MISS_CHAR) AND
8067: ( p_organization_rec.CREDIT_SCORE_COMMENTARY9 is null OR
8068: p_organization_rec.CREDIT_SCORE_COMMENTARY9 = FND_API.G_MISS_CHAR) AND
8069: ( p_organization_rec.CREDIT_SCORE_COMMENTARY10 is null OR
8070: p_organization_rec.CREDIT_SCORE_COMMENTARY10 = FND_API.G_MISS_CHAR) AND
8064: p_organization_rec.CREDIT_SCORE_COMMENTARY7 = FND_API.G_MISS_CHAR) AND
8065: ( p_organization_rec.CREDIT_SCORE_COMMENTARY8 is null OR
8066: p_organization_rec.CREDIT_SCORE_COMMENTARY8 = FND_API.G_MISS_CHAR) AND
8067: ( p_organization_rec.CREDIT_SCORE_COMMENTARY9 is null OR
8068: p_organization_rec.CREDIT_SCORE_COMMENTARY9 = FND_API.G_MISS_CHAR) AND
8069: ( p_organization_rec.CREDIT_SCORE_COMMENTARY10 is null OR
8070: p_organization_rec.CREDIT_SCORE_COMMENTARY10 = FND_API.G_MISS_CHAR) AND
8071: ( p_organization_rec.CREDIT_SCORE_DATE is null OR
8072: p_organization_rec.CREDIT_SCORE_DATE = FND_API.G_MISS_DATE) AND
8066: p_organization_rec.CREDIT_SCORE_COMMENTARY8 = FND_API.G_MISS_CHAR) AND
8067: ( p_organization_rec.CREDIT_SCORE_COMMENTARY9 is null OR
8068: p_organization_rec.CREDIT_SCORE_COMMENTARY9 = FND_API.G_MISS_CHAR) AND
8069: ( p_organization_rec.CREDIT_SCORE_COMMENTARY10 is null OR
8070: p_organization_rec.CREDIT_SCORE_COMMENTARY10 = FND_API.G_MISS_CHAR) AND
8071: ( p_organization_rec.CREDIT_SCORE_DATE is null OR
8072: p_organization_rec.CREDIT_SCORE_DATE = FND_API.G_MISS_DATE) AND
8073: ( p_organization_rec.CREDIT_SCORE_INCD_DEFAULT is null OR
8074: p_organization_rec.CREDIT_SCORE_INCD_DEFAULT = FND_API.G_MISS_NUM) AND
8068: p_organization_rec.CREDIT_SCORE_COMMENTARY9 = FND_API.G_MISS_CHAR) AND
8069: ( p_organization_rec.CREDIT_SCORE_COMMENTARY10 is null OR
8070: p_organization_rec.CREDIT_SCORE_COMMENTARY10 = FND_API.G_MISS_CHAR) AND
8071: ( p_organization_rec.CREDIT_SCORE_DATE is null OR
8072: p_organization_rec.CREDIT_SCORE_DATE = FND_API.G_MISS_DATE) AND
8073: ( p_organization_rec.CREDIT_SCORE_INCD_DEFAULT is null OR
8074: p_organization_rec.CREDIT_SCORE_INCD_DEFAULT = FND_API.G_MISS_NUM) AND
8075: ( p_organization_rec.CREDIT_SCORE_NATL_PERCENTILE is null OR
8076: p_organization_rec.CREDIT_SCORE_NATL_PERCENTILE = FND_API.G_MISS_NUM) AND
8070: p_organization_rec.CREDIT_SCORE_COMMENTARY10 = FND_API.G_MISS_CHAR) AND
8071: ( p_organization_rec.CREDIT_SCORE_DATE is null OR
8072: p_organization_rec.CREDIT_SCORE_DATE = FND_API.G_MISS_DATE) AND
8073: ( p_organization_rec.CREDIT_SCORE_INCD_DEFAULT is null OR
8074: p_organization_rec.CREDIT_SCORE_INCD_DEFAULT = FND_API.G_MISS_NUM) AND
8075: ( p_organization_rec.CREDIT_SCORE_NATL_PERCENTILE is null OR
8076: p_organization_rec.CREDIT_SCORE_NATL_PERCENTILE = FND_API.G_MISS_NUM) AND
8077: ( p_organization_rec.DB_RATING is null OR
8078: p_organization_rec.DB_RATING = FND_API.G_MISS_CHAR) AND
8072: p_organization_rec.CREDIT_SCORE_DATE = FND_API.G_MISS_DATE) AND
8073: ( p_organization_rec.CREDIT_SCORE_INCD_DEFAULT is null OR
8074: p_organization_rec.CREDIT_SCORE_INCD_DEFAULT = FND_API.G_MISS_NUM) AND
8075: ( p_organization_rec.CREDIT_SCORE_NATL_PERCENTILE is null OR
8076: p_organization_rec.CREDIT_SCORE_NATL_PERCENTILE = FND_API.G_MISS_NUM) AND
8077: ( p_organization_rec.DB_RATING is null OR
8078: p_organization_rec.DB_RATING = FND_API.G_MISS_CHAR) AND
8079: ( p_organization_rec.DEBARMENT_IND is null OR
8080: p_organization_rec.DEBARMENT_IND = FND_API.G_MISS_CHAR) AND
8074: p_organization_rec.CREDIT_SCORE_INCD_DEFAULT = FND_API.G_MISS_NUM) AND
8075: ( p_organization_rec.CREDIT_SCORE_NATL_PERCENTILE is null OR
8076: p_organization_rec.CREDIT_SCORE_NATL_PERCENTILE = FND_API.G_MISS_NUM) AND
8077: ( p_organization_rec.DB_RATING is null OR
8078: p_organization_rec.DB_RATING = FND_API.G_MISS_CHAR) AND
8079: ( p_organization_rec.DEBARMENT_IND is null OR
8080: p_organization_rec.DEBARMENT_IND = FND_API.G_MISS_CHAR) AND
8081: ( p_organization_rec.DEBARMENTS_COUNT is null OR
8082: p_organization_rec.DEBARMENTS_COUNT = FND_API.G_MISS_NUM) AND
8076: p_organization_rec.CREDIT_SCORE_NATL_PERCENTILE = FND_API.G_MISS_NUM) AND
8077: ( p_organization_rec.DB_RATING is null OR
8078: p_organization_rec.DB_RATING = FND_API.G_MISS_CHAR) AND
8079: ( p_organization_rec.DEBARMENT_IND is null OR
8080: p_organization_rec.DEBARMENT_IND = FND_API.G_MISS_CHAR) AND
8081: ( p_organization_rec.DEBARMENTS_COUNT is null OR
8082: p_organization_rec.DEBARMENTS_COUNT = FND_API.G_MISS_NUM) AND
8083: ( p_organization_rec.DEBARMENTS_DATE is null OR
8084: p_organization_rec.DEBARMENTS_DATE = FND_API.G_MISS_DATE) AND
8078: p_organization_rec.DB_RATING = FND_API.G_MISS_CHAR) AND
8079: ( p_organization_rec.DEBARMENT_IND is null OR
8080: p_organization_rec.DEBARMENT_IND = FND_API.G_MISS_CHAR) AND
8081: ( p_organization_rec.DEBARMENTS_COUNT is null OR
8082: p_organization_rec.DEBARMENTS_COUNT = FND_API.G_MISS_NUM) AND
8083: ( p_organization_rec.DEBARMENTS_DATE is null OR
8084: p_organization_rec.DEBARMENTS_DATE = FND_API.G_MISS_DATE) AND
8085: ( p_organization_rec.HIGH_CREDIT is null OR
8086: p_organization_rec.HIGH_CREDIT = FND_API.G_MISS_NUM) AND
8080: p_organization_rec.DEBARMENT_IND = FND_API.G_MISS_CHAR) AND
8081: ( p_organization_rec.DEBARMENTS_COUNT is null OR
8082: p_organization_rec.DEBARMENTS_COUNT = FND_API.G_MISS_NUM) AND
8083: ( p_organization_rec.DEBARMENTS_DATE is null OR
8084: p_organization_rec.DEBARMENTS_DATE = FND_API.G_MISS_DATE) AND
8085: ( p_organization_rec.HIGH_CREDIT is null OR
8086: p_organization_rec.HIGH_CREDIT = FND_API.G_MISS_NUM) AND
8087: ( p_organization_rec.MAXIMUM_CREDIT_CURRENCY_CODE is null OR
8088: p_organization_rec.MAXIMUM_CREDIT_CURRENCY_CODE = FND_API.G_MISS_CHAR) AND
8082: p_organization_rec.DEBARMENTS_COUNT = FND_API.G_MISS_NUM) AND
8083: ( p_organization_rec.DEBARMENTS_DATE is null OR
8084: p_organization_rec.DEBARMENTS_DATE = FND_API.G_MISS_DATE) AND
8085: ( p_organization_rec.HIGH_CREDIT is null OR
8086: p_organization_rec.HIGH_CREDIT = FND_API.G_MISS_NUM) AND
8087: ( p_organization_rec.MAXIMUM_CREDIT_CURRENCY_CODE is null OR
8088: p_organization_rec.MAXIMUM_CREDIT_CURRENCY_CODE = FND_API.G_MISS_CHAR) AND
8089: ( p_organization_rec.MAXIMUM_CREDIT_RECOMMENDATION is null OR
8090: p_organization_rec.MAXIMUM_CREDIT_RECOMMENDATION = FND_API.G_MISS_NUM) AND
8084: p_organization_rec.DEBARMENTS_DATE = FND_API.G_MISS_DATE) AND
8085: ( p_organization_rec.HIGH_CREDIT is null OR
8086: p_organization_rec.HIGH_CREDIT = FND_API.G_MISS_NUM) AND
8087: ( p_organization_rec.MAXIMUM_CREDIT_CURRENCY_CODE is null OR
8088: p_organization_rec.MAXIMUM_CREDIT_CURRENCY_CODE = FND_API.G_MISS_CHAR) AND
8089: ( p_organization_rec.MAXIMUM_CREDIT_RECOMMENDATION is null OR
8090: p_organization_rec.MAXIMUM_CREDIT_RECOMMENDATION = FND_API.G_MISS_NUM) AND
8091: ( p_organization_rec.PAYDEX_NORM is null OR
8092: p_organization_rec.PAYDEX_NORM = FND_API.G_MISS_CHAR) AND
8086: p_organization_rec.HIGH_CREDIT = FND_API.G_MISS_NUM) AND
8087: ( p_organization_rec.MAXIMUM_CREDIT_CURRENCY_CODE is null OR
8088: p_organization_rec.MAXIMUM_CREDIT_CURRENCY_CODE = FND_API.G_MISS_CHAR) AND
8089: ( p_organization_rec.MAXIMUM_CREDIT_RECOMMENDATION is null OR
8090: p_organization_rec.MAXIMUM_CREDIT_RECOMMENDATION = FND_API.G_MISS_NUM) AND
8091: ( p_organization_rec.PAYDEX_NORM is null OR
8092: p_organization_rec.PAYDEX_NORM = FND_API.G_MISS_CHAR) AND
8093: ( p_organization_rec.PAYDEX_SCORE is null OR
8094: p_organization_rec.PAYDEX_SCORE = FND_API.G_MISS_CHAR) AND
8088: p_organization_rec.MAXIMUM_CREDIT_CURRENCY_CODE = FND_API.G_MISS_CHAR) AND
8089: ( p_organization_rec.MAXIMUM_CREDIT_RECOMMENDATION is null OR
8090: p_organization_rec.MAXIMUM_CREDIT_RECOMMENDATION = FND_API.G_MISS_NUM) AND
8091: ( p_organization_rec.PAYDEX_NORM is null OR
8092: p_organization_rec.PAYDEX_NORM = FND_API.G_MISS_CHAR) AND
8093: ( p_organization_rec.PAYDEX_SCORE is null OR
8094: p_organization_rec.PAYDEX_SCORE = FND_API.G_MISS_CHAR) AND
8095: ( p_organization_rec.PAYDEX_THREE_MONTHS_AGO is null OR
8096: p_organization_rec.PAYDEX_THREE_MONTHS_AGO = FND_API.G_MISS_CHAR) AND
8090: p_organization_rec.MAXIMUM_CREDIT_RECOMMENDATION = FND_API.G_MISS_NUM) AND
8091: ( p_organization_rec.PAYDEX_NORM is null OR
8092: p_organization_rec.PAYDEX_NORM = FND_API.G_MISS_CHAR) AND
8093: ( p_organization_rec.PAYDEX_SCORE is null OR
8094: p_organization_rec.PAYDEX_SCORE = FND_API.G_MISS_CHAR) AND
8095: ( p_organization_rec.PAYDEX_THREE_MONTHS_AGO is null OR
8096: p_organization_rec.PAYDEX_THREE_MONTHS_AGO = FND_API.G_MISS_CHAR) AND
8097: ( p_organization_rec.FAILURE_SCORE is null OR
8098: p_organization_rec.FAILURE_SCORE = FND_API.G_MISS_CHAR ) AND
8092: p_organization_rec.PAYDEX_NORM = FND_API.G_MISS_CHAR) AND
8093: ( p_organization_rec.PAYDEX_SCORE is null OR
8094: p_organization_rec.PAYDEX_SCORE = FND_API.G_MISS_CHAR) AND
8095: ( p_organization_rec.PAYDEX_THREE_MONTHS_AGO is null OR
8096: p_organization_rec.PAYDEX_THREE_MONTHS_AGO = FND_API.G_MISS_CHAR) AND
8097: ( p_organization_rec.FAILURE_SCORE is null OR
8098: p_organization_rec.FAILURE_SCORE = FND_API.G_MISS_CHAR ) AND
8099: ( p_organization_rec.FAILURE_SCORE_AGE is null OR
8100: p_organization_rec.FAILURE_SCORE_AGE = FND_API.G_MISS_NUM) AND
8094: p_organization_rec.PAYDEX_SCORE = FND_API.G_MISS_CHAR) AND
8095: ( p_organization_rec.PAYDEX_THREE_MONTHS_AGO is null OR
8096: p_organization_rec.PAYDEX_THREE_MONTHS_AGO = FND_API.G_MISS_CHAR) AND
8097: ( p_organization_rec.FAILURE_SCORE is null OR
8098: p_organization_rec.FAILURE_SCORE = FND_API.G_MISS_CHAR ) AND
8099: ( p_organization_rec.FAILURE_SCORE_AGE is null OR
8100: p_organization_rec.FAILURE_SCORE_AGE = FND_API.G_MISS_NUM) AND
8101: ( p_organization_rec.FAILURE_SCORE_CLASS is null OR
8102: p_organization_rec.FAILURE_SCORE_CLASS = FND_API.G_MISS_NUM) AND
8096: p_organization_rec.PAYDEX_THREE_MONTHS_AGO = FND_API.G_MISS_CHAR) AND
8097: ( p_organization_rec.FAILURE_SCORE is null OR
8098: p_organization_rec.FAILURE_SCORE = FND_API.G_MISS_CHAR ) AND
8099: ( p_organization_rec.FAILURE_SCORE_AGE is null OR
8100: p_organization_rec.FAILURE_SCORE_AGE = FND_API.G_MISS_NUM) AND
8101: ( p_organization_rec.FAILURE_SCORE_CLASS is null OR
8102: p_organization_rec.FAILURE_SCORE_CLASS = FND_API.G_MISS_NUM) AND
8103: ( p_organization_rec.FAILURE_SCORE_COMMENTARY is null OR
8104: p_organization_rec.FAILURE_SCORE_COMMENTARY = FND_API.G_MISS_CHAR) AND
8098: p_organization_rec.FAILURE_SCORE = FND_API.G_MISS_CHAR ) AND
8099: ( p_organization_rec.FAILURE_SCORE_AGE is null OR
8100: p_organization_rec.FAILURE_SCORE_AGE = FND_API.G_MISS_NUM) AND
8101: ( p_organization_rec.FAILURE_SCORE_CLASS is null OR
8102: p_organization_rec.FAILURE_SCORE_CLASS = FND_API.G_MISS_NUM) AND
8103: ( p_organization_rec.FAILURE_SCORE_COMMENTARY is null OR
8104: p_organization_rec.FAILURE_SCORE_COMMENTARY = FND_API.G_MISS_CHAR) AND
8105: ( p_organization_rec.FAILURE_SCORE_COMMENTARY2 is null OR
8106: p_organization_rec.FAILURE_SCORE_COMMENTARY2 = FND_API.G_MISS_CHAR) AND
8100: p_organization_rec.FAILURE_SCORE_AGE = FND_API.G_MISS_NUM) AND
8101: ( p_organization_rec.FAILURE_SCORE_CLASS is null OR
8102: p_organization_rec.FAILURE_SCORE_CLASS = FND_API.G_MISS_NUM) AND
8103: ( p_organization_rec.FAILURE_SCORE_COMMENTARY is null OR
8104: p_organization_rec.FAILURE_SCORE_COMMENTARY = FND_API.G_MISS_CHAR) AND
8105: ( p_organization_rec.FAILURE_SCORE_COMMENTARY2 is null OR
8106: p_organization_rec.FAILURE_SCORE_COMMENTARY2 = FND_API.G_MISS_CHAR) AND
8107: ( p_organization_rec.FAILURE_SCORE_COMMENTARY3 is null OR
8108: p_organization_rec.FAILURE_SCORE_COMMENTARY3 = FND_API.G_MISS_CHAR) AND
8102: p_organization_rec.FAILURE_SCORE_CLASS = FND_API.G_MISS_NUM) AND
8103: ( p_organization_rec.FAILURE_SCORE_COMMENTARY is null OR
8104: p_organization_rec.FAILURE_SCORE_COMMENTARY = FND_API.G_MISS_CHAR) AND
8105: ( p_organization_rec.FAILURE_SCORE_COMMENTARY2 is null OR
8106: p_organization_rec.FAILURE_SCORE_COMMENTARY2 = FND_API.G_MISS_CHAR) AND
8107: ( p_organization_rec.FAILURE_SCORE_COMMENTARY3 is null OR
8108: p_organization_rec.FAILURE_SCORE_COMMENTARY3 = FND_API.G_MISS_CHAR) AND
8109: ( p_organization_rec.FAILURE_SCORE_COMMENTARY4 is null OR
8110: p_organization_rec.FAILURE_SCORE_COMMENTARY4 = FND_API.G_MISS_CHAR) AND
8104: p_organization_rec.FAILURE_SCORE_COMMENTARY = FND_API.G_MISS_CHAR) AND
8105: ( p_organization_rec.FAILURE_SCORE_COMMENTARY2 is null OR
8106: p_organization_rec.FAILURE_SCORE_COMMENTARY2 = FND_API.G_MISS_CHAR) AND
8107: ( p_organization_rec.FAILURE_SCORE_COMMENTARY3 is null OR
8108: p_organization_rec.FAILURE_SCORE_COMMENTARY3 = FND_API.G_MISS_CHAR) AND
8109: ( p_organization_rec.FAILURE_SCORE_COMMENTARY4 is null OR
8110: p_organization_rec.FAILURE_SCORE_COMMENTARY4 = FND_API.G_MISS_CHAR) AND
8111: ( p_organization_rec.FAILURE_SCORE_COMMENTARY5 is null OR
8112: p_organization_rec.FAILURE_SCORE_COMMENTARY5 = FND_API.G_MISS_CHAR) AND
8106: p_organization_rec.FAILURE_SCORE_COMMENTARY2 = FND_API.G_MISS_CHAR) AND
8107: ( p_organization_rec.FAILURE_SCORE_COMMENTARY3 is null OR
8108: p_organization_rec.FAILURE_SCORE_COMMENTARY3 = FND_API.G_MISS_CHAR) AND
8109: ( p_organization_rec.FAILURE_SCORE_COMMENTARY4 is null OR
8110: p_organization_rec.FAILURE_SCORE_COMMENTARY4 = FND_API.G_MISS_CHAR) AND
8111: ( p_organization_rec.FAILURE_SCORE_COMMENTARY5 is null OR
8112: p_organization_rec.FAILURE_SCORE_COMMENTARY5 = FND_API.G_MISS_CHAR) AND
8113: ( p_organization_rec.FAILURE_SCORE_COMMENTARY6 is null OR
8114: p_organization_rec.FAILURE_SCORE_COMMENTARY6 = FND_API.G_MISS_CHAR) AND
8108: p_organization_rec.FAILURE_SCORE_COMMENTARY3 = FND_API.G_MISS_CHAR) AND
8109: ( p_organization_rec.FAILURE_SCORE_COMMENTARY4 is null OR
8110: p_organization_rec.FAILURE_SCORE_COMMENTARY4 = FND_API.G_MISS_CHAR) AND
8111: ( p_organization_rec.FAILURE_SCORE_COMMENTARY5 is null OR
8112: p_organization_rec.FAILURE_SCORE_COMMENTARY5 = FND_API.G_MISS_CHAR) AND
8113: ( p_organization_rec.FAILURE_SCORE_COMMENTARY6 is null OR
8114: p_organization_rec.FAILURE_SCORE_COMMENTARY6 = FND_API.G_MISS_CHAR) AND
8115: ( p_organization_rec.FAILURE_SCORE_COMMENTARY7 is null OR
8116: p_organization_rec.FAILURE_SCORE_COMMENTARY7 = FND_API.G_MISS_CHAR) AND
8110: p_organization_rec.FAILURE_SCORE_COMMENTARY4 = FND_API.G_MISS_CHAR) AND
8111: ( p_organization_rec.FAILURE_SCORE_COMMENTARY5 is null OR
8112: p_organization_rec.FAILURE_SCORE_COMMENTARY5 = FND_API.G_MISS_CHAR) AND
8113: ( p_organization_rec.FAILURE_SCORE_COMMENTARY6 is null OR
8114: p_organization_rec.FAILURE_SCORE_COMMENTARY6 = FND_API.G_MISS_CHAR) AND
8115: ( p_organization_rec.FAILURE_SCORE_COMMENTARY7 is null OR
8116: p_organization_rec.FAILURE_SCORE_COMMENTARY7 = FND_API.G_MISS_CHAR) AND
8117: ( p_organization_rec.FAILURE_SCORE_COMMENTARY8 is null OR
8118: p_organization_rec.FAILURE_SCORE_COMMENTARY8 = FND_API.G_MISS_CHAR) AND
8112: p_organization_rec.FAILURE_SCORE_COMMENTARY5 = FND_API.G_MISS_CHAR) AND
8113: ( p_organization_rec.FAILURE_SCORE_COMMENTARY6 is null OR
8114: p_organization_rec.FAILURE_SCORE_COMMENTARY6 = FND_API.G_MISS_CHAR) AND
8115: ( p_organization_rec.FAILURE_SCORE_COMMENTARY7 is null OR
8116: p_organization_rec.FAILURE_SCORE_COMMENTARY7 = FND_API.G_MISS_CHAR) AND
8117: ( p_organization_rec.FAILURE_SCORE_COMMENTARY8 is null OR
8118: p_organization_rec.FAILURE_SCORE_COMMENTARY8 = FND_API.G_MISS_CHAR) AND
8119: ( p_organization_rec.FAILURE_SCORE_COMMENTARY9 is null OR
8120: p_organization_rec.FAILURE_SCORE_COMMENTARY9 = FND_API.G_MISS_CHAR) AND
8114: p_organization_rec.FAILURE_SCORE_COMMENTARY6 = FND_API.G_MISS_CHAR) AND
8115: ( p_organization_rec.FAILURE_SCORE_COMMENTARY7 is null OR
8116: p_organization_rec.FAILURE_SCORE_COMMENTARY7 = FND_API.G_MISS_CHAR) AND
8117: ( p_organization_rec.FAILURE_SCORE_COMMENTARY8 is null OR
8118: p_organization_rec.FAILURE_SCORE_COMMENTARY8 = FND_API.G_MISS_CHAR) AND
8119: ( p_organization_rec.FAILURE_SCORE_COMMENTARY9 is null OR
8120: p_organization_rec.FAILURE_SCORE_COMMENTARY9 = FND_API.G_MISS_CHAR) AND
8121: ( p_organization_rec.FAILURE_SCORE_COMMENTARY10 is null OR
8122: p_organization_rec.FAILURE_SCORE_COMMENTARY10 = FND_API.G_MISS_CHAR) AND
8116: p_organization_rec.FAILURE_SCORE_COMMENTARY7 = FND_API.G_MISS_CHAR) AND
8117: ( p_organization_rec.FAILURE_SCORE_COMMENTARY8 is null OR
8118: p_organization_rec.FAILURE_SCORE_COMMENTARY8 = FND_API.G_MISS_CHAR) AND
8119: ( p_organization_rec.FAILURE_SCORE_COMMENTARY9 is null OR
8120: p_organization_rec.FAILURE_SCORE_COMMENTARY9 = FND_API.G_MISS_CHAR) AND
8121: ( p_organization_rec.FAILURE_SCORE_COMMENTARY10 is null OR
8122: p_organization_rec.FAILURE_SCORE_COMMENTARY10 = FND_API.G_MISS_CHAR) AND
8123: ( p_organization_rec.FAILURE_SCORE_DATE is null OR
8124: p_organization_rec.FAILURE_SCORE_DATE = FND_API.G_MISS_DATE) AND
8118: p_organization_rec.FAILURE_SCORE_COMMENTARY8 = FND_API.G_MISS_CHAR) AND
8119: ( p_organization_rec.FAILURE_SCORE_COMMENTARY9 is null OR
8120: p_organization_rec.FAILURE_SCORE_COMMENTARY9 = FND_API.G_MISS_CHAR) AND
8121: ( p_organization_rec.FAILURE_SCORE_COMMENTARY10 is null OR
8122: p_organization_rec.FAILURE_SCORE_COMMENTARY10 = FND_API.G_MISS_CHAR) AND
8123: ( p_organization_rec.FAILURE_SCORE_DATE is null OR
8124: p_organization_rec.FAILURE_SCORE_DATE = FND_API.G_MISS_DATE) AND
8125: ( p_organization_rec.FAILURE_SCORE_INCD_DEFAULT is null OR
8126: p_organization_rec.FAILURE_SCORE_INCD_DEFAULT = FND_API.G_MISS_NUM) AND
8120: p_organization_rec.FAILURE_SCORE_COMMENTARY9 = FND_API.G_MISS_CHAR) AND
8121: ( p_organization_rec.FAILURE_SCORE_COMMENTARY10 is null OR
8122: p_organization_rec.FAILURE_SCORE_COMMENTARY10 = FND_API.G_MISS_CHAR) AND
8123: ( p_organization_rec.FAILURE_SCORE_DATE is null OR
8124: p_organization_rec.FAILURE_SCORE_DATE = FND_API.G_MISS_DATE) AND
8125: ( p_organization_rec.FAILURE_SCORE_INCD_DEFAULT is null OR
8126: p_organization_rec.FAILURE_SCORE_INCD_DEFAULT = FND_API.G_MISS_NUM) AND
8127: ( p_organization_rec.FAILURE_SCORE_NATNL_PERCENTILE is null OR
8128: p_organization_rec.FAILURE_SCORE_NATNL_PERCENTILE = FND_API.G_MISS_NUM) AND
8122: p_organization_rec.FAILURE_SCORE_COMMENTARY10 = FND_API.G_MISS_CHAR) AND
8123: ( p_organization_rec.FAILURE_SCORE_DATE is null OR
8124: p_organization_rec.FAILURE_SCORE_DATE = FND_API.G_MISS_DATE) AND
8125: ( p_organization_rec.FAILURE_SCORE_INCD_DEFAULT is null OR
8126: p_organization_rec.FAILURE_SCORE_INCD_DEFAULT = FND_API.G_MISS_NUM) AND
8127: ( p_organization_rec.FAILURE_SCORE_NATNL_PERCENTILE is null OR
8128: p_organization_rec.FAILURE_SCORE_NATNL_PERCENTILE = FND_API.G_MISS_NUM) AND
8129: ( p_organization_rec.FAILURE_SCORE_OVERRIDE_CODE is null OR
8130: p_organization_rec.FAILURE_SCORE_OVERRIDE_CODE = FND_API.G_MISS_CHAR) AND
8124: p_organization_rec.FAILURE_SCORE_DATE = FND_API.G_MISS_DATE) AND
8125: ( p_organization_rec.FAILURE_SCORE_INCD_DEFAULT is null OR
8126: p_organization_rec.FAILURE_SCORE_INCD_DEFAULT = FND_API.G_MISS_NUM) AND
8127: ( p_organization_rec.FAILURE_SCORE_NATNL_PERCENTILE is null OR
8128: p_organization_rec.FAILURE_SCORE_NATNL_PERCENTILE = FND_API.G_MISS_NUM) AND
8129: ( p_organization_rec.FAILURE_SCORE_OVERRIDE_CODE is null OR
8130: p_organization_rec.FAILURE_SCORE_OVERRIDE_CODE = FND_API.G_MISS_CHAR) AND
8131: ( p_organization_rec.GLOBAL_FAILURE_SCORE is null OR
8132: p_organization_rec.GLOBAL_FAILURE_SCORE = FND_API.G_MISS_CHAR)
8126: p_organization_rec.FAILURE_SCORE_INCD_DEFAULT = FND_API.G_MISS_NUM) AND
8127: ( p_organization_rec.FAILURE_SCORE_NATNL_PERCENTILE is null OR
8128: p_organization_rec.FAILURE_SCORE_NATNL_PERCENTILE = FND_API.G_MISS_NUM) AND
8129: ( p_organization_rec.FAILURE_SCORE_OVERRIDE_CODE is null OR
8130: p_organization_rec.FAILURE_SCORE_OVERRIDE_CODE = FND_API.G_MISS_CHAR) AND
8131: ( p_organization_rec.GLOBAL_FAILURE_SCORE is null OR
8132: p_organization_rec.GLOBAL_FAILURE_SCORE = FND_API.G_MISS_CHAR)
8133: ) ) OR
8134: ( p_create_update_flag = 'U' AND
8128: p_organization_rec.FAILURE_SCORE_NATNL_PERCENTILE = FND_API.G_MISS_NUM) AND
8129: ( p_organization_rec.FAILURE_SCORE_OVERRIDE_CODE is null OR
8130: p_organization_rec.FAILURE_SCORE_OVERRIDE_CODE = FND_API.G_MISS_CHAR) AND
8131: ( p_organization_rec.GLOBAL_FAILURE_SCORE is null OR
8132: p_organization_rec.GLOBAL_FAILURE_SCORE = FND_API.G_MISS_CHAR)
8133: ) ) OR
8134: ( p_create_update_flag = 'U' AND
8135: ( p_organization_rec.AVG_HIGH_CREDIT is not null OR
8136: p_organization_rec.CREDIT_SCORE is not null OR
8421: p_msg_level=>fnd_log.level_statement);
8422: END IF;
8423: END IF;
8424:
8425: IF x_return_status <> fnd_api.g_ret_sts_success THEN
8426: RAISE fnd_api.g_exc_error;
8427: END IF;
8428: END IF;
8429:
8422: END IF;
8423: END IF;
8424:
8425: IF x_return_status <> fnd_api.g_ret_sts_success THEN
8426: RAISE fnd_api.g_exc_error;
8427: END IF;
8428: END IF;
8429:
8430: END populate_credit_rating;
8530: 'to CREDIT_RATINGS_REC_TYPE for update(+)',
8531: p_msg_level=>fnd_log.level_procedure);
8532: END IF;
8533:
8534: IF p_organization_rec.AVG_HIGH_CREDIT = FND_API.G_MISS_NUM THEN
8535: x_credit_rating_rec.AVG_HIGH_CREDIT := NULL;
8536: ELSIF p_organization_rec.AVG_HIGH_CREDIT is not null THEN
8537: x_credit_rating_rec.AVG_HIGH_CREDIT := p_organization_rec.AVG_HIGH_CREDIT;
8538: END IF;
8536: ELSIF p_organization_rec.AVG_HIGH_CREDIT is not null THEN
8537: x_credit_rating_rec.AVG_HIGH_CREDIT := p_organization_rec.AVG_HIGH_CREDIT;
8538: END IF;
8539:
8540: IF p_organization_rec.CREDIT_SCORE = FND_API.G_MISS_CHAR THEN
8541: x_credit_rating_rec.CREDIT_SCORE := NULL;
8542: ELSIF p_organization_rec.CREDIT_SCORE is not null THEN
8543: x_credit_rating_rec.CREDIT_SCORE := p_organization_rec.CREDIT_SCORE;
8544: END IF;
8542: ELSIF p_organization_rec.CREDIT_SCORE is not null THEN
8543: x_credit_rating_rec.CREDIT_SCORE := p_organization_rec.CREDIT_SCORE;
8544: END IF;
8545:
8546: IF p_organization_rec.CREDIT_SCORE_AGE = FND_API.G_MISS_NUM THEN
8547: x_credit_rating_rec.CREDIT_SCORE_AGE := NULL;
8548: ELSIF p_organization_rec.CREDIT_SCORE_AGE is not null THEN
8549: x_credit_rating_rec.CREDIT_SCORE_AGE := p_organization_rec.CREDIT_SCORE_AGE;
8550: END IF;
8548: ELSIF p_organization_rec.CREDIT_SCORE_AGE is not null THEN
8549: x_credit_rating_rec.CREDIT_SCORE_AGE := p_organization_rec.CREDIT_SCORE_AGE;
8550: END IF;
8551:
8552: IF p_organization_rec.CREDIT_SCORE_CLASS = FND_API.G_MISS_NUM THEN
8553: x_credit_rating_rec.CREDIT_SCORE_CLASS := NULL;
8554: ELSIF p_organization_rec.CREDIT_SCORE_CLASS is not null THEN
8555: x_credit_rating_rec.CREDIT_SCORE_CLASS := p_organization_rec.CREDIT_SCORE_CLASS;
8556: END IF;
8554: ELSIF p_organization_rec.CREDIT_SCORE_CLASS is not null THEN
8555: x_credit_rating_rec.CREDIT_SCORE_CLASS := p_organization_rec.CREDIT_SCORE_CLASS;
8556: END IF;
8557:
8558: IF p_organization_rec.CREDIT_SCORE_COMMENTARY = FND_API.G_MISS_CHAR THEN
8559: x_credit_rating_rec.CREDIT_SCORE_COMMENTARY := NULL;
8560: ELSIF p_organization_rec.CREDIT_SCORE_COMMENTARY is not null THEN
8561: x_credit_rating_rec.CREDIT_SCORE_COMMENTARY := p_organization_rec.CREDIT_SCORE_COMMENTARY;
8562: END IF;
8560: ELSIF p_organization_rec.CREDIT_SCORE_COMMENTARY is not null THEN
8561: x_credit_rating_rec.CREDIT_SCORE_COMMENTARY := p_organization_rec.CREDIT_SCORE_COMMENTARY;
8562: END IF;
8563:
8564: IF p_organization_rec.CREDIT_SCORE_COMMENTARY2 = FND_API.G_MISS_CHAR THEN
8565: x_credit_rating_rec.CREDIT_SCORE_COMMENTARY2 := NULL;
8566: ELSIF p_organization_rec.CREDIT_SCORE_COMMENTARY2 is not null THEN
8567: x_credit_rating_rec.CREDIT_SCORE_COMMENTARY2 := p_organization_rec.CREDIT_SCORE_COMMENTARY2;
8568: END IF;
8566: ELSIF p_organization_rec.CREDIT_SCORE_COMMENTARY2 is not null THEN
8567: x_credit_rating_rec.CREDIT_SCORE_COMMENTARY2 := p_organization_rec.CREDIT_SCORE_COMMENTARY2;
8568: END IF;
8569:
8570: IF p_organization_rec.CREDIT_SCORE_COMMENTARY3 = FND_API.G_MISS_CHAR THEN
8571: x_credit_rating_rec.CREDIT_SCORE_COMMENTARY3 := NULL;
8572: ELSIF p_organization_rec.CREDIT_SCORE_COMMENTARY3 is not null THEN
8573: x_credit_rating_rec.CREDIT_SCORE_COMMENTARY3 := p_organization_rec.CREDIT_SCORE_COMMENTARY3;
8574: END IF;
8572: ELSIF p_organization_rec.CREDIT_SCORE_COMMENTARY3 is not null THEN
8573: x_credit_rating_rec.CREDIT_SCORE_COMMENTARY3 := p_organization_rec.CREDIT_SCORE_COMMENTARY3;
8574: END IF;
8575:
8576: IF p_organization_rec.CREDIT_SCORE_COMMENTARY4 = FND_API.G_MISS_CHAR THEN
8577: x_credit_rating_rec.CREDIT_SCORE_COMMENTARY4 := NULL;
8578: ELSIF p_organization_rec.CREDIT_SCORE_COMMENTARY4 is not null THEN
8579: x_credit_rating_rec.CREDIT_SCORE_COMMENTARY4 := p_organization_rec.CREDIT_SCORE_COMMENTARY4;
8580: END IF;
8578: ELSIF p_organization_rec.CREDIT_SCORE_COMMENTARY4 is not null THEN
8579: x_credit_rating_rec.CREDIT_SCORE_COMMENTARY4 := p_organization_rec.CREDIT_SCORE_COMMENTARY4;
8580: END IF;
8581:
8582: IF p_organization_rec.CREDIT_SCORE_COMMENTARY5 = FND_API.G_MISS_CHAR THEN
8583: x_credit_rating_rec.CREDIT_SCORE_COMMENTARY5 := NULL;
8584: ELSIF p_organization_rec.CREDIT_SCORE_COMMENTARY5 is not null THEN
8585: x_credit_rating_rec.CREDIT_SCORE_COMMENTARY5 := p_organization_rec.CREDIT_SCORE_COMMENTARY5;
8586: END IF;
8584: ELSIF p_organization_rec.CREDIT_SCORE_COMMENTARY5 is not null THEN
8585: x_credit_rating_rec.CREDIT_SCORE_COMMENTARY5 := p_organization_rec.CREDIT_SCORE_COMMENTARY5;
8586: END IF;
8587:
8588: IF p_organization_rec.CREDIT_SCORE_COMMENTARY6 = FND_API.G_MISS_CHAR THEN
8589: x_credit_rating_rec.CREDIT_SCORE_COMMENTARY6 := NULL;
8590: ELSIF p_organization_rec.CREDIT_SCORE_COMMENTARY6 is not null THEN
8591: x_credit_rating_rec.CREDIT_SCORE_COMMENTARY6 := p_organization_rec.CREDIT_SCORE_COMMENTARY6;
8592: END IF;
8590: ELSIF p_organization_rec.CREDIT_SCORE_COMMENTARY6 is not null THEN
8591: x_credit_rating_rec.CREDIT_SCORE_COMMENTARY6 := p_organization_rec.CREDIT_SCORE_COMMENTARY6;
8592: END IF;
8593:
8594: IF p_organization_rec.CREDIT_SCORE_COMMENTARY7 = FND_API.G_MISS_CHAR THEN
8595: x_credit_rating_rec.CREDIT_SCORE_COMMENTARY7 := NULL;
8596: ELSIF p_organization_rec.CREDIT_SCORE_COMMENTARY7 is not null THEN
8597: x_credit_rating_rec.CREDIT_SCORE_COMMENTARY7 := p_organization_rec.CREDIT_SCORE_COMMENTARY7;
8598: END IF;
8596: ELSIF p_organization_rec.CREDIT_SCORE_COMMENTARY7 is not null THEN
8597: x_credit_rating_rec.CREDIT_SCORE_COMMENTARY7 := p_organization_rec.CREDIT_SCORE_COMMENTARY7;
8598: END IF;
8599:
8600: IF p_organization_rec.CREDIT_SCORE_COMMENTARY8 = FND_API.G_MISS_CHAR THEN
8601: x_credit_rating_rec.CREDIT_SCORE_COMMENTARY8 := NULL;
8602: ELSIF p_organization_rec.CREDIT_SCORE_COMMENTARY8 is not null THEN
8603: x_credit_rating_rec.CREDIT_SCORE_COMMENTARY8 := p_organization_rec.CREDIT_SCORE_COMMENTARY8;
8604: END IF;
8602: ELSIF p_organization_rec.CREDIT_SCORE_COMMENTARY8 is not null THEN
8603: x_credit_rating_rec.CREDIT_SCORE_COMMENTARY8 := p_organization_rec.CREDIT_SCORE_COMMENTARY8;
8604: END IF;
8605:
8606: IF p_organization_rec.CREDIT_SCORE_COMMENTARY9 = FND_API.G_MISS_CHAR THEN
8607: x_credit_rating_rec.CREDIT_SCORE_COMMENTARY9 := NULL;
8608: ELSIF p_organization_rec.CREDIT_SCORE_COMMENTARY9 is not null THEN
8609: x_credit_rating_rec.CREDIT_SCORE_COMMENTARY9 := p_organization_rec.CREDIT_SCORE_COMMENTARY9;
8610: END IF;
8608: ELSIF p_organization_rec.CREDIT_SCORE_COMMENTARY9 is not null THEN
8609: x_credit_rating_rec.CREDIT_SCORE_COMMENTARY9 := p_organization_rec.CREDIT_SCORE_COMMENTARY9;
8610: END IF;
8611:
8612: IF p_organization_rec.CREDIT_SCORE_COMMENTARY10 = FND_API.G_MISS_CHAR THEN
8613: x_credit_rating_rec.CREDIT_SCORE_COMMENTARY10 := NULL;
8614: ELSIF p_organization_rec.CREDIT_SCORE_COMMENTARY10 is not null THEN
8615: x_credit_rating_rec.CREDIT_SCORE_COMMENTARY10 := p_organization_rec.CREDIT_SCORE_COMMENTARY10;
8616: END IF;
8614: ELSIF p_organization_rec.CREDIT_SCORE_COMMENTARY10 is not null THEN
8615: x_credit_rating_rec.CREDIT_SCORE_COMMENTARY10 := p_organization_rec.CREDIT_SCORE_COMMENTARY10;
8616: END IF;
8617:
8618: IF p_organization_rec.CREDIT_SCORE_DATE = FND_API.G_MISS_DATE THEN
8619: x_credit_rating_rec.CREDIT_SCORE_DATE := NULL;
8620: ELSIF p_organization_rec.CREDIT_SCORE_DATE is not null THEN
8621: x_credit_rating_rec.CREDIT_SCORE_DATE := p_organization_rec.CREDIT_SCORE_DATE;
8622: END IF;
8620: ELSIF p_organization_rec.CREDIT_SCORE_DATE is not null THEN
8621: x_credit_rating_rec.CREDIT_SCORE_DATE := p_organization_rec.CREDIT_SCORE_DATE;
8622: END IF;
8623:
8624: IF p_organization_rec.CREDIT_SCORE_INCD_DEFAULT = FND_API.G_MISS_NUM THEN
8625: x_credit_rating_rec.CREDIT_SCORE_INCD_DEFAULT := NULL;
8626: ELSIF p_organization_rec.CREDIT_SCORE_INCD_DEFAULT is not null THEN
8627: x_credit_rating_rec.CREDIT_SCORE_INCD_DEFAULT := p_organization_rec.CREDIT_SCORE_INCD_DEFAULT;
8628: END IF;
8626: ELSIF p_organization_rec.CREDIT_SCORE_INCD_DEFAULT is not null THEN
8627: x_credit_rating_rec.CREDIT_SCORE_INCD_DEFAULT := p_organization_rec.CREDIT_SCORE_INCD_DEFAULT;
8628: END IF;
8629:
8630: IF p_organization_rec.CREDIT_SCORE_NATL_PERCENTILE = FND_API.G_MISS_NUM THEN
8631: x_credit_rating_rec.CREDIT_SCORE_NATL_PERCENTILE := NULL;
8632: ELSIF p_organization_rec.CREDIT_SCORE_NATL_PERCENTILE is not null THEN
8633: x_credit_rating_rec.CREDIT_SCORE_NATL_PERCENTILE := p_organization_rec.CREDIT_SCORE_NATL_PERCENTILE;
8634: END IF;
8632: ELSIF p_organization_rec.CREDIT_SCORE_NATL_PERCENTILE is not null THEN
8633: x_credit_rating_rec.CREDIT_SCORE_NATL_PERCENTILE := p_organization_rec.CREDIT_SCORE_NATL_PERCENTILE;
8634: END IF;
8635:
8636: IF p_organization_rec.DB_RATING = FND_API.G_MISS_CHAR THEN
8637: x_credit_rating_rec.RATING := NULL;
8638: ELSIF p_organization_rec.DB_RATING is not null THEN
8639: x_credit_rating_rec.RATING := p_organization_rec.DB_RATING;
8640: END IF;
8638: ELSIF p_organization_rec.DB_RATING is not null THEN
8639: x_credit_rating_rec.RATING := p_organization_rec.DB_RATING;
8640: END IF;
8641:
8642: IF p_organization_rec.DEBARMENT_IND = FND_API.G_MISS_CHAR THEN
8643: x_credit_rating_rec.DEBARMENT_IND := NULL;
8644: ELSIF p_organization_rec.DEBARMENT_IND is not null THEN
8645: x_credit_rating_rec.DEBARMENT_IND := p_organization_rec.DEBARMENT_IND;
8646: END IF;
8644: ELSIF p_organization_rec.DEBARMENT_IND is not null THEN
8645: x_credit_rating_rec.DEBARMENT_IND := p_organization_rec.DEBARMENT_IND;
8646: END IF;
8647:
8648: IF p_organization_rec.DEBARMENTS_COUNT = FND_API.G_MISS_NUM THEN
8649: x_credit_rating_rec.DEBARMENTS_COUNT := NULL;
8650: ELSIF p_organization_rec.DEBARMENTS_COUNT is not null THEN
8651: x_credit_rating_rec.DEBARMENTS_COUNT := p_organization_rec.DEBARMENTS_COUNT;
8652: END IF;
8650: ELSIF p_organization_rec.DEBARMENTS_COUNT is not null THEN
8651: x_credit_rating_rec.DEBARMENTS_COUNT := p_organization_rec.DEBARMENTS_COUNT;
8652: END IF;
8653:
8654: IF p_organization_rec.DEBARMENTS_DATE = FND_API.G_MISS_DATE THEN
8655: x_credit_rating_rec.DEBARMENTS_DATE := NULL;
8656: ELSIF p_organization_rec.DEBARMENTS_DATE is not null THEN
8657: x_credit_rating_rec.DEBARMENTS_DATE := p_organization_rec.DEBARMENTS_DATE;
8658: END IF;
8656: ELSIF p_organization_rec.DEBARMENTS_DATE is not null THEN
8657: x_credit_rating_rec.DEBARMENTS_DATE := p_organization_rec.DEBARMENTS_DATE;
8658: END IF;
8659:
8660: IF p_organization_rec.HIGH_CREDIT = FND_API.G_MISS_NUM THEN
8661: x_credit_rating_rec.HIGH_CREDIT := NULL;
8662: ELSIF p_organization_rec.HIGH_CREDIT is not null THEN
8663: x_credit_rating_rec.HIGH_CREDIT := p_organization_rec.HIGH_CREDIT;
8664: END IF;
8662: ELSIF p_organization_rec.HIGH_CREDIT is not null THEN
8663: x_credit_rating_rec.HIGH_CREDIT := p_organization_rec.HIGH_CREDIT;
8664: END IF;
8665:
8666: IF p_organization_rec.MAXIMUM_CREDIT_CURRENCY_CODE = FND_API.G_MISS_CHAR THEN
8667: x_credit_rating_rec.MAXIMUM_CREDIT_CURRENCY_CODE := NULL;
8668: ELSIF p_organization_rec.MAXIMUM_CREDIT_CURRENCY_CODE is not null THEN
8669: x_credit_rating_rec.MAXIMUM_CREDIT_CURRENCY_CODE := p_organization_rec.MAXIMUM_CREDIT_CURRENCY_CODE;
8670: END IF;
8668: ELSIF p_organization_rec.MAXIMUM_CREDIT_CURRENCY_CODE is not null THEN
8669: x_credit_rating_rec.MAXIMUM_CREDIT_CURRENCY_CODE := p_organization_rec.MAXIMUM_CREDIT_CURRENCY_CODE;
8670: END IF;
8671:
8672: IF p_organization_rec.MAXIMUM_CREDIT_RECOMMENDATION = FND_API.G_MISS_NUM THEN
8673: x_credit_rating_rec.MAXIMUM_CREDIT_RCMD := NULL;
8674: ELSIF p_organization_rec.MAXIMUM_CREDIT_RECOMMENDATION is not null THEN
8675: x_credit_rating_rec.MAXIMUM_CREDIT_RCMD := p_organization_rec.MAXIMUM_CREDIT_RECOMMENDATION;
8676: END IF;
8674: ELSIF p_organization_rec.MAXIMUM_CREDIT_RECOMMENDATION is not null THEN
8675: x_credit_rating_rec.MAXIMUM_CREDIT_RCMD := p_organization_rec.MAXIMUM_CREDIT_RECOMMENDATION;
8676: END IF;
8677:
8678: IF p_organization_rec.PAYDEX_NORM = FND_API.G_MISS_CHAR THEN
8679: x_credit_rating_rec.PAYDEX_NORM := NULL;
8680: ELSIF p_organization_rec.PAYDEX_NORM is not null THEN
8681: x_credit_rating_rec.PAYDEX_NORM := p_organization_rec.PAYDEX_NORM;
8682: END IF;
8680: ELSIF p_organization_rec.PAYDEX_NORM is not null THEN
8681: x_credit_rating_rec.PAYDEX_NORM := p_organization_rec.PAYDEX_NORM;
8682: END IF;
8683:
8684: IF p_organization_rec.PAYDEX_SCORE = FND_API.G_MISS_CHAR THEN
8685: x_credit_rating_rec.PAYDEX_SCORE := NULL;
8686: ELSIF p_organization_rec.PAYDEX_SCORE is not null THEN
8687: x_credit_rating_rec.PAYDEX_SCORE := p_organization_rec.PAYDEX_SCORE;
8688: END IF;
8686: ELSIF p_organization_rec.PAYDEX_SCORE is not null THEN
8687: x_credit_rating_rec.PAYDEX_SCORE := p_organization_rec.PAYDEX_SCORE;
8688: END IF;
8689:
8690: IF p_organization_rec.PAYDEX_THREE_MONTHS_AGO = FND_API.G_MISS_CHAR THEN
8691: x_credit_rating_rec.PAYDEX_THREE_MONTHS_AGO := NULL;
8692: ELSIF p_organization_rec.PAYDEX_THREE_MONTHS_AGO is not null THEN
8693: x_credit_rating_rec.PAYDEX_THREE_MONTHS_AGO := p_organization_rec.PAYDEX_THREE_MONTHS_AGO;
8694: END IF;
8692: ELSIF p_organization_rec.PAYDEX_THREE_MONTHS_AGO is not null THEN
8693: x_credit_rating_rec.PAYDEX_THREE_MONTHS_AGO := p_organization_rec.PAYDEX_THREE_MONTHS_AGO;
8694: END IF;
8695:
8696: IF p_organization_rec.FAILURE_SCORE = FND_API.G_MISS_CHAR THEN
8697: x_credit_rating_rec.FAILURE_SCORE := NULL;
8698: ELSIF p_organization_rec.FAILURE_SCORE is not null THEN
8699: x_credit_rating_rec.FAILURE_SCORE := p_organization_rec.FAILURE_SCORE;
8700: END IF;
8698: ELSIF p_organization_rec.FAILURE_SCORE is not null THEN
8699: x_credit_rating_rec.FAILURE_SCORE := p_organization_rec.FAILURE_SCORE;
8700: END IF;
8701:
8702: IF p_organization_rec.FAILURE_SCORE_AGE = FND_API.G_MISS_NUM THEN
8703: x_credit_rating_rec.FAILURE_SCORE_AGE := NULL;
8704: ELSIF p_organization_rec.FAILURE_SCORE_AGE is not null THEN
8705: x_credit_rating_rec.FAILURE_SCORE_AGE := p_organization_rec.FAILURE_SCORE_AGE;
8706: END IF;
8704: ELSIF p_organization_rec.FAILURE_SCORE_AGE is not null THEN
8705: x_credit_rating_rec.FAILURE_SCORE_AGE := p_organization_rec.FAILURE_SCORE_AGE;
8706: END IF;
8707:
8708: IF p_organization_rec.FAILURE_SCORE_CLASS = FND_API.G_MISS_NUM THEN
8709: x_credit_rating_rec.FAILURE_SCORE_CLASS := NULL;
8710: ELSIF p_organization_rec.FAILURE_SCORE_CLASS is not null THEN
8711: x_credit_rating_rec.FAILURE_SCORE_CLASS := p_organization_rec.FAILURE_SCORE_CLASS;
8712: END IF;
8710: ELSIF p_organization_rec.FAILURE_SCORE_CLASS is not null THEN
8711: x_credit_rating_rec.FAILURE_SCORE_CLASS := p_organization_rec.FAILURE_SCORE_CLASS;
8712: END IF;
8713:
8714: IF p_organization_rec.FAILURE_SCORE_COMMENTARY = FND_API.G_MISS_CHAR THEN
8715: x_credit_rating_rec.FAILURE_SCORE_COMMENTARY := NULL;
8716: ELSIF p_organization_rec.FAILURE_SCORE_COMMENTARY is not null THEN
8717: x_credit_rating_rec.FAILURE_SCORE_COMMENTARY := p_organization_rec.FAILURE_SCORE_COMMENTARY;
8718: END IF;
8716: ELSIF p_organization_rec.FAILURE_SCORE_COMMENTARY is not null THEN
8717: x_credit_rating_rec.FAILURE_SCORE_COMMENTARY := p_organization_rec.FAILURE_SCORE_COMMENTARY;
8718: END IF;
8719:
8720: IF p_organization_rec.FAILURE_SCORE_COMMENTARY2 = FND_API.G_MISS_CHAR THEN
8721: x_credit_rating_rec.FAILURE_SCORE_COMMENTARY2 := NULL;
8722: ELSIF p_organization_rec.FAILURE_SCORE_COMMENTARY2 is not null THEN
8723: x_credit_rating_rec.FAILURE_SCORE_COMMENTARY2 := p_organization_rec.FAILURE_SCORE_COMMENTARY2;
8724: END IF;
8722: ELSIF p_organization_rec.FAILURE_SCORE_COMMENTARY2 is not null THEN
8723: x_credit_rating_rec.FAILURE_SCORE_COMMENTARY2 := p_organization_rec.FAILURE_SCORE_COMMENTARY2;
8724: END IF;
8725:
8726: IF p_organization_rec.FAILURE_SCORE_COMMENTARY3 = FND_API.G_MISS_CHAR THEN
8727: x_credit_rating_rec.FAILURE_SCORE_COMMENTARY3 := NULL;
8728: ELSIF p_organization_rec.FAILURE_SCORE_COMMENTARY3 is not null THEN
8729: x_credit_rating_rec.FAILURE_SCORE_COMMENTARY3 := p_organization_rec.FAILURE_SCORE_COMMENTARY3;
8730: END IF;
8728: ELSIF p_organization_rec.FAILURE_SCORE_COMMENTARY3 is not null THEN
8729: x_credit_rating_rec.FAILURE_SCORE_COMMENTARY3 := p_organization_rec.FAILURE_SCORE_COMMENTARY3;
8730: END IF;
8731:
8732: IF p_organization_rec.FAILURE_SCORE_COMMENTARY4 = FND_API.G_MISS_CHAR THEN
8733: x_credit_rating_rec.FAILURE_SCORE_COMMENTARY4 := NULL;
8734: ELSIF p_organization_rec.FAILURE_SCORE_COMMENTARY4 is not null THEN
8735: x_credit_rating_rec.FAILURE_SCORE_COMMENTARY4 := p_organization_rec.FAILURE_SCORE_COMMENTARY4;
8736: END IF;
8734: ELSIF p_organization_rec.FAILURE_SCORE_COMMENTARY4 is not null THEN
8735: x_credit_rating_rec.FAILURE_SCORE_COMMENTARY4 := p_organization_rec.FAILURE_SCORE_COMMENTARY4;
8736: END IF;
8737:
8738: IF p_organization_rec.FAILURE_SCORE_COMMENTARY5 = FND_API.G_MISS_CHAR THEN
8739: x_credit_rating_rec.FAILURE_SCORE_COMMENTARY5 := NULL;
8740: ELSIF p_organization_rec.FAILURE_SCORE_COMMENTARY5 is not null THEN
8741: x_credit_rating_rec.FAILURE_SCORE_COMMENTARY5 := p_organization_rec.FAILURE_SCORE_COMMENTARY5;
8742: END IF;
8740: ELSIF p_organization_rec.FAILURE_SCORE_COMMENTARY5 is not null THEN
8741: x_credit_rating_rec.FAILURE_SCORE_COMMENTARY5 := p_organization_rec.FAILURE_SCORE_COMMENTARY5;
8742: END IF;
8743:
8744: IF p_organization_rec.FAILURE_SCORE_COMMENTARY6 = FND_API.G_MISS_CHAR THEN
8745: x_credit_rating_rec.FAILURE_SCORE_COMMENTARY6 := NULL;
8746: ELSIF p_organization_rec.FAILURE_SCORE_COMMENTARY6 is not null THEN
8747: x_credit_rating_rec.FAILURE_SCORE_COMMENTARY6 := p_organization_rec.FAILURE_SCORE_COMMENTARY6;
8748: END IF;
8746: ELSIF p_organization_rec.FAILURE_SCORE_COMMENTARY6 is not null THEN
8747: x_credit_rating_rec.FAILURE_SCORE_COMMENTARY6 := p_organization_rec.FAILURE_SCORE_COMMENTARY6;
8748: END IF;
8749:
8750: IF p_organization_rec.FAILURE_SCORE_COMMENTARY7 = FND_API.G_MISS_CHAR THEN
8751: x_credit_rating_rec.FAILURE_SCORE_COMMENTARY7 := NULL;
8752: ELSIF p_organization_rec.FAILURE_SCORE_COMMENTARY7 is not null THEN
8753: x_credit_rating_rec.FAILURE_SCORE_COMMENTARY7 := p_organization_rec.FAILURE_SCORE_COMMENTARY7;
8754: END IF;
8752: ELSIF p_organization_rec.FAILURE_SCORE_COMMENTARY7 is not null THEN
8753: x_credit_rating_rec.FAILURE_SCORE_COMMENTARY7 := p_organization_rec.FAILURE_SCORE_COMMENTARY7;
8754: END IF;
8755:
8756: IF p_organization_rec.FAILURE_SCORE_COMMENTARY8 = FND_API.G_MISS_CHAR THEN
8757: x_credit_rating_rec.FAILURE_SCORE_COMMENTARY8 := NULL;
8758: ELSIF p_organization_rec.FAILURE_SCORE_COMMENTARY8 is not null THEN
8759: x_credit_rating_rec.FAILURE_SCORE_COMMENTARY8 := p_organization_rec.FAILURE_SCORE_COMMENTARY8;
8760: END IF;
8758: ELSIF p_organization_rec.FAILURE_SCORE_COMMENTARY8 is not null THEN
8759: x_credit_rating_rec.FAILURE_SCORE_COMMENTARY8 := p_organization_rec.FAILURE_SCORE_COMMENTARY8;
8760: END IF;
8761:
8762: IF p_organization_rec.FAILURE_SCORE_COMMENTARY9 = FND_API.G_MISS_CHAR THEN
8763: x_credit_rating_rec.FAILURE_SCORE_COMMENTARY9 := NULL;
8764: ELSIF p_organization_rec.FAILURE_SCORE_COMMENTARY9 is not null THEN
8765: x_credit_rating_rec.FAILURE_SCORE_COMMENTARY9 := p_organization_rec.FAILURE_SCORE_COMMENTARY9;
8766: END IF;
8764: ELSIF p_organization_rec.FAILURE_SCORE_COMMENTARY9 is not null THEN
8765: x_credit_rating_rec.FAILURE_SCORE_COMMENTARY9 := p_organization_rec.FAILURE_SCORE_COMMENTARY9;
8766: END IF;
8767:
8768: IF p_organization_rec.FAILURE_SCORE_COMMENTARY10 = FND_API.G_MISS_CHAR THEN
8769: x_credit_rating_rec.FAILURE_SCORE_COMMENTARY10 := NULL;
8770: ELSIF p_organization_rec.FAILURE_SCORE_COMMENTARY10 is not null THEN
8771: x_credit_rating_rec.FAILURE_SCORE_COMMENTARY10 := p_organization_rec.FAILURE_SCORE_COMMENTARY10;
8772: END IF;
8770: ELSIF p_organization_rec.FAILURE_SCORE_COMMENTARY10 is not null THEN
8771: x_credit_rating_rec.FAILURE_SCORE_COMMENTARY10 := p_organization_rec.FAILURE_SCORE_COMMENTARY10;
8772: END IF;
8773:
8774: IF p_organization_rec.FAILURE_SCORE_DATE = FND_API.G_MISS_DATE THEN
8775: x_credit_rating_rec.FAILURE_SCORE_DATE := NULL;
8776: ELSIF p_organization_rec.FAILURE_SCORE_DATE is not null THEN
8777: x_credit_rating_rec.FAILURE_SCORE_DATE := p_organization_rec.FAILURE_SCORE_DATE;
8778: END IF;
8776: ELSIF p_organization_rec.FAILURE_SCORE_DATE is not null THEN
8777: x_credit_rating_rec.FAILURE_SCORE_DATE := p_organization_rec.FAILURE_SCORE_DATE;
8778: END IF;
8779:
8780: IF p_organization_rec.FAILURE_SCORE_INCD_DEFAULT = FND_API.G_MISS_NUM THEN
8781: x_credit_rating_rec.FAILURE_SCORE_INCD_DEFAULT := NULL;
8782: ELSIF p_organization_rec.FAILURE_SCORE_INCD_DEFAULT is not null THEN
8783: x_credit_rating_rec.FAILURE_SCORE_INCD_DEFAULT := p_organization_rec.FAILURE_SCORE_INCD_DEFAULT;
8784: END IF;
8782: ELSIF p_organization_rec.FAILURE_SCORE_INCD_DEFAULT is not null THEN
8783: x_credit_rating_rec.FAILURE_SCORE_INCD_DEFAULT := p_organization_rec.FAILURE_SCORE_INCD_DEFAULT;
8784: END IF;
8785:
8786: IF p_organization_rec.FAILURE_SCORE_NATNL_PERCENTILE = FND_API.G_MISS_NUM THEN
8787: x_credit_rating_rec.FAILURE_SCORE_NATNL_PERCENTILE := NULL;
8788: ELSIF p_organization_rec.FAILURE_SCORE_NATNL_PERCENTILE is not null THEN
8789: x_credit_rating_rec.FAILURE_SCORE_NATNL_PERCENTILE := p_organization_rec.FAILURE_SCORE_NATNL_PERCENTILE;
8790: END IF;
8788: ELSIF p_organization_rec.FAILURE_SCORE_NATNL_PERCENTILE is not null THEN
8789: x_credit_rating_rec.FAILURE_SCORE_NATNL_PERCENTILE := p_organization_rec.FAILURE_SCORE_NATNL_PERCENTILE;
8790: END IF;
8791:
8792: IF p_organization_rec.FAILURE_SCORE_OVERRIDE_CODE = FND_API.G_MISS_CHAR THEN
8793: x_credit_rating_rec.FAILURE_SCORE_OVERRIDE_CODE := NULL;
8794: ELSIF p_organization_rec.FAILURE_SCORE_OVERRIDE_CODE is not null THEN
8795: x_credit_rating_rec.FAILURE_SCORE_OVERRIDE_CODE := p_organization_rec.FAILURE_SCORE_OVERRIDE_CODE;
8796: END IF;
8794: ELSIF p_organization_rec.FAILURE_SCORE_OVERRIDE_CODE is not null THEN
8795: x_credit_rating_rec.FAILURE_SCORE_OVERRIDE_CODE := p_organization_rec.FAILURE_SCORE_OVERRIDE_CODE;
8796: END IF;
8797:
8798: IF p_organization_rec.GLOBAL_FAILURE_SCORE = FND_API.G_MISS_CHAR THEN
8799: x_credit_rating_rec.GLOBAL_FAILURE_SCORE := NULL;
8800: ELSIF p_organization_rec.GLOBAL_FAILURE_SCORE is not null THEN
8801: x_credit_rating_rec.GLOBAL_FAILURE_SCORE := p_organization_rec.GLOBAL_FAILURE_SCORE;
8802: END IF;
8887:
8888: FUNCTION isModified(p_old_value IN VARCHAR2,p_new_value IN VARCHAR2) RETURN BOOLEAN
8889: IS
8890: BEGIN
8891: IF p_new_value IS NOT NULL AND p_new_value <> FND_API.G_MISS_CHAR THEN
8892: RETURN NVL(NOT (p_old_value=p_new_value),TRUE);
8893: ELSIF (p_old_value IS NOT NULL AND p_old_value <> FND_API.G_MISS_CHAR)
8894: AND p_new_value = FND_API.G_MISS_CHAR THEN
8895: RETURN TRUE;
8889: IS
8890: BEGIN
8891: IF p_new_value IS NOT NULL AND p_new_value <> FND_API.G_MISS_CHAR THEN
8892: RETURN NVL(NOT (p_old_value=p_new_value),TRUE);
8893: ELSIF (p_old_value IS NOT NULL AND p_old_value <> FND_API.G_MISS_CHAR)
8894: AND p_new_value = FND_API.G_MISS_CHAR THEN
8895: RETURN TRUE;
8896: ELSE
8897: RETURN FALSE;
8890: BEGIN
8891: IF p_new_value IS NOT NULL AND p_new_value <> FND_API.G_MISS_CHAR THEN
8892: RETURN NVL(NOT (p_old_value=p_new_value),TRUE);
8893: ELSIF (p_old_value IS NOT NULL AND p_old_value <> FND_API.G_MISS_CHAR)
8894: AND p_new_value = FND_API.G_MISS_CHAR THEN
8895: RETURN TRUE;
8896: ELSE
8897: RETURN FALSE;
8898: END IF;