[Home] [Help]
134: WHEN NO_DATA_FOUND THEN
135: FND_MESSAGE.SET_NAME('BOM', 'BOM_ALREADY_EXISTS');
136: FND_MESSAGE.SET_TOKEN('ENTITY1', 'THIS_CAP', TRUE);
137: FND_MESSAGE.SET_TOKEN('ENTITY2', 'ALTERNATE_CAP', TRUE);
138: APP_EXCEPTION.RAISE_EXCEPTION;
139: END Check_Unique;
140:
141:
142: PROCEDURE Check_References(X_Organization_Id NUMBER,
168: EXCEPTION
169: WHEN NO_DATA_FOUND THEN
170: FND_MESSAGE.SET_NAME('BOM', 'BOM_ALT_IN_USE');
171: FND_MESSAGE.SET_TOKEN('ENTITY', X_Alternate_Designator_Code);
172: APP_EXCEPTION.RAISE_EXCEPTION;
173: END Check_References;
174:
175: PROCEDURE Insert_Row ( --- not used, retaining for the moment
176: p_api_version IN NUMBER
1186: fetch c into recinfo;
1187: if (c%notfound) then
1188: close c;
1189: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
1190: app_exception.raise_exception;
1191: end if;
1192: close c;
1193: if ( ((recinfo.STRUCTURE_TYPE_ID = P_STRUCTURE_TYPE_ID)
1194: OR ((recinfo.STRUCTURE_TYPE_ID is null) AND (P_STRUCTURE_TYPE_ID is null)))
1231: ) then
1232: null;
1233: else
1234: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
1235: app_exception.raise_exception;
1236: end if;
1237:
1238: for tlinfo in c1 loop
1239: if (tlinfo.BASELANG = 'Y') then
1243: ) then
1244: null;
1245: else
1246: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
1247: app_exception.raise_exception;
1248: end if;
1249: end if;
1250: end loop;
1251: return;
1294: IF (c_from_structure_name_csr%NOTFOUND) THEN
1295: CLOSE c_from_structure_name_csr;
1296: fnd_message.set_name('BOM', 'BOM_NO_SOURCE_ALT_DESIG_EXISTS');
1297: fnd_message.set_token('ALT_DESIG', p_alt_desig_code, FALSE);
1298: app_exception.raise_exception;
1299: end if;
1300: close c_from_structure_name_csr;
1301: insert_row (
1302: p_api_version => 1.0
1312: ,x_msg_count => x_msg_count
1313: ,x_msg_data => x_msg_data
1314: );
1315: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1316: app_exception.raise_exception;
1317: END IF;
1318: END copy_to_org;
1319:
1320: PROCEDURE LOAD_ROW( --called from bomalt.lct