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:
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
1850: AND etbp.legal_entity_id = p_legal_entity_id;
1851:
1852: EXCEPTION
1853: WHEN NO_DATA_FOUND THEN
1854: x_return_status := FND_API.G_RET_STS_ERROR ;
1855: x_msg_data := 'There exists no legal entity with ID ' || p_legal_entity_id;
1856: RAISE FND_API.G_EXC_ERROR;
1857:
1858: END;
1852: EXCEPTION
1853: WHEN NO_DATA_FOUND THEN
1854: x_return_status := FND_API.G_RET_STS_ERROR ;
1855: x_msg_data := 'There exists no legal entity with ID ' || p_legal_entity_id;
1856: RAISE FND_API.G_EXC_ERROR;
1857:
1858: END;
1859:
1860: x_return_status := FND_API.G_RET_STS_SUCCESS;
1856: RAISE FND_API.G_EXC_ERROR;
1857:
1858: END;
1859:
1860: x_return_status := FND_API.G_RET_STS_SUCCESS;
1861:
1862: -- End of API body.
1863:
1864: -- Standard call to get message count and if count is 1, get message info.
1869:
1870:
1871: EXCEPTION
1872:
1873: WHEN FND_API.G_EXC_ERROR THEN
1874: x_return_status := FND_API.G_RET_STS_ERROR ;
1875: FND_MSG_PUB.Count_And_Get
1876: ( p_count => x_msg_count ,
1877: p_data => x_msg_data
1870:
1871: EXCEPTION
1872:
1873: WHEN FND_API.G_EXC_ERROR THEN
1874: x_return_status := FND_API.G_RET_STS_ERROR ;
1875: FND_MSG_PUB.Count_And_Get
1876: ( p_count => x_msg_count ,
1877: p_data => x_msg_data
1878: );
1875: FND_MSG_PUB.Count_And_Get
1876: ( p_count => x_msg_count ,
1877: p_data => x_msg_data
1878: );
1879: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1880: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1881: FND_MSG_PUB.Count_And_Get
1882: ( p_count => x_msg_count ,
1883: p_data => x_msg_data
1876: ( p_count => x_msg_count ,
1877: p_data => x_msg_data
1878: );
1879: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1880: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1881: FND_MSG_PUB.Count_And_Get
1882: ( p_count => x_msg_count ,
1883: p_data => x_msg_data
1884: );
1882: ( p_count => x_msg_count ,
1883: p_data => x_msg_data
1884: );
1885: WHEN OTHERS THEN
1886: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1887: IF FND_MSG_PUB.Check_Msg_Level
1888: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1889: THEN
1890: FND_MSG_PUB.Add_Exc_Msg
1935:
1936: l_index := 0;
1937:
1938: IF p_init_msg_list IS NULL THEN
1939: l_init_msg_list := FND_API.G_FALSE;
1940: ELSE
1941: l_init_msg_list := p_init_msg_list;
1942: END IF;
1943:
1942: END IF;
1943:
1944:
1945: -- Standard call to check for call compatibility.
1946: IF NOT FND_API.Compatible_API_Call (l_api_version,
1947: p_api_version,
1948: l_api_name,
1949: G_PKG_NAME )
1950: THEN
1947: p_api_version,
1948: l_api_name,
1949: G_PKG_NAME )
1950: THEN
1951: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1952: END IF;
1953: -- Initialize message list if p_init_msg_list is set to TRUE.
1954:
1955: IF FND_API.to_Boolean( l_init_msg_list ) THEN
1951: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1952: END IF;
1953: -- Initialize message list if p_init_msg_list is set to TRUE.
1954:
1955: IF FND_API.to_Boolean( l_init_msg_list ) THEN
1956: FND_MSG_PUB.initialize;
1957: END IF;
1958:
1959: -- Initialize API return status to success
1956: FND_MSG_PUB.initialize;
1957: END IF;
1958:
1959: -- Initialize API return status to success
1960: x_return_status := FND_API.G_RET_STS_SUCCESS;
1961:
1962: FOR regnum_r IN regnum_c LOOP
1963:
1964: x_regnum_tbl(l_index).registration_number := regnum_r.registration_number;
1977:
1978: EXCEPTION
1979:
1980: WHEN NO_DATA_FOUND THEN
1981: x_return_status := FND_API.G_RET_STS_ERROR ;
1982: -- x_msg_data := 'Party ID : ' || p_party_id || ' is not associated with an Establishment.';
1983: -- For bug 4185317
1984: x_msg_data := 'No data found for the given set of parameters.';
1985: RAISE FND_API.G_EXC_ERROR;
1981: x_return_status := FND_API.G_RET_STS_ERROR ;
1982: -- x_msg_data := 'Party ID : ' || p_party_id || ' is not associated with an Establishment.';
1983: -- For bug 4185317
1984: x_msg_data := 'No data found for the given set of parameters.';
1985: RAISE FND_API.G_EXC_ERROR;
1986:
1987: WHEN FND_API.G_EXC_ERROR THEN
1988: x_return_status := FND_API.G_RET_STS_ERROR ;
1989: FND_MSG_PUB.Count_And_Get
1983: -- For bug 4185317
1984: x_msg_data := 'No data found for the given set of parameters.';
1985: RAISE FND_API.G_EXC_ERROR;
1986:
1987: WHEN FND_API.G_EXC_ERROR THEN
1988: x_return_status := FND_API.G_RET_STS_ERROR ;
1989: FND_MSG_PUB.Count_And_Get
1990: ( p_count => x_msg_count ,
1991: p_data => x_msg_data
1984: x_msg_data := 'No data found for the given set of parameters.';
1985: RAISE FND_API.G_EXC_ERROR;
1986:
1987: WHEN FND_API.G_EXC_ERROR THEN
1988: x_return_status := FND_API.G_RET_STS_ERROR ;
1989: FND_MSG_PUB.Count_And_Get
1990: ( p_count => x_msg_count ,
1991: p_data => x_msg_data
1992: );
1989: FND_MSG_PUB.Count_And_Get
1990: ( p_count => x_msg_count ,
1991: p_data => x_msg_data
1992: );
1993: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1994: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1995: FND_MSG_PUB.Count_And_Get
1996: ( p_count => x_msg_count ,
1997: p_data => x_msg_data
1990: ( p_count => x_msg_count ,
1991: p_data => x_msg_data
1992: );
1993: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1994: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1995: FND_MSG_PUB.Count_And_Get
1996: ( p_count => x_msg_count ,
1997: p_data => x_msg_data
1998: );
1996: ( p_count => x_msg_count ,
1997: p_data => x_msg_data
1998: );
1999: WHEN OTHERS THEN
2000: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2001: IF FND_MSG_PUB.Check_Msg_Level
2002: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2003: THEN
2004: FND_MSG_PUB.Add_Exc_Msg
2069:
2070: l_index := 0;
2071:
2072: IF p_init_msg_list IS NULL THEN
2073: l_init_msg_list := FND_API.G_FALSE;
2074: ELSE
2075: l_init_msg_list := p_init_msg_list;
2076: END IF;
2077:
2076: END IF;
2077:
2078:
2079: -- Standard call to check for call compatibility.
2080: IF NOT FND_API.Compatible_API_Call (l_api_version,
2081: p_api_version,
2082: l_api_name,
2083: G_PKG_NAME )
2084: THEN
2081: p_api_version,
2082: l_api_name,
2083: G_PKG_NAME )
2084: THEN
2085: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2086: END IF;
2087: -- Initialize message list if p_init_msg_list is set to TRUE.
2088:
2089: IF FND_API.to_Boolean( l_init_msg_list ) THEN
2085: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2086: END IF;
2087: -- Initialize message list if p_init_msg_list is set to TRUE.
2088:
2089: IF FND_API.to_Boolean( l_init_msg_list ) THEN
2090: FND_MSG_PUB.initialize;
2091: END IF;
2092:
2093: -- Initialize API return status to success
2090: FND_MSG_PUB.initialize;
2091: END IF;
2092:
2093: -- Initialize API return status to success
2094: x_return_status := FND_API.G_RET_STS_SUCCESS;
2095:
2096: FOR parties_r IN parties_c LOOP
2097:
2098: x_partyclass_tbl(l_index).class_category := parties_r.class_category;
2111: );
2112:
2113: EXCEPTION
2114: WHEN NO_DATA_FOUND THEN
2115: x_return_status := FND_API.G_RET_STS_ERROR ;
2116: x_msg_data := 'Party ID :' || p_party_id || ' is not associated with a Legal Entity.';
2117: RAISE FND_API.G_EXC_ERROR;
2118:
2119: WHEN FND_API.G_EXC_ERROR THEN
2113: EXCEPTION
2114: WHEN NO_DATA_FOUND THEN
2115: x_return_status := FND_API.G_RET_STS_ERROR ;
2116: x_msg_data := 'Party ID :' || p_party_id || ' is not associated with a Legal Entity.';
2117: RAISE FND_API.G_EXC_ERROR;
2118:
2119: WHEN FND_API.G_EXC_ERROR THEN
2120: x_return_status := FND_API.G_RET_STS_ERROR ;
2121: FND_MSG_PUB.Count_And_Get
2115: x_return_status := FND_API.G_RET_STS_ERROR ;
2116: x_msg_data := 'Party ID :' || p_party_id || ' is not associated with a Legal Entity.';
2117: RAISE FND_API.G_EXC_ERROR;
2118:
2119: WHEN FND_API.G_EXC_ERROR THEN
2120: x_return_status := FND_API.G_RET_STS_ERROR ;
2121: FND_MSG_PUB.Count_And_Get
2122: ( p_count => x_msg_count ,
2123: p_data => x_msg_data
2116: x_msg_data := 'Party ID :' || p_party_id || ' is not associated with a Legal Entity.';
2117: RAISE FND_API.G_EXC_ERROR;
2118:
2119: WHEN FND_API.G_EXC_ERROR THEN
2120: x_return_status := FND_API.G_RET_STS_ERROR ;
2121: FND_MSG_PUB.Count_And_Get
2122: ( p_count => x_msg_count ,
2123: p_data => x_msg_data
2124: );
2121: FND_MSG_PUB.Count_And_Get
2122: ( p_count => x_msg_count ,
2123: p_data => x_msg_data
2124: );
2125: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2127: FND_MSG_PUB.Count_And_Get
2128: ( p_count => x_msg_count ,
2129: p_data => x_msg_data
2122: ( p_count => x_msg_count ,
2123: p_data => x_msg_data
2124: );
2125: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2127: FND_MSG_PUB.Count_And_Get
2128: ( p_count => x_msg_count ,
2129: p_data => x_msg_data
2130: );
2128: ( p_count => x_msg_count ,
2129: p_data => x_msg_data
2130: );
2131: WHEN OTHERS THEN
2132: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2133: IF FND_MSG_PUB.Check_Msg_Level
2134: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2135: THEN
2136: FND_MSG_PUB.Add_Exc_Msg
2179:
2180: l_index := 0;
2181:
2182: IF p_init_msg_list IS NULL THEN
2183: l_init_msg_list := FND_API.G_FALSE;
2184: ELSE
2185: l_init_msg_list := p_init_msg_list;
2186: END IF;
2187:
2186: END IF;
2187:
2188:
2189: -- Standard call to check for call compatibility.
2190: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
2191: p_api_version ,
2192: l_api_name ,
2193: G_PKG_NAME )
2194: THEN
2191: p_api_version ,
2192: l_api_name ,
2193: G_PKG_NAME )
2194: THEN
2195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2196: END IF;
2197: -- Initialize message list if p_init_msg_list is set to TRUE.
2198:
2199: IF FND_API.to_Boolean( l_init_msg_list ) THEN
2195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2196: END IF;
2197: -- Initialize message list if p_init_msg_list is set to TRUE.
2198:
2199: IF FND_API.to_Boolean( l_init_msg_list ) THEN
2200: FND_MSG_PUB.initialize;
2201: END IF;
2202:
2203: -- Initialize API return status to success
2200: FND_MSG_PUB.initialize;
2201: END IF;
2202:
2203: -- Initialize API return status to success
2204: x_return_status := FND_API.G_RET_STS_SUCCESS;
2205:
2206: -- API body
2207:
2208: SELECT legal_entity_id,
2249: p_data => x_msg_data
2250: );
2251:
2252: EXCEPTION
2253: WHEN FND_API.G_EXC_ERROR THEN
2254: x_return_status := FND_API.G_RET_STS_ERROR ;
2255: FND_MSG_PUB.Count_And_Get
2256: ( p_count => x_msg_count ,
2257: p_data => x_msg_data
2250: );
2251:
2252: EXCEPTION
2253: WHEN FND_API.G_EXC_ERROR THEN
2254: x_return_status := FND_API.G_RET_STS_ERROR ;
2255: FND_MSG_PUB.Count_And_Get
2256: ( p_count => x_msg_count ,
2257: p_data => x_msg_data
2258: );
2255: FND_MSG_PUB.Count_And_Get
2256: ( p_count => x_msg_count ,
2257: p_data => x_msg_data
2258: );
2259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2261: FND_MSG_PUB.Count_And_Get
2262: ( p_count => x_msg_count ,
2263: p_data => x_msg_data
2256: ( p_count => x_msg_count ,
2257: p_data => x_msg_data
2258: );
2259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2261: FND_MSG_PUB.Count_And_Get
2262: ( p_count => x_msg_count ,
2263: p_data => x_msg_data
2264: );
2262: ( p_count => x_msg_count ,
2263: p_data => x_msg_data
2264: );
2265: WHEN OTHERS THEN
2266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2267: IF FND_MSG_PUB.Check_Msg_Level
2268: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2269: THEN
2270: FND_MSG_PUB.Add_Exc_Msg
2452:
2453: EXCEPTION
2454:
2455: WHEN NO_DATA_FOUND THEN
2456: x_return_status := FND_API.G_RET_STS_ERROR ;
2457: x_msg_data := 'No data found for the given parameters.';
2458:
2459: WHEN OTHERS THEN
2460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2456: x_return_status := FND_API.G_RET_STS_ERROR ;
2457: x_msg_data := 'No data found for the given parameters.';
2458:
2459: WHEN OTHERS THEN
2460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2461: x_msg_data := 'No data found for the given parameters';
2462:
2463: END Get_LE_Interface;
2464:
2491: -- Standard Start of API savepoint
2492:
2493:
2494: IF p_init_msg_list IS NULL THEN
2495: l_init_msg_list := FND_API.G_FALSE;
2496: ELSE
2497: l_init_msg_list := p_init_msg_list;
2498: END IF;
2499:
2498: END IF;
2499:
2500:
2501: -- Standard call to check for call compatibility.
2502: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
2503: p_api_version ,
2504: l_api_name ,
2505: G_PKG_NAME )
2506: THEN
2503: p_api_version ,
2504: l_api_name ,
2505: G_PKG_NAME )
2506: THEN
2507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2508: END IF;
2509: -- Initialize message list if p_init_msg_list is set to TRUE.
2510:
2511: IF FND_API.to_Boolean( l_init_msg_list ) THEN
2507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2508: END IF;
2509: -- Initialize message list if p_init_msg_list is set to TRUE.
2510:
2511: IF FND_API.to_Boolean( l_init_msg_list ) THEN
2512: FND_MSG_PUB.initialize;
2513: END IF;
2514:
2515: -- Initialize API return status to success
2512: FND_MSG_PUB.initialize;
2513: END IF;
2514:
2515: -- Initialize API return status to success
2516: x_return_status := FND_API.G_RET_STS_SUCCESS;
2517:
2518: -- API body
2519:
2520: Get_ME_PARTYID_LEID(
2562:
2563:
2564: EXCEPTION
2565: WHEN OTHERS THEN
2566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2567: x_msg_data := SQLERRM;
2568: END;
2569:
2570:
2600: -- For Bug 4616389
2601: -- ROLLBACK TO Get_DefaultLegalContext_OU;
2602: return -1;
2603:
2604: WHEN FND_API.G_EXC_ERROR THEN
2605: -- ROLLBACK TO Get_DefaultLegalContext_OU;
2606: return -1;
2607:
2608: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2604: WHEN FND_API.G_EXC_ERROR THEN
2605: -- ROLLBACK TO Get_DefaultLegalContext_OU;
2606: return -1;
2607:
2608: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2609: -- ROLLBACK TO Get_DefaultLegalContext_OU;
2610: return -1;
2611: WHEN OTHERS THEN
2612: -- ROLLBACK TO Get_DefaultLegalContext_OU;
2649:
2650: WHEN TOO_MANY_ROWS THEN
2651: return null;
2652:
2653: WHEN FND_API.G_EXC_ERROR THEN
2654: return null;
2655:
2656: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2657: return null;
2652:
2653: WHEN FND_API.G_EXC_ERROR THEN
2654: return null;
2655:
2656: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2657: return null;
2658: WHEN OTHERS THEN
2659: return null;
2660: END Get_DLC_LE_OU;
2673:
2674:
2675: -- Initialize API return status to success
2676:
2677: x_return_status := FND_API.G_RET_STS_SUCCESS;
2678:
2679:
2680: -- API body
2681:
2681:
2682: if p_legal_entity_id IS NULL then
2683:
2684: x_msg_data := 'Missing Mandatory parameters. Please provide Legal Entity Id';
2685: x_return_status := FND_API.G_RET_STS_ERROR;
2686: return;
2687: end if;
2688:
2689: l_le_flag := 'N';
2699: l_le_flag := 'N';
2700: END;
2701:
2702: IF l_le_flag = 'Y' THEN
2703: x_legal_entity := FND_API.G_TRUE;
2704: ELSE
2705: x_legal_entity := FND_API.G_FALSE;
2706: END IF;
2707:
2701:
2702: IF l_le_flag = 'Y' THEN
2703: x_legal_entity := FND_API.G_TRUE;
2704: ELSE
2705: x_legal_entity := FND_API.G_FALSE;
2706: END IF;
2707:
2708:
2709: -- End of API body.
2711:
2712: EXCEPTION
2713:
2714:
2715: WHEN FND_API.G_EXC_ERROR THEN
2716:
2717: x_return_status := FND_API.G_RET_STS_ERROR ;
2718:
2719: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2713:
2714:
2715: WHEN FND_API.G_EXC_ERROR THEN
2716:
2717: x_return_status := FND_API.G_RET_STS_ERROR ;
2718:
2719: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2720: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2721:
2715: WHEN FND_API.G_EXC_ERROR THEN
2716:
2717: x_return_status := FND_API.G_RET_STS_ERROR ;
2718:
2719: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2720: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2721:
2722: WHEN OTHERS THEN
2723: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2716:
2717: x_return_status := FND_API.G_RET_STS_ERROR ;
2718:
2719: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2720: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2721:
2722: WHEN OTHERS THEN
2723: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2724:
2719: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2720: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2721:
2722: WHEN OTHERS THEN
2723: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2724:
2725: END IsLegalEntity_LEID;
2726:
2727:
2739:
2740:
2741: -- Initialize API return status to success
2742:
2743: x_return_status := FND_API.G_RET_STS_SUCCESS;
2744:
2745:
2746: -- API body
2747:
2747:
2748: if (p_legal_entity_id IS NULL AND p_party_id IS NULL) then
2749:
2750: x_msg_data := 'Missing Mandatory parameters. Please provide either the Legal Entity Id or Party Id';
2751: x_return_status := FND_API.G_RET_STS_ERROR;
2752: return;
2753: end if;
2754:
2755: l_ic_inv := 'N';
2813: END;
2814: end if;
2815:
2816: if l_ic_inv = 'Y' THEN
2817: x_intercompany_inv := FND_API.G_TRUE;
2818: else
2819: x_intercompany_inv := FND_API.G_FALSE;
2820: end if;
2821: -- End of API body.
2815:
2816: if l_ic_inv = 'Y' THEN
2817: x_intercompany_inv := FND_API.G_TRUE;
2818: else
2819: x_intercompany_inv := FND_API.G_FALSE;
2820: end if;
2821: -- End of API body.
2822:
2823:
2821: -- End of API body.
2822:
2823:
2824: EXCEPTION
2825: WHEN FND_API.G_EXC_ERROR THEN
2826: x_return_status := FND_API.G_RET_STS_ERROR ;
2827:
2828: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2822:
2823:
2824: EXCEPTION
2825: WHEN FND_API.G_EXC_ERROR THEN
2826: x_return_status := FND_API.G_RET_STS_ERROR ;
2827:
2828: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2830:
2824: EXCEPTION
2825: WHEN FND_API.G_EXC_ERROR THEN
2826: x_return_status := FND_API.G_RET_STS_ERROR ;
2827:
2828: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2830:
2831: WHEN OTHERS THEN
2832: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2825: WHEN FND_API.G_EXC_ERROR THEN
2826: x_return_status := FND_API.G_RET_STS_ERROR ;
2827:
2828: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2830:
2831: WHEN OTHERS THEN
2832: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2833:
2828: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2830:
2831: WHEN OTHERS THEN
2832: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2833:
2834: END Check_IC_Invoice_required;
2835: END XLE_UTILITIES_GRP;