[Home] [Help]
478: x_return_status IN OUT NOCOPY VARCHAR2
479: ) IS
480: CURSOR c_partytype IS
481: SELECT hp.party_type
482: FROM hz_parties hp
483: WHERE hp.party_id = p_party_id;
484:
485: l_party_type VARCHAR2(30);
486:
494: CLOSE c_partytype;
495: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
496: fnd_message.set_token('FK', 'OWNER_TABLE_ID');
497: fnd_message.set_token('COLUMN', 'PARTY_ID');
498: fnd_message.set_token('TABLE', 'HZ_PARTIES');
499: fnd_msg_pub.add;
500: x_return_status := fnd_api.g_ret_sts_error;
501: RETURN;
502: END IF;
528: -- EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
529: --
530: -- ARGUMENTS
531: -- IN:
532: -- p_table_name Must be 'HZ_PARTIES' for valid execution.
533: -- p_party_id ID identifying the party.
534: -- p_contact_point_type Type of contact point. 'EFT' and 'EDI'-type
535: -- contact points are accepted. Others are ignored.
536: -- IN/OUT:
561: CURSOR c_class IS
562: SELECT hca.class_category,
563: hca.object_version_number
564: FROM hz_code_assignments hca
565: WHERE hca.owner_table_name = 'HZ_PARTIES'
566: AND hca.owner_table_id = p_party_id
567: AND hca.status = 'A'
568: ORDER BY 2 DESC;
569:
571: l_dummy NUMBER;
572: l_debug_prefix VARCHAR2(30) := '';
573: BEGIN
574: -- data being validated must belong to a party.
575: IF p_table_name <> 'HZ_PARTIES' THEN
576: -- This is not a party type. This procedure was called incorrectly,
577: -- return a failure.
578: /* Bug 2619099.
579: | fnd_message.set_name('AR', 'HZ_API_INVALID_FK'); |
577: -- return a failure.
578: /* Bug 2619099.
579: | fnd_message.set_name('AR', 'HZ_API_INVALID_FK'); |
580: | fnd_message.set_token('FK', 'OWNER_TABLE_NAME'); |
581: | fnd_message.set_token('COLUMN', 'HZ_PARTIES'); |
582: | fnd_message.set_token('TABLE', 'FND_OBJECTS'); */
583: fnd_message.set_name('AR','HZ_EDI_EFT_ORG_PARTIES_ONLY');
584:
585: fnd_msg_pub.add;
1187: WHERE hcp.contact_point_id = p_contact_point_id;
1188:
1189: CURSOR c_pexist (p_owner_table_id IN NUMBER) IS
1190: SELECT 'Y'
1191: FROM hz_parties
1192: WHERE party_id = p_owner_table_id;
1193:
1194: CURSOR c_psexist (p_owner_table_id IN NUMBER) IS
1195: SELECT 'Y'
1560: END IF;
1561:
1562: END IF;
1563:
1564: -- owner_table_id is foreign key of hz_parties if
1565: -- owner_table_name = HZ_PARTIES and is foreign key
1566: -- of hz_party_sites if owner_table_name = HZ_PARTY_SITES.
1567:
1568: -- Do not need to check during update because owner_table_id is
1561:
1562: END IF;
1563:
1564: -- owner_table_id is foreign key of hz_parties if
1565: -- owner_table_name = HZ_PARTIES and is foreign key
1566: -- of hz_party_sites if owner_table_name = HZ_PARTY_SITES.
1567:
1568: -- Do not need to check during update because owner_table_id is
1569: -- non-updateable.
1567:
1568: -- Do not need to check during update because owner_table_id is
1569: -- non-updateable.
1570: IF p_create_update_flag = 'C' THEN
1571: IF p_contact_point_rec.owner_table_name = 'HZ_PARTIES' THEN
1572: OPEN c_pexist(p_contact_point_rec.owner_table_id);
1573: FETCH c_pexist INTO l_fk_exist;
1574:
1575: IF c_pexist%NOTFOUND THEN
1603: END IF;
1604:
1605: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1606: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1607: p_message=>'owner_table_id is foreign key of hz_parties if owner_table_name = HZ_PARTIES and is foreign key of hz_party_sites if owner_table_name = HZ_PARTY_SITES. ' ||
1608: 'x_return_status = ' || x_return_status,
1609: p_msg_level=>fnd_log.level_statement);
1610: END IF;
1611:
2979: then
2980: hz_orig_system_ref_pub.get_owner_table_id
2981: (p_orig_system => p_party_rec.orig_system,
2982: p_orig_system_reference => p_party_rec.orig_system_reference,
2983: p_owner_table_name => 'HZ_PARTIES',
2984: x_owner_table_id => l_mosr_owner_table_id,
2985: x_return_status => l_temp_return_status);
2986:
2987: IF (l_temp_return_status = fnd_api.g_ret_sts_success AND
3763: /**
3764: * PROCEDURE validate_hr_security
3765: *
3766: * DESCRIPTION
3767: * Protects the HR data in the HZ_PERSON_PROFILES and the HZ_PARTIES tables
3768: * by preventing updation by other users.
3769: * If the profile option 'HZ_PROTECT_HR_PERSON_INFO' is set to 'Y',then the
3770: * following fields are updateable only by HR:
3771: * person_first_name
5677: -----------------------------------
5678: -- validate displayed_duns_party_id
5679: -----------------------------------
5680:
5681: -- displayed_duns_party_id is foreign key of hz_parties.party_id
5682: IF p_organization_rec.displayed_duns_party_id IS NOT NULL
5683: AND
5684: p_organization_rec.displayed_duns_party_id <> fnd_api.g_miss_num
5685: THEN
5685: THEN
5686: BEGIN
5687: SELECT 'Y'
5688: INTO l_dummy
5689: FROM HZ_PARTIES
5690: WHERE PARTY_ID = p_organization_rec.displayed_duns_party_id;
5691: EXCEPTION
5692: WHEN NO_DATA_FOUND THEN
5693: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
5692: WHEN NO_DATA_FOUND THEN
5693: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
5694: fnd_message.set_token('FK', 'displayed_duns_party_id');
5695: fnd_message.set_token('COLUMN', 'party_id');
5696: fnd_message.set_token('TABLE', 'hz_parties');
5697: fnd_msg_pub.add;
5698: x_return_status := fnd_api.g_ret_sts_error;
5699: END;
5700:
5699: END;
5700:
5701: /*IF g_debug THEN
5702: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
5703: 'displayed_duns_party_id is foreign key of hz_parties.party_id. ' ||
5704: 'x_return_status = ' || x_return_status, l_debug_prefix);
5705: END IF;
5706: */
5707: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5705: END IF;
5706: */
5707: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5708: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
5709: p_message=>'displayed_duns_party_id is foreign key of hz_parties.party_id. ' ||
5710: 'x_return_status = ' || x_return_status,
5711: p_msg_level=>fnd_log.level_statement);
5712: END IF;
5713: END IF;
6026: END IF;
6027:
6028: END IF;
6029:
6030: -- party_id is foreign key of hz_parties
6031: -- Do not need to check during update because party_id is
6032: -- non-updateable.
6033: IF p_create_update_flag = 'C'
6034: AND
6040: THEN
6041: BEGIN
6042: SELECT 'Y'
6043: INTO l_dummy
6044: FROM HZ_PARTIES
6045: WHERE PARTY_ID = p_party_site_rec.party_id;
6046: EXCEPTION
6047: WHEN NO_DATA_FOUND THEN
6048: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
6047: WHEN NO_DATA_FOUND THEN
6048: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
6049: fnd_message.set_token('FK', 'party_id');
6050: fnd_message.set_token('COLUMN', 'party_id');
6051: fnd_message.set_token('TABLE', 'hz_parties');
6052: fnd_msg_pub.add;
6053: x_return_status := fnd_api.g_ret_sts_error;
6054: END;
6055:
6054: END;
6055:
6056: /*IF g_debug THEN
6057: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
6058: 'party_id is foreign key of hz_parties. ' ||
6059: 'x_return_status = ' || x_return_status, l_debug_prefix);
6060: END IF;
6061: */
6062: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6059: 'x_return_status = ' || x_return_status, l_debug_prefix);
6060: END IF;
6061: */
6062: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6063: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'party_id is foreign key of hz_parties. ' ||
6064: 'x_return_status = ' || x_return_status,
6065: p_msg_level=>fnd_log.level_statement);
6066: END IF;
6067:
7700: AND OC.PARTY_RELATIONSHIP_ID = PR.RELATIONSHIP_ID
7701: AND PR.OBJECT_ID = PR2.OBJECT_ID
7702: AND PR2.RELATIONSHIP_ID = OC2.PARTY_RELATIONSHIP_ID
7703: AND OC2.ORG_CONTACT_ID = P_ORG_CONTACT_ROLE_REC.ORG_CONTACT_ID
7704: AND PR.SUBJECT_TABLE_NAME = 'HZ_PARTIES'
7705: AND PR.OBJECT_TABLE_NAME = 'HZ_PARTIES'
7706: AND PR.DIRECTIONAL_FLAG = 'F'
7707: AND PR2.SUBJECT_TABLE_NAME = 'HZ_PARTIES'
7708: AND PR2.OBJECT_TABLE_NAME = 'HZ_PARTIES'
7701: AND PR.OBJECT_ID = PR2.OBJECT_ID
7702: AND PR2.RELATIONSHIP_ID = OC2.PARTY_RELATIONSHIP_ID
7703: AND OC2.ORG_CONTACT_ID = P_ORG_CONTACT_ROLE_REC.ORG_CONTACT_ID
7704: AND PR.SUBJECT_TABLE_NAME = 'HZ_PARTIES'
7705: AND PR.OBJECT_TABLE_NAME = 'HZ_PARTIES'
7706: AND PR.DIRECTIONAL_FLAG = 'F'
7707: AND PR2.SUBJECT_TABLE_NAME = 'HZ_PARTIES'
7708: AND PR2.OBJECT_TABLE_NAME = 'HZ_PARTIES'
7709: AND PR2.DIRECTIONAL_FLAG = 'F'
7703: AND OC2.ORG_CONTACT_ID = P_ORG_CONTACT_ROLE_REC.ORG_CONTACT_ID
7704: AND PR.SUBJECT_TABLE_NAME = 'HZ_PARTIES'
7705: AND PR.OBJECT_TABLE_NAME = 'HZ_PARTIES'
7706: AND PR.DIRECTIONAL_FLAG = 'F'
7707: AND PR2.SUBJECT_TABLE_NAME = 'HZ_PARTIES'
7708: AND PR2.OBJECT_TABLE_NAME = 'HZ_PARTIES'
7709: AND PR2.DIRECTIONAL_FLAG = 'F'
7710: and ocr.org_contact_role_id <>p_org_contact_role_rec.org_contact_role_id; --db primary role id is not same as the pass in role id
7711:
7704: AND PR.SUBJECT_TABLE_NAME = 'HZ_PARTIES'
7705: AND PR.OBJECT_TABLE_NAME = 'HZ_PARTIES'
7706: AND PR.DIRECTIONAL_FLAG = 'F'
7707: AND PR2.SUBJECT_TABLE_NAME = 'HZ_PARTIES'
7708: AND PR2.OBJECT_TABLE_NAME = 'HZ_PARTIES'
7709: AND PR2.DIRECTIONAL_FLAG = 'F'
7710: and ocr.org_contact_role_id <>p_org_contact_role_rec.org_contact_role_id; --db primary role id is not same as the pass in role id
7711:
7712: fnd_message.set_name('AR', 'HZ_API_UNIQUE_PRIMARY_ORG_CONT');
7950: END IF;
7951:
7952: END IF;
7953:
7954: -- party_id has foreign key HZ_PARTIES.PARTY_ID
7955: IF p_create_update_flag = 'C'
7956: AND
7957: p_person_language_rec.party_id IS NOT NULL
7958: AND
7960: THEN
7961: BEGIN
7962: SELECT 'Y'
7963: INTO l_dummy
7964: FROM hz_parties
7965: WHERE party_id = p_person_language_rec.party_id;
7966:
7967: EXCEPTION
7968: WHEN NO_DATA_FOUND THEN
7968: WHEN NO_DATA_FOUND THEN
7969: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
7970: fnd_message.set_token('FK', 'party_id');
7971: fnd_message.set_token('COLUMN', 'party_id');
7972: fnd_message.set_token('TABLE', 'hz_parties');
7973: fnd_msg_pub.add;
7974: x_return_status := fnd_api.g_ret_sts_error;
7975: END;
7976:
7975: END;
7976:
7977: /*IF g_debug THEN
7978: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
7979: 'party_id has foreign key hz_parties.party_id. ' ||
7980: 'x_return_status = ' || x_return_status, l_debug_prefix);
7981: END IF;
7982: */
7983: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7980: 'x_return_status = ' || x_return_status, l_debug_prefix);
7981: END IF;
7982: */
7983: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7984: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'party_id has foreign key hz_parties.party_id. ' ||
7985: 'x_return_status = ' || x_return_status,
7986: p_msg_level=>fnd_log.level_statement);
7987: END IF;
7988:
8549:
8550: END IF;
8551:
8552: -- 2820462, Party_type check has been added to the where clause
8553: -- party_id has foreign key HZ_PARTIES.PARTY_ID
8554: IF p_create_update_flag = 'C'
8555: AND
8556: p_citizenship_rec.party_id IS NOT NULL
8557: AND
8559: THEN
8560: BEGIN
8561: SELECT 'Y'
8562: INTO l_dummy
8563: FROM hz_parties p
8564: WHERE p.party_type='PERSON' and
8565: p.party_id = p_citizenship_rec.party_id;
8566:
8567: EXCEPTION
8575: END;
8576:
8577: /*IF g_debug THEN
8578: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
8579: 'party_id has foreign key hz_parties.party_id. ' ||
8580: 'x_return_status = ' || x_return_status, l_debug_prefix);
8581: END IF;
8582: */
8583: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8580: 'x_return_status = ' || x_return_status, l_debug_prefix);
8581: END IF;
8582: */
8583: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8584: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'party_id has foreign key hz_parties.party_id. ' ||
8585: 'x_return_status = ' || x_return_status,
8586: p_msg_level=>fnd_log.level_statement);
8587: END IF;
8588:
8992:
8993: END IF;
8994:
8995: -- 2820602, Changed message due to this bug.
8996: -- party_id has foreign key HZ_PARTIES.PARTY_ID
8997: IF p_create_update_flag = 'C'
8998: AND
8999: p_education_rec.party_id IS NOT NULL
9000: AND
9002: THEN
9003: BEGIN
9004: SELECT 'Y'
9005: INTO l_dummy
9006: FROM hz_parties p
9007: WHERE p.party_id = p_education_rec.party_id and
9008: party_type = 'PERSON';
9009:
9010: EXCEPTION
9017: END;
9018:
9019: /*IF g_debug THEN
9020: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
9021: 'party_id has foreign key hz_parties.party_id. ' ||
9022: 'x_return_status = ' || x_return_status, l_debug_prefix);
9023: END IF;
9024: */
9025: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9022: 'x_return_status = ' || x_return_status, l_debug_prefix);
9023: END IF;
9024: */
9025: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9026: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'party_id has foreign key hz_parties.party_id. ' ||
9027: 'x_return_status = ' || x_return_status,
9028: p_msg_level=>fnd_log.level_statement);
9029: END IF;
9030:
9169: -- validation for school_party_id
9170: ---------------------------------
9171:
9172:
9173: -- school_party_id must exist in HZ_PARTIES
9174: IF p_education_rec.school_party_id IS NOT NULL
9175: AND
9176: p_education_rec.school_party_id <> fnd_api.g_miss_num
9177: THEN
9177: THEN
9178: BEGIN
9179: SELECT 'Y'
9180: INTO l_dummy
9181: FROM HZ_PARTIES
9182: WHERE PARTY_ID = p_education_rec.school_party_id AND
9183: PARTY_TYPE= 'ORGANIZATION';
9184:
9185: EXCEPTION
9192: END;
9193:
9194: /*IF g_debug THEN
9195: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
9196: 'school_party_id should be in hz_parties.party_id. ' ||
9197: 'x_return_status = ' || x_return_status, l_debug_prefix);
9198: END IF;
9199: */
9200: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9198: END IF;
9199: */
9200: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9201: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
9202: p_message=>'school_party_id should be in hz_parties.party_id. ' ||
9203: 'x_return_status = ' || x_return_status,
9204: p_msg_level=>fnd_log.level_statement);
9205: END IF;
9206:
9580:
9581:
9582: END IF;
9583:
9584: -- party_id has foreign key HZ_PARTIES.PARTY_ID
9585: IF p_create_update_flag = 'C'
9586: AND
9587: p_employment_history_rec.party_id IS NOT NULL
9588: AND
9590: THEN
9591: BEGIN
9592: SELECT 'Y'
9593: INTO l_dummy
9594: FROM hz_parties p
9595: WHERE p.party_id = p_employment_history_rec.party_id and
9596: party_type = 'PERSON';
9597:
9598: EXCEPTION
9605: END;
9606:
9607: /*IF g_debug THEN
9608: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
9609: 'party_id has foreign key hz_parties.party_id. ' ||
9610: 'x_return_status = ' || x_return_status, l_debug_prefix);
9611: END IF;
9612: */
9613: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9610: 'x_return_status = ' || x_return_status, l_debug_prefix);
9611: END IF;
9612: */
9613: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9614: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'party_id has foreign key hz_parties.party_id. ' ||
9615: 'x_return_status = ' || x_return_status,
9616: p_msg_level=>fnd_log.level_statement);
9617: END IF;
9618:
9827: -- validation for employed_by_party_id
9828: --------------------------------------
9829:
9830:
9831: -- employed_by_party_id must exist in HZ_PARTIES
9832: IF p_employment_history_rec.employed_by_party_id IS NOT NULL
9833: AND
9834: p_employment_history_rec.employed_by_party_id <> fnd_api.g_miss_num
9835: THEN
9835: THEN
9836: BEGIN
9837: SELECT 'Y'
9838: INTO l_dummy
9839: FROM HZ_PARTIES
9840: WHERE PARTY_ID = p_employment_history_rec.employed_by_party_id;
9841:
9842: EXCEPTION
9843: WHEN NO_DATA_FOUND THEN
9843: WHEN NO_DATA_FOUND THEN
9844: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
9845: fnd_message.set_token('FK', 'employed_by_party_id');
9846: fnd_message.set_token('COLUMN', 'party_id');
9847: fnd_message.set_token('TABLE', 'hz_parties');
9848: fnd_msg_pub.add;
9849: x_return_status := fnd_api.g_ret_sts_error;
9850: END;
9851:
9850: END;
9851:
9852: /*IF g_debug THEN
9853: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
9854: 'employed_by_party_id should be in hz_parties.party_id. ' ||
9855: 'x_return_status = ' || x_return_status, l_debug_prefix);
9856: END IF;
9857: */
9858: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9856: END IF;
9857: */
9858: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9859: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
9860: p_message=>'employed_by_party_id should be in hz_parties.party_id. ' ||
9861: 'x_return_status = ' || x_return_status,
9862: p_msg_level=>fnd_log.level_statement);
9863: END IF;
9864:
10823:
10824:
10825: END IF;
10826:
10827: -- party_id has foreign key HZ_PARTIES.PARTY_ID
10828: IF p_create_update_flag = 'C'
10829: AND
10830: p_person_interest_rec.party_id IS NOT NULL
10831: AND
10833: THEN
10834: BEGIN
10835: SELECT 'Y'
10836: INTO l_dummy
10837: FROM hz_parties p
10838: WHERE p.party_id = p_person_interest_rec.party_id; /*and
10839: party_type = 'PERSON';*/
10840: /*
10841: Bug 3282946. Some teams still insert into hz_person_interest
10846: WHEN NO_DATA_FOUND THEN
10847: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
10848: fnd_message.set_token('FK', 'party_id');
10849: fnd_message.set_token('COLUMN', 'party_id');
10850: fnd_message.set_token('TABLE', 'hz_parties');
10851: fnd_msg_pub.add;
10852: x_return_status := fnd_api.g_ret_sts_error;
10853: END;
10854:
10853: END;
10854:
10855: /*IF g_debug THEN
10856: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
10857: 'party_id has foreign key hz_parties.party_id. ' ||
10858: 'x_return_status = ' || x_return_status, l_debug_prefix);
10859: END IF;
10860: */
10861: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10858: 'x_return_status = ' || x_return_status, l_debug_prefix);
10859: END IF;
10860: */
10861: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10862: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'party_id has foreign key hz_parties.party_id. ' ||
10863: 'x_return_status = ' || x_return_status,
10864: p_msg_level=>fnd_log.level_statement);
10865: END IF;
10866:
15704: * provided.Furthermore new validation does the check
15705: * only if p_create_update_flag='C' as both these
15706: * fields are non_updateable.
15707: * 23-MAR-2004 Rajib Ranjan Borah o Bug 3456205.Validation for party_id being a foreing
15708: * key of HZ_PARTIES and party_type should be
15709: * 'ORGANIZATION', are performed using a single cursor now.
15710: * o Validation on report_start_date, report_end_date,
15711: * party_id will be performed only during creation as these
15712: * are non-updateable columns.
15762: ;
15763:
15764: CURSOR c_partytype IS
15765: SELECT hp.party_type
15766: FROM hz_parties hp
15767: WHERE hp.party_id = p_financial_report_rec.party_id;
15768:
15769: l_party_type VARCHAR2(30);
15770: l_financial_report_id hz_financial_reports.financial_report_id%TYPE;
16006:
16007:
16008: END IF;
16009: /*
16010: -- party_id has foreign key HZ_PARTIES.PARTY_ID
16011: IF p_create_update_flag = 'C'
16012: AND
16013: p_financial_report_rec.party_id IS NOT NULL
16014: AND
16016: THEN
16017: BEGIN
16018: SELECT 'Y'
16019: INTO l_dummy
16020: FROM hz_parties p
16021: WHERE p.party_id = p_financial_report_rec.party_id;
16022:
16023: EXCEPTION
16024: WHEN NO_DATA_FOUND THEN
16024: WHEN NO_DATA_FOUND THEN
16025: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
16026: fnd_message.set_token('FK', 'party_id');
16027: fnd_message.set_token('COLUMN', 'party_id');
16028: fnd_message.set_token('TABLE', 'hz_parties');
16029: fnd_msg_pub.add;
16030: x_return_status := fnd_api.g_ret_sts_error;
16031: END;
16032: */
16031: END;
16032: */
16033: /*IF g_debug THEN
16034: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
16035: 'party_id has foreign key hz_parties.party_id. ' ||
16036: 'x_return_status = ' || x_return_status, l_debug_prefix);
16037: END IF;
16038: */
16039: /* IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
16036: 'x_return_status = ' || x_return_status, l_debug_prefix);
16037: END IF;
16038: */
16039: /* IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
16040: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'party_id has foreign key hz_parties.party_id. ' ||
16041: 'x_return_status = ' || x_return_status,
16042: p_msg_level=>fnd_log.level_statement);
16043: END IF;
16044:
16070: fnd_msg_pub.add;
16071: x_return_status := fnd_api.g_ret_sts_error;
16072: END IF;
16073: ELSE -- 3456205
16074: -- party_id has foreign key HZ_PARTIES.PARTY_ID
16075: -- However since no record found in HZ_PARTIES, therefore throw error.
16076: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
16077: fnd_message.set_token('FK', 'party_id');
16078: fnd_message.set_token('COLUMN', 'party_id');
16071: x_return_status := fnd_api.g_ret_sts_error;
16072: END IF;
16073: ELSE -- 3456205
16074: -- party_id has foreign key HZ_PARTIES.PARTY_ID
16075: -- However since no record found in HZ_PARTIES, therefore throw error.
16076: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
16077: fnd_message.set_token('FK', 'party_id');
16078: fnd_message.set_token('COLUMN', 'party_id');
16079: fnd_message.set_token('TABLE', 'hz_parties');
16075: -- However since no record found in HZ_PARTIES, therefore throw error.
16076: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
16077: fnd_message.set_token('FK', 'party_id');
16078: fnd_message.set_token('COLUMN', 'party_id');
16079: fnd_message.set_token('TABLE', 'hz_parties');
16080: fnd_msg_pub.add;
16081: x_return_status := fnd_api.g_ret_sts_error;
16082: END IF;
16083: CLOSE c_partytype;
16084: --Bug 2886268: Commented out the following call as it is throwing erroneous message
16085: --check_organization(p_financial_report_rec.party_id, x_return_status);
16086: END IF;
16087: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
16088: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'party_id has foreign key hz_parties.party_id. ' ||
16089: 'x_return_status = ' || x_return_status,
16090: p_msg_level=>fnd_log.level_statement);
16091: END IF;
16092: END IF;
17591: p_msg_level=>fnd_log.level_statement);
17592: END IF;
17593:
17594: END IF;
17595: -- party_id has foreign key HZ_PARTIES.PARTY_ID
17596: IF p_create_update_flag = 'C'
17597: AND
17598: p_credit_rating_rec.party_id IS NOT NULL
17599: AND
17601: THEN
17602: BEGIN
17603: SELECT 'Y'
17604: INTO l_dummy
17605: FROM hz_parties p
17606: WHERE p.party_id = p_credit_rating_rec.party_id;
17607:
17608: EXCEPTION
17609: WHEN NO_DATA_FOUND THEN
17609: WHEN NO_DATA_FOUND THEN
17610: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
17611: fnd_message.set_token('FK', 'party_id');
17612: fnd_message.set_token('COLUMN', 'party_id');
17613: fnd_message.set_token('TABLE', 'hz_parties');
17614: fnd_msg_pub.add;
17615: x_return_status := fnd_api.g_ret_sts_error;
17616: END;
17617:
17616: END;
17617:
17618: /*IF g_debug THEN
17619: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
17620: 'party_id has foreign key hz_parties.party_id. ' ||
17621: 'x_return_status = ' || x_return_status, l_debug_prefix);
17622: END IF;
17623: */
17624: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
17621: 'x_return_status = ' || x_return_status, l_debug_prefix);
17622: END IF;
17623: */
17624: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
17625: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'party_id has foreign key hz_parties.party_id. ' ||
17626: 'x_return_status = ' || x_return_status,
17627: p_msg_level=>fnd_log.level_statement);
17628: END IF;
17629: