127:
128:
129: BEGIN
130:
131: x_return_status := FND_API.G_RET_STS_SUCCESS;
132:
133:
134: /* Entity Type 'LEGAL_ENTITY' or 'ESTABLISHMENT' is mandatory */
135: IF p_entity_type IS NULL THEN
132:
133:
134: /* Entity Type 'LEGAL_ENTITY' or 'ESTABLISHMENT' is mandatory */
135: IF p_entity_type IS NULL THEN
136: x_return_status := FND_API.G_RET_STS_ERROR ;
137: x_msg_data := 'Missing mandatory arguments';
138: return;
139: END IF;
140:
139: END IF;
140:
141: /* Entity Type should be 'LEGAL_ENTITY' or 'ESTABLISHMENT' */
142: IF p_entity_type NOT IN ('LEGAL_ENTITY','ESTABLISHMENT') then
143: x_return_status := FND_API.G_RET_STS_ERROR ;
144: x_msg_data := 'Misspelt mandatory arguments';
145: return;
146: end if;
147:
146: end if;
147:
148: /* Party ID or Entity ID is mandatory */
149: IF p_party_ID IS null AND p_entity_ID IS NULL THEN
150: x_return_status := FND_API.G_RET_STS_ERROR ;
151: x_msg_data := 'Please pass a value for Party ID or Entity ID.';
152: return;
153: ELSIF p_party_ID IS null and p_entity_ID is not null THEN
154: l_party_id := '%';
280: END IF;
281:
282: EXCEPTION
283: WHEN NO_DATA_FOUND THEN
284: x_return_status := FND_API.G_RET_STS_ERROR ;
285: x_msg_data := 'No data found for the given parameters.';
286:
287: WHEN FND_API.G_EXC_ERROR THEN
288: x_return_status := FND_API.G_RET_STS_ERROR ;
283: WHEN NO_DATA_FOUND THEN
284: x_return_status := FND_API.G_RET_STS_ERROR ;
285: x_msg_data := 'No data found for the given parameters.';
286:
287: WHEN FND_API.G_EXC_ERROR THEN
288: x_return_status := FND_API.G_RET_STS_ERROR ;
289: x_msg_data := 'No data found for the given parameters.';
290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
284: x_return_status := FND_API.G_RET_STS_ERROR ;
285: x_msg_data := 'No data found for the given parameters.';
286:
287: WHEN FND_API.G_EXC_ERROR THEN
288: x_return_status := FND_API.G_RET_STS_ERROR ;
289: x_msg_data := 'No data found for the given parameters.';
290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
292: x_msg_data := 'No data found for the given parameters.';
286:
287: WHEN FND_API.G_EXC_ERROR THEN
288: x_return_status := FND_API.G_RET_STS_ERROR ;
289: x_msg_data := 'No data found for the given parameters.';
290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
292: x_msg_data := 'No data found for the given parameters.';
293: WHEN OTHERS THEN
294: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
287: WHEN FND_API.G_EXC_ERROR THEN
288: x_return_status := FND_API.G_RET_STS_ERROR ;
289: x_msg_data := 'No data found for the given parameters.';
290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
292: x_msg_data := 'No data found for the given parameters.';
293: WHEN OTHERS THEN
294: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
295: x_msg_data := 'No data found for the given parameters.';
290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
292: x_msg_data := 'No data found for the given parameters.';
293: WHEN OTHERS THEN
294: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
295: x_msg_data := 'No data found for the given parameters.';
296: END Get_Registration_Info;
297:
298:
362: has to be passed */
363:
364: IF p_party_ID IS null AND p_establishment_ID IS NULL AND
365: p_legalentity_id IS NULL THEN
366: x_return_status := FND_API.G_RET_STS_ERROR ;
367: x_msg_data := 'Please pass a value for Party ID or Establishment ID or Legal Entity ID.';
368: return;
369: END IF;
370:
518:
519: END;
520:
521: x_msg_data := null;
522: x_return_status := FND_API.G_RET_STS_SUCCESS;
523:
524: EXCEPTION
525: WHEN NO_DATA_FOUND THEN
526: x_return_status := FND_API.G_RET_STS_ERROR ;
522: x_return_status := FND_API.G_RET_STS_SUCCESS;
523:
524: EXCEPTION
525: WHEN NO_DATA_FOUND THEN
526: x_return_status := FND_API.G_RET_STS_ERROR ;
527: x_msg_data := 'No data found for the given parameters.';
528: -- ROLLBACK TO Get_Establishment_Info;
529:
530: WHEN FND_API.G_EXC_ERROR THEN
526: x_return_status := FND_API.G_RET_STS_ERROR ;
527: x_msg_data := 'No data found for the given parameters.';
528: -- ROLLBACK TO Get_Establishment_Info;
529:
530: WHEN FND_API.G_EXC_ERROR THEN
531: x_return_status := FND_API.G_RET_STS_ERROR ;
532: x_msg_data := 'No data found for the given parameters.';
533: --ROLLBACK TO Get_Establishment_Info;
534: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
527: x_msg_data := 'No data found for the given parameters.';
528: -- ROLLBACK TO Get_Establishment_Info;
529:
530: WHEN FND_API.G_EXC_ERROR THEN
531: x_return_status := FND_API.G_RET_STS_ERROR ;
532: x_msg_data := 'No data found for the given parameters.';
533: --ROLLBACK TO Get_Establishment_Info;
534: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
535: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
530: WHEN FND_API.G_EXC_ERROR THEN
531: x_return_status := FND_API.G_RET_STS_ERROR ;
532: x_msg_data := 'No data found for the given parameters.';
533: --ROLLBACK TO Get_Establishment_Info;
534: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
535: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
536: x_msg_data := 'No data found for the given parameters.';
537: -- ROLLBACK TO Get_Establishment_Info;
538: WHEN OTHERS THEN
531: x_return_status := FND_API.G_RET_STS_ERROR ;
532: x_msg_data := 'No data found for the given parameters.';
533: --ROLLBACK TO Get_Establishment_Info;
534: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
535: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
536: x_msg_data := 'No data found for the given parameters.';
537: -- ROLLBACK TO Get_Establishment_Info;
538: WHEN OTHERS THEN
539: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
535: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
536: x_msg_data := 'No data found for the given parameters.';
537: -- ROLLBACK TO Get_Establishment_Info;
538: WHEN OTHERS THEN
539: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
540: x_msg_data := 'No data found for the given parameters.';
541: -- ROLLBACK TO Get_Establishment_Info;
542: END Get_Establishment_Info;
543:
579: -- SAVEPOINT Get_LegalEntity_Info;
580:
581: -- Initialize API return status to success
582:
583: x_return_status := FND_API.G_RET_STS_SUCCESS;
584:
585:
586: /* Mandatory arguments are missing. Either Party ID or Legal Entity ID
587: has to be passed */
586: /* Mandatory arguments are missing. Either Party ID or Legal Entity ID
587: has to be passed */
588:
589: IF p_party_ID IS null AND p_legalentity_id IS NULL THEN
590: x_return_status := FND_API.G_RET_STS_ERROR ;
591: x_msg_data := 'Please pass a value for Party ID or Legal Entity ID.';
592: return;
593: ELSIF p_party_ID IS null and p_legalentity_id is not null THEN
594:
721: x_legalentity_info.country := l_registration_info(1).country;
722:
723:
724: x_msg_data := null;
725: x_return_status := FND_API.G_RET_STS_SUCCESS;
726: EXCEPTION
727: WHEN NO_DATA_FOUND THEN
728: x_return_status := FND_API.G_RET_STS_ERROR ;
729: x_msg_data := 'No data found for the given parameters.';
724: x_msg_data := null;
725: x_return_status := FND_API.G_RET_STS_SUCCESS;
726: EXCEPTION
727: WHEN NO_DATA_FOUND THEN
728: x_return_status := FND_API.G_RET_STS_ERROR ;
729: x_msg_data := 'No data found for the given parameters.';
730: -- ROLLBACK TO Get_LegalEntity_Info;
731:
732: WHEN FND_API.G_EXC_ERROR THEN
728: x_return_status := FND_API.G_RET_STS_ERROR ;
729: x_msg_data := 'No data found for the given parameters.';
730: -- ROLLBACK TO Get_LegalEntity_Info;
731:
732: WHEN FND_API.G_EXC_ERROR THEN
733: x_return_status := FND_API.G_RET_STS_ERROR ;
734: x_msg_data := 'No data found for the given parameters.';
735: -- ROLLBACK TO Get_LegalEntity_Info;
736: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
729: x_msg_data := 'No data found for the given parameters.';
730: -- ROLLBACK TO Get_LegalEntity_Info;
731:
732: WHEN FND_API.G_EXC_ERROR THEN
733: x_return_status := FND_API.G_RET_STS_ERROR ;
734: x_msg_data := 'No data found for the given parameters.';
735: -- ROLLBACK TO Get_LegalEntity_Info;
736: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
737: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
732: WHEN FND_API.G_EXC_ERROR THEN
733: x_return_status := FND_API.G_RET_STS_ERROR ;
734: x_msg_data := 'No data found for the given parameters.';
735: -- ROLLBACK TO Get_LegalEntity_Info;
736: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
737: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
738: x_msg_data := 'No data found for the given parameters.';
739: -- ROLLBACK TO Get_LegalEntity_Info;
740: WHEN OTHERS THEN
733: x_return_status := FND_API.G_RET_STS_ERROR ;
734: x_msg_data := 'No data found for the given parameters.';
735: -- ROLLBACK TO Get_LegalEntity_Info;
736: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
737: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
738: x_msg_data := 'No data found for the given parameters.';
739: -- ROLLBACK TO Get_LegalEntity_Info;
740: WHEN OTHERS THEN
741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
737: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
738: x_msg_data := 'No data found for the given parameters.';
739: -- ROLLBACK TO Get_LegalEntity_Info;
740: WHEN OTHERS THEN
741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
742: x_msg_data := 'No data found for the given parameters.';
743: -- ROLLBACK TO Get_LegalEntity_Info;
744: END Get_LegalEntity_Info;
745:
798: rowcount_flag boolean := false;
799:
800: BEGIN
801: -- Initialize API return status to success
802: x_return_status := FND_API.G_RET_STS_SUCCESS;
803:
804: IF P_ENTITY_ID IS null OR P_ENTITY_TYPE IS NULL THEN
805: x_msg_data := 'Missing Mandatory Arguments.';
806: return;
881: END IF;
882:
883: EXCEPTION
884: WHEN NO_DATA_FOUND THEN
885: x_return_status := FND_API.G_RET_STS_ERROR ;
886: x_msg_data := 'No data found for the given parameters.';
887:
888: WHEN FND_API.G_EXC_ERROR THEN
889: x_return_status := FND_API.G_RET_STS_ERROR ;
884: WHEN NO_DATA_FOUND THEN
885: x_return_status := FND_API.G_RET_STS_ERROR ;
886: x_msg_data := 'No data found for the given parameters.';
887:
888: WHEN FND_API.G_EXC_ERROR THEN
889: x_return_status := FND_API.G_RET_STS_ERROR ;
890: x_msg_data := 'No data found for the given parameters.';
891: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
885: x_return_status := FND_API.G_RET_STS_ERROR ;
886: x_msg_data := 'No data found for the given parameters.';
887:
888: WHEN FND_API.G_EXC_ERROR THEN
889: x_return_status := FND_API.G_RET_STS_ERROR ;
890: x_msg_data := 'No data found for the given parameters.';
891: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
893: x_msg_data := 'No data found for the given parameters.';
887:
888: WHEN FND_API.G_EXC_ERROR THEN
889: x_return_status := FND_API.G_RET_STS_ERROR ;
890: x_msg_data := 'No data found for the given parameters.';
891: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
893: x_msg_data := 'No data found for the given parameters.';
894: WHEN OTHERS THEN
895: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
888: WHEN FND_API.G_EXC_ERROR THEN
889: x_return_status := FND_API.G_RET_STS_ERROR ;
890: x_msg_data := 'No data found for the given parameters.';
891: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
893: x_msg_data := 'No data found for the given parameters.';
894: WHEN OTHERS THEN
895: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
896: x_msg_data := 'No data found for the given parameters.';
891: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
893: x_msg_data := 'No data found for the given parameters.';
894: WHEN OTHERS THEN
895: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
896: x_msg_data := 'No data found for the given parameters.';
897:
898: END Get_History_Info;
899:
974:
975: BEGIN
976:
977: IF p_init_msg_list IS NULL THEN
978: l_init_msg_list := FND_API.G_FALSE;
979: ELSE
980: l_init_msg_list := p_init_msg_list;
981: END IF;
982:
981: END IF;
982:
983: -- Standard call to check for call compatibility.
984:
985: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
986: p_api_version ,
987: l_api_name ,
988: G_PKG_NAME )
989: THEN
986: p_api_version ,
987: l_api_name ,
988: G_PKG_NAME )
989: THEN
990: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
991: END IF;
992: -- Initialize message list if p_init_msg_list is set to TRUE.
993:
994: IF FND_API.to_Boolean( l_init_msg_list ) THEN
990: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
991: END IF;
992: -- Initialize message list if p_init_msg_list is set to TRUE.
993:
994: IF FND_API.to_Boolean( l_init_msg_list ) THEN
995: FND_MSG_PUB.initialize;
996: END IF;
997:
998: -- Initialize API return status to success
996: END IF;
997:
998: -- Initialize API return status to success
999:
1000: x_return_status := FND_API.G_RET_STS_SUCCESS;
1001:
1002: -- API body
1003:
1004: -- Waiting for Ledger API.
1017:
1018: EXCEPTION
1019:
1020: WHEN NO_DATA_FOUND THEN
1021: x_return_status := FND_API.G_RET_STS_ERROR ;
1022: x_msg_data := 'The Party ' || p_party_id ||
1023: ' does not have a Legal Entity associated with it.';
1024:
1025: WHEN TOO_MANY_ROWS THEN
1022: x_msg_data := 'The Party ' || p_party_id ||
1023: ' does not have a Legal Entity associated with it.';
1024:
1025: WHEN TOO_MANY_ROWS THEN
1026: x_return_status := FND_API.G_RET_STS_ERROR ;
1027: x_msg_data := 'The Party ' || p_party_id ||
1028: ' is associated with more than one Legal Entity.';
1029:
1030: WHEN FND_API.G_EXC_ERROR THEN
1026: x_return_status := FND_API.G_RET_STS_ERROR ;
1027: x_msg_data := 'The Party ' || p_party_id ||
1028: ' is associated with more than one Legal Entity.';
1029:
1030: WHEN FND_API.G_EXC_ERROR THEN
1031: x_return_status := FND_API.G_RET_STS_ERROR ;
1032: FND_MSG_PUB.Count_And_Get
1033: ( p_count => x_msg_count ,
1034: p_data => x_msg_data
1027: x_msg_data := 'The Party ' || p_party_id ||
1028: ' is associated with more than one Legal Entity.';
1029:
1030: WHEN FND_API.G_EXC_ERROR THEN
1031: x_return_status := FND_API.G_RET_STS_ERROR ;
1032: FND_MSG_PUB.Count_And_Get
1033: ( p_count => x_msg_count ,
1034: p_data => x_msg_data
1035: );
1032: FND_MSG_PUB.Count_And_Get
1033: ( p_count => x_msg_count ,
1034: p_data => x_msg_data
1035: );
1036: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1037: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1038: FND_MSG_PUB.Count_And_Get
1039: ( p_count => x_msg_count ,
1040: p_data => x_msg_data
1033: ( p_count => x_msg_count ,
1034: p_data => x_msg_data
1035: );
1036: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1037: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1038: FND_MSG_PUB.Count_And_Get
1039: ( p_count => x_msg_count ,
1040: p_data => x_msg_data
1041: );
1039: ( p_count => x_msg_count ,
1040: p_data => x_msg_data
1041: );
1042: WHEN OTHERS THEN
1043: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1044: IF FND_MSG_PUB.Check_Msg_Level
1045: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1046: THEN
1047: FND_MSG_PUB.Add_Exc_Msg
1083: l_exists := FALSE;
1084: l_index := 0;
1085:
1086: IF p_init_msg_list IS NULL THEN
1087: l_init_msg_list := FND_API.G_FALSE;
1088: ELSE
1089: l_init_msg_list := p_init_msg_list;
1090: END IF;
1091:
1090: END IF;
1091:
1092:
1093: -- Standard call to check for call compatibility.
1094: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1095: p_api_version ,
1096: l_api_name ,
1097: G_PKG_NAME )
1098: THEN
1095: p_api_version ,
1096: l_api_name ,
1097: G_PKG_NAME )
1098: THEN
1099: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1100: END IF;
1101: -- Initialize message list if p_init_msg_list is set to TRUE.
1102:
1103: IF FND_API.to_Boolean( l_init_msg_list ) THEN
1099: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1100: END IF;
1101: -- Initialize message list if p_init_msg_list is set to TRUE.
1102:
1103: IF FND_API.to_Boolean( l_init_msg_list ) THEN
1104: FND_MSG_PUB.initialize;
1105: END IF;
1106:
1107: -- Initialize API return status to success
1105: END IF;
1106:
1107: -- Initialize API return status to success
1108:
1109: x_return_status := FND_API.G_RET_STS_SUCCESS;
1110:
1111: -- API body
1112:
1113: l_ledger_id := p_ledger_id;
1159:
1160: EXCEPTION
1161:
1162: WHEN NO_DATA_FOUND THEN
1163: x_return_status := FND_API.G_RET_STS_ERROR ;
1164: x_msg_data := 'Could not find an associated Country Code for Ledger ID : ' || p_ledger_id;
1165:
1166: WHEN TOO_MANY_ROWS THEN
1167: x_return_status := FND_API.G_RET_STS_ERROR ;
1163: x_return_status := FND_API.G_RET_STS_ERROR ;
1164: x_msg_data := 'Could not find an associated Country Code for Ledger ID : ' || p_ledger_id;
1165:
1166: WHEN TOO_MANY_ROWS THEN
1167: x_return_status := FND_API.G_RET_STS_ERROR ;
1168: x_msg_data := 'Ledger ID : '|| p_ledger_id || ' has more than one Country Code associated with it.';
1169: RAISE FND_API.G_EXC_ERROR;
1170:
1171: WHEN FND_API.G_EXC_ERROR THEN
1165:
1166: WHEN TOO_MANY_ROWS THEN
1167: x_return_status := FND_API.G_RET_STS_ERROR ;
1168: x_msg_data := 'Ledger ID : '|| p_ledger_id || ' has more than one Country Code associated with it.';
1169: RAISE FND_API.G_EXC_ERROR;
1170:
1171: WHEN FND_API.G_EXC_ERROR THEN
1172: x_return_status := FND_API.G_RET_STS_ERROR ;
1173: FND_MSG_PUB.Count_And_Get
1167: x_return_status := FND_API.G_RET_STS_ERROR ;
1168: x_msg_data := 'Ledger ID : '|| p_ledger_id || ' has more than one Country Code associated with it.';
1169: RAISE FND_API.G_EXC_ERROR;
1170:
1171: WHEN FND_API.G_EXC_ERROR THEN
1172: x_return_status := FND_API.G_RET_STS_ERROR ;
1173: FND_MSG_PUB.Count_And_Get
1174: ( p_count => x_msg_count ,
1175: p_data => x_msg_data
1168: x_msg_data := 'Ledger ID : '|| p_ledger_id || ' has more than one Country Code associated with it.';
1169: RAISE FND_API.G_EXC_ERROR;
1170:
1171: WHEN FND_API.G_EXC_ERROR THEN
1172: x_return_status := FND_API.G_RET_STS_ERROR ;
1173: FND_MSG_PUB.Count_And_Get
1174: ( p_count => x_msg_count ,
1175: p_data => x_msg_data
1176: );
1173: FND_MSG_PUB.Count_And_Get
1174: ( p_count => x_msg_count ,
1175: p_data => x_msg_data
1176: );
1177: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1178: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1179: FND_MSG_PUB.Count_And_Get
1180: ( p_count => x_msg_count ,
1181: p_data => x_msg_data
1174: ( p_count => x_msg_count ,
1175: p_data => x_msg_data
1176: );
1177: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1178: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1179: FND_MSG_PUB.Count_And_Get
1180: ( p_count => x_msg_count ,
1181: p_data => x_msg_data
1182: );
1180: ( p_count => x_msg_count ,
1181: p_data => x_msg_data
1182: );
1183: WHEN OTHERS THEN
1184: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1185: IF FND_MSG_PUB.Check_Msg_Level
1186: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1187: THEN
1188: FND_MSG_PUB.Add_Exc_Msg
1223:
1224: l_index := 0;
1225:
1226: IF p_init_msg_list IS NULL THEN
1227: l_init_msg_list := FND_API.G_FALSE;
1228: ELSE
1229: l_init_msg_list := p_init_msg_list;
1230: END IF;
1231:
1230: END IF;
1231:
1232:
1233: -- Standard call to check for call compatibility.
1234: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1235: p_api_version ,
1236: l_api_name ,
1237: G_PKG_NAME )
1238: THEN
1235: p_api_version ,
1236: l_api_name ,
1237: G_PKG_NAME )
1238: THEN
1239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1240: END IF;
1241: -- Initialize message list if p_init_msg_list is set to TRUE.
1242:
1243: IF FND_API.to_Boolean( l_init_msg_list ) THEN
1239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1240: END IF;
1241: -- Initialize message list if p_init_msg_list is set to TRUE.
1242:
1243: IF FND_API.to_Boolean( l_init_msg_list ) THEN
1244: FND_MSG_PUB.initialize;
1245: END IF;
1246:
1247: -- Initialize API return status to success
1245: END IF;
1246:
1247: -- Initialize API return status to success
1248:
1249: x_return_status := FND_API.G_RET_STS_SUCCESS;
1250:
1251: -- API body
1252:
1253:
1269: AND reg.location_id = hrl.location_id
1270: AND xlep.legal_entity_id = l_legal_entity_id;
1271: ELSE
1272: x_country_code := null;
1273: x_return_status := FND_API.G_RET_STS_ERROR;
1274: x_msg_data := 'The Operating Unit is not associated with a Legal Entity.';
1275: END IF;
1276:
1277: EXCEPTION
1275: END IF;
1276:
1277: EXCEPTION
1278: WHEN NO_DATA_FOUND THEN
1279: x_return_status := FND_API.G_RET_STS_ERROR ;
1280: x_msg_data := 'Could not find an associated Country Code for the Legal Entity : ' || l_legal_entity_id;
1281: RAISE FND_API.G_EXC_ERROR;
1282:
1283: WHEN TOO_MANY_ROWS THEN
1277: EXCEPTION
1278: WHEN NO_DATA_FOUND THEN
1279: x_return_status := FND_API.G_RET_STS_ERROR ;
1280: x_msg_data := 'Could not find an associated Country Code for the Legal Entity : ' || l_legal_entity_id;
1281: RAISE FND_API.G_EXC_ERROR;
1282:
1283: WHEN TOO_MANY_ROWS THEN
1284: x_return_status := FND_API.G_RET_STS_ERROR ;
1285: x_msg_data := 'The Legal Entity : ' || l_legal_entity_id || ' is associated with more than one Country';
1280: x_msg_data := 'Could not find an associated Country Code for the Legal Entity : ' || l_legal_entity_id;
1281: RAISE FND_API.G_EXC_ERROR;
1282:
1283: WHEN TOO_MANY_ROWS THEN
1284: x_return_status := FND_API.G_RET_STS_ERROR ;
1285: x_msg_data := 'The Legal Entity : ' || l_legal_entity_id || ' is associated with more than one Country';
1286: RAISE FND_API.G_EXC_ERROR;
1287:
1288: END;
1282:
1283: WHEN TOO_MANY_ROWS THEN
1284: x_return_status := FND_API.G_RET_STS_ERROR ;
1285: x_msg_data := 'The Legal Entity : ' || l_legal_entity_id || ' is associated with more than one Country';
1286: RAISE FND_API.G_EXC_ERROR;
1287:
1288: END;
1289:
1290: -- End of API body.
1295: );
1296:
1297: EXCEPTION
1298:
1299: WHEN FND_API.G_EXC_ERROR THEN
1300: x_return_status := FND_API.G_RET_STS_ERROR ;
1301: FND_MSG_PUB.Count_And_Get
1302: ( p_count => x_msg_count ,
1303: p_data => x_msg_data
1296:
1297: EXCEPTION
1298:
1299: WHEN FND_API.G_EXC_ERROR THEN
1300: x_return_status := FND_API.G_RET_STS_ERROR ;
1301: FND_MSG_PUB.Count_And_Get
1302: ( p_count => x_msg_count ,
1303: p_data => x_msg_data
1304: );
1301: FND_MSG_PUB.Count_And_Get
1302: ( p_count => x_msg_count ,
1303: p_data => x_msg_data
1304: );
1305: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1306: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1307: FND_MSG_PUB.Count_And_Get
1308: ( p_count => x_msg_count ,
1309: p_data => x_msg_data
1302: ( p_count => x_msg_count ,
1303: p_data => x_msg_data
1304: );
1305: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1306: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1307: FND_MSG_PUB.Count_And_Get
1308: ( p_count => x_msg_count ,
1309: p_data => x_msg_data
1310: );
1308: ( p_count => x_msg_count ,
1309: p_data => x_msg_data
1310: );
1311: WHEN OTHERS THEN
1312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1313: IF FND_MSG_PUB.Check_Msg_Level
1314: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1315: THEN
1316: FND_MSG_PUB.Add_Exc_Msg
1348: -- Standard Start of API savepoint
1349:
1350:
1351: IF p_init_msg_list IS NULL THEN
1352: l_init_msg_list := FND_API.G_FALSE;
1353: ELSE
1354: l_init_msg_list := p_init_msg_list;
1355: END IF;
1356:
1356:
1357:
1358: -- Standard call to check for call compatibility.
1359:
1360: IF NOT FND_API.Compatible_API_Call (l_api_version,
1361: p_api_version,
1362: l_api_name,
1363: G_PKG_NAME )
1364: THEN
1361: p_api_version,
1362: l_api_name,
1363: G_PKG_NAME )
1364: THEN
1365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1366: END IF;
1367: -- Initialize message list if p_init_msg_list is set to TRUE.
1368:
1369: IF FND_API.to_Boolean( l_init_msg_list ) THEN
1365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1366: END IF;
1367: -- Initialize message list if p_init_msg_list is set to TRUE.
1368:
1369: IF FND_API.to_Boolean( l_init_msg_list ) THEN
1370: FND_MSG_PUB.initialize;
1371: END IF;
1372:
1373: -- Initialize API return status to success
1371: END IF;
1372:
1373: -- Initialize API return status to success
1374:
1375: x_return_status := FND_API.G_RET_STS_SUCCESS;
1376:
1377: -- API body
1378:
1379: l_establishment_flag := 'N';
1391:
1392: END;
1393:
1394: IF l_establishment_flag = 'Y' THEN
1395: x_establishment := FND_API.G_TRUE;
1396: ELSE
1397: x_establishment := FND_API.G_FALSE;
1398: END IF;
1399:
1393:
1394: IF l_establishment_flag = 'Y' THEN
1395: x_establishment := FND_API.G_TRUE;
1396: ELSE
1397: x_establishment := FND_API.G_FALSE;
1398: END IF;
1399:
1400:
1401: -- End of API body.
1408:
1409: EXCEPTION
1410:
1411:
1412: WHEN FND_API.G_EXC_ERROR THEN
1413: x_return_status := FND_API.G_RET_STS_ERROR ;
1414: FND_MSG_PUB.Count_And_Get
1415: ( p_count => x_msg_count ,
1416: p_data => x_msg_data
1409: EXCEPTION
1410:
1411:
1412: WHEN FND_API.G_EXC_ERROR THEN
1413: x_return_status := FND_API.G_RET_STS_ERROR ;
1414: FND_MSG_PUB.Count_And_Get
1415: ( p_count => x_msg_count ,
1416: p_data => x_msg_data
1417: );
1414: FND_MSG_PUB.Count_And_Get
1415: ( p_count => x_msg_count ,
1416: p_data => x_msg_data
1417: );
1418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1420: FND_MSG_PUB.Count_And_Get
1421: ( p_count => x_msg_count ,
1422: p_data => x_msg_data
1415: ( p_count => x_msg_count ,
1416: p_data => x_msg_data
1417: );
1418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1420: FND_MSG_PUB.Count_And_Get
1421: ( p_count => x_msg_count ,
1422: p_data => x_msg_data
1423: );
1421: ( p_count => x_msg_count ,
1422: p_data => x_msg_data
1423: );
1424: WHEN OTHERS THEN
1425: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1426: IF FND_MSG_PUB.Check_Msg_Level
1427: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1428: THEN
1429: FND_MSG_PUB.Add_Exc_Msg
1461:
1462: l_TransEntity := null;
1463:
1464: IF p_init_msg_list IS NULL THEN
1465: l_init_msg_list := FND_API.G_FALSE;
1466: ELSE
1467: l_init_msg_list := p_init_msg_list;
1468: END IF;
1469:
1468: END IF;
1469:
1470:
1471: -- Standard call to check for call compatibility.
1472: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1473: p_api_version ,
1474: l_api_name ,
1475: G_PKG_NAME )
1476: THEN
1473: p_api_version ,
1474: l_api_name ,
1475: G_PKG_NAME )
1476: THEN
1477: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1478: END IF;
1479: -- Initialize message list if p_init_msg_list is set to TRUE.
1480:
1481: IF FND_API.to_Boolean( l_init_msg_list ) THEN
1477: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1478: END IF;
1479: -- Initialize message list if p_init_msg_list is set to TRUE.
1480:
1481: IF FND_API.to_Boolean( l_init_msg_list ) THEN
1482: FND_MSG_PUB.initialize;
1483: END IF;
1484:
1485: -- Initialize API return status to success
1482: FND_MSG_PUB.initialize;
1483: END IF;
1484:
1485: -- Initialize API return status to success
1486: x_return_status := FND_API.G_RET_STS_SUCCESS;
1487:
1488: -- API body
1489: BEGIN
1490: SELECT transacting_entity_flag
1497:
1498: END;
1499:
1500: IF l_TransEntity = 'Y' THEN
1501: x_TransEntity := FND_API.G_TRUE;
1502: ELSE
1503: x_TransEntity := FND_API.G_FALSE;
1504: END IF;
1505:
1499:
1500: IF l_TransEntity = 'Y' THEN
1501: x_TransEntity := FND_API.G_TRUE;
1502: ELSE
1503: x_TransEntity := FND_API.G_FALSE;
1504: END IF;
1505:
1506: -- End of API body.
1507: -- Standard call to get message count and if count is 1, get message info.
1513:
1514: EXCEPTION
1515:
1516: WHEN NO_DATA_FOUND THEN
1517: x_return_status := FND_API.G_RET_STS_ERROR ;
1518: x_msg_data := 'The Party ID ' || p_party_id || ' is not associated with a Legal Entity.' ;
1519:
1520: WHEN FND_API.G_EXC_ERROR THEN
1521: x_return_status := FND_API.G_RET_STS_ERROR ;
1516: WHEN NO_DATA_FOUND THEN
1517: x_return_status := FND_API.G_RET_STS_ERROR ;
1518: x_msg_data := 'The Party ID ' || p_party_id || ' is not associated with a Legal Entity.' ;
1519:
1520: WHEN FND_API.G_EXC_ERROR THEN
1521: x_return_status := FND_API.G_RET_STS_ERROR ;
1522: FND_MSG_PUB.Count_And_Get
1523: ( p_count => x_msg_count ,
1524: p_data => x_msg_data
1517: x_return_status := FND_API.G_RET_STS_ERROR ;
1518: x_msg_data := 'The Party ID ' || p_party_id || ' is not associated with a Legal Entity.' ;
1519:
1520: WHEN FND_API.G_EXC_ERROR THEN
1521: x_return_status := FND_API.G_RET_STS_ERROR ;
1522: FND_MSG_PUB.Count_And_Get
1523: ( p_count => x_msg_count ,
1524: p_data => x_msg_data
1525: );
1522: FND_MSG_PUB.Count_And_Get
1523: ( p_count => x_msg_count ,
1524: p_data => x_msg_data
1525: );
1526: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1528: FND_MSG_PUB.Count_And_Get
1529: ( p_count => x_msg_count ,
1530: p_data => x_msg_data
1523: ( p_count => x_msg_count ,
1524: p_data => x_msg_data
1525: );
1526: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1528: FND_MSG_PUB.Count_And_Get
1529: ( p_count => x_msg_count ,
1530: p_data => x_msg_data
1531: );
1529: ( p_count => x_msg_count ,
1530: p_data => x_msg_data
1531: );
1532: WHEN OTHERS THEN
1533: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1534: IF FND_MSG_PUB.Check_Msg_Level
1535: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1536: THEN
1537: FND_MSG_PUB.Add_Exc_Msg
1573:
1574: l_index := 0;
1575:
1576: IF p_init_msg_list IS NULL THEN
1577: l_init_msg_list := FND_API.G_FALSE;
1578: ELSE
1579: l_init_msg_list := p_init_msg_list;
1580: END IF;
1581:
1580: END IF;
1581:
1582:
1583: -- Standard call to check for call compatibility.
1584: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1585: p_api_version ,
1586: l_api_name ,
1587: G_PKG_NAME )
1588: THEN
1585: p_api_version ,
1586: l_api_name ,
1587: G_PKG_NAME )
1588: THEN
1589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1590: END IF;
1591: -- Initialize message list if p_init_msg_list is set to TRUE.
1592:
1593: IF FND_API.to_Boolean( l_init_msg_list ) THEN
1589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1590: END IF;
1591: -- Initialize message list if p_init_msg_list is set to TRUE.
1592:
1593: IF FND_API.to_Boolean( l_init_msg_list ) THEN
1594: FND_MSG_PUB.initialize;
1595: END IF;
1596:
1597: -- Initialize API return status to success
1594: FND_MSG_PUB.initialize;
1595: END IF;
1596:
1597: -- Initialize API return status to success
1598: x_return_status := FND_API.G_RET_STS_SUCCESS;
1599:
1600: -- API body
1601:
1602: BEGIN
1612: AND O2.ORG_INFORMATION2 = 'Y'
1613: AND o.organization_id = p_operating_unit;
1614: EXCEPTION
1615: WHEN NO_DATA_FOUND THEN
1616: x_return_status := FND_API.G_RET_STS_ERROR ;
1617: x_msg_data := 'The Operating Unit : ' || p_operating_unit || ' is not associated with a Ledger ID.';
1618: RAISE FND_API.G_EXC_ERROR;
1619:
1620: WHEN TOO_MANY_ROWS THEN
1614: EXCEPTION
1615: WHEN NO_DATA_FOUND THEN
1616: x_return_status := FND_API.G_RET_STS_ERROR ;
1617: x_msg_data := 'The Operating Unit : ' || p_operating_unit || ' is not associated with a Ledger ID.';
1618: RAISE FND_API.G_EXC_ERROR;
1619:
1620: WHEN TOO_MANY_ROWS THEN
1621: x_return_status := FND_API.G_RET_STS_ERROR ;
1622: x_msg_data := 'The Operating Unit : ' || p_operating_unit || ' is associated with more than one Ledger ID.';
1617: x_msg_data := 'The Operating Unit : ' || p_operating_unit || ' is not associated with a Ledger ID.';
1618: RAISE FND_API.G_EXC_ERROR;
1619:
1620: WHEN TOO_MANY_ROWS THEN
1621: x_return_status := FND_API.G_RET_STS_ERROR ;
1622: x_msg_data := 'The Operating Unit : ' || p_operating_unit || ' is associated with more than one Ledger ID.';
1623: RAISE FND_API.G_EXC_ERROR;
1624: END;
1625:
1619:
1620: WHEN TOO_MANY_ROWS THEN
1621: x_return_status := FND_API.G_RET_STS_ERROR ;
1622: x_msg_data := 'The Operating Unit : ' || p_operating_unit || ' is associated with more than one Ledger ID.';
1623: RAISE FND_API.G_EXC_ERROR;
1624: END;
1625:
1626:
1627: l_ledger_flag := GL_MC_INFO.get_legal_entities(
1643:
1644: END LOOP;
1645: EXCEPTION
1646: WHEN NO_DATA_FOUND THEN
1647: x_return_status := FND_API.G_RET_STS_ERROR ;
1648: x_msg_data := 'The Legal Entity : ' || l_legal_entity_id || ' does not have an associated Party ID.';
1649: RAISE FND_API.G_EXC_ERROR;
1650:
1651: WHEN TOO_MANY_ROWS THEN
1645: EXCEPTION
1646: WHEN NO_DATA_FOUND THEN
1647: x_return_status := FND_API.G_RET_STS_ERROR ;
1648: x_msg_data := 'The Legal Entity : ' || l_legal_entity_id || ' does not have an associated Party ID.';
1649: RAISE FND_API.G_EXC_ERROR;
1650:
1651: WHEN TOO_MANY_ROWS THEN
1652: x_return_status := FND_API.G_RET_STS_ERROR ;
1653: x_msg_data := 'The Legal Entity : ' || l_legal_entity_id || ' is associated with more than one Party ID.';
1648: x_msg_data := 'The Legal Entity : ' || l_legal_entity_id || ' does not have an associated Party ID.';
1649: RAISE FND_API.G_EXC_ERROR;
1650:
1651: WHEN TOO_MANY_ROWS THEN
1652: x_return_status := FND_API.G_RET_STS_ERROR ;
1653: x_msg_data := 'The Legal Entity : ' || l_legal_entity_id || ' is associated with more than one Party ID.';
1654: RAISE FND_API.G_EXC_ERROR;
1655: END;
1656: -- End of API body.
1650:
1651: WHEN TOO_MANY_ROWS THEN
1652: x_return_status := FND_API.G_RET_STS_ERROR ;
1653: x_msg_data := 'The Legal Entity : ' || l_legal_entity_id || ' is associated with more than one Party ID.';
1654: RAISE FND_API.G_EXC_ERROR;
1655: END;
1656: -- End of API body.
1657:
1658: -- Standard call to get message count and if count is 1, get message info.
1662: );
1663:
1664: EXCEPTION
1665:
1666: WHEN FND_API.G_EXC_ERROR THEN
1667: x_return_status := FND_API.G_RET_STS_ERROR ;
1668: FND_MSG_PUB.Count_And_Get
1669: ( p_count => x_msg_count ,
1670: p_data => x_msg_data
1663:
1664: EXCEPTION
1665:
1666: WHEN FND_API.G_EXC_ERROR THEN
1667: x_return_status := FND_API.G_RET_STS_ERROR ;
1668: FND_MSG_PUB.Count_And_Get
1669: ( p_count => x_msg_count ,
1670: p_data => x_msg_data
1671: );
1668: FND_MSG_PUB.Count_And_Get
1669: ( p_count => x_msg_count ,
1670: p_data => x_msg_data
1671: );
1672: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1673: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1674: FND_MSG_PUB.Count_And_Get
1675: ( p_count => x_msg_count ,
1676: p_data => x_msg_data
1669: ( p_count => x_msg_count ,
1670: p_data => x_msg_data
1671: );
1672: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1673: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1674: FND_MSG_PUB.Count_And_Get
1675: ( p_count => x_msg_count ,
1676: p_data => x_msg_data
1677: );
1675: ( p_count => x_msg_count ,
1676: p_data => x_msg_data
1677: );
1678: WHEN OTHERS THEN
1679: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1680: IF FND_MSG_PUB.Check_Msg_Level
1681: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1682: THEN
1683: FND_MSG_PUB.Add_Exc_Msg
1714:
1715: BEGIN
1716:
1717: IF p_init_msg_list IS NULL THEN
1718: l_init_msg_list := FND_API.G_FALSE;
1719: ELSE
1720: l_init_msg_list := p_init_msg_list;
1721: END IF;
1722:
1721: END IF;
1722:
1723:
1724: -- Standard call to check for call compatibility.
1725: IF NOT FND_API.Compatible_API_Call (l_api_version,
1726: p_api_version,
1727: l_api_name,
1728: G_PKG_NAME )
1729: THEN
1726: p_api_version,
1727: l_api_name,
1728: G_PKG_NAME )
1729: THEN
1730: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1731: END IF;
1732: -- Initialize message list if p_init_msg_list is set to TRUE.
1733:
1734: IF FND_API.to_Boolean( l_init_msg_list ) THEN
1730: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1731: END IF;
1732: -- Initialize message list if p_init_msg_list is set to TRUE.
1733:
1734: IF FND_API.to_Boolean( l_init_msg_list ) THEN
1735: FND_MSG_PUB.initialize;
1736: END IF;
1737:
1738: -- Initialize API return status to success
1735: FND_MSG_PUB.initialize;
1736: END IF;
1737:
1738: -- Initialize API return status to success
1739: x_return_status := FND_API.G_RET_STS_SUCCESS;
1740:
1741: -- It is assumed that all LEs can interact with all LEs unless
1742: -- an exception has been explicitly defined
1743: -- Bug 4724057, Related LE functionality will now be used
1767:
1768:
1769: EXCEPTION
1770:
1771: WHEN FND_API.G_EXC_ERROR THEN
1772: x_return_status := FND_API.G_RET_STS_ERROR ;
1773: FND_MSG_PUB.Count_And_Get
1774: (p_count => x_msg_count,
1775: p_data => x_msg_data);
1768:
1769: EXCEPTION
1770:
1771: WHEN FND_API.G_EXC_ERROR THEN
1772: x_return_status := FND_API.G_RET_STS_ERROR ;
1773: FND_MSG_PUB.Count_And_Get
1774: (p_count => x_msg_count,
1775: p_data => x_msg_data);
1776: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1772: x_return_status := FND_API.G_RET_STS_ERROR ;
1773: FND_MSG_PUB.Count_And_Get
1774: (p_count => x_msg_count,
1775: p_data => x_msg_data);
1776: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1777: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1778: FND_MSG_PUB.Count_And_Get
1779: (p_count => x_msg_count,
1780: p_data => x_msg_data);
1773: FND_MSG_PUB.Count_And_Get
1774: (p_count => x_msg_count,
1775: p_data => x_msg_data);
1776: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1777: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1778: FND_MSG_PUB.Count_And_Get
1779: (p_count => x_msg_count,
1780: p_data => x_msg_data);
1781: WHEN OTHERS THEN
1778: FND_MSG_PUB.Count_And_Get
1779: (p_count => x_msg_count,
1780: p_data => x_msg_data);
1781: WHEN OTHERS THEN
1782: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1783: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1784: THEN
1785: FND_MSG_PUB.Add_Exc_Msg
1786: (G_PKG_NAME ,
1815: -- Standard Start of API savepoint
1816:
1817:
1818: IF p_init_msg_list IS NULL THEN
1819: l_init_msg_list := FND_API.G_FALSE;
1820: ELSE
1821: l_init_msg_list := p_init_msg_list;
1822: END IF;
1823:
1822: END IF;
1823:
1824:
1825: -- Standard call to check for call compatibility.
1826: IF NOT FND_API.Compatible_API_Call (l_api_version,
1827: p_api_version,
1828: l_api_name,
1829: G_PKG_NAME )
1830: THEN
1827: p_api_version,
1828: l_api_name,
1829: G_PKG_NAME )
1830: THEN
1831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1832: END IF;
1833: -- Initialize message list if p_init_msg_list is set to TRUE.
1834:
1835: IF FND_API.to_Boolean( l_init_msg_list ) THEN
1831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1832: END IF;
1833: -- Initialize message list if p_init_msg_list is set to TRUE.
1834:
1835: IF FND_API.to_Boolean( l_init_msg_list ) THEN
1836: FND_MSG_PUB.initialize;
1837: END IF;
1838:
1839: -- Initialize API return status to success
1836: FND_MSG_PUB.initialize;
1837: END IF;
1838:
1839: -- Initialize API return status to success
1840: x_return_status := FND_API.G_RET_STS_SUCCESS;
1841:
1842: -- Start of API body.
1843:
1844: BEGIN
1852: AND TRUNC(NVL(main_effective_to,sysdate));
1853:
1854: EXCEPTION
1855: WHEN NO_DATA_FOUND THEN
1856: x_return_status := FND_API.G_RET_STS_ERROR ;
1857: x_msg_data := 'There exists no legal entity with ID ' || p_legal_entity_id;
1858: RAISE FND_API.G_EXC_ERROR;
1859:
1860: END;
1854: EXCEPTION
1855: WHEN NO_DATA_FOUND THEN
1856: x_return_status := FND_API.G_RET_STS_ERROR ;
1857: x_msg_data := 'There exists no legal entity with ID ' || p_legal_entity_id;
1858: RAISE FND_API.G_EXC_ERROR;
1859:
1860: END;
1861:
1862: x_return_status := FND_API.G_RET_STS_SUCCESS;
1858: RAISE FND_API.G_EXC_ERROR;
1859:
1860: END;
1861:
1862: x_return_status := FND_API.G_RET_STS_SUCCESS;
1863:
1864: -- End of API body.
1865:
1866: -- Standard call to get message count and if count is 1, get message info.
1871:
1872:
1873: EXCEPTION
1874:
1875: WHEN FND_API.G_EXC_ERROR THEN
1876: x_return_status := FND_API.G_RET_STS_ERROR ;
1877: FND_MSG_PUB.Count_And_Get
1878: ( p_count => x_msg_count ,
1879: p_data => x_msg_data
1872:
1873: EXCEPTION
1874:
1875: WHEN FND_API.G_EXC_ERROR THEN
1876: x_return_status := FND_API.G_RET_STS_ERROR ;
1877: FND_MSG_PUB.Count_And_Get
1878: ( p_count => x_msg_count ,
1879: p_data => x_msg_data
1880: );
1877: FND_MSG_PUB.Count_And_Get
1878: ( p_count => x_msg_count ,
1879: p_data => x_msg_data
1880: );
1881: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1882: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1883: FND_MSG_PUB.Count_And_Get
1884: ( p_count => x_msg_count ,
1885: p_data => x_msg_data
1878: ( p_count => x_msg_count ,
1879: p_data => x_msg_data
1880: );
1881: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1882: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1883: FND_MSG_PUB.Count_And_Get
1884: ( p_count => x_msg_count ,
1885: p_data => x_msg_data
1886: );
1884: ( p_count => x_msg_count ,
1885: p_data => x_msg_data
1886: );
1887: WHEN OTHERS THEN
1888: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1889: IF FND_MSG_PUB.Check_Msg_Level
1890: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1891: THEN
1892: FND_MSG_PUB.Add_Exc_Msg
1937:
1938: l_index := 0;
1939:
1940: IF p_init_msg_list IS NULL THEN
1941: l_init_msg_list := FND_API.G_FALSE;
1942: ELSE
1943: l_init_msg_list := p_init_msg_list;
1944: END IF;
1945:
1944: END IF;
1945:
1946:
1947: -- Standard call to check for call compatibility.
1948: IF NOT FND_API.Compatible_API_Call (l_api_version,
1949: p_api_version,
1950: l_api_name,
1951: G_PKG_NAME )
1952: THEN
1949: p_api_version,
1950: l_api_name,
1951: G_PKG_NAME )
1952: THEN
1953: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1954: END IF;
1955: -- Initialize message list if p_init_msg_list is set to TRUE.
1956:
1957: IF FND_API.to_Boolean( l_init_msg_list ) THEN
1953: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1954: END IF;
1955: -- Initialize message list if p_init_msg_list is set to TRUE.
1956:
1957: IF FND_API.to_Boolean( l_init_msg_list ) THEN
1958: FND_MSG_PUB.initialize;
1959: END IF;
1960:
1961: -- Initialize API return status to success
1958: FND_MSG_PUB.initialize;
1959: END IF;
1960:
1961: -- Initialize API return status to success
1962: x_return_status := FND_API.G_RET_STS_SUCCESS;
1963:
1964: FOR regnum_r IN regnum_c LOOP
1965:
1966: x_regnum_tbl(l_index).registration_number := regnum_r.registration_number;
1979:
1980: EXCEPTION
1981:
1982: WHEN NO_DATA_FOUND THEN
1983: x_return_status := FND_API.G_RET_STS_ERROR ;
1984: -- x_msg_data := 'Party ID : ' || p_party_id || ' is not associated with an Establishment.';
1985: -- For bug 4185317
1986: x_msg_data := 'No data found for the given set of parameters.';
1987: RAISE FND_API.G_EXC_ERROR;
1983: x_return_status := FND_API.G_RET_STS_ERROR ;
1984: -- x_msg_data := 'Party ID : ' || p_party_id || ' is not associated with an Establishment.';
1985: -- For bug 4185317
1986: x_msg_data := 'No data found for the given set of parameters.';
1987: RAISE FND_API.G_EXC_ERROR;
1988:
1989: WHEN FND_API.G_EXC_ERROR THEN
1990: x_return_status := FND_API.G_RET_STS_ERROR ;
1991: FND_MSG_PUB.Count_And_Get
1985: -- For bug 4185317
1986: x_msg_data := 'No data found for the given set of parameters.';
1987: RAISE FND_API.G_EXC_ERROR;
1988:
1989: WHEN FND_API.G_EXC_ERROR THEN
1990: x_return_status := FND_API.G_RET_STS_ERROR ;
1991: FND_MSG_PUB.Count_And_Get
1992: ( p_count => x_msg_count ,
1993: p_data => x_msg_data
1986: x_msg_data := 'No data found for the given set of parameters.';
1987: RAISE FND_API.G_EXC_ERROR;
1988:
1989: WHEN FND_API.G_EXC_ERROR THEN
1990: x_return_status := FND_API.G_RET_STS_ERROR ;
1991: FND_MSG_PUB.Count_And_Get
1992: ( p_count => x_msg_count ,
1993: p_data => x_msg_data
1994: );
1991: FND_MSG_PUB.Count_And_Get
1992: ( p_count => x_msg_count ,
1993: p_data => x_msg_data
1994: );
1995: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1997: FND_MSG_PUB.Count_And_Get
1998: ( p_count => x_msg_count ,
1999: p_data => x_msg_data
1992: ( p_count => x_msg_count ,
1993: p_data => x_msg_data
1994: );
1995: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1997: FND_MSG_PUB.Count_And_Get
1998: ( p_count => x_msg_count ,
1999: p_data => x_msg_data
2000: );
1998: ( p_count => x_msg_count ,
1999: p_data => x_msg_data
2000: );
2001: WHEN OTHERS THEN
2002: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2003: IF FND_MSG_PUB.Check_Msg_Level
2004: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2005: THEN
2006: FND_MSG_PUB.Add_Exc_Msg
2071:
2072: l_index := 0;
2073:
2074: IF p_init_msg_list IS NULL THEN
2075: l_init_msg_list := FND_API.G_FALSE;
2076: ELSE
2077: l_init_msg_list := p_init_msg_list;
2078: END IF;
2079:
2078: END IF;
2079:
2080:
2081: -- Standard call to check for call compatibility.
2082: IF NOT FND_API.Compatible_API_Call (l_api_version,
2083: p_api_version,
2084: l_api_name,
2085: G_PKG_NAME )
2086: THEN
2083: p_api_version,
2084: l_api_name,
2085: G_PKG_NAME )
2086: THEN
2087: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2088: END IF;
2089: -- Initialize message list if p_init_msg_list is set to TRUE.
2090:
2091: IF FND_API.to_Boolean( l_init_msg_list ) THEN
2087: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2088: END IF;
2089: -- Initialize message list if p_init_msg_list is set to TRUE.
2090:
2091: IF FND_API.to_Boolean( l_init_msg_list ) THEN
2092: FND_MSG_PUB.initialize;
2093: END IF;
2094:
2095: -- Initialize API return status to success
2092: FND_MSG_PUB.initialize;
2093: END IF;
2094:
2095: -- Initialize API return status to success
2096: x_return_status := FND_API.G_RET_STS_SUCCESS;
2097:
2098: FOR parties_r IN parties_c LOOP
2099:
2100: x_partyclass_tbl(l_index).class_category := parties_r.class_category;
2113: );
2114:
2115: EXCEPTION
2116: WHEN NO_DATA_FOUND THEN
2117: x_return_status := FND_API.G_RET_STS_ERROR ;
2118: x_msg_data := 'Party ID :' || p_party_id || ' is not associated with a Legal Entity.';
2119: RAISE FND_API.G_EXC_ERROR;
2120:
2121: WHEN FND_API.G_EXC_ERROR THEN
2115: EXCEPTION
2116: WHEN NO_DATA_FOUND THEN
2117: x_return_status := FND_API.G_RET_STS_ERROR ;
2118: x_msg_data := 'Party ID :' || p_party_id || ' is not associated with a Legal Entity.';
2119: RAISE FND_API.G_EXC_ERROR;
2120:
2121: WHEN FND_API.G_EXC_ERROR THEN
2122: x_return_status := FND_API.G_RET_STS_ERROR ;
2123: FND_MSG_PUB.Count_And_Get
2117: x_return_status := FND_API.G_RET_STS_ERROR ;
2118: x_msg_data := 'Party ID :' || p_party_id || ' is not associated with a Legal Entity.';
2119: RAISE FND_API.G_EXC_ERROR;
2120:
2121: WHEN FND_API.G_EXC_ERROR THEN
2122: x_return_status := FND_API.G_RET_STS_ERROR ;
2123: FND_MSG_PUB.Count_And_Get
2124: ( p_count => x_msg_count ,
2125: p_data => x_msg_data
2118: x_msg_data := 'Party ID :' || p_party_id || ' is not associated with a Legal Entity.';
2119: RAISE FND_API.G_EXC_ERROR;
2120:
2121: WHEN FND_API.G_EXC_ERROR THEN
2122: x_return_status := FND_API.G_RET_STS_ERROR ;
2123: FND_MSG_PUB.Count_And_Get
2124: ( p_count => x_msg_count ,
2125: p_data => x_msg_data
2126: );
2123: FND_MSG_PUB.Count_And_Get
2124: ( p_count => x_msg_count ,
2125: p_data => x_msg_data
2126: );
2127: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2129: FND_MSG_PUB.Count_And_Get
2130: ( p_count => x_msg_count ,
2131: p_data => x_msg_data
2124: ( p_count => x_msg_count ,
2125: p_data => x_msg_data
2126: );
2127: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2129: FND_MSG_PUB.Count_And_Get
2130: ( p_count => x_msg_count ,
2131: p_data => x_msg_data
2132: );
2130: ( p_count => x_msg_count ,
2131: p_data => x_msg_data
2132: );
2133: WHEN OTHERS THEN
2134: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2135: IF FND_MSG_PUB.Check_Msg_Level
2136: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2137: THEN
2138: FND_MSG_PUB.Add_Exc_Msg
2181:
2182: l_index := 0;
2183:
2184: IF p_init_msg_list IS NULL THEN
2185: l_init_msg_list := FND_API.G_FALSE;
2186: ELSE
2187: l_init_msg_list := p_init_msg_list;
2188: END IF;
2189:
2188: END IF;
2189:
2190:
2191: -- Standard call to check for call compatibility.
2192: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
2193: p_api_version ,
2194: l_api_name ,
2195: G_PKG_NAME )
2196: THEN
2193: p_api_version ,
2194: l_api_name ,
2195: G_PKG_NAME )
2196: THEN
2197: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2198: END IF;
2199: -- Initialize message list if p_init_msg_list is set to TRUE.
2200:
2201: IF FND_API.to_Boolean( l_init_msg_list ) THEN
2197: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2198: END IF;
2199: -- Initialize message list if p_init_msg_list is set to TRUE.
2200:
2201: IF FND_API.to_Boolean( l_init_msg_list ) THEN
2202: FND_MSG_PUB.initialize;
2203: END IF;
2204:
2205: -- Initialize API return status to success
2202: FND_MSG_PUB.initialize;
2203: END IF;
2204:
2205: -- Initialize API return status to success
2206: x_return_status := FND_API.G_RET_STS_SUCCESS;
2207:
2208: -- API body
2209:
2210: SELECT legal_entity_id,
2251: p_data => x_msg_data
2252: );
2253:
2254: EXCEPTION
2255: WHEN FND_API.G_EXC_ERROR THEN
2256: x_return_status := FND_API.G_RET_STS_ERROR ;
2257: FND_MSG_PUB.Count_And_Get
2258: ( p_count => x_msg_count ,
2259: p_data => x_msg_data
2252: );
2253:
2254: EXCEPTION
2255: WHEN FND_API.G_EXC_ERROR THEN
2256: x_return_status := FND_API.G_RET_STS_ERROR ;
2257: FND_MSG_PUB.Count_And_Get
2258: ( p_count => x_msg_count ,
2259: p_data => x_msg_data
2260: );
2257: FND_MSG_PUB.Count_And_Get
2258: ( p_count => x_msg_count ,
2259: p_data => x_msg_data
2260: );
2261: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2263: FND_MSG_PUB.Count_And_Get
2264: ( p_count => x_msg_count ,
2265: p_data => x_msg_data
2258: ( p_count => x_msg_count ,
2259: p_data => x_msg_data
2260: );
2261: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2263: FND_MSG_PUB.Count_And_Get
2264: ( p_count => x_msg_count ,
2265: p_data => x_msg_data
2266: );
2264: ( p_count => x_msg_count ,
2265: p_data => x_msg_data
2266: );
2267: WHEN OTHERS THEN
2268: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2269: IF FND_MSG_PUB.Check_Msg_Level
2270: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2271: THEN
2272: FND_MSG_PUB.Add_Exc_Msg
2454:
2455: EXCEPTION
2456:
2457: WHEN NO_DATA_FOUND THEN
2458: x_return_status := FND_API.G_RET_STS_ERROR ;
2459: x_msg_data := 'No data found for the given parameters.';
2460:
2461: WHEN OTHERS THEN
2462: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2458: x_return_status := FND_API.G_RET_STS_ERROR ;
2459: x_msg_data := 'No data found for the given parameters.';
2460:
2461: WHEN OTHERS THEN
2462: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2463: x_msg_data := 'No data found for the given parameters';
2464:
2465: END Get_LE_Interface;
2466:
2493: -- Standard Start of API savepoint
2494:
2495:
2496: IF p_init_msg_list IS NULL THEN
2497: l_init_msg_list := FND_API.G_FALSE;
2498: ELSE
2499: l_init_msg_list := p_init_msg_list;
2500: END IF;
2501:
2500: END IF;
2501:
2502:
2503: -- Standard call to check for call compatibility.
2504: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
2505: p_api_version ,
2506: l_api_name ,
2507: G_PKG_NAME )
2508: THEN
2505: p_api_version ,
2506: l_api_name ,
2507: G_PKG_NAME )
2508: THEN
2509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2510: END IF;
2511: -- Initialize message list if p_init_msg_list is set to TRUE.
2512:
2513: IF FND_API.to_Boolean( l_init_msg_list ) THEN
2509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2510: END IF;
2511: -- Initialize message list if p_init_msg_list is set to TRUE.
2512:
2513: IF FND_API.to_Boolean( l_init_msg_list ) THEN
2514: FND_MSG_PUB.initialize;
2515: END IF;
2516:
2517: -- Initialize API return status to success
2514: FND_MSG_PUB.initialize;
2515: END IF;
2516:
2517: -- Initialize API return status to success
2518: x_return_status := FND_API.G_RET_STS_SUCCESS;
2519:
2520: -- API body
2521:
2522: Get_ME_PARTYID_LEID(
2564:
2565:
2566: EXCEPTION
2567: WHEN OTHERS THEN
2568: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2569: x_msg_data := SQLERRM;
2570: END;
2571:
2572:
2602: -- For Bug 4616389
2603: -- ROLLBACK TO Get_DefaultLegalContext_OU;
2604: return -1;
2605:
2606: WHEN FND_API.G_EXC_ERROR THEN
2607: -- ROLLBACK TO Get_DefaultLegalContext_OU;
2608: return -1;
2609:
2610: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2606: WHEN FND_API.G_EXC_ERROR THEN
2607: -- ROLLBACK TO Get_DefaultLegalContext_OU;
2608: return -1;
2609:
2610: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2611: -- ROLLBACK TO Get_DefaultLegalContext_OU;
2612: return -1;
2613: WHEN OTHERS THEN
2614: -- ROLLBACK TO Get_DefaultLegalContext_OU;
2651:
2652: WHEN TOO_MANY_ROWS THEN
2653: return null;
2654:
2655: WHEN FND_API.G_EXC_ERROR THEN
2656: return null;
2657:
2658: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2659: return null;
2654:
2655: WHEN FND_API.G_EXC_ERROR THEN
2656: return null;
2657:
2658: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2659: return null;
2660: WHEN OTHERS THEN
2661: return null;
2662: END Get_DLC_LE_OU;
2675:
2676:
2677: -- Initialize API return status to success
2678:
2679: x_return_status := FND_API.G_RET_STS_SUCCESS;
2680:
2681:
2682: -- API body
2683:
2683:
2684: if p_legal_entity_id IS NULL then
2685:
2686: x_msg_data := 'Missing Mandatory parameters. Please provide Legal Entity Id';
2687: x_return_status := FND_API.G_RET_STS_ERROR;
2688: return;
2689: end if;
2690:
2691: l_le_flag := 'N';
2701: l_le_flag := 'N';
2702: END;
2703:
2704: IF l_le_flag = 'Y' THEN
2705: x_legal_entity := FND_API.G_TRUE;
2706: ELSE
2707: x_legal_entity := FND_API.G_FALSE;
2708: END IF;
2709:
2703:
2704: IF l_le_flag = 'Y' THEN
2705: x_legal_entity := FND_API.G_TRUE;
2706: ELSE
2707: x_legal_entity := FND_API.G_FALSE;
2708: END IF;
2709:
2710:
2711: -- End of API body.
2713:
2714: EXCEPTION
2715:
2716:
2717: WHEN FND_API.G_EXC_ERROR THEN
2718:
2719: x_return_status := FND_API.G_RET_STS_ERROR ;
2720:
2721: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2715:
2716:
2717: WHEN FND_API.G_EXC_ERROR THEN
2718:
2719: x_return_status := FND_API.G_RET_STS_ERROR ;
2720:
2721: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2722: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2723:
2717: WHEN FND_API.G_EXC_ERROR THEN
2718:
2719: x_return_status := FND_API.G_RET_STS_ERROR ;
2720:
2721: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2722: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2723:
2724: WHEN OTHERS THEN
2725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2718:
2719: x_return_status := FND_API.G_RET_STS_ERROR ;
2720:
2721: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2722: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2723:
2724: WHEN OTHERS THEN
2725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2726:
2721: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2722: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2723:
2724: WHEN OTHERS THEN
2725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2726:
2727: END IsLegalEntity_LEID;
2728:
2729:
2741:
2742:
2743: -- Initialize API return status to success
2744:
2745: x_return_status := FND_API.G_RET_STS_SUCCESS;
2746:
2747:
2748: -- API body
2749:
2749:
2750: if (p_legal_entity_id IS NULL AND p_party_id IS NULL) then
2751:
2752: x_msg_data := 'Missing Mandatory parameters. Please provide either the Legal Entity Id or Party Id';
2753: x_return_status := FND_API.G_RET_STS_ERROR;
2754: return;
2755: end if;
2756:
2757: l_ic_inv := 'N';
2815: END;
2816: end if;
2817:
2818: if l_ic_inv = 'Y' THEN
2819: x_intercompany_inv := FND_API.G_TRUE;
2820: else
2821: x_intercompany_inv := FND_API.G_FALSE;
2822: end if;
2823: -- End of API body.
2817:
2818: if l_ic_inv = 'Y' THEN
2819: x_intercompany_inv := FND_API.G_TRUE;
2820: else
2821: x_intercompany_inv := FND_API.G_FALSE;
2822: end if;
2823: -- End of API body.
2824:
2825:
2823: -- End of API body.
2824:
2825:
2826: EXCEPTION
2827: WHEN FND_API.G_EXC_ERROR THEN
2828: x_return_status := FND_API.G_RET_STS_ERROR ;
2829:
2830: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2831: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2824:
2825:
2826: EXCEPTION
2827: WHEN FND_API.G_EXC_ERROR THEN
2828: x_return_status := FND_API.G_RET_STS_ERROR ;
2829:
2830: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2831: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2832:
2826: EXCEPTION
2827: WHEN FND_API.G_EXC_ERROR THEN
2828: x_return_status := FND_API.G_RET_STS_ERROR ;
2829:
2830: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2831: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2832:
2833: WHEN OTHERS THEN
2834: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2827: WHEN FND_API.G_EXC_ERROR THEN
2828: x_return_status := FND_API.G_RET_STS_ERROR ;
2829:
2830: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2831: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2832:
2833: WHEN OTHERS THEN
2834: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2835:
2830: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2831: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2832:
2833: WHEN OTHERS THEN
2834: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2835:
2836: END Check_IC_Invoice_required;
2837: END XLE_UTILITIES_GRP;