[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:
7703: AND OC.PARTY_RELATIONSHIP_ID = PR.RELATIONSHIP_ID
7704: AND PR.OBJECT_ID = PR2.OBJECT_ID
7705: AND PR2.RELATIONSHIP_ID = OC2.PARTY_RELATIONSHIP_ID
7706: AND OC2.ORG_CONTACT_ID = P_ORG_CONTACT_ROLE_REC.ORG_CONTACT_ID
7707: AND PR.SUBJECT_TABLE_NAME = 'HZ_PARTIES'
7708: AND PR.OBJECT_TABLE_NAME = 'HZ_PARTIES'
7709: AND PR.DIRECTIONAL_FLAG = 'F'
7710: AND PR2.SUBJECT_TABLE_NAME = 'HZ_PARTIES'
7711: AND PR2.OBJECT_TABLE_NAME = 'HZ_PARTIES'
7704: AND PR.OBJECT_ID = PR2.OBJECT_ID
7705: AND PR2.RELATIONSHIP_ID = OC2.PARTY_RELATIONSHIP_ID
7706: AND OC2.ORG_CONTACT_ID = P_ORG_CONTACT_ROLE_REC.ORG_CONTACT_ID
7707: AND PR.SUBJECT_TABLE_NAME = 'HZ_PARTIES'
7708: AND PR.OBJECT_TABLE_NAME = 'HZ_PARTIES'
7709: AND PR.DIRECTIONAL_FLAG = 'F'
7710: AND PR2.SUBJECT_TABLE_NAME = 'HZ_PARTIES'
7711: AND PR2.OBJECT_TABLE_NAME = 'HZ_PARTIES'
7712: AND PR2.DIRECTIONAL_FLAG = 'F'
7706: AND OC2.ORG_CONTACT_ID = P_ORG_CONTACT_ROLE_REC.ORG_CONTACT_ID
7707: AND PR.SUBJECT_TABLE_NAME = 'HZ_PARTIES'
7708: AND PR.OBJECT_TABLE_NAME = 'HZ_PARTIES'
7709: AND PR.DIRECTIONAL_FLAG = 'F'
7710: AND PR2.SUBJECT_TABLE_NAME = 'HZ_PARTIES'
7711: AND PR2.OBJECT_TABLE_NAME = 'HZ_PARTIES'
7712: AND PR2.DIRECTIONAL_FLAG = 'F'
7713: 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
7714:
7707: AND PR.SUBJECT_TABLE_NAME = 'HZ_PARTIES'
7708: AND PR.OBJECT_TABLE_NAME = 'HZ_PARTIES'
7709: AND PR.DIRECTIONAL_FLAG = 'F'
7710: AND PR2.SUBJECT_TABLE_NAME = 'HZ_PARTIES'
7711: AND PR2.OBJECT_TABLE_NAME = 'HZ_PARTIES'
7712: AND PR2.DIRECTIONAL_FLAG = 'F'
7713: 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
7714:
7715: fnd_message.set_name('AR', 'HZ_API_UNIQUE_PRIMARY_ORG_CONT');
7953: END IF;
7954:
7955: END IF;
7956:
7957: -- party_id has foreign key HZ_PARTIES.PARTY_ID
7958: IF p_create_update_flag = 'C'
7959: AND
7960: p_person_language_rec.party_id IS NOT NULL
7961: AND
7963: THEN
7964: BEGIN
7965: SELECT 'Y'
7966: INTO l_dummy
7967: FROM hz_parties
7968: WHERE party_id = p_person_language_rec.party_id;
7969:
7970: EXCEPTION
7971: WHEN NO_DATA_FOUND THEN
7971: WHEN NO_DATA_FOUND THEN
7972: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
7973: fnd_message.set_token('FK', 'party_id');
7974: fnd_message.set_token('COLUMN', 'party_id');
7975: fnd_message.set_token('TABLE', 'hz_parties');
7976: fnd_msg_pub.add;
7977: x_return_status := fnd_api.g_ret_sts_error;
7978: END;
7979:
7978: END;
7979:
7980: /*IF g_debug THEN
7981: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
7982: 'party_id has foreign key hz_parties.party_id. ' ||
7983: 'x_return_status = ' || x_return_status, l_debug_prefix);
7984: END IF;
7985: */
7986: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7983: 'x_return_status = ' || x_return_status, l_debug_prefix);
7984: END IF;
7985: */
7986: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7987: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'party_id has foreign key hz_parties.party_id. ' ||
7988: 'x_return_status = ' || x_return_status,
7989: p_msg_level=>fnd_log.level_statement);
7990: END IF;
7991:
8552:
8553: END IF;
8554:
8555: -- 2820462, Party_type check has been added to the where clause
8556: -- party_id has foreign key HZ_PARTIES.PARTY_ID
8557: IF p_create_update_flag = 'C'
8558: AND
8559: p_citizenship_rec.party_id IS NOT NULL
8560: AND
8562: THEN
8563: BEGIN
8564: SELECT 'Y'
8565: INTO l_dummy
8566: FROM hz_parties p
8567: WHERE p.party_type='PERSON' and
8568: p.party_id = p_citizenship_rec.party_id;
8569:
8570: EXCEPTION
8578: END;
8579:
8580: /*IF g_debug THEN
8581: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
8582: 'party_id has foreign key hz_parties.party_id. ' ||
8583: 'x_return_status = ' || x_return_status, l_debug_prefix);
8584: END IF;
8585: */
8586: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8583: 'x_return_status = ' || x_return_status, l_debug_prefix);
8584: END IF;
8585: */
8586: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8587: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'party_id has foreign key hz_parties.party_id. ' ||
8588: 'x_return_status = ' || x_return_status,
8589: p_msg_level=>fnd_log.level_statement);
8590: END IF;
8591:
8995:
8996: END IF;
8997:
8998: -- 2820602, Changed message due to this bug.
8999: -- party_id has foreign key HZ_PARTIES.PARTY_ID
9000: IF p_create_update_flag = 'C'
9001: AND
9002: p_education_rec.party_id IS NOT NULL
9003: AND
9005: THEN
9006: BEGIN
9007: SELECT 'Y'
9008: INTO l_dummy
9009: FROM hz_parties p
9010: WHERE p.party_id = p_education_rec.party_id and
9011: party_type = 'PERSON';
9012:
9013: EXCEPTION
9020: END;
9021:
9022: /*IF g_debug THEN
9023: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
9024: 'party_id has foreign key hz_parties.party_id. ' ||
9025: 'x_return_status = ' || x_return_status, l_debug_prefix);
9026: END IF;
9027: */
9028: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9025: 'x_return_status = ' || x_return_status, l_debug_prefix);
9026: END IF;
9027: */
9028: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9029: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'party_id has foreign key hz_parties.party_id. ' ||
9030: 'x_return_status = ' || x_return_status,
9031: p_msg_level=>fnd_log.level_statement);
9032: END IF;
9033:
9172: -- validation for school_party_id
9173: ---------------------------------
9174:
9175:
9176: -- school_party_id must exist in HZ_PARTIES
9177: IF p_education_rec.school_party_id IS NOT NULL
9178: AND
9179: p_education_rec.school_party_id <> fnd_api.g_miss_num
9180: THEN
9180: THEN
9181: BEGIN
9182: SELECT 'Y'
9183: INTO l_dummy
9184: FROM HZ_PARTIES
9185: WHERE PARTY_ID = p_education_rec.school_party_id AND
9186: PARTY_TYPE= 'ORGANIZATION';
9187:
9188: EXCEPTION
9195: END;
9196:
9197: /*IF g_debug THEN
9198: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
9199: 'school_party_id should be in hz_parties.party_id. ' ||
9200: 'x_return_status = ' || x_return_status, l_debug_prefix);
9201: END IF;
9202: */
9203: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9201: END IF;
9202: */
9203: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9204: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
9205: p_message=>'school_party_id should be in hz_parties.party_id. ' ||
9206: 'x_return_status = ' || x_return_status,
9207: p_msg_level=>fnd_log.level_statement);
9208: END IF;
9209:
9583:
9584:
9585: END IF;
9586:
9587: -- party_id has foreign key HZ_PARTIES.PARTY_ID
9588: IF p_create_update_flag = 'C'
9589: AND
9590: p_employment_history_rec.party_id IS NOT NULL
9591: AND
9593: THEN
9594: BEGIN
9595: SELECT 'Y'
9596: INTO l_dummy
9597: FROM hz_parties p
9598: WHERE p.party_id = p_employment_history_rec.party_id and
9599: party_type = 'PERSON';
9600:
9601: EXCEPTION
9608: END;
9609:
9610: /*IF g_debug THEN
9611: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
9612: 'party_id has foreign key hz_parties.party_id. ' ||
9613: 'x_return_status = ' || x_return_status, l_debug_prefix);
9614: END IF;
9615: */
9616: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9613: 'x_return_status = ' || x_return_status, l_debug_prefix);
9614: END IF;
9615: */
9616: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9617: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'party_id has foreign key hz_parties.party_id. ' ||
9618: 'x_return_status = ' || x_return_status,
9619: p_msg_level=>fnd_log.level_statement);
9620: END IF;
9621:
9830: -- validation for employed_by_party_id
9831: --------------------------------------
9832:
9833:
9834: -- employed_by_party_id must exist in HZ_PARTIES
9835: IF p_employment_history_rec.employed_by_party_id IS NOT NULL
9836: AND
9837: p_employment_history_rec.employed_by_party_id <> fnd_api.g_miss_num
9838: THEN
9838: THEN
9839: BEGIN
9840: SELECT 'Y'
9841: INTO l_dummy
9842: FROM HZ_PARTIES
9843: WHERE PARTY_ID = p_employment_history_rec.employed_by_party_id;
9844:
9845: EXCEPTION
9846: WHEN NO_DATA_FOUND THEN
9846: WHEN NO_DATA_FOUND THEN
9847: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
9848: fnd_message.set_token('FK', 'employed_by_party_id');
9849: fnd_message.set_token('COLUMN', 'party_id');
9850: fnd_message.set_token('TABLE', 'hz_parties');
9851: fnd_msg_pub.add;
9852: x_return_status := fnd_api.g_ret_sts_error;
9853: END;
9854:
9853: END;
9854:
9855: /*IF g_debug THEN
9856: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
9857: 'employed_by_party_id should be in hz_parties.party_id. ' ||
9858: 'x_return_status = ' || x_return_status, l_debug_prefix);
9859: END IF;
9860: */
9861: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9859: END IF;
9860: */
9861: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9862: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
9863: p_message=>'employed_by_party_id should be in hz_parties.party_id. ' ||
9864: 'x_return_status = ' || x_return_status,
9865: p_msg_level=>fnd_log.level_statement);
9866: END IF;
9867:
10826:
10827:
10828: END IF;
10829:
10830: -- party_id has foreign key HZ_PARTIES.PARTY_ID
10831: IF p_create_update_flag = 'C'
10832: AND
10833: p_person_interest_rec.party_id IS NOT NULL
10834: AND
10836: THEN
10837: BEGIN
10838: SELECT 'Y'
10839: INTO l_dummy
10840: FROM hz_parties p
10841: WHERE p.party_id = p_person_interest_rec.party_id; /*and
10842: party_type = 'PERSON';*/
10843: /*
10844: Bug 3282946. Some teams still insert into hz_person_interest
10849: WHEN NO_DATA_FOUND THEN
10850: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
10851: fnd_message.set_token('FK', 'party_id');
10852: fnd_message.set_token('COLUMN', 'party_id');
10853: fnd_message.set_token('TABLE', 'hz_parties');
10854: fnd_msg_pub.add;
10855: x_return_status := fnd_api.g_ret_sts_error;
10856: END;
10857:
10856: END;
10857:
10858: /*IF g_debug THEN
10859: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
10860: 'party_id has foreign key hz_parties.party_id. ' ||
10861: 'x_return_status = ' || x_return_status, l_debug_prefix);
10862: END IF;
10863: */
10864: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10861: 'x_return_status = ' || x_return_status, l_debug_prefix);
10862: END IF;
10863: */
10864: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10865: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'party_id has foreign key hz_parties.party_id. ' ||
10866: 'x_return_status = ' || x_return_status,
10867: p_msg_level=>fnd_log.level_statement);
10868: END IF;
10869:
15724: * provided.Furthermore new validation does the check
15725: * only if p_create_update_flag='C' as both these
15726: * fields are non_updateable.
15727: * 23-MAR-2004 Rajib Ranjan Borah o Bug 3456205.Validation for party_id being a foreing
15728: * key of HZ_PARTIES and party_type should be
15729: * 'ORGANIZATION', are performed using a single cursor now.
15730: * o Validation on report_start_date, report_end_date,
15731: * party_id will be performed only during creation as these
15732: * are non-updateable columns.
15782: ;
15783:
15784: CURSOR c_partytype IS
15785: SELECT hp.party_type
15786: FROM hz_parties hp
15787: WHERE hp.party_id = p_financial_report_rec.party_id;
15788:
15789: l_party_type VARCHAR2(30);
15790: l_financial_report_id hz_financial_reports.financial_report_id%TYPE;
16026:
16027:
16028: END IF;
16029: /*
16030: -- party_id has foreign key HZ_PARTIES.PARTY_ID
16031: IF p_create_update_flag = 'C'
16032: AND
16033: p_financial_report_rec.party_id IS NOT NULL
16034: AND
16036: THEN
16037: BEGIN
16038: SELECT 'Y'
16039: INTO l_dummy
16040: FROM hz_parties p
16041: WHERE p.party_id = p_financial_report_rec.party_id;
16042:
16043: EXCEPTION
16044: WHEN NO_DATA_FOUND THEN
16044: WHEN NO_DATA_FOUND THEN
16045: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
16046: fnd_message.set_token('FK', 'party_id');
16047: fnd_message.set_token('COLUMN', 'party_id');
16048: fnd_message.set_token('TABLE', 'hz_parties');
16049: fnd_msg_pub.add;
16050: x_return_status := fnd_api.g_ret_sts_error;
16051: END;
16052: */
16051: END;
16052: */
16053: /*IF g_debug THEN
16054: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
16055: 'party_id has foreign key hz_parties.party_id. ' ||
16056: 'x_return_status = ' || x_return_status, l_debug_prefix);
16057: END IF;
16058: */
16059: /* IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
16056: 'x_return_status = ' || x_return_status, l_debug_prefix);
16057: END IF;
16058: */
16059: /* IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
16060: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'party_id has foreign key hz_parties.party_id. ' ||
16061: 'x_return_status = ' || x_return_status,
16062: p_msg_level=>fnd_log.level_statement);
16063: END IF;
16064:
16090: fnd_msg_pub.add;
16091: x_return_status := fnd_api.g_ret_sts_error;
16092: END IF;
16093: ELSE -- 3456205
16094: -- party_id has foreign key HZ_PARTIES.PARTY_ID
16095: -- However since no record found in HZ_PARTIES, therefore throw error.
16096: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
16097: fnd_message.set_token('FK', 'party_id');
16098: fnd_message.set_token('COLUMN', 'party_id');
16091: x_return_status := fnd_api.g_ret_sts_error;
16092: END IF;
16093: ELSE -- 3456205
16094: -- party_id has foreign key HZ_PARTIES.PARTY_ID
16095: -- However since no record found in HZ_PARTIES, therefore throw error.
16096: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
16097: fnd_message.set_token('FK', 'party_id');
16098: fnd_message.set_token('COLUMN', 'party_id');
16099: fnd_message.set_token('TABLE', 'hz_parties');
16095: -- However since no record found in HZ_PARTIES, therefore throw error.
16096: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
16097: fnd_message.set_token('FK', 'party_id');
16098: fnd_message.set_token('COLUMN', 'party_id');
16099: fnd_message.set_token('TABLE', 'hz_parties');
16100: fnd_msg_pub.add;
16101: x_return_status := fnd_api.g_ret_sts_error;
16102: END IF;
16103: CLOSE c_partytype;
16104: --Bug 2886268: Commented out the following call as it is throwing erroneous message
16105: --check_organization(p_financial_report_rec.party_id, x_return_status);
16106: END IF;
16107: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
16108: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'party_id has foreign key hz_parties.party_id. ' ||
16109: 'x_return_status = ' || x_return_status,
16110: p_msg_level=>fnd_log.level_statement);
16111: END IF;
16112: END IF;
17611: p_msg_level=>fnd_log.level_statement);
17612: END IF;
17613:
17614: END IF;
17615: -- party_id has foreign key HZ_PARTIES.PARTY_ID
17616: IF p_create_update_flag = 'C'
17617: AND
17618: p_credit_rating_rec.party_id IS NOT NULL
17619: AND
17621: THEN
17622: BEGIN
17623: SELECT 'Y'
17624: INTO l_dummy
17625: FROM hz_parties p
17626: WHERE p.party_id = p_credit_rating_rec.party_id;
17627:
17628: EXCEPTION
17629: WHEN NO_DATA_FOUND THEN
17629: WHEN NO_DATA_FOUND THEN
17630: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
17631: fnd_message.set_token('FK', 'party_id');
17632: fnd_message.set_token('COLUMN', 'party_id');
17633: fnd_message.set_token('TABLE', 'hz_parties');
17634: fnd_msg_pub.add;
17635: x_return_status := fnd_api.g_ret_sts_error;
17636: END;
17637:
17636: END;
17637:
17638: /*IF g_debug THEN
17639: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
17640: 'party_id has foreign key hz_parties.party_id. ' ||
17641: 'x_return_status = ' || x_return_status, l_debug_prefix);
17642: END IF;
17643: */
17644: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
17641: 'x_return_status = ' || x_return_status, l_debug_prefix);
17642: END IF;
17643: */
17644: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
17645: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'party_id has foreign key hz_parties.party_id. ' ||
17646: 'x_return_status = ' || x_return_status,
17647: p_msg_level=>fnd_log.level_statement);
17648: END IF;
17649: