89: l_cur_mfg_org_id := TO_NUMBER(FND_PROFILE.VALUE('MFG_ORGANIZATION_ID'));
90:
91: IF ( (pa_expenditure_org_id IS NOT NULL) AND
92: ( (l_cur_mfg_org_id IS NULL) OR
93: (l_cur_mfg_org_id IS NOT NULL AND l_cur_mfg_org_id <> FND_API.G_MISS_NUM)
94: )
95: ) THEN
96: FND_PROFILE.put('MFG_ORGANIZATION_ID',pa_expenditure_org_id);
97: END IF;
542: t_task_id,
543: Source_Id);
544:
545: End If;
546: If X_return_status <> FND_API.G_RET_STS_SUCCESS
547: Then
548: translated_mesg := fnd_message.get ;
549: error_code := '';
550: error_expl := substr(translated_mesg,1,240) ;
860: l_req_project_id Number;
861: l_req_task_id Number;
862:
863: Begin
864: x_return_status := FND_API.G_RET_STS_SUCCESS;
865:
866: SELECT project_id,task_id
867: INTO l_req_project_id,l_req_task_id
868: FROM po_req_distributions_all
873:
874: Exception
875: When Others Then
876:
877: X_return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
878: FND_MSG_PUB.Build_Exc_Msg(
879: p_pkg_name =>'Inv_Project',
880: p_procedure_name => 'Get_project_info_from_Req');
881:
898: l_req_project_id Number;
899: l_req_task_id Number;
900:
901: Begin
902: x_return_status := FND_API.G_RET_STS_SUCCESS;
903:
904: SELECT prd.project_id, prd.task_id
905: INTO l_req_project_id,l_req_task_id
906: FROM po_req_distributions_all prd,
913:
914: Exception
915: When Others Then
916:
917: X_return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
918: FND_MSG_PUB.Build_Exc_Msg(
919: p_pkg_name =>'Inv_Project',
920: p_procedure_name => 'Get_project_info_for_RcvTrx');
921:
938: l_Project_locator_id Number;
939: l_return_status Varchar2(1);
940:
941: Begin
942: x_return_status := FND_API.G_RET_STS_SUCCESS;
943: If P_Req_Line_Id is null Then
944: Return;
945: Else
946: Get_project_info_from_Req(
947: l_return_status,
948: l_req_project_id,
949: l_req_task_id,
950: P_Req_Line_Id);
951: If l_return_status <> FND_API.G_RET_STS_SUCCESS
952: Then
953: Return;
954: End If;
955: If l_req_project_id is null
968:
969: Exception
970: When Others Then
971:
972: X_return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
973: FND_MSG_PUB.Build_Exc_Msg(
974: p_pkg_name =>'Inv_Project',
975: p_procedure_name => 'Get_project_loc_for_prj_Req');
976:
982: l_Org_Id Number;
983: l_conreq_id number :=0; --bugfix 4643461
984:
985: Begin
986: x_return_status := FND_API.G_RET_STS_SUCCESS;
987:
988: l_conreq_id := fnd_global.conc_request_id;
989:
990: IF nvl(g_organization_id,-999) <> nvl(P_Organization_Id,-999) THEN
1026:
1027: EXCEPTION
1028: WHEN OTHERS THEN
1029:
1030: X_return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
1031: FND_MSG_PUB.Build_Exc_Msg(
1032: p_pkg_name =>'Inv_Project',
1033: p_procedure_name => 'Set_Org_client_info');
1034:
1045: L_OPERATING_UNIT VARCHAR2(30);
1046:
1047: BEGIN
1048:
1049: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1050:
1051: FND_PROFILE.PUT('MFG_ORGANIZATION_ID', TO_CHAR(P_ORGANIZATION_ID));
1052:
1053: FND_PROFILE.GET('ORG_ID', L_OPERATING_UNIT);
1060: FND_MSG_PUB.COUNT_AND_GET( P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA );
1061:
1062: EXCEPTION
1063:
1064: WHEN FND_API.G_EXC_ERROR THEN
1065:
1066: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
1067: FND_MSG_PUB.COUNT_AND_GET( P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA );
1068:
1062: EXCEPTION
1063:
1064: WHEN FND_API.G_EXC_ERROR THEN
1065:
1066: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
1067: FND_MSG_PUB.COUNT_AND_GET( P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA );
1068:
1069: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1070:
1065:
1066: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
1067: FND_MSG_PUB.COUNT_AND_GET( P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA );
1068:
1069: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1070:
1071: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
1072: FND_MSG_PUB.COUNT_AND_GET( P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA );
1073:
1067: FND_MSG_PUB.COUNT_AND_GET( P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA );
1068:
1069: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1070:
1071: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
1072: FND_MSG_PUB.COUNT_AND_GET( P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA );
1073:
1074: WHEN OTHERS THEN
1075:
1072: FND_MSG_PUB.COUNT_AND_GET( P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA );
1073:
1074: WHEN OTHERS THEN
1075:
1076: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
1077: IF FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1078: FND_MSG_PUB.ADD_EXC_MSG( g_pkg_name, 'SET_SESSION_PARAMETERS');
1079: END IF;
1080: FND_MSG_PUB.COUNT_AND_GET( P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA );
1092: IS
1093: l_project_id NUMBER := NULL;
1094: l_task_id NUMBER := NULL;
1095: BEGIN
1096: x_return_status := FND_API.G_RET_STS_SUCCESS;
1097:
1098: SELECT mil.segment19, mil.segment20
1099: INTO l_project_id, l_task_id
1100: FROM mtl_item_locations mil, wms_license_plate_numbers wlpn
1126: x_task_id := NULL;
1127: WHEN OTHERS THEN
1128: x_project_id := NULL;
1129: x_task_id := NULL;
1130: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1131: FND_MSG_PUB.Count_And_Get
1132: (p_encoded => FND_API.G_FALSE,
1133: p_count => x_msg_count,
1134: p_data => x_msg_data);
1128: x_project_id := NULL;
1129: x_task_id := NULL;
1130: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1131: FND_MSG_PUB.Count_And_Get
1132: (p_encoded => FND_API.G_FALSE,
1133: p_count => x_msg_count,
1134: p_data => x_msg_data);
1135: END;
1136:
1133: p_count => x_msg_count,
1134: p_data => x_msg_data);
1135: END;
1136:
1137: WHEN FND_API.G_EXC_ERROR THEN
1138: x_project_id := NULL;
1139: x_task_id := NULL;
1140: x_return_status := FND_API.G_RET_STS_ERROR ;
1141: FND_MSG_PUB.Count_And_Get
1136:
1137: WHEN FND_API.G_EXC_ERROR THEN
1138: x_project_id := NULL;
1139: x_task_id := NULL;
1140: x_return_status := FND_API.G_RET_STS_ERROR ;
1141: FND_MSG_PUB.Count_And_Get
1142: (p_encoded => FND_API.G_FALSE,
1143: p_count => x_msg_count,
1144: p_data => x_msg_data);
1138: x_project_id := NULL;
1139: x_task_id := NULL;
1140: x_return_status := FND_API.G_RET_STS_ERROR ;
1141: FND_MSG_PUB.Count_And_Get
1142: (p_encoded => FND_API.G_FALSE,
1143: p_count => x_msg_count,
1144: p_data => x_msg_data);
1145: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1146: x_project_id := NULL;
1141: FND_MSG_PUB.Count_And_Get
1142: (p_encoded => FND_API.G_FALSE,
1143: p_count => x_msg_count,
1144: p_data => x_msg_data);
1145: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1146: x_project_id := NULL;
1147: x_task_id := NULL;
1148: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1149: FND_MSG_PUB.Count_And_Get
1144: p_data => x_msg_data);
1145: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1146: x_project_id := NULL;
1147: x_task_id := NULL;
1148: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1149: FND_MSG_PUB.Count_And_Get
1150: (p_encoded => FND_API.G_FALSE,
1151: p_count => x_msg_count,
1152: p_data => x_msg_data);
1146: x_project_id := NULL;
1147: x_task_id := NULL;
1148: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1149: FND_MSG_PUB.Count_And_Get
1150: (p_encoded => FND_API.G_FALSE,
1151: p_count => x_msg_count,
1152: p_data => x_msg_data);
1153: WHEN OTHERS THEN
1154: x_project_id := NULL;
1152: p_data => x_msg_data);
1153: WHEN OTHERS THEN
1154: x_project_id := NULL;
1155: x_task_id := NULL;
1156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1157: FND_MSG_PUB.Count_And_Get
1158: (p_encoded => FND_API.G_FALSE,
1159: p_count => x_msg_count,
1160: p_data => x_msg_data);
1154: x_project_id := NULL;
1155: x_task_id := NULL;
1156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1157: FND_MSG_PUB.Count_And_Get
1158: (p_encoded => FND_API.G_FALSE,
1159: p_count => x_msg_count,
1160: p_data => x_msg_data);
1161: END get_proj_task_from_lpn;
1162:
1290: X_DISPLAY := 'ALL'||L_RETURN;
1291: X_CONCATENATED := L_CONCAT;
1292:
1293: FND_MSG_PUB.COUNT_AND_GET( P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA );
1294: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1295:
1296: EXCEPTION
1297: WHEN OTHERS THEN
1298:
1299: IF (l_debug = 1) THEN
1300: MYDEBUG('EXCEPTION RAISED IN GET_LOCATOR_METADATA '||SQLERRM);
1301: END IF;
1302:
1303: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
1304: IF FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1305: FND_MSG_PUB.ADD_EXC_MSG( g_pkg_name, 'GET_LOCATOR_METADATA');
1306: END IF;
1307: FND_MSG_PUB.COUNT_AND_GET( P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA );
1454:
1455: --If any of the segments has a validation type other than 'N'
1456: ELSE
1457: IF (l_debug = 1) THEN
1458: MYDEBUG('Using FND APIs to get locator, project and task info');
1459: END IF;
1460: L_CC_ID_RET := FND_FLEX_KEYVAL.VALIDATE_CCID(
1461: APPL_SHORT_NAME => 'INV',
1462: KEY_FLEX_CODE => 'MTLL',
1532: END GET_LOCSEGS;
1533:
1534: /*
1535: * This function returns the Project Number of the Project Id passed
1536: * Does not use FND API's.
1537: */
1538: FUNCTION GET_PROJECT_NUMBER(p_project_id IN NUMBER) RETURN VARCHAR2 IS
1539: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1540: BEGIN
1713: X_CONCATENATED := L_CONCAT;
1714:
1715:
1716: FND_MSG_PUB.COUNT_AND_GET( P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA );
1717: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
1718:
1719: EXCEPTION
1720: WHEN OTHERS THEN
1721:
1723: MYDEBUG('EXCEPTION RAISED IN conc_loc_qry '||SQLERRM);
1724: END IF;
1725: X_CONCATENATED := null;
1726:
1727: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
1728: IF FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1729: FND_MSG_PUB.ADD_EXC_MSG( g_pkg_name, 'conc_loc_qry');
1730: END IF;
1731: FND_MSG_PUB.COUNT_AND_GET( P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA );
1791:
1792: --If any of the segments has a validation type other than 'N'
1793: ELSE
1794: IF (l_debug = 1) THEN
1795: MYDEBUG('Using FND APIs to get locator, project and task info');
1796: END IF;
1797: L_CC_ID_RET := FND_FLEX_KEYVAL.VALIDATE_CCID(
1798: APPL_SHORT_NAME => 'INV',
1799: KEY_FLEX_CODE => 'MTLL',
1910: IF l_new_segments IS NULL THEN
1911: l_new_segments := l_buf;
1912: /*bug 3905395 */
1913: IF l_buf IS NULL THEN
1914: l_new_segments := fnd_api.g_miss_char;
1915: END IF;
1916: ELSE
1917: l_new_segments := l_new_segments || g_delimiter || l_buf;
1918: END IF;
2043: IF l_new_segments IS NULL THEN
2044: l_new_segments := l_buf;
2045: /*bug 3905395 */
2046: IF l_buf IS NULL THEN
2047: l_new_segments := fnd_api.g_miss_char;
2048: END IF;
2049: ELSE
2050: l_new_segments := l_new_segments || g_delimiter || l_buf;
2051: END IF;